Discussion:
REXX to change Date in PDS member
(too old to reply)
saurabh khandelwal
2018-06-11 19:11:40 UTC
Permalink
Raw Message
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 ***@listserv.ua.edu with the message: INFO IBM-MAIN
Seymour J Metz
2018-06-11 19:24:31 UTC
Permalink
Raw Message
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-***@listserv.ua.edu> on behalf of saurabh khandelwal <***@GMAIL.COM>
Sent: Monday, June 11, 2018 3:11 PM
To: IBM-***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
PINION, RICHARD W.
2018-06-11 19:27:41 UTC
Permalink
Raw Message
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-***@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:24 PM
To: IBM-***@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-***@listserv.ua.edu> on behalf of saurabh khandelwal <***@GMAIL.COM>
Sent: Monday, June 11, 2018 3:11 PM
To: IBM-***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to ***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN
Seymour J Metz
2018-06-11 19:45:14 UTC
Permalink
Raw Message
Does the OP want to change a record containing the date, or does he want to the date in the ISPF statistics?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-***@listserv.ua.edu> on behalf of PINION, RICHARD W. <***@FIRSTTENNESSEE.COM>
Sent: Monday, June 11, 2018 3:27 PM
To: IBM-***@listserv.ua.edu
Subject: Re: REXX to change Date in PDS member

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-***@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:24 PM
To: IBM-***@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-***@listserv.ua.edu> on behalf of saurabh khandelwal <***@GMAIL.COM>
Sent: Monday, June 11, 2018 3:11 PM
To: IBM-***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to ***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
PINION, RICHARD W.
2018-06-11 19:47:26 UTC
Permalink
Raw Message
" 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."

-----Original Message-----
From: IBM Mainframe Discussion List <IBM-***@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:45 PM
To: IBM-***@LISTSERV.UA.EDU
Subject: Re: REXX to change Date in PDS member

[External Email]

Does the OP want to change a record containing the date, or does he want to the date in the ISPF statistics?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-***@listserv.ua.edu> on behalf of PINION, RICHARD W. <***@FIRSTTENNESSEE.COM>
Sent: Monday, June 11, 2018 3:27 PM
To: IBM-***@listserv.ua.edu
Subject: Re: REXX to change Date in PDS member

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-***@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:24 PM
To: IBM-***@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-***@listserv.ua.edu> on behalf of saurabh khandelwal <***@GMAIL.COM>
Sent: Monday, June 11, 2018 3:11 PM
To: IBM-***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to ***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Seymour J Metz
2018-06-11 19:53:12 UTC
Permalink
Raw Message
WTF? Are D18610 and D18611 supposed to be dates/ If not, what's your point? If so, what's with the one digit month?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-***@listserv.ua.edu> on behalf of PINION, RICHARD W. <***@FIRSTTENNESSEE.COM>
Sent: Monday, June 11, 2018 3:47 PM
To: IBM-***@listserv.ua.edu
Subject: Re: REXX to change Date in PDS member

" 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."

-----Original Message-----
From: IBM Mainframe Discussion List <IBM-***@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:45 PM
To: IBM-***@LISTSERV.UA.EDU
Subject: Re: REXX to change Date in PDS member

[External Email]

Does the OP want to change a record containing the date, or does he want to the date in the ISPF statistics?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-***@listserv.ua.edu> on behalf of PINION, RICHARD W. <***@FIRSTTENNESSEE.COM>
Sent: Monday, June 11, 2018 3:27 PM
To: IBM-***@listserv.ua.edu
Subject: Re: REXX to change Date in PDS member

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-***@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:24 PM
To: IBM-***@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-***@listserv.ua.edu> on behalf of saurabh khandelwal <***@GMAIL.COM>
Sent: Monday, June 11, 2018 3:11 PM
To: IBM-***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to ***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

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

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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
PINION, RICHARD W.
2018-06-11 19:57:10 UTC
Permalink
Raw Message
That was part of the original post. It appears to me, that the OP wants to update members in a PDS. As for the contents of the members, I have no comments.

-----Original Message-----
From: IBM Mainframe Discussion List <IBM-***@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:53 PM
To: IBM-***@LISTSERV.UA.EDU
Subject: Re: REXX to change Date in PDS member

