Discussion :

[bernardhoso]

Bonjour

j'ai réalisé il y éa quelques temps une concaténation de trois zones en une seule en codant :

Code :

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

1
2
3
4
5
6
7
SORT FIELDS=COPY                                    
INREC PARSE=(%01=(ABSPOS=50,FIXLEN=18),             
             %02=(ABSPOS=68,FIXLEN=16),             
             %03=(ABSPOS=84,FIXLEN=18)),            
       BUILD=(1,49,%03,%01,%02)                     
OUTFIL OUTREC=(1,49,50,52,SQZ=(SHIFT=LEFT,MID=C' '))
END

et tout se passe très bien.....!!!

Aujourd'hui je cherche à résoudre le problème inverse et je n'y arrive pas
J'ai par exemple en entrée une zone de 30 caractères avec "BOUCHER\MARCEL" et je voudrais récupérer en sortie deux zones : une de 18 caractères avec "BOUCHER" et une de 16 caractères avec "MARCEL"

Quelqu'un peut il m'aider ?

Merci d'avance

[bernard59139]

en supposant que ta zone est au début du fichier, que le fichier à un recfm FB et un LRECL80

Code :

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

1
2
3
4
5
6
7
8
9
10
11
//SORTIN   DD *                                       
/*--+----1----+----2----+----3----+----4----+----5----
BOUCHER\MARCEL                RESTE                   
//SORTOUT  DD SYSOUT=*                                
//SYSIN    DD * 
 SORT FIELDS=COPY 
 INREC FIELDS=(1,80,1,30) 
 OUTFIL PARSE=(%01=(ABSPOS=81,FIXLEN=18,ENDBEFR=C'\'),
               %02=(FIXLEN=16)),  
        BUILD=(%01,%02,31,50) 
/*

[bernardhoso]

SUPER !!!

Merci beaucoup pour ton retour