Précédent   Forum des professionnels en informatique > Systèmes > Autres systèmes > z/OS
z/OS Forum d'entraide sur z/OS et MVS (Multiple Virtual Storage), les systèmes d'exploitation des ordinateurs « mainframes » IBM : JCL, Tso, Ispf, Vsam, Racf, SMS, Cics, Ims, OPC, Ca-7, Control-M, Dialog Manager ...
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 28/04/2009, 10h41   #1 (permalink)
Nouveau membre du Club
 
Date d'inscription: septembre 2008
Messages: 50
Par défaut variable ISPF pour PDS vide

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
qqoos est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 28/04/2009, 11h37   #2 (permalink)
Invité de passage
 
Date d'inscription: mars 2009
Âge: 35
Messages: 4
Par défaut

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

Citation:
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
matholas est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 28/04/2009, 11h53   #3 (permalink)
Nouveau membre du Club
 
Date d'inscription: septembre 2008
Messages: 50
Par défaut

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 ....
qqoos est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 28/04/2009, 12h23   #4 (permalink)
Membre éprouvé
 
Avatar de Homer-ac
 
Date d'inscription: octobre 2007
Localisation: région parisienne
Messages: 450
Par défaut

LISTDSI TSO donne ça avec DIRECTORY dans SYSMEMBERS
DSINFO ISPF rend également le nbre de membres dans ZDS#MEM
exemple LISTDSI :
Code :
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
Homer-ac est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 28/04/2009, 13h58   #5 (permalink)
Nouveau membre du Club
 
Date d'inscription: septembre 2008
Messages: 50
Par défaut

merci beaucoup, c'est ce qui me fallait

à bientôt
qqoos est déconnecté   Envoyer un message privé Réponse avec citation
NEWS AUTRESAdaAlgorithmiqueBasicCobolFortranLaTeXMATLABPrologPurebasicRubyXMLRAD

Réponse Proposer ce sujet en actualité

Précédent   Forum des professionnels en informatique > Systèmes > Autres systèmes > z/OS



Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are non
Pingbacks are non
Refbacks are non



Fuseau horaire GMT +1. Il est actuellement 17h09.


Vos questions techniques : forum d'entraide Autres - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Hébergement - Participez - Copyright © 2000-2010 www.developpez.com - Legal informations.