[REXX/ISPF/JCL] Probème réinit LMDINIT [Résolu]

[Pico-----]

Bonjour,

Dans un REXX appelé par JCL, je fais plusieurs listes de datasets en utilisant les service ISPF LMD*.

La structure globale ressemble à ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DO i = 1 TO nombreRequetes

 controlesRequete

 "ISPEXEC LMDINIT LISTID(REN"!!i!!") LEVEL("!!filtre!!")"   
 "ISPEXEC LMDLIST LISTID(&REN"!!i!!") OPTION(LIST) DATASET(fic)"

 DO WHILE RC = 0
  Traitements...
  "ISPEXEC LMDLIST LISTID(&REN"!!i!!") OPTION(LIST) DATASET(fic)"
 END                                                             
"ISPEXEC LMDFREE LISTID(&REN"!!i!!")"                           

END

Les résultats que j'obtiens ne sont pas ceux attendus : il semblerait que j'ai un problème d'initialisation.

Concrètement avec les datasets suivants :

Code :

1
2
3
4
5
6
7
8
9
RENAME.TESTA1
RENAME.TESTA2
RENAME.TESTA3
RENAME.TESTB1
RENAME.TESTB2
RENAME.TESTC1
RENAME.TESTC2
RENAME.TESTC3

La série de filtres :

Code :

1
2
3
4
RENAME.TESTA*
RENAME.TESTB*
RENAME.TESTC*

fonctionne.
Cependant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
RENAME.TESTB*
RENAME.TESTA*
RENAME.TESTC*

donne : 
RENAME.TESTB1
RENAME.TESTB2
puis
 Rien pour RENAME.TESTA*
puis
RENAME.TESTC1
RENAME.TESTC2
RENAME.TESTC3

Et

Code :

1
2
3
4
5
6
7
8
9
10
11
12
RENAME.TESTB*
RENAME.TEST*

donne : 
RENAME.TESTB1
RENAME.TESTB2
puis
RENAME.TESTB2
RENAME.TESTC1
RENAME.TESTC2
RENAME.TESTC3

Et

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
RENAME.TESTA*
RENAME.TEST*

donne : 
RENAME.TESTA1
RENAME.TESTA2
RENAME.TESTA3
puis
RENAME.TESTA3
RENAME.TESTB1
RENAME.TESTB2
RENAME.TESTC1
RENAME.TESTC2
RENAME.TESTC3

Avec ces tests, je dirai que lors d'une succession de LMDINIT, ces derniers ne démarrent qu'à partir du dernier dataset retourné par la liste précédente.
J'ai cherché dans la documentation, et mon code me semble correct. Y aurait-il un buffer à vider ou une manipulation spéciale pour réinitialiser que j'aurai loupée ?

Merci.

[BernardBZH]

Bonjour,

Ré-initialise ta variable nommée fic avant le LMDINIT.

[Pico-----]

Merci Bernard : ça fonctionne !

Donc c'est la clause DATASET du LMDLIST qui gère l'itérateur de lecture ?

[bernard59139]

c'est cela.
extrait de la doc:

To start at the beginning of the list set the dataset-var to blanks.

a+

[BernardBZH]

Exactement.

Il en va de même pour le service LMMLIST quand tu fais des boucles du même style que la tienne mais sur des membres de PDS.

[Pico-----]

Merci pour ces réponses !

J'en ai profité pour télécharger le "ISPF Services Guide" que étrangement je n'avais pas...