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 07/07/2011, 16h27   #1
Invité de passage
 
Inscription : juillet 2011
Messages : 7
Détails du profil
Informations forums :
Inscription : juillet 2011
Messages : 7
Points : 3
Points : 3
Par défaut convertir un VB en FB en le modifiant par OUTREC

Bonjour,
Je souhaite modifier un fichier VB par l'instruction OUTREC en lui ajoutant 2 caractère en début de ligne.
J'ai fait le code suivant qui fonctionne OUTREC=(1:1,4,C'A;',7:5) mais qui me génère un fichier VB.
Je voudrais également que mon fichier de sortie soit en FB et là je n'y arrive pas
Pour résumer : fichier d'origine RECFM = VB LRECL = 116
Fichier de sortie souhaité : RECFM = FB LRECL = 114 avec les mêmes enregistrements que le fichier de départ préfixé par "A;"
D'avance merci de votre aide

PS : sinon je convertis avec l'instruction GENERATE de IEBGENER mais je suis flemmarde et je voudrai tout faire en une seule fois!
cnidaire est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/07/2011, 17h06   #2
Membre chevronné
 
Avatar de bernard59139
 
Administrateur de base de données
Inscription : octobre 2006
Messages : 503
Détails du profil
Informations personnelles :
Localisation : France

Informations professionnelles :
Activité : Administrateur de base de données

Informations forums :
Inscription : octobre 2006
Messages : 503
Points : 688
Points : 688
Avec le tri, tu y es presque.
utilises
Code :
OUTFIL CONVERT,OUTREC.....
bernard59139 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/07/2011, 17h21   #3
Invité de passage
 
Inscription : juillet 2011
Messages : 7
Détails du profil
Informations forums :
Inscription : juillet 2011
Messages : 7
Points : 3
Points : 3
Par défaut merci mais je coince

Citation:
Envoyé par bernard59139 Voir le message
Avec le tri, tu y es presque.
utilises
Code :
OUTFIL CONVERT,OUTREC.....
Voilà ce que j'ai codé :
SORT FIELDS=COPY
OUTFIL FNAMES=SORT01,CONVERT,OUTREC=(1:1,4,C'A;',7:5)
END
et en retour je me fais gronder par DFSORT
RECORD TYPE IS V - DATA STARTS IN POSITION 5
VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
INCONSISTENT SORT01 IFTHEN 0 REFORMATTING FIELD FOUND
C5-K90013 C6-K90013 C7-K90000 C8-K90013 E9-K90013 E7-K24705
END OF DFSORT
Je comprends pas ce qu'il veut !!!
J'ai tenté pas mal de combinaisons mais ça coince toujours
Au secours
cnidaire est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/07/2011, 19h38   #4
Membre chevronné
 
Avatar de bernard59139
 
Administrateur de base de données
Inscription : octobre 2006
Messages : 503
Détails du profil
Informations personnelles :
Localisation : France

Informations professionnelles :
Activité : Administrateur de base de données

Informations forums :
Inscription : octobre 2006
Messages : 503
Points : 688
Points : 688
Tu as du VB en entrée, il faut toujours ajouter 4 aux positions pour tenir compte du RdW (zone système qui contient la longueur du record lu).

CEci devrait etre ok:
Code :
1
2
SORT FIELDS=COPY 
OUTFIL FNAMES=SORT01,CONVERT,OUTREC=(5,4,C'A;',11:5)
ensuite, si en position 7 (ou 11!) tu peux ne rien avoir (même pas des blancs) il te faudra jongler avec les options du tri, ceci devrait être ok, pass sur:
bernard59139 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/07/2011, 08h57   #5
Invité de passage
 
Inscription : juillet 2011
Messages : 7
Détails du profil
Informations forums :
Inscription : juillet 2011
Messages : 7
Points : 3
Points : 3
Par défaut enfin résolu

Voilà ce que j'ai fait ave le convert :
SORT FIELDS=COPY
OUTFIL FNAMES=SORT01,CONVERT,OUTREC=(C'A;',5,112)
END
9a me donne bien mon fichier en FB, avec les enregistrements du fichier d'origine préfixé de A;
Merci Bernard pour ton aide
cnidaire est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 03h56.


 
 
 
 
Partenaires

Hébergement Web