Ajout de SYSPROC en REXX

Bonjour,

Je sais qu'au LOGON les PDS sont définis pour le DDNAME SYSPROC.
J'aimerais en REXX ajouter un PDS "proprement".
Actuellement (dans une application REXX/Dialog MANAGER) je procède ainsi (cela fonctionne mais je trouve que ce n'est pas propre) pour avoir ma SYSPROC en plus de celles déjà définies :
Code:

1 2 3 4 5 6 7 8 ADDRESS TSO "ALLOC FI(SYSPROC) DA('PDS1' 'PDS2' 'PDS3' 'PDS4' 'MYPDS') SHR REUSE" IF RC <> 0 THEN DO SAY 'ERREUR LIBDEF POUR CLIST' RETURN END ;
Donc les PDS1 à 4 sont déjà définis au LOGON et je rajoute 'MYPDS' quand je définis mes bibliothèques pour l'appli (en plus des ISPPLIB, ISPSLIB, ISPMLIB).
Donc ma question est la suivante : Quel serait le moyen de rajouter mon PDS sans déclarer ceux déjà existants (via le LOGON) ni n'avoir plus que mon PDS.

427 lectures.... 0 réponses...
Je vais amener le grain de sel de quelqu'un d'autre :

Dans le topic parlant des panels ISPF, au tout début je cherchais un moyen de concaténer un de mes PDS à la SYSPROC et à la SYSEXEC existante... et apparemment c'est impossible.
Voici la réponse de bernard59139 ici.
Juste avant sa réponse, j'avais noté un message à ce sujet, et il y répond.

Citation:

1. ALLOC+FREE, c'est normal. Les alloc en cours sont libérées pour satisfaire le demandeur
2. je ne connais pas de méthode standard pour concatener en dynamique

Je n'ai pas trouvé d'autre méthode que de refaire un REXX avec les SYSPROC et SYSEXEC existantes "en dur dans le texte" + le PDS supplémentaire

Merci ! Effectivement j'avais fouillé un peu partout et je n'ai vu nul part la possibilité de le faire en dynamique. Dommage car c'est possible pour les ISPPLIB, ISPSLIB, ISPMLIB.

Il n'existe pas de possibilité d'ajouter un pds à SYSPROC, SYSEXEC, ou ISPPLIB et autres, sauf outil spécifique.

Avec les ISPPLIB et autres, LIBDEF permet d'allouer temporairement un ddname qui sera lu avant les ISP* déjà alloués.

Pour SYSPROC/SYSEXEC, tu peux utiliser ALTLIB qui fonctionne très bien

Code:

ALTLIB ACTIVATE APPLICATION(CLIST) DATASET(......

Merci c'est exactement ce que je cherchais !

En effet, sur le dernier post du topic j'ai un script qui fait cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
/* REXX */                                                            
                                                                      
  "EXECUTIL SEARCHDD(YES)"   /* TO ENSURE THAT SYSEXEC IS AVAILABLE*/ 
                                                                      
/*                                                                    
** "ALLOC FILE(SYSEXEC) DATASET(REXX.EXEC,",                          
**       "'ISP.PHONE.EXEC') SHR REUSE"                                
*/                                                                    
                                                                      
  BIBREXX = METAL.SYSPROC                                   
/* "ALLOC FILE(SYSEXEC) DATASET('"BIBREXX"') SHR REUSE" */            
  "ALLOC FILE(SYSEXEC) DATASET('METAL.SYSPROC',",           
         "'AUTRE.LIB',",                                      
         "'ENCORE.UNE.AUTRE.LIB') SHR REUSE"                                 
                                                                      
  IF RC = 0 THEN                                                      
    SAY 'ALLOCATION TO SYSEXEC COMPLETED.'                            
  ELSE                                                                
    SAY 'ALLOCATION TO SYSEXEC FAILED.'                               
                                                                      
  ADDRESS TSO                                                         
  "ALTLIB ACT APPLICATION(EXEC) DATASET('"BIBREXX"')"                 
/* "CONCATD FILE(SYSEXEC) DSN('"BIBREXX"') BEFORE" */

Il est directement issu de la doc IBM évidemment ! :P