[External Email]

WTF? Are D18610 and D18611 supposed to be dates/ If not, what's your point? If so, what's with the one digit month?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-***@listserv.ua.edu> on behalf of PINION, RICHARD W. <***@FIRSTTENNESSEE.COM>
Sent: Monday, June 11, 2018 3:47 PM
To: IBM-***@listserv.ua.edu
Subject: Re: REXX to change Date in PDS member

" 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."

-----Original Message-----
From: IBM Mainframe Discussion List <IBM-***@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:45 PM
To: IBM-***@LISTSERV.UA.EDU
Subject: Re: REXX to change Date in PDS member

[External Email]

Does the OP want to change a record containing the date, or does he want to the date in the ISPF statistics?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-***@listserv.ua.edu> on behalf of PINION, RICHARD W. <***@FIRSTTENNESSEE.COM>
Sent: Monday, June 11, 2018 3:27 PM
To: IBM-***@listserv.ua.edu
Subject: Re: REXX to change Date in PDS member

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-***@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:24 PM
To: IBM-***@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-***@listserv.ua.edu> on behalf of saurabh khandelwal <***@GMAIL.COM>
Sent: Monday, June 11, 2018 3:11 PM
To: IBM-***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to ***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

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

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

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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Carmen Vitullo
2018-06-11 19:57:29 UTC
Permalink
Raw Message
is the date format YYMDD ?
or Julian , yeah WTH ?



Carmen Vitullo

----- Original Message -----

From: "Seymour J Metz" <***@GMU.EDU>
To: IBM-***@LISTSERV.UA.EDU
Sent: Monday, June 11, 2018 2:53:03 PM
Subject: Re: REXX to change Date in PDS member

WTF? Are D18610 and D18611 supposed to be dates/ If not, what's your point? If so, what's with the one digit month?
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-***@listserv.ua.edu> on behalf of PINION, RICHARD W. <***@FIRSTTENNESSEE.COM>
Sent: Monday, June 11, 2018 3:47 PM
To: IBM-***@listserv.ua.edu
Subject: Re: REXX to change Date in PDS member

" 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."

-----Original Message-----
From: IBM Mainframe Discussion List <IBM-***@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:45 PM
To: IBM-***@LISTSERV.UA.EDU
Subject: Re: REXX to change Date in PDS member

[External Email]

Does the OP want to change a record containing the date, or does he want to the date in the ISPF statistics?
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-***@listserv.ua.edu> on behalf of PINION, RICHARD W. <***@FIRSTTENNESSEE.COM>
Sent: Monday, June 11, 2018 3:27 PM
To: IBM-***@listserv.ua.edu
Subject: Re: REXX to change Date in PDS member

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-***@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:24 PM
To: IBM-***@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-***@listserv.ua.edu> on behalf of saurabh khandelwal <***@GMAIL.COM>
Sent: Monday, June 11, 2018 3:11 PM
To: IBM-***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to ***@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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

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

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

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


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Sri h Kolusu
2018-06-11 20:27:10 UTC
Permalink
Raw Message
is the date format YYMDD ? > or Julian , yeah WTH ?
Carmen,

I am guessing that OP date format is YYMMDD but needs to remove the
leading zero for Month (January thru September ) and the same for Day (01
thru 09). Since the year is already 18, we don't have worry about it for
another 82 years. :)

Saurabh,

You can try this

/* REXX */
"ALLOC FI(OUTDD) DA('BKP.JCL.CNTL(BKPDABD1)') SHR REUSE"

TODAY = DATE('S')
YESTERDAY = TODAY - 1
CDAYMM = STRIP(SUBSTR(TODAY,5,2),'L','0')
CDAYDD = STRIP(SUBSTR(TODAY,7,2),'L','0')
YDAYMM = STRIP(SUBSTR(YESTERDAY,5,2),'L','0')
YDAYDD = STRIP(SUBSTR(YESTERDAY,7,2),'L','0')

