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 :
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).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 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.
Partager