Ituriel,
Here is DFSORT/ICETOOL job that would give you the desired results. I
assumed that you can have a maximum of 100 records in a single record. I
assumed that the maximum length of each individual record has a length of
60 bytes.
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DISP=SHR,DSN=KOLUSU.ITURIEL.INPUT.TXT
//OUT DD SYSOUT=*
//TOOLIN DD *
RESIZE FROM(IN) TO(OUT) TOLEN(60) USING(CTL1)
//CTL1CNTL DD *
OPTION COPY
INREC PARSE=(%001=(STARTAT=C'{',
REPEAT=100,
ENDAT=C'}',
FIXLEN=60)),
BUILD=(%001,%002,%003,%004,%005,%006,%007,%008,%009,%010,
%011,%012,%013,%014,%015,%016,%017,%018,%019,%020,
%021,%022,%023,%024,%025,%026,%027,%028,%029,%030,
%031,%032,%033,%034,%035,%036,%037,%038,%039,%040,
%041,%042,%043,%044,%045,%046,%047,%048,%049,%050,
%051,%052,%053,%054,%055,%056,%057,%058,%059,%060,
%061,%062,%063,%064,%065,%066,%067,%068,%069,%070,
%071,%072,%073,%074,%075,%076,%077,%078,%079,%080,
%081,%082,%083,%084,%085,%086,%087,%088,%089,%090,
%091,%092,%093,%094,%095,%096,%097,%098,%099,%100)
OUTFIL INCLUDE=(1,1,CH,EQ,C'{')
/*
Further if you have any questions please let me know
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