LINEOUT = 'D' ||,
SUBSTR(YESTERDAY,3,2) ||,
YDAYMM ||,
YDAYDD ||,
'<' ||,
'D' ||,
SUBSTR(TODAY,3,2) ||,
CDAYMM ||,
CDAYDD ||,
'<' ||,
'VOL=SER<'
QUEUE LINEOUT
"EXECIO 1 DISKW OUTDD (FINIS"
"FREE FI(OUTDD)"


I will let you ponder about updating the stats upon updating the contents
of the member

Thanks,
Kolusu
Date: 06/11/2018 12:57 PM
Subject: Re: REXX to change Date in PDS member
is the date format YYMDD ?
or Julian , yeah WTH ?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Pommier, Rex
2018-06-11 20:35:41 UTC
Permalink
Raw Message
Regarding the removal of leading zeros, how does one tell the difference between, for example, January 11 and November 1? It's possible, albeit unlikely, that the OP is using hex notation for the month? :-)

Rex

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-***@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu
Sent: Monday, June 11, 2018 3:27 PM
To: IBM-***@LISTSERV.UA.EDU
Subject: [External] Re: REXX to change Date in PDS member
is the date format YYMDD ? > or Julian , yeah WTH ?
Carmen,

I am guessing that OP date format is YYMMDD but needs to remove the
leading zero for Month (January thru September ) and the same for Day (01
thru 09). Since the year is already 18, we don't have worry about it for
another 82 years. :)

Saurabh,

You can try this

/* REXX */
"ALLOC FI(OUTDD) DA('BKP.JCL.CNTL(BKPDABD1)') SHR REUSE"

TODAY = DATE('S')
YESTERDAY = TODAY - 1
CDAYMM = STRIP(SUBSTR(TODAY,5,2),'L','0')
CDAYDD = STRIP(SUBSTR(TODAY,7,2),'L','0')
YDAYMM = STRIP(SUBSTR(YESTERDAY,5,2),'L','0')
YDAYDD = STRIP(SUBSTR(YESTERDAY,7,2),'L','0')

LINEOUT = 'D' ||,
SUBSTR(YESTERDAY,3,2) ||,
YDAYMM ||,
YDAYDD ||,
'<' ||,
'D' ||,
SUBSTR(TODAY,3,2) ||,
CDAYMM ||,
CDAYDD ||,
'<' ||,
'VOL=SER<'
QUEUE LINEOUT
"EXECIO 1 DISKW OUTDD (FINIS"
"FREE FI(OUTDD)"


I will let you ponder about updating the stats upon updating the contents
of the member

Thanks,
Kolusu
Date: 06/11/2018 12:57 PM
Subject: Re: REXX to change Date in PDS member
is the date format YYMDD ?
or Julian , yeah WTH ?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN


The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Sri h Kolusu
2018-06-11 21:55:16 UTC
Permalink
Raw Message
Post by Tom Marchant
Regarding the removal of leading zeros, how does one tell the >
difference between, for example, January 11 and November 1? It's possible,
albeit unlikely, that the OP is using hex notation for the > month? :-)
Post by Tom Marchant
If that's the case, what date is 19117?
Rex/Tom

It was merely a guess from me about the date format from OP. He needs to
clarify about the format or how he plans to use that format later on.

