Error while PARSING the records
Posted: Fri Dec 27, 2019 12:42 pm
My input data set has data in below format, and file is a pipe delimited file with a '.' at the end
I want to write the below fields to output file,
I have written below sort step, but I'm getting the error as,
Can you let me know what is the issue here?
AAAAAAAAAA|BBBBB|CCCCCCC|||DDDDD|EEEE EEEEEE|FF|GGGGGG|HH|IIIII|JJJJJJJJJJJ|KKKKKKKKKK|LLLLLLLL|||MM|N|||OOOOOO.
I want to write the below fields to output file,
AAAAAAAAAA,JJJJJJJJJJJ,OOOOOO
I have written below sort step, but I'm getting the error as,
WER813I INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
Can you let me know what is the issue here?
//***********************************************************
//PARSSTP EXEC PGM=SORT
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,150,,CONTIG)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,150,,CONTIG)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,150,,CONTIG)
//*
//SORTIN DD DSN=TEST.YY.XXX.ZZZXXX,DISP=SHR
//*
//SORTOUT DD DSN=TEST.YY.XXX.ZZZXXX.OUTPUT,
// UNIT=DISK,SPACE=(CYL,(5,5),RLSE),
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=0)
//*
//LISTOUT DD SYSOUT=*,DCB=(RECFM=FA,LRECL=80,BLKSIZE=80)
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC PARSE=(%01=(ENDBEFR=C'|',FIXLEN=10),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%12=(ENDBEFR=C'|',FIXLEN=11),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%21=(ENDBEFR=C'.',FIXLEN=6),
BUILD=(%01,C',',12:%12,'C',24:%21,227X)
/*
//PARSSTP EXEC PGM=SORT
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,150,,CONTIG)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,150,,CONTIG)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,150,,CONTIG)
//*
//SORTIN DD DSN=TEST.YY.XXX.ZZZXXX,DISP=SHR
//*
//SORTOUT DD DSN=TEST.YY.XXX.ZZZXXX.OUTPUT,
// UNIT=DISK,SPACE=(CYL,(5,5),RLSE),
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=0)
//*
//LISTOUT DD SYSOUT=*,DCB=(RECFM=FA,LRECL=80,BLKSIZE=80)
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC PARSE=(%01=(ENDBEFR=C'|',FIXLEN=10),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%12=(ENDBEFR=C'|',FIXLEN=11),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%=(ENDBEFR=C'|'),
%21=(ENDBEFR=C'.',FIXLEN=6),
BUILD=(%01,C',',12:%12,'C',24:%21,227X)
/*