Discussion :

[twisty]

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.

[twisty]

Bonjour,

Si je n'ai pas de réponse, c'est peut être que j'ai mal posé le problème. En fait, je veux simplement lire chaque enregistrement d'un fichier, en le passant en variable dans une INSTREAM PROCEDURE. Chacun de ces enregistrements est une table à mettre à jour, grâce, justement à INSTREAM PROCEDURE.

Cela me permet d'éviter, de modifier ces tables (une centaine), une par une.

En espérant que c'est clair, pourriez-vous m'aider ?

Merci d'avance.

[Luc Orient]

C'est pas très clair ton souci ...

Tu écris :

A l'exécution, on aura :
//STEP EXEC PROC=maproc,NOMFIC=module1 (puis =module2) (et enfin =module3)

Mais ça n'a pas de sens d'un point de vue JCL car ta procédure n'accepte qu'un paramètre en entrée.


De plus :

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

Mais en quoi est ce un problème ?

[twisty]

Pour un //STEP EXEC PROC=maproc,NOMFIC=module1 (puis =module2) (et enfin =module3) , je veux dire que module1, sera remplacé par module2, puis module3 :

Donc, il faut lancer, dans ce cas, 3 fois le jcl, en changeant à chaque fois le module. ET, pour 50 modules, il faudra le lancer 50 fois.

De plus, nous sommes d'accord à ne pas créer les ligens suivants dans le jcl :

//STEP EXEC PROC=maproc,NOMFIC=module1
//STEP EXEC PROC=maproc,NOMFIC=module2
//STEP EXEC PROC=maproc,NOMFIC=module3
....

Car il y en aurait 50 à écrire, si on a affaire à 50 modules différents.

Justement, pour éviter cette redondance, il faudrait :
1) lire, ligne par ligne, le contenu d'un fichier, en REXX, contenant chacune un module.
2) mettre, en paramètre, ce module, dans une INSTREAM PROCEDURE, afin de modidier le contenu du module lu.

Et, dans ce cas, le jcl est exécuté qu'une seule fois.

Je ne peux pas être plus clair. La solution viendrait d'un grand spécialiste du REXX.

Merci d'avance encore.

[bernard59139]

Bonjour

Pas besoin de grand spécialiste du rexx.

Dans un fichier, tu génères la sysin avec un rexx (ou DFSORT, c'est possible dans ton cas).

A l'appel de la proc, plus besoin de paramètre. Magique!

[twisty]

justement, je sollicite les commandes et le détail des instructions REXX pour lire chaque enregistrement du fichier, et surtout le passage de paramètre du module lu vers l'INSTREAM PROCEDURE.

Et après je serai un excellent magicien en REXX.

Twisty.

[Luc Orient]

De plus, nous sommes d'accord à ne pas créer les ligens suivants dans le jcl :

//STEP EXEC PROC=maproc,NOMFIC=module1
//STEP EXEC PROC=maproc,NOMFIC=module2
//STEP EXEC PROC=maproc,NOMFIC=module3

tu es d'accord avec toi même ? c'est bien ...

Car il y en aurait 50 à écrire, si on a affaire à 50 modules différents

.

et alors ? en quoi est ce un problème ? c'est justement le rôle de la procédure !


Sinon, tu fais une boucle de " SUB " dans ton REXX ... mais c'est ça qu'est pas terrible ...

[twisty]

Voici ce que je sais , pour lire le fichier :

/* REXX */
ADDRESS TSO
"ALLOC FI(FIC) DA('nom_fichier') SHR REUSE"
"EXECIO * DISKR FIC (STEM EX. FINIS"
DO I=1 TO EX.0
SAY EX.I '
END


DONC, à la place de la ligne 'SAY EX.I '', il faudrait les instructions, pour que 'EX.I' soit en paramètre d'une INSTREAM PROCEDURE. Et que, à chaque lecture du fichier, on change de module (EX.I = modulei)


Pouvez-vous m'aider ?

[Luc Orient]

...
Pouvez-vous m'aider ?

NON ON NE PEUT PAS T'AIDER !

Une INSTREAM PROCEDURE c'est une facilité liée au JCL et toi tu parles de REXX. Un programme REXX NE PEUT PAS appeler directement une INSTREAM PROCEDURE, ça n'a pas de sens.

Sauf bien sûr, à générer un JCL qui, lui, fera appel à cette INSTREAM PROCEDURE, ce qui revient à créer un JOB qui aura autant de STEP que de fichiers différents. Solution, que tu sembles exclure a priori, mais sans être capable de nous en donner la raison précise.

Voilà, ai je été assez clair ?

[bernard59139]

je ne comprend pas pourquoi tu veux absolument du rexx (je n'ai peut être pas compris le besoin original)
Ma solution, je l'ai utilisée de nombreuses fois avec endevor, et ca marche!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//SORT EXEC PGM=SORT                                
//SYSOUT DD SYSOUT=*                                
//SORTIN   DD  *                                    
NOM1                                                
NOM2                                                
NOM3                                                
//SORTOUT DD DSN=le.fichier,DISP=....,LRECL=80,RECFM=FB
//SYSIN    DD  *                                    
 SORT FIELDS=COPY                                   
 OUTFIL OUTREC=(C' RETRIEVE ELEMENT ',1,8,80:X,/,   
        C'   FROM SYSTEM NOMSYST        ',80:X,/,   
        C'   SUBSYSTEM NOMSBSYST        ',80:X,/,   
        C'   ENVIRONMENT NOMENV         ',80:X,/,   
        C'   STAGE S                    ',80:X,/,   
        C'   TYPE COBOL                 ',80:X,/,   
        C'   TO DSNAME ''NOM_LIB''      ',80:X,/,   
        C'   MEMBER ',1,8,C'            ',80:X,/,   
        C'   OPTIONS CCID ''NOM_CCID''  ',80:X,/,   
        C'   REPLACE MEMBER.            ',80:X)     
/*
//S1 EXEC MAPROC 
//BSTITPT01 DD DSN=le.fichier

pour faire avec du rexx, ceci est interessant http://www.ibmmainframeforum.com/cli...opic12007.html