IBM Mainframe Forum

//STEP1 EXEC PGM=SORT                       
//SYSOUT  DD SYSOUT=*                       
//SORTOUT DD SYSOUT=*                       
//SORTIN  DD *                               
4917 WWW BBBBB LN           AAA  AAAAA  AAAA
15575 SSSSS HHYR            BBB BBBB BBBB   
6357 OOOO OOOO OO           CCC CCC CCC     
16 COOOOO SSSSSS            SDSDSD SDSDSD   
1523 45TH ST                GHGHG   GHGG     
//SYSIN   DD *                               
  SORT FIELDS=COPY                           
  OUTFIL BUILD=(1,28,JFY=(VL),C'|',         
                29,20,JFY=(VL),C'|',         
                21,8,JFY=(VL),C'|'),FTOV     
/*

4917 WWW BBBBB LN|AAA  AAAAA  AAAA||
15575 SSSSS HHYR|BBB BBBB BBBB||   
6357 OOOO OOOO OO|CCC CCC CCC||     
16 COOOOO SSSSSS|SDSDSD SDSDSD||   
1523 45TH ST|GHGHG   GHGG||