Eclater une zone

Bonjour

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

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

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

Code:

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) 
/*

SUPER !!!

Merci beaucoup pour ton retour