Discussion :

[petitcoeuramoi05]

bonjour
je suis en train développer un traitement qui renvoi( en instantané ) le volumétrie d'un fichier
pour cela j'utilise une Fonctionnalité ZOS : LISTDSI (commande DSINFO)

pour pouvoir appeler cette fonction je l'ai intégré dans un PGM REXX
Le truc fonctionne si je le fais dans un JCL direct

Mais comme je dois le livré , je dois le créé dans l'outil CORTEX sous forme de JOBSET

LE souci c'est que la Fonction LISTDSI veut le nom du fichier physique , et comme j'ai des fichiers à génération
j'ai un souci

pour le moment je l'ai développé ainsi pour débloquer mon développement
SYSTSIN FILE MODE=N
LISTSAMS DATA *
":H20XS118"".G0001V00
DATAEND

Mais je n'ai pas toujours la génération G0001V00

Existe-t-il un moyen de récupéré le nom physique d'1 Fichier ?

[bakounine]

Bonjour ,

Si j'ai bien compris (Pas sur !) , tu cherches à récupérer le nom de la dernière version de ton GDG.

Un petit bout code Rexx pour ceci :

BaseGDG = 'MaBase.GDG'
Yy = OutTrap(Off)
Yy = OutTrap('Bak.')
"Listcat Entries('"BaseGDG"') All"
Yy = OutTrap(Off)
Do Ii = 1 To Bak.0
If Substr(Bak.Ii,1,11) = ' NONVSAM ' Then
Do
Jj = Ii - 1
LastVer = Word(Translate(Bak.Jj,' ','-'),2)
Leave
End
End
Exit

La variable LastVer contiendra le DSN complet de la dernière version (Ma.Base.GDG.VxxxxV00)

Bakounine

[petitcoeuramoi05]

Bonjour
sur le principe oui
le souci c'est que le REXX ne fait pas partie de la norme entreprise, j'ai réussi à en faire 1 pour des raisons de performance et que la fonction était plus simple a impacter dans un REXX

je cherche donc le nom du fichier complet
Domaine. env.fichier .génération
sachant que Domaine.env.fichier(0) ne fonctionne pas

et je me posait la question si un ICETOOL/ SORT/IDCAMS, .... ou autre serait me faire ça pour que je puisse le mettre dans un fichier et utiliser après le contenu de ce fichier

[bernard59139]

Bonjour
Le rexx donné par le collègue est "presque" bon.
Tous les cas ne sont pas testés, en particulier quand un gdg foire (rolled_off et etc....)

Sans oublier que si un GDG vit bien, cad en dépassant la version +9999, les résultats sont parfois inattendus.
Sans oublier aussi les plantages qui peuvent se produire (ROLLED off, ....)

Le seul moyen d'être sur dans ton contexte, c'est de tanner les experts, les sachants; .... Ca peut être long, mais ils sont payés pour ca

a+