IBM Mainframe Forum

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

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,

Select all

AAAAAAAAAA,JJJJJJJJJJJ,OOOOOO

I have written below sort step, but I'm getting the error as,

Select all

WER813I  INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED
WER268A  OUTREC STATEMENT  : SYNTAX ERROR
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

Can you let me know what is the issue here?

Select all

//***********************************************************
//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)
/*

Posted: **Fri Dec 27, 2019 3:33 pm**

Please use the code tags to present code, data, anything requiring a fixed pitch font.

The error messages begin WER which means that you are using Syncsort - topic moved

Try referring to the syntax for OUTREC - is PARSE compatible with BUILD? I would do the parsing on the input phase (INREC) not the output phase.

Posted: **Fri Dec 27, 2019 5:54 pm**

Thanks for the reply Nic.

Posted: **Fri Dec 27, 2019 6:07 pm**

gadde9 wrote:Can you let me know what is the issue here?

Select all
//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)
/*

If you only tried just to count open/close brackets in you statement, you'd find the error immediately.

Can you count pairing brackets?

IBM Mainframe Forum

Error while PARSING the records

Error while PARSING the records

Re: Error while PARSING the records

Re: Error while PARSING the records

Re: Error while PARSING the records