Thanks,
Kolusu
Date: 06/11/2018 01:36 PM
Subject: Re: [External] Re: REXX to change Date in PDS member
Regarding the removal of leading zeros, how does one tell the
difference between, for example, January 11 and November 1? It's
possible, albeit unlikely, that the OP is using hex notation for the
month? :-)
Rex
-----Original Message-----
] On Behalf Of Sri h Kolusu
Sent: Monday, June 11, 2018 3:27 PM
Subject: [External] Re: REXX to change Date in PDS member
Post by Tom Marchant
is the date format YYMDD ? > or Julian , yeah WTH ?
Carmen,
I am guessing that OP date format is YYMMDD but needs to remove the
leading zero for Month (January thru September ) and the same for Day (01
thru 09). Since the year is already 18, we don't have worry about it for
another 82 years. :)
Saurabh,
You can try this
/* REXX */
"ALLOC FI(OUTDD) DA('BKP.JCL.CNTL(BKPDABD1)') SHR REUSE"
TODAY = DATE('S')
YESTERDAY = TODAY - 1
CDAYMM = STRIP(SUBSTR(TODAY,5,2),'L','0')
CDAYDD = STRIP(SUBSTR(TODAY,7,2),'L','0')
YDAYMM = STRIP(SUBSTR(YESTERDAY,5,2),'L','0')
YDAYDD = STRIP(SUBSTR(YESTERDAY,7,2),'L','0')
LINEOUT = 'D' ||,
SUBSTR(YESTERDAY,3,2) ||,
YDAYMM ||,
YDAYDD ||,
'<' ||,
'D' ||,
SUBSTR(TODAY,3,2) ||,
CDAYMM ||,
CDAYDD ||,
'<' ||,
'VOL=SER<'
QUEUE LINEOUT
"EXECIO 1 DISKW OUTDD (FINIS"
"FREE FI(OUTDD)"
I will let you ponder about updating the stats upon updating the contents
of the member
Thanks,
Kolusu
Post by Tom Marchant
Date: 06/11/2018 12:57 PM
Subject: Re: REXX to change Date in PDS member
is the date format YYMDD ?
or Julian , yeah WTH ?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
The information contained in this message is confidential, protected
from disclosure and may be legally privileged. If the reader of
this message is not the intended recipient or an employee or agent
responsible for delivering this message to the intended recipient,
you are hereby notified that any disclosure, distribution, copying,
or any action taken or action omitted in reliance on it, is strictly
prohibited and may be unlawful. If you have received this
communication in error, please notify us immediately by replying to
this message and destroy the material in its entirety, whether in
electronic or hard copy format. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Pommier, Rex
2018-06-12 12:59:35 UTC
Permalink
Raw Message
Hi Kolusu,

No problem with your guess as to what the OP is looking for. Actually I was kind of hoping you had some kind of trick that would differentiate the dates somehow! :-) I'm hoping that the OP simply typo'd and missed a 0 somewhere.

Rex

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-***@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu
Sent: Monday, June 11, 2018 4:55 PM
To: IBM-***@LISTSERV.UA.EDU
Subject: Re: [External] Re: REXX to change Date in PDS member
Post by Tom Marchant
Regarding the removal of leading zeros, how does one tell the >
difference between, for example, January 11 and November 1? It's possible,
albeit unlikely, that the OP is using hex notation for the > month? :-)
Post by Tom Marchant
If that's the case, what date is 19117?
Rex/Tom

It was merely a guess from me about the date format from OP. He needs to
clarify about the format or how he plans to use that format later on.

Thanks,
Kolusu
Date: 06/11/2018 01:36 PM
Subject: Re: [External] Re: REXX to change Date in PDS member
Regarding the removal of leading zeros, how does one tell the
difference between, for example, January 11 and November 1? It's
possible, albeit unlikely, that the OP is using hex notation for the
month? :-)
Rex
-----Original Message-----
] On Behalf Of Sri h Kolusu
Sent: Monday, June 11, 2018 3:27 PM
Subject: [External] Re: REXX to change Date in PDS member
Post by Tom Marchant
is the date format YYMDD ? > or Julian , yeah WTH ?
Carmen,
I am guessing that OP date format is YYMMDD but needs to remove the
leading zero for Month (January thru September ) and the same for Day (01
thru 09). Since the year is already 18, we don't have worry about it for
another 82 years. :)
Saurabh,
You can try this
/* REXX */
"ALLOC FI(OUTDD) DA('BKP.JCL.CNTL(BKPDABD1)') SHR REUSE"
TODAY = DATE('S')
YESTERDAY = TODAY - 1
CDAYMM = STRIP(SUBSTR(TODAY,5,2),'L','0')
CDAYDD = STRIP(SUBSTR(TODAY,7,2),'L','0')
YDAYMM = STRIP(SUBSTR(YESTERDAY,5,2),'L','0')
YDAYDD = STRIP(SUBSTR(YESTERDAY,7,2),'L','0')
LINEOUT = 'D' ||,
SUBSTR(YESTERDAY,3,2) ||,
YDAYMM ||,
YDAYDD ||,
'<' ||,
'D' ||,
SUBSTR(TODAY,3,2) ||,
CDAYMM ||,
CDAYDD ||,
'<' ||,
'VOL=SER<'
QUEUE LINEOUT
"EXECIO 1 DISKW OUTDD (FINIS"
"FREE FI(OUTDD)"
I will let you ponder about updating the stats upon updating the contents
of the member
Thanks,
Kolusu
Post by Tom Marchant
Date: 06/11/2018 12:57 PM
Subject: Re: REXX to change Date in PDS member
is the date format YYMDD ?
or Julian , yeah WTH ?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
The information contained in this message is confidential, protected
from disclosure and may be legally privileged. If the reader of
this message is not the intended recipient or an employee or agent
responsible for delivering this message to the intended recipient,
you are hereby notified that any disclosure, distribution, copying,
or any action taken or action omitted in reliance on it, is strictly
prohibited and may be unlawful. If you have received this
communication in error, please notify us immediately by replying to
this message and destroy the material in its entirety, whether in
electronic or hard copy format. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN


