Please pardon me, I know I am very late to this thread, but ...
saurabh khandelwal wrote:
>We are looking for YYMMDD format, which is DATE('S') function in REXX
And you want to use a volser starting with 'D' and a date format? That will not
work. Try using another volser naming standard or use a another method listed
earlier in this thread using a character for each month.
Just a caveat - if you have a tape management system, if you try to enforce
volsername(s), that will not work always. Of course YMMV.
>Ex : In this below DD name, from JCL should be updated with today's date in
>OV='D18611'
>//IEB PROC OV='D18611',DS='DS',LB='LB',GDG='(0)'
What I usually do in this case:
I create a member (as input to your REXX program) with ZZZZZZ as Volser name
with these sample lines like this:
//IEB PROC OV='ZZZZZZ',DS='DS',LB='LB',GDG='(0)'
// UNIT=359D,VOL=SER=(ZZZZZZ),LABEL=(193,SL)
I create a new variable, say NEWVOL with your new volser details and using Sri
example REXX program.
Then I parse each line like this
PARSE VAR LINE PARTONE 'ZZZZZZ' PARTWO
Then, if PARSE is successful, I replace LINE with this sample line
LINE = PARTONE || NEWVOL || PARTWO
You can expand the PARSE to handle more JCL fields like that LABEL value of 193.
You really need to get training to write REXX programs or go to the REXX
discussion list as recommended earlier.
Groete / Greetings
Elardus Engelbrecht
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
