Bill,
Use the following JCL which will give you the desired results
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=your input FB 80 byte file
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFOUTLEN=520,
IFTHEN=(WHEN=(1,14,CH,EQ,C'>CUST MASTER$,'),
PARSE=(%01=(ABSPOS=15,ENDBEFR=C'(',FIXLEN=50)),
OVERLAY=(081:%01,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=53))),
IFTHEN=(WHEN=(1,04,CH,EQ,C'CM03'),
PARSE=(%02=(ABSPOS=06,ENDBEFR=C' ',FIXLEN=5)),
OVERLAY=(134:%02,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=08))),
IFTHEN=(WHEN=(1,10,CH,EQ,C'>CUST REG,'),
PARSE=(%03=(ABSPOS=11,ENDBEFR=C'(',FIXLEN=50)),
OVERLAY=(142:%03,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=53))),
IFTHEN=(WHEN=(1,04,CH,EQ,C'CR02'),
PARSE=(%04=(ABSPOS=06,ENDBEFR=C' ',FIXLEN=3)),
OVERLAY=(195:%04,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=06))),
IFTHEN=(WHEN=(1,11,CH,EQ,C'>CUST LOC1,'),
PARSE=(%05=(ABSPOS=12,ENDBEFR=C' ',FIXLEN=50)),
OVERLAY=(201:%05,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=53))),
IFTHEN=(WHEN=(1,04,CH,EQ,C'CL01'),
PARSE=(%06=(ABSPOS=06,ENDBEFR=C' ',FIXLEN=3),
%07=(ABSPOS=10,ENDBEFR=C' ',FIXLEN=15)),
OVERLAY=(254:%06,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=6),
260:%07,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=18))),
IFTHEN=(WHEN=(1,12,CH,EQ,C'>CUST CONT$,'),
PARSE=(%08=(ABSPOS=13,ENDBEFR=C' ',FIXLEN=50)),
OVERLAY=(278:%08,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=53),
521:SEQNUM,8,ZD,START=3,
530:521,8,ZD,MOD,+3,EDIT=(T)),HIT=NEXT),
IFTHEN=(WHEN=(1,04,CH,EQ,C'CC02'),
PARSE=(%09=(ABSPOS=06,FIXLEN=3),
%10=(ABSPOS=10,FIXLEN=2),
%11=(ABSPOS=13,FIXLEN=1),
%12=(ABSPOS=15,FIXLEN=1),
%13=(ABSPOS=17,FIXLEN=5)),
OVERLAY=(331:%09,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=6),
337:%10,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=5),
342:%11,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=4),
346:%12,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=4),
350:%13,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'",',
LENGTH=8),
535:SEQNUM,8,ZD,START=3,
545:535,8,ZD,MOD,+3,EDIT=(T)),HIT=NEXT),
IFTHEN=(WHEN=(530,1,ZD,EQ,1),
OVERLAY=(357:278,53,
278:53X),HIT=NEXT),
IFTHEN=(WHEN=(530,1,ZD,EQ,2),
OVERLAY=(437:278,53,
278:53X),HIT=NEXT),
IFTHEN=(WHEN=(545,1,ZD,EQ,1),
OVERLAY=(410:331,27,
331:27X)),
IFTHEN=(WHEN=(545,1,ZD,EQ,2),
OVERLAY=(490:331,26,
331:27X))
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(1,14,CH,EQ,C'>CUST MASTER$,'),
PUSH=(521:ID=8)),
IFTHEN=(WHEN=GROUP,BEGIN=(081,1,CH,EQ,C'"'),
PUSH=(081:081,53)),
IFTHEN=(WHEN=GROUP,BEGIN=(134,1,CH,EQ,C'"'),
PUSH=(134:134,08)),
IFTHEN=(WHEN=GROUP,BEGIN=(142,1,CH,EQ,C'"'),
PUSH=(142:142,53)),
IFTHEN=(WHEN=GROUP,BEGIN=(195,1,CH,EQ,C'"'),
PUSH=(195:195,06)),
IFTHEN=(WHEN=GROUP,BEGIN=(201,1,CH,EQ,C'"'),
PUSH=(201:201,53)),
IFTHEN=(WHEN=GROUP,BEGIN=(254,1,CH,EQ,C'"'),
PUSH=(254:254,06)),
IFTHEN=(WHEN=GROUP,BEGIN=(260,1,CH,EQ,C'"'),
PUSH=(260:260,18)),
IFTHEN=(WHEN=GROUP,BEGIN=(278,1,CH,EQ,C'"'),
PUSH=(278:278,53)),
IFTHEN=(WHEN=GROUP,BEGIN=(331,1,CH,EQ,C'"'),
PUSH=(331:331,26)),
IFTHEN=(WHEN=GROUP,BEGIN=(357,1,CH,EQ,C'"'),
PUSH=(357:357,53)),
IFTHEN=(WHEN=GROUP,BEGIN=(410,1,CH,EQ,C'"'),
PUSH=(410:410,27)),
IFTHEN=(WHEN=GROUP,BEGIN=(437,1,CH,EQ,C'"'),
PUSH=(437:437,53)),
IFTHEN=(WHEN=GROUP,BEGIN=(490,1,CH,EQ,C'"'),
PUSH=(490:490,26)),
IFTHEN=(WHEN=INIT,
OVERLAY=(081:081,440,SQZ=(SHIFT=LEFT,PAIR=QUOTE)))
OUTFIL REMOVECC,NODETAIL,BUILD=(440X),
SECTIONS=(521,8,
TRAILER3=(81,440))
//*
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