The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
saurabh khandelwal
2018-06-12 09:46:12 UTC
Permalink
Raw Message
Hello Kolusu,

Thanks for help. This is exactly what I was looking for to code. But I
still have one doubt in this,

Your code works only when I have empty memeber to update with yesterday's
and today's date . But how this process works, when we updating dates in
JCL like below.

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)'



Or like below. in DD name TAPE with VOL=SER=(D18611) .



//TAPE DD DSN=RETP.DATA.QSAMCPY1,DISP=(,PASS),

// UNIT=359D,VOL=SER=(D18611),LABEL=(193,SL)



//*=====================================


Can you please suggest, how to handle such situation and update required
date
Post by Sri h Kolusu
is the date format YYMDD ? > or Julian , yeah WTH ?
Carmen,
I am guessing that OP date format is YYMMDD but needs to remove the
leading zero for Month (January thru September ) and the same for Day (01
thru 09). Since the year is already 18, we don't have worry about it for
another 82 years. :)
Saurabh,
You can try this
/* REXX */
"ALLOC FI(OUTDD) DA('BKP.JCL.CNTL(BKPDABD1)') SHR REUSE"
TODAY = DATE('S')
YESTERDAY = TODAY - 1
CDAYMM = STRIP(SUBSTR(TODAY,5,2),'L','0')
CDAYDD = STRIP(SUBSTR(TODAY,7,2),'L','0')
YDAYMM = STRIP(SUBSTR(YESTERDAY,5,2),'L','0')
YDAYDD = STRIP(SUBSTR(YESTERDAY,7,2),'L','0')
LINEOUT = 'D' ||,
SUBSTR(YESTERDAY,3,2) ||,
YDAYMM ||,
YDAYDD ||,
'<' ||,
'D' ||,
SUBSTR(TODAY,3,2) ||,
CDAYMM ||,
CDAYDD ||,
'<' ||,
'VOL=SER<'
QUEUE LINEOUT
"EXECIO 1 DISKW OUTDD (FINIS"
"FREE FI(OUTDD)"
I will let you ponder about updating the stats upon updating the contents
of the member
Thanks,
Kolusu
Date: 06/11/2018 12:57 PM
Subject: Re: REXX to change Date in PDS member
is the date format YYMDD ?
or Julian , yeah WTH ?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Thanks & Regards
Saurabh Khandelwal

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Sri h Kolusu
2018-06-12 15:50:12 UTC
Permalink
Raw Message
Saurabh,

You need to first answer the question about the date format. Post detailed
information on what you're trying to accomplish. Do not make people guess
what you mean. This will give you a much better chance of getting a good
answer to your question.

As for the latest requirement, Look up PARSE and Build the entire string or
use OVERLAY

Thanks,
Kolusu
Date: 06/12/2018 02:47 AM
Subject: Re: REXX to change Date in PDS member
Hello Kolusu,
Thanks for help. This is exactly what I was looking for to code. But I
still have one doubt in this,
Your code works only when I have empty memeber to update with yesterday's
and today's date . But how this process works, when we updating dates in
JCL like below.
Ex : In this below DD name, from JCL should be updated with today's date
in OV='D18611'
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Lizette Koehler
2018-06-12 16:00:03 UTC
Permalink
Raw Message
Part of the problem I see with this discussion is the lack of understanding of
REXX by the OP.

So, the suggestions are how to handle this process may need to be more specific.

That leads to the question, who will support the code once it is working and
later has issues?


Lizette
Post by PINION, RICHARD W.
-----Original Message-----
Sri h Kolusu
Sent: Tuesday, June 12, 2018 8:50 AM
Subject: Re: REXX to change Date in PDS member
Saurabh,
You need to first answer the question about the date format. Post detailed
information on what you're trying to accomplish. Do not make people guess
what you mean. This will give you a much better chance of getting a good
answer to your question.
As for the latest requirement, Look up PARSE and Build the entire string or
use OVERLAY
Thanks,
Kolusu
Date: 06/12/2018 02:47 AM
Subject: Re: REXX to change Date in PDS member Sent by: IBM Mainframe
Hello Kolusu,
Thanks for help. This is exactly what I was looking for to code. But I
still have one doubt in this,
Your code works only when I have empty memeber to update with
yesterday's and today's date . But how this process works, when we
updating dates in JCL like below.
Ex : In this below DD name, from JCL should be updated with today's
date in OV='D18611'
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
saurabh khandelwal
2018-06-12 16:33:00 UTC
Permalink
Raw Message
Hello Kolusu,

I tried to answer queries raised by different experts.

We are looking for YYMMDD format, which is DATE('S') function in REXX

In my current requirement, we have JCL in place and there we are using
tape volume as date like below.
example OV='D18611',


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)'



and


Or like below. in DD name TAPE with VOL=SER=(D18611) .



//TAPE DD DSN=RETP.DATA.QSAMCPY1,DISP=(,PASS),

// UNIT=359D,VOL=SER=(D18611),LABEL=(193,SL)



//*=====================================


Can you please suggest, how to handle such situation and update required
date

Thank you once again to help us to solve this issue.
Post by Bernd Oppolzer
Saurabh,
You need to first answer the question about the date format. Post detailed
information on what you're trying to accomplish. Do not make people guess
what you mean. This will give you a much better chance of getting a good
answer to your question.
As for the latest requirement, Look up PARSE and Build the entire string or
use OVERLAY
Thanks,
Kolusu
Date: 06/12/2018 02:47 AM
Subject: Re: REXX to change Date in PDS member
Hello Kolusu,
Thanks for help. This is exactly what I was looking for to code. But I
still have one doubt in this,
Your code works only when I have empty memeber to update with yesterday's
and today's date . But how this process works, when we updating dates in
JCL like below.
Ex : In this below DD name, from JCL should be updated with today's date
in OV='D18611'
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Thanks & Regards
Saurabh Khandelwal

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Lou Losee
2018-06-11 21:10:25 UTC
Permalink
Raw Message
My take from reading the OPs post is that he wants to change some JCL,
therefore change a record not statistics.

Lou
--
Artificial Intelligence is no match for Natural Stupidity
- Unknown
Post by Seymour J Metz
Does the OP want to change a record containing the date, or does he want
to the date in the ISPF statistics?
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
________________________________________
Sent: Monday, June 11, 2018 3:27 PM
Subject: Re: REXX to change Date in PDS member
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=*
//* FROM * TO *
xxxxxx<yyyyy<
-----Original Message-----
Sent: Monday, June 11, 2018 3:24 PM
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
________________________________________
Sent: Monday, June 11, 2018 3:11 PM
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
FIRST TENNESSEE
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,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
saurabh khandelwal
2018-06-12 09:49:34 UTC
Permalink
Raw Message
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. <
Post by PINION, RICHARD W.
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=*
//* FROM * TO *
xxxxxx<yyyyy<
-----Original Message-----
Sent: Monday, June 11, 2018 3:24 PM
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
________________________________________
Sent: Monday, June 11, 2018 3:11 PM
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
FIRST TENNESSEE
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,
--
Thanks & Regards
Saurabh Khandelwal

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Lizette Koehler
2018-06-12 12:29:48 UTC
Permalink
Raw Message
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
Post by PINION, RICHARD W.
-----Original Message-----
saurabh khandelwal
Sent: Tuesday, June 12, 2018 2:49 AM
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. <
Post by PINION, RICHARD W.
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=*
//* FROM * TO *
xxxxxx<yyyyy<
-----Original Message-----
Behalf Of Seymour J Metz
Sent: Monday, June 11, 2018 3:24 PM
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
________________________________________
Sent: Monday, June 11, 2018 3:11 PM
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.
Post by PINION, RICHARD W.
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
FIRST TENNESSEE
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.
Post by PINION, RICHARD W.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
--
Thanks & Regards
Saurabh Khandelwal
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Bernd Oppolzer
2018-06-11 20:11:05 UTC
Permalink
Raw Message
Hi Saurabh,

