Thanks, Kolusu; I will be leaving shortly, too, and will give this a try in the next week or so. I never imagined it would be so complex, but I will try to figure it out.
Happy new year! Billy On Fri, Dec 29, 2017 at 12:58 PM, Sri h Kolusu <[email protected]> wrote: > 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 > -- Thank you and best regards, *Billy Ashton* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
