shub2204
New User
Joined: 13 May 2020 Posts: 19 Location: India
|
|
|
|
HI ,
Can someone please take a look what is the issue with my code.
Code: |
ICE805I 1 JOBNAME: CPFPH06A , STEPNAME: STEP0010
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R3 - 10:29 ON WED AU
SORT FIELDS=COPY
OUTREC FIELDS=(1,1,80)
OUTFIL FILES=01,OMIT=(1,1,SS,EQ,C'.'),FTOV,
IFTHEN=(WHEN=(1,80,SS,EQ,C'YYYYMMDD'),
FINDREP=(IN=C'YYYYMMDD',OUT=DATE1))
£
ICE007A 1 SYNTAX ERROR
OUTFIL FILES=02,INCLUDE=(1,1,SS,EQ,C'.'),FTOV
ICE751I 0 C5-BASE C6-BASE C7-BASE C8-BASE E7-I49502
ICE052I 3 END OF DFSORT |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006 Posts: 1193 Location: Dublin, Ireland
|
|
|
|
First, why post in the SYNCSORT forum when you're using IBM's DFSORT (as indicated by the output messages) ?
Try using:
Code: |
FINDREP=(IN=C'YYYYMMDD',OUT=C'&DATE1')) |
Garry |
|