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
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
Il faut "sauter" les 6 premières lignes du résultat de la commande LISTD.
S'il n'y a pas mieux !
OK merci
Il y a aussi Library Management,
Probablement mieux, pas forcément plus simple. Exemple :
Avantages : probablement plus rapide, l'ENQ est plus sioux et on peut récupérer les stats Directory.
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 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')''
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.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager