Roach_MF
New User
Joined: 09 Mar 2015
Posts: 4
Location: USA
|
|
|
|
Hmmm I am having a bit of an issue using this PARSE tool.
I've done a lot of reading and still can't figure out why my most simple JCL is still getting a syntax error on the PARSE statements. It "should" have been an easy setup for a simple text to ensure I'm coding correctly before proceeding with more complex setup.
I have double checked and re-double checked and still can't find the error. I'd appreciate any second set of eyes from the more experienced one and let me know what am I doing wrong.
JCL code:
| Code: |
000013 //STEP01 EXEC PGM=ICEMAN
000014 //*
000015 //TOOLMSG DD SYSOUT=*
000016 //DFSMSG DD SYSOUT=*
000017 //SYSPRINT DD SYSOUT=*
000018 //*
000019 //SYSOUT DD SYSOUT=*
000020 //*
000021 //SORTIN DD DISP=SHR,DSN=D04BT.QLTY.IMGVFY.FILE
000022 //*
000023 //SORTOUT DD DSN=D04BT.QLTY.IMGVFY.FILE.OUT,
000024 // DISP=(NEW,CATLG,DELETE),
000025 // DCB=(LRECL=138,RECFM=FB,BLKSIZE=0),
000026 // UNIT=SYSDA,SPACE=(TRK,(15,10),RLSE)
000027 //*
000028 //SYMNAMES DD *
000029 FLD1,%00
000030 SEMI,';'
000031 /*
000032 //SYSIN DD *
000033 OPTION COPY
000034 INREC PARSE=(FLD1=(FIXLEN=6,ENDBEFR=SEMI)),
000035 BUILD=(1:FLD1,LENGTH=6)
000036 /*
|
Syntax error snippet:
| Code: |
ICE000I 1 - CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R1 - 13:24 ON MON MA
OPTION COPY
INREC PARSE=(%00=(FIXLEN=6,ENDBEFR=C';')),BUILD=(1:%00,LENGTH=6)
$
ICE007A E SYNTAX ERROR
ICE751I 0 C5-N22817 C6-BASE C7-K96411 C8-I15445 E7-I12417
ICE052I 3 END OF DFSORT
|
Example input file:
| Code: |
----+----1----+----2----+--
***************************
CTKX ; ;
CPS0 ; ;
|
|
|
