Discussion :

[bernardhoso]

Bonjour

je suis nouveau sur le forum..... et souhaiterais savoir si quelqu'un sait comment résoudre mon souci

je désire (via dfsort) concatener deux zones d'un fichier en entrée dans une seule zone dans un fichier de sortie

zone 1 de 18 caractères
zone 2 de 16 caractères

résultat en 20 caractères

exemple zone 1 = 'DE NIRO '
zone 2 = 'ROBERT '
résultat ' DE NIRO ROBERT '

j'ai eu beau parcourir la doc, je n'ai pas trouvé....

merci d'avance pour votre aide

cordialement

[Luc Orient]

C'est sans doute du coté de l'opérateur BUILD qu'il te faudra chercher ...

Par contre, où sont les zones en entrée et en sortie ?

[Darkzinus]

Bonjour,

Effectivement pour un reformatage il faut voir du côté de l'opérateur Build. Par contre s'agit-il d'un cas de développement ? Car s'il s'agit de quelque chose destiné à être livré en PROD je doute que l'opérateur build soit autorisé. En général sur site, on passe par programmes plus que par JCL pour ce genre d'opérations.

[bernard59139]

si les 2 "zones" sont contigues, cela peut être assez simple:

Code :

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

1
2
SORT FIELDS=COPY
OUTFIL BUILD=(1,72,SQZ=(SHIFT=LEFT,MID=C' '))

[bernardhoso]

merci pour vos premiers retours...

concernant le build de la dernière réponse, je dois avoir des problèmes de syntaxe.....

mon fichier en entrée fait 791 caractères et mes deux zones se trouvent en 758 pour une longueur de 18 (nom) et en 776 pour une longueur de 16 (prenom)


BESSIERES MARIE CLAIRE
CCEECCDCE444444444DCDCC4CDCCDC4444

comment coder pour avoir en sortie en position 792, ma zone concaténée ??

merci d'avance

[bernard59139]

vite fait et à adapter:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
//S1      EXEC PGM=SORT                                 
//SYSOUT  DD SYSOUT=*                                   
//SORTIN  DD *                                          
----+----1----+----2----+----3----+----4----+----5----+-
AA NOM               PRENOM    ****
//SORTOUT DD SYSOUT=*      
//SYSIN   DD *            
  SORT FIELDS=COPY    
  INREC PARSE=(%01=(ABSPOS=3,FIXLEN=10),  
               %02=(ABSPOS=22,FIXLEN=10)), 
     BUILD=(1,80,%01,%02)  
  OUTFIL OUTREC=(1,80,81,20,SQZ=(SHIFT=LEFT,MID=C' '))

[bernardhoso]

ça marche ...!!!!

merci beaucoup

cordialement