Discussion :

[Fred Ratel]

Bonjour,

J'ai un programme REXX dans un JCL qui met à jour des membres de PDS (ce sont en fait des cartes SYSIN qui sont utilisées plus loin dans le JCL).
Pour que le programme REXX puisse lire et écrire sur ces membres via EXECIO, j'ai du déclarer chacun de ces membres dans une carte DD.

Existe-t-il un moyen d'appeler dynamiquement ces membres de PDS au sein du programme REXX sans avoir besoin de les déclarer en carte DD ?

Merci beaucoup
Fred

[Homer-ac]

Rien de plus simple que de faire des alloc TSO en REXX. Pour la syntaxe un TSO HELP ALLOC. Attention c'est bavard !
Un exemple qui alloue soit le PDS(MEMBRE), soit le membre :

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
ADDRESS TSO
IF SYSDSN("'"MYPDS"'") <> 'OK' THEN DO                                      
   AMSG = MSG(OFF)         /* DESACTIVATION DES MESSAGES ECRANS */     
   "ALLOC F(DDPDS) DA("'FICHIER'") NEW CAT                             
   SPACE(3,2) DIR(10) TRACKS DSORG(PO) UNIT(SYSALLDA)                   
   LRECL(80) BLKSIZE(0) RECFM(F B)"                                  
   WRC = RC                                                            
   AMSG = MSG(ON)           /* REACTIVATION DES MESSAGES ECRANS */     
   IF WRC > 4 THEN DO                                                  
      SAY "ERREUR" WRC "D'ALLOCATION" FICHIER "- ABANDON !" 
      EXIT WRC                                                            
   END                                                                  
END 
ELSE "ALLOC F(DDPDS) DA("'FICHIER'") SHR REUSE" 
/* ................ ensuite ne pas oublier le FREE : */ 
'FREE F(DDPDS)'

Pour des raisons de performances, Library Management est préférable (ADDRESS ISPEXEC 'LMINIT' puis 'LMOPEN' etc...)
Mais un tel REXX doit lancer ISPF en Batch et allouer toutes les ISPxLIB utiles. Tu trouveras des exemples sur ce forum, à adapter sur site.

[Fred Ratel]

Merci pour cette réponse dilligente.
Pas de soucis pour la performance, c'est juste une mise à jour de quelques cartes en début de JCL qui évite de la manipulation humaine et des risques d'erreur de saisie.

Maintenant que je vois cette commande à l'écran, de vagues souvenirs me reviennent en tête.

Je ne pourrai mettre en pratique que mercredi 15 et vous tiendrai au courant du résultat.

[Fred Ratel]

Le programme fonctionne sans problème après mise en place de l'alloc dynamique.
Encore merci pour votre aide.