Bonjour,
Je souhaite lire un fichier 'fichier', dont chaque information par ligne, est à passer en paramètre dans une instream-procedure :
Voici mon instream-procedure :
//maproc PROC nomfic=
//BSTITPT01 DD *,SYMBOLS=JCLONLY
RETRIEVE ELEMENT &nomfic FROM SYSTEM nomsyst SUBSYSTEM nomsbsyst ENVIRONMENT nomenv STAGE s
TYPE cobol TO DSNAME 'nom_lib' MEMBER &nomfic OPTIONS CCID 'nom_ccid'
REPLACE MEMBER.
//*
// PEND
//*
//E1 EXPORT SYMLIST=(nomfic)
//STEP EXEC PROC=maproc,nomfic=&var_fichier
Donc, je souhaite lire le fichier 'fichier', et à chaque ligne lu, mettre le contenu dans &var_fichier.
Exemple :
'fichier' contient :
module1
module2
module3
Pour la 1ère lecture de 'fichier', je veux mettre 'module 1' dans &var_fichier
A l'exécution, on aura :
//STEP EXEC PROC=maproc,NOMFIC=module1 (puis =module2) (et enfin =module3)
La solution d'écrire, dans ce cas, 3 fois le step :
//STEP EXEC PROC=maproc,NOMFIC=module1
//STEP EXEC PROC=maproc,NOMFIC=module2
//STEP EXEC PROC=maproc,NOMFIC=module3
est à bannir, car le fichier 'fichier' peut contenir plus de 50 enregistrements.
Pourriez-vous m'aider ?
Merci d'avance.
Partager