bonjour,
j'aimerais savoir s'il existe une variable ISPF ou qque chose qui indique si un PDS ne comporte aucun membre. Il me faut utiliser ça dans un REXX. Si plus rien dans le PDS, je dois le deleter.
merci pour vos réponses
bonjour,
j'aimerais savoir s'il existe une variable ISPF ou qque chose qui indique si un PDS ne comporte aucun membre. Il me faut utiliser ça dans un REXX. Si plus rien dans le PDS, je dois le deleter.
merci pour vos réponses
Bonjour,
Dans mes REXX, j'utilise la fonction LISTDS
MatholasPDS = 'mon pds'
X = OUTTRAP('LISTE.')
"LISTDS '"PDS"' MEMBERS"
IF RCLIST > 0 THEN
DO
message d'erreur si impossible d'accéder au pds
END
X=OUTTRAP('OFF')
/* LES 6 PREMIERES LIGNES CONTIENNENT DES INFOS SUR LE PDS */
/* Si liste.0 = 6 ==> le pds ne contient pas de membres */
DO I = 7 TO LISTE.0
mes instructions de travail
END
merci pour l'info.
sous TSO quand on fait la commande "I" sur le PDS, on a des infos sur le LRECL, DSORG, VOLUME ..... et le nombre de membres dans le PDS
Il doit y avoir une variable ou une fonction TSO qui donne cette info. Si quelqu'un sait ....
LISTDSI TSO donne ça avec DIRECTORY dans SYSMEMBERS
DSINFO ISPF rend également le nbre de membres dans ZDS#MEM
exemple LISTDSI :
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
18 DSINFO=LISTDSI("'"MYDSN"' DIRECTORY") SAY 'CODE RETOUR :' SYSREASON SAY 'DSNAME :' SYSDSNAME SAY 'DEVICE UNIT :' SYSUNIT SAY 'VOLUME :' SYSVOLUME SAY 'DSORG :' SYSDSORG SAY 'RECFM :' SYSRECFM SAY 'LRECL :' SYSLRECL SAY 'BLKSIZE :' SYSBLKSIZE SAY 'EXTENTS :' SYSEXTENTS SAY 'CREATION DATE :' SYSCREATE SAY 'EXPIRATION DATE :' SYSEXDATE SAY 'LAST REF. DATE :' SYSREFDATE SAY 'UPDATE FLAG :' SYSUPDATED SAY 'MEMBERS :' SYSMEMBERS SAY 'DIR. BLOCKS ALLOC :' SYSADIRBLK SAY 'DIR. BLOCKS USED :' SYSUDIRBLK
merci beaucoup, c'est ce qui me fallait
à bientôt
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager