Alissa Margulies
SYNCSORT Support
Joined: 25 Jul 2007 Posts: 496 Location: USA
|
|
|
|
Ramsri,
Here are SORT control statements that should produce your requested output:
Code: |
//SYSIN DD *
INREC PARSE=(%01=(ABSPOS=1,FIXLEN=12),
%02=(ENDAT=C'FIRM',FIXLEN=20),
%03=(FIXLEN=20)),
BUILD=(1:%01,
13:%02,JFY=(SHIFT=RIGHT),
33:%03,JFY=(SHIFT=LEFT))
SORT FIELDS=COPY
OUTFIL INCLUDE=(29,4,CH,EQ,C'FIRM',AND,23,6,ZD,EQ,NUM),
IFTHEN=(WHEN=INIT,BUILD=(23,6,29,4,1,12,13,10,33,10)),
IFTHEN=(WHEN=INIT,
BUILD=(1,22,23,20,SQZ=(SHIFT=LEFT,LENGTH=10)))
/*
|
However, since your file is FB/90, you may need to modify the the field lengths/positions based on your actual data. This example is based solely on the sample records you provided. |
|