Aussi concis ?

05-01-2007 à 16:28:03
CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq

C KSITPHY0 CHAIN BSITPHY0 10
C N10COSEN COMP 'N' 1010
C 10 LEAVE

en free comment faire aussi concis ?

--Message édité par le 05-01-07 à 16:16:13--
  • Liens sponsorisés



05-01-2007 à 16:16:56
c'est difficile de fair un copier-coller avec la bonne correspondance avec les colonnes...
mon indicateu chain est sur Hi
mon indicateur comp est sur HiLo

j'ai :
/free
chain KSITPHY0 BSITPHY0;
if %found or COSEN 'N';
leave;
endif;
/end-free

mais je ne suis pas de ma logique !

--Message édité par Saavik le 05-01-07 à 16:24:49--
05-01-2007 à 16:23:38
Je ne pense pas que l'objectif en free ou en tout autre langage soit de tout condensé tel que cela pouvait etre fait en RPG3 par exemple.
Un des avantages du free est sa lisibilité !

mais avec un simple :
Chain KSITPHY0 BSITPHY0;
If Not %Found(BSITPHY0) or (%Found(BSITPHY0) and COSEN <='N');
Leave;
EndIf;
Cela fonctionne.

4 lignes au lieu de 3 mais beaucoup plus lisible à mon sens notamment lorsqu'on utilise d'autres langages de programmation.
05-01-2007 à 16:28:03
Certes ! Je rejoinds ton avis là-dessus, mais ma question doit être mal formulée j'aurai dû parler en terme de performance ...

Mais merci pour ta rapide réponse !

--Message édité par Saavik le 08-01-07 à 08:52:20--
25-08-2014 à 10:04:41
Je félicite beaucoup toutes les personnes qui veille au bon déroulement de ce forum.


voyance par mail gratuite
voyance amour
14-11-2014 à 14:10:55
Je félicite beaucoup toutes les personnes qui veille au bon déroulement de ce FORUM purement sensationnel et intéressant. Vraiment bravo et encore une fois bon courage.
Amicalement

voyance gratuite par email
29-12-2014 à 11:18:32
Je suis vraiment fière de vous découvrir, votre forum est vraiment super et j’ai trop adoré le contenu aussi. Surtout continuez ainsi !
voyance gratuite par mail
  • Liens sponsorisés