First

If you were not aware, there is a TSO REXX list that might be helpful with 
this.  To join if you have not done so, use this URL

TSO REXX        http://www2.marist.edu/htbin/wlvindex?TSO-REXX




Second, I would look to use REXX plus ISPF to do this which can be a batch job. 
 ISPF runs fine in foreground and batch

The process would basically be

1)  Get todays date, then identify the date you need (today tomorrow or 
yesterday)
2)  Using ISPF LM (Library  Management) Functions - find the member you want to 
update
3)  Using ISPF Macro - either backup the current member or update the current 
member you want
4)  Save that member where you want it


This is just a high level concept of what could work.

Depending on how you want this process to work, you might want to change to a 
file input for your parms. 


Lizette 


> -----Original Message-----
> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
> saurabh khandelwal
> Sent: Tuesday, June 12, 2018 2:49 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: REXX to change Date in PDS member
> 
> Thanks for reply.
> 
> We always use  IPOUPDTE  for making this change but somebody have to update
> IPOUPDTE  Job with today's date etc, So that required members can be updated
> with correct date values. Do you have any other way to make this happen, so
> that manual intervention can be avoided.
> 
> 
> 
> On Mon, Jun 11, 2018 at 10:27 PM, PINION, RICHARD W. <
> rpin...@firsttennessee.com> wrote:
> 
> > Why re-invent the wheel, use IPOUPDTE.
> >
> > //UPDATE1  EXEC  PGM=IPOUPDTE,PARM=UPDATE
> > //*************************************************************
> > //*                                                           *
> > //* PARM=UPDATE    CAUSES IPOUPDTE TO CHANGE PDS MEMBERS      *
> > //*                                                           *
> > //*                                                           *
> > //*************************************************************
> > //SYSPRINT DD  SYSOUT=*
> > //SYSUDUMP DD  SYSOUT=*
> > //@LIB     DD  DSN=xxxxx.my.CNTL,DISP=SHR
> > //* FROM  *   TO                          *
> > //SYSIN    DD  DATA,DLM='@@'
> > xxxxxx<yyyyy<
> >
> > -----Original Message-----
> > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On
> > Behalf Of Seymour J Metz
> > Sent: Monday, June 11, 2018 3:24 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: REXX to change Date in PDS member
> >
> > [External Email]
> >
> > You can write an ISPF script to edit the member.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> > ________________________________________
> > From: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> on
> > behalf of saurabh khandelwal <sourabhkhandelwal...@gmail.com>
> > Sent: Monday, June 11, 2018 3:11 PM
> > To: IBM-MAIN@listserv.ua.edu
> > Subject: REXX to change Date in PDS member
> >
> > Hello Group,
> >
> >
> > I am new to rexx and our new requirement to edit one PDS member with
> > previous day day date today's date on regular basis .
> >
> >
> > We are doing this  to edit our full set of JCL on daily basis
> > according to this new date by over writing  previous datr date and putting
> new date.
> >
> >
> > currently we do this manually by editing below member every day with
> > new date ( current date. ) .
> >
> >
> > BROWSE    BKP.JCL.CNTL(BKPDABD1) - 01.99            Line 00000000 Col 001
> > 080
> >
> > ********************************* Top of Data
> > ******************************
> > ****
> >
> > D18610<D18611<VOL=SER<
> >
> >
> > ******************************** Bottom of Data
> > ********************************
> >
> > can we automate this process by creating a rexx which will run on
> > daily basis and update above pds member with  current date and later
> > on running JCL having new dates.
> >
> > Can you please help.
> >
> >
> >
> >
> >
> >
> >
> > --
> > Thanks & Regards
> > Saurabh Khandelwal
> >
> > ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> > FIRST TENNESSEE
> >
> > Confidentiality notice:
> > This e-mail message, including any attachments, may contain legally
> > privileged and/or confidential information. If you are not the
> > intended recipient(s), or the employee or agent responsible for
> > delivery of this message to the intended recipient(s), you are hereby
> > notified that any dissemination, distribution, or copying of this
> > e-mail message is strictly prohibited. If you have received this
> > message in error, please immediately notify the sender and delete this e-
> mail message from your computer.
> >
> > ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> 
> 
> 
> --
> Thanks & Regards
> Saurabh Khandelwal
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to