nom du membre à partir du DDNAME

[qqoos]

bonjour,

j'ai un jcl qui lance un REXX avec en entree :

Code :

//IN   DD DISP=SHR,DSN=TST.AAA.PDS(MBR1)

je voudrais récupérer le nom du membre (MBR1) dans mon REXX.

J'ai essayé :

Code :

1
2
WR = LISTDSI(IN FILE')                            
Say 'FICHIER TRAITE =' SYSDSNAME

mais SYSDSNAME me rend le nom du PDS : TST.AAA.PDS

Quelqu'un peut m'aider ??

[bernard59139]

Bonjour

essaye :

Code :

1
2
3
/* rexx */
parse source . . krexx . .
say krexx

Bonne journée

[qqoos]

j'ai essayé, ça me donne le nom du pgm REXX.

Il me faut récupérer le nom du DSN: TST.AAA.PDS(MBR1)

Ce qui m'interresse, c'est le nom du membre : MBR1


HELP !!

[qqoos]

bon j'ai trouvé qque chose :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
ADDRESS TSO                                   
CALL MSG "ON"                                 
CALL OUTTRAP "A."                             
"ALTLIB DISPLAY"                              
"LISTA STATUS SYSNAMES"                       
                       
DO i = 1 TO a.0              
    If POS("IN",a.i) > 0 & i > 1 Then Do   
      j=i-1                                   
      say "FICHIER IN :" a.j       
      Leave    
   End                                        
END                                           
CALL MSG "Off"

et ça me donne bien : TST.AAA.PDS(MBR1)

qu'en pensez-vous ?

judicieux ou pas ?

[bernard59139]

Bonjour

C'est le seul moyen "simple".

J'ai connu un autre truc, mais il ne fonctionne plus. Il fallait aller fouiller dans les blocs mémoire pour arriver à la TIOT.

Désolé de la mauvaise réponse