you should describe in more detail,
what the content in the PDS member should look before and after
your daily change,

for example (just wild guess):

before the change:

D18610<D18611<VOL=SER<

after the change:

D18611<D18612<VOL=SER<

If you do that, it will be easy to help you.

Maybe I got you completely wrong ...
and: Indeed there seems to be a problem with
the one digit month; what about the months starting
with november, having two digits?

(I guess, the D names are part of daily changeing dataset names??)

D180611<D180612<VOL=SER<

would be much better, IMO (if I am right with all my guessing).

Kind regards

Bernd
Post by saurabh khandelwal
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. ) .
7BROWSE 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.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Bernd Oppolzer
2018-06-11 20:12:10 UTC
Permalink
Raw Message
... october :-)
Post by Bernd Oppolzer
Hi Saurabh,
you should describe in more detail,
what the content in the PDS member should look before and after
your daily change,
D18610<D18611<VOL=SER<
D18611<D18612<VOL=SER<
If you do that, it will be easy to help you.
Maybe I got you completely wrong ...
and: Indeed there seems to be a problem with
the one digit month; what about the months starting
with november, having two digits?
(I guess, the D names are part of daily changeing dataset names??)
D180611<D180612<VOL=SER<
would be much better, IMO (if I am right with all my guessing).
Kind regards
Bernd
Post by saurabh khandelwal
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. ) .
7BROWSE    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.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Tom Marchant
2018-06-11 21:11:25 UTC
Permalink
Raw Message
Post by Sri h Kolusu
I am guessing that OP date format is YYMMDD but needs to remove the
leading zero for Month (January thru September ) and the same for Day (01
thru 09).
If that's the case, what date is 19117?
--
Tom Marchant

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Paul Gilmartin
2018-06-11 22:25:16 UTC
Permalink
Raw Message
Post by Pommier, Rex
Post by Tom Marchant
Regarding the removal of leading zeros, how does one tell the >
difference between, for example, January 11 and November 1? It's possible,
albeit unlikely, that the OP is using hex notation for the > month? :-)
Post by Tom Marchant
If that's the case, what date is 19117?
Rex/Tom
It was merely a guess from me about the date format from OP. He needs to
clarify about the format or how he plans to use that format later on.
How about an international standard: https://xkcd.com/1179/

Also, I'll recommend generating the daily JCL from a fixed template.
Genearating each day's from the previous increases the risk that an
error once introduced will long persist.

The Rexx DATE(,,) function has great facilty for date formatting/conversion.
The grievous lack is of any support in Rexx for UTC and timezones.

-- gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Robert Prins
2018-06-12 07:44:57 UTC
Permalink
Raw Message
Post by saurabh khandelwal
I am new to rexx and our new requirement
Which PHB came up with this "requirement"?
Post by saurabh khandelwal
to edit one PDS member with
previous day day date today's date on regular basis .
Your scheduler should be able to do this.

Robert
--
Robert AH Prins
robert.ah.prins(a)gmail.com
Some programming @ <https://prino.neocities.org/zOS/zOS-Tools.html>

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Paul Gilmartin
2018-06-12 14:19:34 UTC
Permalink
Raw Message
Post by saurabh khandelwal
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.
A few alternatives:

o Could you INCLUDE a JCLLIB member which you update daily?

o Is there a dynamic system symbol which serves your purpose?

o Could you use Rexx to create a temporary data set and passing
that as SYSIN to your later IPOUPDTE step?

-- gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Paul Gilmartin
2018-06-12 21:24:12 UTC
Permalink
Raw Message
Since the OP is trying to fit D + date into a 6-character field, why not
use a modified format like Dyyxdd, where x is a hex value for the month. In
this case, Jan = 1, Sep = 9, Oct = A, Nov = B, and Dec = C. That would make
the vol reference earlier D18611 as expected. and then if it were November
11, it would be D18B11.
​That's a decent solution. The only possible problem is that the DSN will
not collate correctly in EBCDIC because A..C come before 0..9 .​
I hate EBCDIC! (Granted in this case it's not bad design but bad luck.)
In CMS I have dealt with this by PIPE ... | E2A | SORT | A2E ...
xmonths = "123456789ABC";
myvalue = "D" || Left(Date("O"),2) || Substr(xmonths, Left(Date("U"),2),1)
|| Left(Date("N"),2);
You really don't need a table search to convert a small decimal number to a hexadecimal
digit. (Solution left as an exercise for the student.)

Given that Rexx has the YYDDD format built-in, I'll recommend it, repugnant though it
is to non-mainframers.

-- gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Sri h Kolusu
2018-06-12 21:38:55 UTC
Permalink
Raw Message
Post by Paul Gilmartin
I hate EBCDIC! (Granted in this case it's not bad design but bad luck.)
In CMS I have dealt with this by PIPE ... | E2A | SORT | A2E ...

Gil,

With DFSORT you can SORT characters according to the ASCII collating
sequence using the format "AC"

Ofcourse it can also convert EBCDIC characters to ASCII characters using
TRAN=ETOA and ASCII characters to EBCDIC characters using TRAN=ATOE


Thanks,
Kolusu



----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Paul Gilmartin
2018-06-12 21:36:57 UTC
Permalink
Raw Message
For the record, I find the idea of trying to cram a date into a tape volser very strange, non-intuitive and of dubious value.
+1. But, de gustibus ... And people do simlarly with filing cabinet labels, etc.

Problems arise if you need more than one tape per day, or continuation reels.
But then you can use D, E, F, ... And if you put the letter on the right (still
legal volser, IIRC), you preserve collation.

Or, you could catalog the tape data set so volser is irrelevant. I do that so I
needn't keep the volser on a sticky note; I just look up with ISPF 3.4.
(Sometimes the MVS catalog gets out-of-sync with the TMC. Don't know
why. It's a lab, not a production shop.)

-- gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Paul Gilmartin
2018-06-12 22:43:11 UTC
Permalink
Raw Message
Post by Paul Gilmartin
Post by Paul Gilmartin
I hate EBCDIC! (Granted in this case it's not bad design but bad luck.)
In CMS I have dealt with this by PIPE ... | E2A | SORT | A2E ...
With DFSORT you can SORT characters according to the ASCII collating
sequence using the format "AC"
Why is the collating sequence for EN_US radically different from that for EN_CA?
Canada is just a step across a border, even though they're suddenly economic
adversaries.
Post by Paul Gilmartin
Ofcourse it can also convert EBCDIC characters to ASCII characters using
TRAN=ETOA and ASCII characters to EBCDIC characters using TRAN=ATOE
Which code pages?

That was an expedient kludge on CMS. Does DFSORT have a "hex" option?

Thanks,
gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Sri h Kolusu
2018-06-12 23:57:59 UTC
Permalink
Raw Message
Post by Paul Gilmartin
Why is the collating sequence for EN_US radically different from that for EN_CA?
Gil,

Don't Know : )
Post by Paul Gilmartin
Which code pages?
Only the default standard TCP/IP table
Post by Paul Gilmartin
Does DFSORT have a "hex" option?
Yes it does and it can do the opposite to. (UNHEX) and it can even do BIT
and UNBIT

TRAN=HEX
UNHEX
BIT
UNBIT

Thanks,
Kolusu

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Elardus Engelbrecht
2018-06-19 13:29:56 UTC
Permalink
Raw Message
Please pardon me, I know I am very late to this thread, but ...
Post by saurabh khandelwal
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.
Post by saurabh khandelwal
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 ***@listserv.ua.edu with the message: INFO IBM-MAIN
Loading...