SathishCS
New User
Joined: 16 Apr 2015
Posts: 1
Location: INDIA
|
|
|
|
Hi All,
I am looking for a way to replace a string "YESTERDAYDATE" by Yesterday's date using FINDREP in my input SMTPDATA . For Current date I was able to achieve this using SYMNAMES , but didn't find way to replace yeseterday's date. Below is what, i tried for Current date
---------------------------------------------------
//SYMNAMES DD *
CRDATE,S'&MON/&DAY/&YR4'
---------------------------------------------------
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FINDREP=(INOUT=(C'CURRENTDATE',CRDATE))
Please suggest me a way to achieve this.
Thanks in advance !!! |
|
magesh23586
Active User
Joined: 06 Jul 2009
Posts: 213
Location: Chennai
|
|
|
|
Here is the code for you. May be Bill Woodger can advise more on optmizing the same.
| Code: |
//SORT1 EXEC PGM=SORT
//SORTIN DD *
AAA
//SYSOUT DD SYSOUT=*
//SORTOUT DD DSN=&&TEMP,DISP=(,CATLG,DELETE),
// SPACE=(CYL,(1,1),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
INREC BUILD=(DATE1(/)-1)
OUTREC BUILD=(C'RPTDATE,C''',6,3,9,2,5,1,1,4,X'7D',80:X)
//*
//SORT2 EXEC PGM=SORT
//SYMNAMES DD DSN=&&TEMP,DISP=SHR
//SORTIN DD *
DATEYESTERDAYDATERANDOMTEST
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FINDREP=(INOUT=(C'YESTERDAYDATE',RPTDATE))
|
|
|
