Hi Mike,
Does this list tell the user that e.g. SYS1.LINKLIB is already CATLGd, but, SYS1.SGRBLNK is not?

Regards,
David

On 2025-08-14 10:49, Mike Shaw wrote:
I am late to this, but MVS/QuickRef supplies a Rexx function that can be
used to extract a list of all the data sets on a DASD volume and store each
DSN in a stem variable instance.

You could invoke it like this:

X =QWIKREXX(N=volser)

and the stem variable 'qwilines.' would contain the DSNs, with qwilines.0
holding the count of the number of data sets names returned.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

On Wed, Aug 13, 2025, 11:29 PM David Spiegel <
[email protected]> wrote:

Hi Jon,
It's a lot easier to use the VTOC Command Processor (CBT File 112) than
to do what you're describing.

Regards,
David

On 2025-08-13 15:55, Jon Perryman wrote:
On Wed, 13 Aug 2025 11:57:11 +0400, Jake Anderson <
[email protected]> wrote:
Is it possible to compare two SYSRES volume dataset and generate
indirect
cataloging JCL for the new ones alone ?
If you use VTOCLIST, realize it might have duplicate DSN's for multiple
extents.
ISPEXEC LMDxxx returns REXX compatible list of datasets on a volume or
dsn prefix similar to ISPF 3.4. You could LISTDSI or LISTDS for each
dataset to find the uncataloged datasets.
Alternatively, you could use ISPEXEC LMDxxx for old sysres and create
stem variables for the datasets (e.g. DSN.dataset-name) and LMDxxx for the
new volume that checks if the stem variable exists.
Another possibility, you could use ISPF 3.4 (sort if necessary), save
the list for both volumes, edit the new sysres list, set bounds for the
DSN, compare to old sysress and keep only new lines.
If ISPF 3.4 supports == line command, then you could create an exec that
catalogs an uncataloged dataset. specify the exec name on the first
dataset, == on the second and == on the last.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to