Discussion :

[sam01]

Est-il possible par batch (sans passer par un programme rexx) de lister tous les fichiers de plusieurs volumes (par exemple tous les volumes ADB*).
Je compte ensuite les trier par taille.

Merci d'avance pour votre aide.

[Homer-ac]

Le DCOLLECT IDCAMS est fait pour ça. Exemple :

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
19
20
21
22
23
24
25
26
27
28
29
//DCOLLECT EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTOUT  DD DISP=(NEW,PASS),DSN=&&OUT01,
//           UNIT=SYSALLDA,SPACE=(CYL,(10,10),RLSE),
//           DCB=(BLKSIZE=0,LRECL=644,RECFM=VB)
//SYSIN     DD *
   DCOLLECT  OUTFILE(SORTOUT)      +
             VOLUME(ADB*)
/*
//*    ELIMIT(1000) NOVOLUMEINFO(NOV) MIGD
//*          STORAGEGROUP(*) +
//*          SMSDATA(ACTIVE) +
//*          MIGRATEDATA +
//*          CAPPLANDATA +
//*          BACKUPDATA
//*-----------------------EXTRACTION - TRI PAR VOLUME / DSN    -------
//SORT0002 EXEC PGM=SORT
//SYSOUT   DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//SORTIN   DD   DISP=(OLD,DELETE),DSN=&&OUT01
//SORTOUT  DD DISP=(NEW,CATLG),DSN=....................,
//           UNIT=SYSALLDA,SPACE=(CYL,(10,10),RLSE),
//           DCB=*.DCOLLECT.SORTOUT
//*
//SYSIN    DD   *
   SORT FIELDS=(083,6,CH,A,9,1,CH,D,29,44,CH,A)
   INCLUDE COND=(09,1,CH,EQ,C'D')
//*

Pour le détail des paramètres un HELP est accessible comme pour toute commande IDCAMS.
La Seule difficulté est que si tu as besoin des informations autres que volume et DSN (allocations en particulier), il va te falloir ensuite un programme pour extraire en clair ces informations du fichier. Il y a des exemples ICETOOL mais je te conseille l'excellent REXX LISTVTOC de Thierry Falissard, disponible sur CBTTAPE. Tu pourras ensuite l'adapter à ton besoin (type D uniquement pour les fichiers si tu n'as pas besoin des infos volumes (type V)).

Sinon le seul autre utilitaire standard z/OS est encore IEHLIST mais il va te falloir lister les volumes un par un. Pour cette raison il est devenu pour le moins désuet, on comprend bien pourquoi quand on voit l'exemple suivant alors que l'on raisonne à présent storage group SMS.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
//S1 EXEC PGM=IEHLIST
//SYSUT1 DD DISP=OLD,UNIT=3390,VOL=SER=ADB001
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
   LISTVTOC VOL=3390=ADB001,FORMAT

[sam01]

merci pour cette réponse précise.
Ou puis-je récupérer ce rexx ?

[Homer-ac]

http://www.cbttape.org/cbtdowns.htm
C'est dans le FILE432 de Thierry Falissard
Si tu ne connais pas CBTTAPE, je te conseille (c'est d'ailleurs intéressant pour tout utilisateur z/OS) de commencer par télécharger et installer XMIT Manager sur ton PC.
Tu peux consulter la Directory ASCII pour chercher ce qui t'interesse. Il y a de tout. Une mine de trucs souvent utiles, parfois dépassés ou trop 'métier'. Tu verras, certains des développements proposés ont d'ailleurs été repris par IBM et sont devenus depuis des standards z/OS. C'est de cas par exemple de ISRDDN, ou encore de CUT et PASTE sous EDIT.
Quand tu as isolé le fichier, tu peux le télécharger, le dézipper et en consulter et extraire le contenu de l'archive qui se présente un peu sur ton PC comme un PDS MVS via XMIT Manager.

[sam01]

merci pour ces précieux renseignements.
Par contre je ne suis pas admin de mon pc et je ne peux pas insatller xmit manager.
Existe-t-il un autre programme qui fait la même chose sant être obligé d'être admin ?

[Homer-ac]

Pas mieux. Tu trouveras cependant sans doute un interet à installer ça sur ton PC perso. En attendant je t'ai envoyé le REXX en question en message privé.

[sam01]

Encore merci !

[yann78420]

Bonjour,
Xmit manager nécessite effectivement des droits d'administrateurs pour être installé. Néanmoins, j'ai installé le produit sur mon poste personnel et je parviens à l'utiliser sur site en faisant un simple copier/coller du répertoire ...