Discussion :

[jap63]

Bonjour,

Afin de faire des contrôles, je cherche à recuperer la taille et la date de modification d'un membre de PDS.

J'ai dans un premier temps recuperer la liste des membres d'un PDS, et je voudrais dans un second temps pour chaque membre, afficher le taille et la date de modif :
Ex :
in-> USER.JCL(TEST1)
out -> USER.JCL(TEST1) taille : 57 modif 12/12/2016

Quelqu'un aurait-il une idée ?

Merci
Fabrice

[bernard59139]

Pour récupérer les stats, utilise LMMSTATS.
a+

[bakounine]

Bonjour ,

Tu peux te passer de LMMSTATS en faisant une simple boucle avec LMMLIST et LMMFIND.

Je te mets un exemple en copie :

Dsn = Nom_Du_PDS
IspExec "Control Errors Return"
Xx = '$'
Address IspExec "LmInit DataId(Pds) Dataset("Dsn") Enq(Shr)"
IspExec "LmOpen DataId("Pds")"
Do Forever
IspExec "LmmList DataId("Pds") Stats(Yes) Member(Xx)"
If Rc ^= 0 Then Leave
IspExec "LmmFind DataId("Pds") Stats(Yes) Member("Xx")"
say xx
say zlcnorc /* Size */
say zlcdate /* Sous la forme AA/MM/JJ */
say zlmdate /* Sous la forme AA/MM/JJ */
say zlmtime /* Sous la forme HH:MM */
say zluser
/* etc ... */
End
Exit

Bakounine