Fichier logique mettre COMP ou test dans pgm
Posté : jeu. 29 nov. 2012, 13:26:25
Bonjour,
Pouvez-vous me dire ce qui sera le plus rapide en lecture dans un programme ?
Fichier logique
R Format PFILE(Physique)
K zone1
K zone2
K zone3
K zone4 DESCEND
S zone5 COMP(NE ' ')
zone5 COMP(NE 'TEST')
zone3 COMP(EQ zone7)
c àKCons setll Logique
c *in56 doweq *off
c àKCons0 reade Logique 56
c 56 leave
c traitement
c enddo
ou
Fichier logique
R Format PFILE(Physique)
K zone1
K zone2
K zone3
K zone4 DESCEND
c àKCons setll Logique
c *in56 doweq *off
c àKCons0 reade Logique 56
c 56 leave
c if zone5 <> *blanks and zone5 <> 'TEST'
c if zone3 = zone7
c traitement
c enddo
J'ai toujours pensé qu'un logique avec comp était plus rapide qu'un sans comp. Mais maintenant j'ai des doutes.
Merci d'avance pour votre réponse.
Pouvez-vous me dire ce qui sera le plus rapide en lecture dans un programme ?
Fichier logique
R Format PFILE(Physique)
K zone1
K zone2
K zone3
K zone4 DESCEND
S zone5 COMP(NE ' ')
zone5 COMP(NE 'TEST')
zone3 COMP(EQ zone7)
c àKCons setll Logique
c *in56 doweq *off
c àKCons0 reade Logique 56
c 56 leave
c traitement
c enddo
ou
Fichier logique
R Format PFILE(Physique)
K zone1
K zone2
K zone3
K zone4 DESCEND
c àKCons setll Logique
c *in56 doweq *off
c àKCons0 reade Logique 56
c 56 leave
c if zone5 <> *blanks and zone5 <> 'TEST'
c if zone3 = zone7
c traitement
c enddo
J'ai toujours pensé qu'un logique avec comp était plus rapide qu'un sans comp. Mais maintenant j'ai des doutes.
Merci d'avance pour votre réponse.