|
View previous topic :: View next topic
|
| Author |
Message |
GautamSid
New User
Joined: 04 Jun 2021
Posts: 7
Location: India
|
|
|
|
How to add yesterday date in TODSN filename in Connect Direct - JCL
Using below code able to append todays date.
| Code: |
PROCC1 PROCESS
SYMBOL &RDSN=\'/PATH1/PATH2/FILENAME_'\
SYMBOL &DD1=&DATE1
SYMBOL &TXT=.TXT
SYMBOL &SDSN=FILENAME.G0001V00
STEP2 COPY FROM(PNODE DSN=&SDSN DISP=SHR
DCB=(REC=FB, LRECL=3200,BLKSIZE=3200,DSORG=PS))
TO(SNODE DSN="&RDSN.&DD1.&TXT" DISP=RPL
DCB=(REC=FB, LRECL=3200,BLKSIZE=3200,DSORG=PS))
|
|
|
| Back to top |
|
 |
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1347
Location: Bamberg, Germany
|
|
| Back to top |
|
|
GautamSid
New User
Joined: 04 Jun 2021
Posts: 7
Location: India
|
|
|
|
I managed to write the below to a file:
| Code: |
****************************
//SET DT1=07062021
****************************
|
But when i try to substiute the date into &DD1 the connect direct step it doesn't accept the substitution:
| Code: |
Actual Output --> /PATH1/PATH2/FILENAME_DT1.TXT
Expected Output -->/PATH1/PATH2/FILENAME_07082021.TXT
|
| Code: |
SET DT1=07062021
SIGNON
SUBMIT PROC = PROG1111
CASE=YES
&DATE=DT1
SIGNOFF
STEP1 PROCESS
SYMBOL &RDSN=\'/PATH1/PATH2/FILENAME_'\
SYMBOL &DATE=&DT1
SYMBOL &TXT=.TXT
SYMBOL &SDSN=FILENAME.G0001V00
STEP2 COPY FROM(PNODE DSN=&SDSN DISP=SHR
DCB=(REC=FB, LRECL=3200,BLKSIZE=3200,DSORG=PS))
TO(SNODE DSN="&RDSN.&DATE.&TXT" DISP=RPL
DCB=(REC=FB, LRECL=3200,BLKSIZE=3200,DSORG=PS))
|
|
|
| Back to top |
|
|
sergeyken
Senior Member
Joined: 29 Apr 2008
Posts: 2153
Location: USA
|
|
|
|
A complete mess between text constants, and text variables.
Please, try to manage your code garbage yourself. |
|
| Back to top |
|
|
|
|
