Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
well here is a way to create a semicolon delimited file using DFSORT
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DATA,DLM=$$
JOBXXXX CPUTIME 196.0 TOTAL ELAPSED TIME 200.8
//NXXXXX JOB,CLASS
//STEP1
//
//
RELATIONSHIPS
PROCESSING OPTIONS
TABLE NAME NOOF ROWS
TAB1 9018
TAB2 2000
$$
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,18,CH,EQ,C'PROCESSING OPTIONS'),
PUSH=(81:ID=1,SEQ=8))
OUTFIL INCLUDE=(81,1,CH,GT,C' ',AND,82,8,ZD,GT,2),IFOUTLEN=25,
REMOVECC,HEADER1=('TABLE NAME;NO:OF ROWS;'),IFTHEN=(WHEN=INIT,
PARSE=(%01=(ENDBEFR=C' ',FIXLEN=10),%02=(FIXLEN=10)),
BUILD=(%01,JFY=(SHIFT=RIGHT),C';',%02,UFF,M11,LENGTH=10,C';'))
//* |
The output from this is
| Code: |
TABLE NAME;NO:OF ROWS;
TAB1;0000009018;
TAB2;0000002000; |
|
|
