|
View previous topic :: View next topic
|
| Author |
Message |
shub2204
New User
Joined: 13 May 2020
Posts: 19
Location: India
|
|
|
|
Hello,
I am trying to replace YYYYMMDD with today's date in data using SORT but when I use quotes simply 'DATE' is being written. Can someone help me to fix it.
| 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
Read more: http://ibmmainframes.com/viewtopic.php?p=350103#350103#ixzz6UtqSSz5a
|
|
|
| Back to top |
|
 |
sergeyken
Senior Member
Joined: 29 Apr 2008
Posts: 2281
Location: USA
|
|
|
|
Please read carefully the ONLY allowed formats for FINDREP parameters values:
| Quote: |
Permissible syntax expressions for input and output constants are listed below.
• C’string’
• nC’string’
• X’string’
• nX’string’
• C” This expression can only be used to define a null output constant.
. . .
OUT=oc
Specifies the output constant that will be used to replace any of the
input constants that are found. oc represents the output constant
used in the replace operation. See description above on how to specify
output constants.
|
I hope this answers your question: "Why syntax error"? |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1216
Location: Dublin, Ireland
|
|
|
|
Hi Shub,
I got the desired result taking a slightly different approach:
I added:
| Code: |
//SYMNAMES DD *
TODAY,S'&YR4.&MON.&DAY' |
to pick up system symbols in SYMNAMES and then
| Code: |
| FINDREP=(IN=C'YYYYMMDD',OUT=TODAY)) |
Hope this helps.
Garry |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1439
Location: Bamberg, Germany
|
|
|
|
| Code: |
//DATE1 EXEC PGM=ICEMAN,PARM='MSG=NO'
//SORTIN DD *
DUMMY
/*
//SORTOUT DD DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(80,(1,1)),AVGREC=U
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC BUILD=(C'Date1,C''',DATE1,C'''',63X)
END
/*
//JUSTDOIT EXEC PGM=ICEMAN,PARM='MSG=NO'
//SYMNAMES DD DISP=(OLD,PASS),DSN=*.DATE1.SORTOUT
//SORTIN DD *
.
YYYYMMDD
/*
//SORTOUT DD SYSOUT=*
//SORTOF01 DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OMIT COND=(1,1,CH,EQ,C'.')
SORT FIELDS=COPY
OUTFIL FILES=01,
FTOV,
IFTHEN=(WHEN=(1,80,SS,EQ,C'YYYYMMDD'),
FINDREP=(IN=C'YYYYMMDD',OUT=Date1))
END
/* |
|
|
| Back to top |
|
|
shub2204
New User
Joined: 13 May 2020
Posts: 19
Location: India
|
|
|
|
Check my step ..still getting syntax error
| Code: |
//STEP0010 EXEC PGM=SORT
//SORTIN DD DATA,DLM=##
HELO OS39026
MAIL FROM:<[email protected]>
RCPT TO:<[email protected]>
DATA
TO: [email protected]
CC: [email protected]
SUBJECT: AFD DAILY CHANGES ZIP FILE FOR YYYYMMDD
IMPORTANCE: HIGH
MIME-VERSION: 1.0
CONTENT-TYPE: MULTIPART/MIXED; BOUNDARY="_frontier"
--_frontier
CONTENT-TYPE: TEXT/HTML
<!DOCTYPE HTML>
<HTML>
<head>
<style>
th {background-color: lightblue;}
h1 {
text-align: center;
}
table {
width:100%;
}
table, th, td {
border: 1px solid black;
border-collapse: collapse;
}
th, td {
padding: 2px;
text-align: left;
}
</style>
</head>
<BODY>
<P STYLE="FONT-FAMILY:CALIBRI;color:black">
Hi All,
</p>
<P STYLE="FONT-FAMILY:CALIBRI;color:black">
Please find attached the zipped daily changes file for AFD .<br>
<br>
</P>
<P STYLE="FONT-FAMILY:CALIBRI;color:black">
Thanks,<br>
Capgemini Mainframe Team<br>
<br>
This email was produced by batch job CPFPV220. Do not reply to this
email.
</p>
</BODY>
</HTML>
--_frontier
CONTENT-TYPE: APPLICATION/OCTET-STREAM
CONTENT-DISPOSITION: ATTACHMENT; FILENAME=AFD.ZIP
CONTENT-TRANSFER-ENCODING: BASE64
.
##
//SORTOF01 DD SYSOUT=*
//*SORTOF01 DD DSN=&&HEADER,DISP=(NEW,PASS),
//* DCB=(LRECL=27994,RECFM=V,BLKSIZE=27998),
//* SPACE=(CYL,(1,2)),UNIT=SYSDA
//SORTOF02 DD DSN=&&TRAILER,DISP=(NEW,PASS),
// DCB=(LRECL=27994,RECFM=V,BLKSIZE=27998),
// SPACE=(CYL,(1,2)),UNIT=SYSDA
//SYSOUT DD SYSOUT=*
//SYSNAMES DD *TODAY,S'&YR4.&MON.&DAY'
//SYSIN DD *
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=TODAY))
OUTFIL FILES=02,INCLUDE=(1,1,SS,EQ,C'.'),FTOV
//
//*---------------------------------------------------------------------
ERROR MESSAGE
********************************* TOP OF DATA **********************************
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 - 14:10 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=TODAY))
£
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 |
|
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1216
Location: Dublin, Ireland
|
|
|
|
That's not the way to specify SYMNAMEs . The JCL line & the data lione are separate.
Garry |
|
| Back to top |
|
|
shub2204
New User
Joined: 13 May 2020
Posts: 19
Location: India
|
|
|
|
| I have added correctly in next line..it is a typo in cut copy paste |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1439
Location: Bamberg, Germany
|
|
|
|
name it SYMNAMES and it will work. |
|
| Back to top |
|
|
shub2204
New User
Joined: 13 May 2020
Posts: 19
Location: India
|
|
|
|
Thanks a many many lot Joerg and Gary .. i changed to SYMNAMES..
Actually ..Thanks all .it worked 
You guys rock |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
