Re: How to Write Fixed length file as Variable Length file?
Posted: Fri Aug 19, 2011 12:43 am
Here is an example that should help you achieve the desired output:
This is the output produced from the above sort step:
//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
/*
//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
/*
This is the output produced from the above sort step:
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||
15575 SSSSS HHYR|BBB BBBB BBBB||
6357 OOOO OOOO OO|CCC CCC CCC||
16 COOOOO SSSSSS|SDSDSD SDSDSD||
1523 45TH ST|GHGHG GHGG||