Discussion :

[sly3333]

Bonjour

Je suis en train de développer un panel sur lequel les utilisateurs saisissent des critères de recherche dont une chaine de caractère que l'on appellera TXT2SEARCH.

Je dispose d'un grand nombre de fichier de la forme SYLV001.FIC001.Jyyxxx
où xxx représente un quantième et yy l'année sur deux caractères.

L'idée c'est de chercher le contenu de TXT2SEARCH dans la liste des fichiers répondant au pattern SYLV001.FIC001.J*.

Chaque fois que je trouve la ligne je veut quelle soit recopier dans un fichier en sortie comme indiqué ci dessous :

SYLV001.FIC001.J10006 //Nom du fichier
ligne contenant TXT2SEARCH
SYLV001.FIC001.J10105
ligne contenant TXT2SEARCH

J'utilise un rexx qui fait appel a un skeleton censé me générer un JCL contenant une étape ICETOOL.

en fait dans le rexx je cherche la liste des fichiers repondant au pattern ci dessus et je mais la liste dans une STEM.

J'appelle ensuite mon skeleton et je voudrais dans le ICETOOL pour chaque nom de fichier dans la stem :

Rajouter un fichier INx en entrée
Rajouter une ligne de SORT FROM(INx) TO(FICOUT) USING(CRT1)

J'ai l'impression qu'il est impossible d'accéder à la stem de mon REXX dans le skeleton.

[benchab]

Je me sers de ça pour rechercher une liste de fichier dans un rexx

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
DAT = DATE('S')                   /*A adapter par quantième  */ 
DATEVAL = RIGHT(DAT,6)                                           
SAY DATEVAL                                                      
MASK = "TITI.TOTO.*."!!DATEVAL                                     
DSID = ISR0001                                                   
ADDRESS ISPEXEC                                                  
"LMDINIT LISTID(DSID) LEVEL("MASK")"                             
DO WHILE RC = 0                                                  
   "LMDLIST LISTID("DSID") DATASET(DSN) OPTION(LIST) STATS(YES)" 
   IF RC > 0                                                     
      THEN LEAVE                                                 
   SAY DSN ZDLVOL                                                
   END                                                           
"LMDFREE LISTID("DSID")"                                         
                                                                 
EXIT

En mettant ZDLVOL, j'obtiens dans un fichier le nom du DSN et le VOLUME.
Mais on peut mettre toutes les infos sur ce fichier : ZDLCDATE pour la date de création par ex. ==> Doc ISPF.

J'espere t'avoir aidé.

[Lemmings1406]

Si tu construis ton JCL à partir de ton REXX, c'est un jeu d'enfant, il te suffit de faire une boucle sur ta variable contenant les noms de fichier pour ajouter le nombre de lignes correspondantes dans ton JCL.

Si je n'ai pas été très clair, je peux te donner un exemple.

[bernard59139]

Bonjour

Les STEM du rexx ne sont pas utilisables dans les skeletons. Ou par une méthode que je ne connais pas.

Plutot que les stem, il est préférable d'utiliser une table ISPF. Très simplement
rexx:

Code :

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

1
2
3
4
5
'ISPEXEC TBCREATE tabdsn NAMES(col1, col2, ...) NOWRITE'
'ispexec tbadd   tabdsn'  /* autant de fois que nécessaire */
'ftincl leskelette'
'ispexec tbclose tabdsn'

skeleton:

Code :

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

1
2
3
4
)DOT tabdsn
//&col1 DD DSN=&col2 
)ENDDOT

[sly3333]

Merci bernard, c'est exactement la réponse que je voulais