variable ISPF pour PDS vide [Résolu]

[qqoos]

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

[matholas]

Bonjour,
Dans mes REXX, j'utilise la fonction LISTDS

PDS = '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

Matholas

[qqoos]

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 ....

[Homer-ac]

LISTDSI TSO donne ça avec DIRECTORY dans SYSMEMBERS
DSINFO ISPF rend également le nbre de membres dans ZDS#MEM
exemple LISTDSI :

Code :

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

[qqoos]

merci beaucoup, c'est ce qui me fallait

à bientôt