Discussion :

[qqoos]

bonjour,

A partir d'un nom generique, je dois faire la liste de tous les membres de tous les PDS commençant par ce nom (en REXX), je stocke les noms de membres et de PDS dans une table ISPF.

La 1ere fois, tout va bien, je récupère tout. Mais à la 2eme recherche, je ne récupère plus que les membres du dernier PDS récupéré.

Voici mon code, s'il y a mieux, je prends :

"ISPEXEC LMDINIT LISTID(LIST) LEVEL("idpds")"

"ISPEXEC LMDLIST LISTID(&LIST) OPTION(LIST) DATASET(NOMBIB)"
/* Acces à tous les PDS en fction du nom générique */
nbj = 0
DO WHILE RC = 0
DSNAME = NOMBIB
/* Acces à tous les membres du PDS trouvé */
CALL OUTTRAP "MBRS."
"LISTD" DSNAME "MEMBERS"
CALL OUTTRAP "OFF"
/* stockage dans une table ISPF */
END

merci pour vos réponses

[bernard59139]

Bonjour

c'est ton rexx qui doit être mal codé.
bon courage

[Luc Orient]

Mais il y a plusieurs PDS à traiter ?

[qqoos]

oui, plusieurs PDS avec plusieurs membres pour chacun d'eux

[Luc Orient]

oui, plusieurs PDS avec plusieurs membres pour chacun d'eux

Ne faudrait-il pas deux boucles ?

Une boucle principale sur l'ensemble des PDS et une boucle imbriquée sur l'ensemble des membres d'un PDS ?

[xfanx]

ne faudrait il pas ajouter un
ISPEXEC LMDFREE LISTID("idpds")

à la fin de ton rexx, surtout si c'est la 2eme fois que cela ne fonctionne pas..

[Homer-ac]

Il me semble qu'il manque deux choses à ajouter apres le END pour que ça marche l'appel suivant :
"LMDLIST LISTID(&LIST) OPTION(FREE) DATASET(NOMBIB)"
"LMDFREE LISTID(&LIST)"

[bernard59139]

bonjour

très vite fait, un truc qui marche

/* rexx */
idpds = 'user.jcl.*'
"ISPEXEC LMDINIT LISTID(LIST) LEVEL("idpds")"
"ISPEXEC LMDLIST LISTID(&LIST) OPTION(LIST) " ,
" DATASET(NOMBIB) stats(yes)"
vrc = rc
nbj = 0
DO WHILE vRC = 0
DSNAME = NOMBIB
x=OUTTRAP("MBRS.")
"LISTD" DSNAME "MEMBERS"
X=OUTTRAP("OFF")
do i=1 to mbrs.0
say dsname mbrs.i
end
"ISPEXEC LMDLIST LISTID(&LIST) OPTION(LIST) " ,
" DATASET(NOMBIB) stats(yes)"
vrc = rc
END