Liste des membres d'1 PDS sous REXX [Résolu]

[Fred Ratel]

Bonjour,

En passant la commande "LISTDS ('nom-du-pds) MEMBERS" dans un REXX, je récupère l'ensemble des infos RECFM-LRECL-BLKSIZE-DSORG, VOLUMES et MEMBERS.

Je ne désire récupérer que les membres.

Quelqu'un aurait-il la solution ?
Fred

[Luc Orient]

Il faut "sauter" les 6 premières lignes du résultat de la commande LISTD.

[Fred Ratel]

S'il n'y a pas mieux !

OK merci

[Homer-ac]

Il y a aussi Library Management,
Probablement mieux, pas forcément plus simple. Exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ADDRESS ISPEXEC
MBR = ''  
"LMINIT DATAID(ID1)  DATASET('"PDS"') ENQ(SHRW)"
'LMOPEN DATAID('ID1')'
Do Forever            /* LISTE DES MEMBRES DU PDS A MODIFIER EN MASSE */
   'LMMLIST DATAID('ID1') OPTION(LIST) MEMBER(MBR) STATS(YES)'
   if RC <> 0 then leave /* doc ISPF pour liste variables alimentées par stats */
   DATAST = "'"PDS"("strip(MBR)")'"
   "EDIT DATASET("DATAST") MACRO("MYMACRO")"
end
'LMMLIST DATAID('ID1') OPTION(FREE)'
'LMCLOSE DATAID('ID1')'
'LMFREE  DATAID('ID1')'
                        /* COMPRESS DU PDS APRES MISE A JOUR DE MASSE */
"LMINIT  DATAID(ID2)  DATASET('"PDS"') ENQ(EXCLU)"
'LMCOMP  DATAID('ID2')'
'LMFREE  DATAID('ID2')''

Avantages : probablement plus rapide, l'ENQ est plus sioux et on peut récupérer les stats Directory.
Inconvénient : Aucun sous TSO, mais en Batch, il faut faire un ISPSTART IKJEFT01 avec tout le cortège d'ISPxLIB, ISPPROF et autres; nécessaires à l'exécution d'ISPF.
NB. Tu trouveras des exemples de JCL batch sur ce forum via une recherche sur ISPSTART.