Discussion :

[magfred03]

Bonjour,

je suis à la recherche d'un exemple de JCL qui me permet de copier le contenu d'un fichier séquentiel ( FB - 240 ), à la fin d'un membre d'un PDS.

je sais que manuellement, l'action est réalisable en ce mettant en EDIT dans le membre, et en mettant dans la COMMAND : copy nom_fic, et after sur le dernière ligne. Donc je voudrais la même chose en JCL si c'est possible.

merci d'avance

[Luc Orient]

Et en utilisant un fichier de travail intermédiaire ?

[magfred03]

je pars déjà d'un fichier temporaire qui comporte les résultats qui était ensuite intégré dans un fichier fixe, mais comme à mon lieu de travail les fichiers ne sont pas automatiquement sauvegardé contrairement au PDS, je voudrais copier ce fichier temporaire mais à la fin d'un membre.

[pdelbecque]

Tu mets ton fichier en DISP=MOD


DD DSN=NOM.DE.PDS(MEMBRE),disp=MOD

[magfred03]

je viens d'essayer, sachant que j'utilise l'exec IDCAMS, je plante en B14-04 sur mon PDS

[coderetour0]

salut,
ce qui me gène avec ton pb, c le lrecl de ton séquentiel (240) sachant que la plupart des utilitaires (ex IEBUPDTE, ...) utilise un lrecl max de 80 !
si ton pb de départ est la sauvegarde de ton fichier, trouve une autre solution que celle-ci. utilise par exemple ADRDSSU et gère manuellement tes sauvegardes

[nkoabang]

Bonjour,

je suis à la recherche d'un exemple de JCL qui me permet de copier le contenu d'un fichier séquentiel ( FB - 240 ), à la fin d'un membre d'un PDS.

je sais que manuellement, l'action est réalisable en ce mettant en EDIT dans le membre, et en mettant dans la COMMAND : copy nom_fic, et after sur le dernière ligne. Donc je voudrais la même chose en JCL si c'est possible.

merci d'avance

[Luwinit]

Tu mets ton fichier en DISP=MOD


DD DSN=NOM.DE.PDS(MEMBRE),disp=MOD

ATTENTION chers amis...
Ne jamais faire ceci... un DISP=MOD sur une librairie c'est mortel !
Si quelqu'un d'autre est occupé (par ex. sous TSO) dans la même librairei, il peut y avoir mélange des données du DISP=MOD en batch
avec les SAVE de la (ou des) utilisateurs sous TSO.

Mais encore, il est totalement incorrect de dire que la plupart des utilitaires IBM seraient limités à un LRECL de 80, c'est faux ! Le seul endroit ou le LRECL de 80 est préconisé (pas impératif), c'est pour coder le JCL et/ou les 'Control-Statements' (le SYSIN) de tous ces utilitaires.

Dans tous les cas il faut d'abord être certain d'avoir le même LRECL du fichier input que le LRECL des membres de la librairie.

L'utilitaire IEBUPDTE peut très bien être utilisé pour le dépôt 'PROPRE' su membre mis-à-jour dans la librairie.
Par contre pas en y faisant du DISP=MOD, trop dangereux !!
L'idée est de simplement passer par une récupération préalable du contenu de membre existant avant l'ajout du fichier.
La solution finale optimale serait un truc du genre:

STEP1 IEBGENER
SYSUT1 DD NOM.LIBRAIRIE(MEMBRE)
SYSUT2 DD NOUVEAU.SEQUENTIEL.TEMPORAIRE <------ d'abord extraire et sauver le contenu du membre actuel ici.

STEP2 IEBGENER
SYSUT1 DD SEQUENTIEL.TEMPORAIRE
DD TON.FICHIER <----- concaténation
SYSUT2 DD NOUVEAU.SEQUENTIEL.COMPLET

STEP3 IEBUPDTE
SYSUT1 DD NOUVEAU.SEQUENTIEL.COMPLET
SYSUT2 DD NOM.LIBRAIRIE
SYSIN
control statements pour le depôt du séquentiel dans le membre de la librairie en sysut2
/*