Re: TSO REXX -- find absolute generation # from relative? [EXTERNAL]
Respectfully, I disagree, especially since you mention REXX. Using the WORD
function, parsing is a snap. If word 1 is NONVSAM, word 3 is the dataset name.
I.e.,
If Word(line_read,1) = 'NONVSAM' THEN gdgent = WORD(line_read,3) ;
The last 'gdgent' filled in will be the last GDG. How does it get simpler?
It's pretty simple to make that look like your desired function - and without a
lot of work.
Jim Horne
From: IBM Mainframe Discussion List On Behalf Of
John McKown
{sigh} I parsing LISTCAT is a bother. Using IGGCSI00 is not simple, IMO at
least. I really wish there were a REXX function to do it like:
absolute=RESGDG('basegdg(0)')
where "absolute" would have "basegdg.gv00" in it. So much simpler. Am I am
a simple person. You really _don't_ want to see the kludge I am cooking up use
Co:Z and UNIX directories. Which are, for me, a lot easier to use that a
PDS.
NOTICE: All information in and attached to the e-mails below may be
proprietary, confidential, privileged and otherwise protected from improper or
erroneous disclosure. If you are not the sender's intended recipient, you are
not authorized to intercept, read, print, retain, copy, forward, or disseminate
this message. If you have erroneously received this communication, please
notify the sender immediately by phone (704-758-1000) or by e-mail and destroy
all copies of this message electronic, paper, or otherwise. By transmitting
documents via this email: Users, Customers, Suppliers and Vendors collectively
acknowledge and agree the transmittal of information via email is voluntary, is
offered as a convenience, and is not a secured method of communication; Not to
transmit any payment information E.G. credit card, debit card, checking
account, wire transfer information, passwords, or sensitive and personal
information E.G. Driver's license, DOB, social security, or any other
information the user wishes to remain confidential; To transmit only
non-confidential information such as plans, pictures and drawings and to assume
all risk and liability for and indemnify Lowe's from any claims, losses or
damages that may arise from the transmittal of documents or including
non-confidential information in the body of an email transmittal. Thank you.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO REXX -- find absolute generation # from relative? [EXTERNAL]
John, I would agree using the catalog interface is not fun. Also I ran a quick
test and I was wrong about using the (0) as part of the name. I had to use
ABC.XYZ.* to get any information back with the test code I had. The output
that came back was a list of all the datasets in the GDG base.
Thanks..
Paul Feller
AGT Mainframe Technical Support
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Lizette Koehler
Sent: Thursday, July 25, 2019 3:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO REXX -- find absolute generation # from relative? [EXTERNAL]
I have done a LISTC ENT('gdgname')
Then parsed the output to find the gen0
Take the First entry on the GDG list GDGBASE.Gv00 + GDG limit = close to
gen0
Lizette
> -Original Message-
> From: IBM Mainframe Discussion List On
> Behalf Of John McKown
> Sent: Thursday, July 25, 2019 12:47 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: TSO REXX -- find absolute generation # from relative?
>
> I just don't see any _simple_ way to do this. I need to convert the
> gdgbase(0) into gdgbase.GVnn absolute. Believe it or not, I have a
> product which creates a number of PDS libraries (not PDSE) which are
> GDG. I want to generate some JCL which is the equivalent of:
>
> //SYSUT1 DD DISP=SHR,DSN=GDGBASE(0)(MEMBER)
>
> Which is a JCL error.
>
> --
> A sine curve goes off to infinity, or at least the end of the blackboard.
> -- Prof. Steiner
>
> Maranatha! <><
> John McKown
>
> --
> 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
--
Please note: This message originated outside your organization. Please use
caution when opening links or attachments.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO REXX -- find absolute generation # from relative? [EXTERNAL]
I think there is a REALNAME program on the CBT site (file 929). I have
not used it , but it might be f some help...
Hth
Tony
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of John McKown
Sent: Thursday, July 25, 2019 4:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO REXX -- find absolute generation # from relative? [EXTERNAL]
[[ SEI WARNING *** This email was sent from an external source. Do not open
attachments or click on links from unknown or suspicious senders. *** ]]
{sigh} I parsing LISTCAT is a bother. Using IGGCSI00 is not simple, IMO at
least. I really wish there were a REXX function to do it like:
absolute=RESGDG('basegdg(0)')
where "absolute" would have "basegdg.gv00" in it. So much simpler. Am I
am a simple person. You really _don't_ want to see the kludge I am cooking
up use Co:Z and UNIX directories. Which are, for me, a lot easier to use
that a PDS.
On Thu, Jul 25, 2019 at 3:09 PM Feller, Paul
wrote:
> John, could you try to use the catalog interface (IGGCSI00) and do a
> request for the current generation with something like ABC.XYZ(0)? I
> would think you would then get back the fully qualified name.
>
> Thanks..
>
> Paul Feller
> AGT Mainframe Technical Support
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of John McKown
> Sent: Thursday, July 25, 2019 2:47 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: TSO REXX -- find absolute generation # from relative? [EXTERNAL]
>
> I just don't see any _simple_ way to do this. I need to convert the
> gdgbase(0) into gdgbase.GVnn absolute. Believe it or not, I have a
> product which creates a number of PDS libraries (not PDSE) which are GDG. I
> want to generate some JCL which is the equivalent of:
>
> //SYSUT1 DD DISP=SHR,DSN=GDGBASE(0)(MEMBER)
>
> Which is a JCL error.
>
> --
> A sine curve goes off to infinity, or at least the end of the blackboard.
> -- Prof. Steiner
>
> Maranatha! <><
> John McKown
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> Please note: This message originated outside your organization. Please
> use caution when opening links or attachments.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
--
A sine curve goes off to infinity, or at least the end of the blackboard.
-- Prof. Steiner
Maranatha! <><
John McKown
--
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
Re: TSO REXX -- find absolute generation # from relative? [EXTERNAL]
{sigh} I parsing LISTCAT is a bother. Using IGGCSI00 is not simple, IMO at
least. I really wish there were a REXX function to do it like:
absolute=RESGDG('basegdg(0)')
where "absolute" would have "basegdg.gv00" in it. So much simpler. Am I
am a simple person. You really _don't_ want to see the kludge I am cooking
up use Co:Z and UNIX directories. Which are, for me, a lot easier to use
that a PDS.
On Thu, Jul 25, 2019 at 3:09 PM Feller, Paul
wrote:
> John, could you try to use the catalog interface (IGGCSI00) and do a
> request for the current generation with something like ABC.XYZ(0)? I
> would think you would then get back the fully qualified name.
>
> Thanks..
>
> Paul Feller
> AGT Mainframe Technical Support
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of John McKown
> Sent: Thursday, July 25, 2019 2:47 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: TSO REXX -- find absolute generation # from relative? [EXTERNAL]
>
> I just don't see any _simple_ way to do this. I need to convert the
> gdgbase(0) into gdgbase.GVnn absolute. Believe it or not, I have a
> product which creates a number of PDS libraries (not PDSE) which are GDG. I
> want to generate some JCL which is the equivalent of:
>
> //SYSUT1 DD DISP=SHR,DSN=GDGBASE(0)(MEMBER)
>
> Which is a JCL error.
>
> --
> A sine curve goes off to infinity, or at least the end of the blackboard.
> -- Prof. Steiner
>
> Maranatha! <><
> John McKown
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> Please note: This message originated outside your organization. Please
> use caution when opening links or attachments.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
--
A sine curve goes off to infinity, or at least the end of the blackboard.
-- Prof. Steiner
Maranatha! <><
John McKown
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO REXX -- find absolute generation # from relative? [EXTERNAL]
John, could you try to use the catalog interface (IGGCSI00) and do a request for the current generation with something like ABC.XYZ(0)? I would think you would then get back the fully qualified name. Thanks.. Paul Feller AGT Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John McKown Sent: Thursday, July 25, 2019 2:47 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: TSO REXX -- find absolute generation # from relative? [EXTERNAL] I just don't see any _simple_ way to do this. I need to convert the gdgbase(0) into gdgbase.GVnn absolute. Believe it or not, I have a product which creates a number of PDS libraries (not PDSE) which are GDG. I want to generate some JCL which is the equivalent of: //SYSUT1 DD DISP=SHR,DSN=GDGBASE(0)(MEMBER) Which is a JCL error. -- A sine curve goes off to infinity, or at least the end of the blackboard. -- Prof. Steiner Maranatha! <>< John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Please note: This message originated outside your organization. Please use caution when opening links or attachments. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
