J'ai un fichier FILE1 comportant les zone ZA, ZB et ZC
Dans un script CLLE je fais ceci :
Que dois-je écrire à la place de xxxx pour afficher la zone ZB ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 PGM DCL VAR(&I) TYPE(*INT) LEN(2) OPNQRYF FILE((BIB1/FILE1)) QRYSLT('ZA = "PF"') OPNID(*FILE) CHGVAR VAR(&I) VALUE(0) DOWHILE COND(&I *LT 5) SNDPGMMSG MSG(xxxx) CHGVAR VAR(&I) VALUE(&I + 1) ENDDO CLOF OPNID(FILE1) ENDPGM
Partager