Re: Finding uncatalogued datasets

[Lennie Dymoke-Bradshaw]

Be careful to pay attention to your configuration. If you are running a sysplex 
with multiple Master Catalogs then you will likely find data sets which are 
catalogued on the other system from the one where you are running.

Lennie Dymoke-Bradshaw
https://rsclweb.com 
‘Dance like no one is watching. Encrypt like everyone is.’

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Gibney, Dave
Sent: 23 July 2022 00:24
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Finding uncatalogued datasets

SMS shouldn't have uncataloged datasets. In reality, there are ways... All of 
which should be considered an error.

Of course, in my opinion. Most, if not all, uncataloged datasets are likely in 
error. And the reason(s) for looking for them is to correct these errors.

So, I wouldn't exclude my SMS volumes from such a search.

> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of Mike Schwab
> Sent: Friday, July 22, 2022 4:08 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Finding uncatalogued datasets
> 
> 
> 
> SMS storage groups can't have uncataloged data sets, so you can 
> eliminate those volumes.
> 
> On Fri, Jul 22, 2022 at 9:01 AM Jack Zukt  wrote:
> >
> > Hi all,
> > As a byproduct of what I am working now, I have found out a few 
> > uncatalogued datasets. Now I would like to find out all the 
> > uncatalogued datasets that are forgotten on the hundred of volumes that are 
> > out there.
> > Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
> > for each VOLSER. I could write a rexx that would read the DCOLLECT
> > VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group
> of
> > VOLSERs but I really would like to use a more standard approach. I 
> > seem to remember, from another age, that FDRABR could do it. However Dr.
> Google has
> > not been able to find me anything to that effect using only IBM tools.
> > Do you have any ideas how to go about this?
> > Your help will be, as always, greatly appreciated.
> > Regards,
> > Jack
> >
> > 
> > -- For IBM-MAIN subscribe / signoff / archive access instructions, 
> > send email to lists...@listserv.ua.edu with the message: INFO 
> > IBM-MAIN
> 
> 
> 
> --
> Mike A Schwab, Springfield IL USA
> Where do Forest Rangers go to get away from it all?
> 
> --
> 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

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

Re: Finding uncatalogued datasets

[Gibney, Dave]

SMS shouldn't have uncataloged datasets. In reality, there are ways... All of 
which should be considered an error.

Of course, in my opinion. Most, if not all, uncataloged datasets are likely in 
error. And the reason(s) for looking for them is to correct these errors.

So, I wouldn't exclude my SMS volumes from such a search.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Mike Schwab
> Sent: Friday, July 22, 2022 4:08 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Finding uncatalogued datasets
> 
> 
> 
> SMS storage groups can't have uncataloged data sets, so you can
> eliminate those volumes.
> 
> On Fri, Jul 22, 2022 at 9:01 AM Jack Zukt  wrote:
> >
> > Hi all,
> > As a byproduct of what I am working now, I have found out a few
> > uncatalogued datasets. Now I would like to find out all the uncatalogued
> > datasets that are forgotten on the hundred of volumes that are out there.
> > Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
> > for each VOLSER. I could write a rexx that would read the DCOLLECT
> > VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group
> of
> > VOLSERs but I really would like to use a more standard approach. I seem to
> > remember, from another age, that FDRABR could do it. However Dr.
> Google has
> > not been able to find me anything to that effect using only IBM tools.
> > Do you have any ideas how to go about this?
> > Your help will be, as always, greatly appreciated.
> > Regards,
> > Jack
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> 
> 
> --
> Mike A Schwab, Springfield IL USA
> Where do Forest Rangers go to get away from it all?
> 
> --
> 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: Finding uncatalogued datasets

[Mike Schwab]

SMS storage groups can't have uncataloged data sets, so you can
eliminate those volumes.

On Fri, Jul 22, 2022 at 9:01 AM Jack Zukt  wrote:
>
> Hi all,
> As a byproduct of what I am working now, I have found out a few
> uncatalogued datasets. Now I would like to find out all the uncatalogued
> datasets that are forgotten on the hundred of volumes that are out there.
> Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
> for each VOLSER. I could write a rexx that would read the DCOLLECT
> VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
> VOLSERs but I really would like to use a more standard approach. I seem to
> remember, from another age, that FDRABR could do it. However Dr. Google has
> not been able to find me anything to that effect using only IBM tools.
> Do you have any ideas how to go about this?
> Your help will be, as always, greatly appreciated.
> Regards,
> Jack
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

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

CBT Version 503 has been cut

[Sam Golob]

Dear Folks,

    The CBT Tape Version 503 has been cut.  Its "official" date is July 
20, 2022.


    All the best of everything to all of you.

Sincerely,    Sam

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

Re: Finding uncatalogued datasets

[Michael Oujesky]

Sorry, meant to say DcOLLECT and LISTCATs merged to determine those 
not cataloged?


At 12:21 PM 7/22/2022, Michael Oujesky wrote:


Have you had a look at DCOLLECT data?

Michael

At 09:00 AM 7/22/2022, Jack Zukt wrote:


Hi all,
As a byproduct of what I am working now, I have found out a few
uncatalogued datasets. Now I would like to find out all the uncatalogued
datasets that are forgotten on the hundred of volumes that are out there.
Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
for each VOLSER. I could write a rexx that would read the DCOLLECT
VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
VOLSERs but I really would like to use a more standard approach. I seem to
remember, from another age, that FDRABR could do it. However Dr. Google has
not been able to find me anything to that effect using only IBM tools.
Do you have any ideas how to go about this?
Your help will be, as always, greatly appreciated.
Regards,
Jack

--
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: Finding uncatalogued datasets

[Michael Oujesky]

Have you had a look at DCOLLECT data?

Michael

At 09:00 AM 7/22/2022, Jack Zukt wrote:


Hi all,
As a byproduct of what I am working now, I have found out a few
uncatalogued datasets. Now I would like to find out all the uncatalogued
datasets that are forgotten on the hundred of volumes that are out there.
Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
for each VOLSER. I could write a rexx that would read the DCOLLECT
VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
VOLSERs but I really would like to use a more standard approach. I seem to
remember, from another age, that FDRABR could do it. However Dr. Google has
not been able to find me anything to that effect using only IBM tools.
Do you have any ideas how to go about this?
Your help will be, as always, greatly appreciated.
Regards,
Jack

--
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: Finding uncatalogued datasets

[rpinion865]

If you have BMC's, formally Innovation Data Processing, FDREPORT you can easily 
do this.

//REPORT2 EXEC PGM=FDREPORT
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SORTLIB  DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSMAP   DD SYSOUT=*
//SUMS DD SYSOUT=*
//SYSINDD *
 DEFAULT DATEFORMAT=YYDDD,HEADINGS=YES,SUMDDNAME=SUMS
 REPORT FIELD=(DSN,VOL,SIZEINFO,DATES,CATALOG,CATVOL,SMSCLASS,SMSFLAGS)
 XEXCLUDE XDSN=SYS1.VTOCIX.**
 XSELECT CATALOG=(NO,ERR),XDSN=**
 PUNCH   FDRLIB=MASK
 PRINT   DISABLE=(SELTERR,RPTDUPDSNCHK)




Sent with Proton Mail secure email.

--- Original Message ---
On Friday, July 22nd, 2022 at 12:05 PM, Jack Zukt  wrote:


> Hello again,
> Mike, when I first answered a while ago, I forgot to thank you for your
> suggestion but, at present, there is no overture to invest on vendor tools.
> Thank you any way.
>
> Kolosu,
> I have tried DFDSS as you suggested. However, it is not working.
> If I run it like this:
>
> DUMP DATASET(INCLUDE() -
> EXCLUDE(SYS1.) -
> BY((REFDT,LE,,-90) -
> (DSORG NE VSAM) -
> (CATLG EQ NO))) -
> LOGINDDNAME(DASD1) -
> OUTDDNAME(WHOOOPS)
>
> DASD1 being a DD for a volume, it works. But if I run it like this:
>
> DUMP DATASET(INCLUDE() -
> EXCLUDE(SYS1.) -
> BY((REFDT,LE,,-90) -
> (DSORG NE VSAM) -
> (CATLG EQ NO))) -
> OUTDDNAME(WHOOOPS)
>
> it fails with ADR140E (001)-RI03 (05), INVALID 'BY' CRITERIA
> Jack
>
> On Fri, 22 Jul 2022 at 16:40, Mike Shaw techsupp...@quickref.com wrote:
>
> > Michael,
> >
> > Look at member QWDSLIST in the MVS/QuickRef JCL library. Comments at top of
> > member will provide guidance and sort criteria help. Volser masking is
> > supported.
> >
> > Mike Shaw
> > MVS/QuickRef Support Group
> >
> > On Fri, Jul 22, 2022, 11:19 AM Michael Watkins <
> > 032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote:
> >
> > > The installation where I'm employed has MVS/QuickRef installed, but we do
> > > not currently use it to find uncataloged datasets.
> > >
> > > Can you provide a sample of the batch job using MVS/Quickref to find all
> > > uncataloged datasets? Preferably one that would employ a mask for volumes
> > > to exclude, since temporary datasets, restricted to one pool where I
> > > work,
> > > are not cataloged by design.
> > >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf
> > > Of Mike Shaw
> > > Sent: Friday, July 22, 2022 10:11 AM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Re: Finding uncatalogued datasets
> > >
> > > CAUTION: This email originated from outside of the Texas Comptroller's
> > > email system.
> > > DO NOT click links or open attachments unless you expect them from the
> > > sender and know the content is safe.
> > >
> > > Jack,
> > >
> > > MVS/QuickRef will give you a list of the uncataloged data sets across all
> > > your online DASD volumes, with one batch job, and you don't need to code
> > > any DD statements.
> > >
> > > Mike Shaw
> > > MVS/QuickRef Support Group
> > > Chicago-Soft, Ltd.
> > >
> > > On Fri, Jul 22, 2022, 10:00 AM Jack Zukt jzuk...@gmail.com wrote:
> > >
> > > > Hi all,
> > > > As a byproduct of what I am working now, I have found out a few
> > > > uncatalogued datasets. Now I would like to find out all the
> > > > uncatalogued datasets that are forgotten on the hundred of volumes that
> > > > are out there.
> > > > Using ADRDDSU and (CATLG EQ NO) is not an option as it would need a
> > > > DD
> > > > for each VOLSER. I could write a rexx that would read the DCOLLECT
> > > > VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
> > > > VOLSERs but I really would like to use a more standard approach. I
> > > > seem to remember, from another age, that FDRABR could do it. However
> > > > Dr. Google has not been able to find me anything to that effect using
> > > > only IBM tools.
> > > > Do you have any ideas how to go about this?
> > > > Your help will be, as always, greatly appreciated.
> > > > Regards,
> > > > Jack
> > > >
> > > > --
> > > > 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
> > >
> > > --
> > > 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
>
>
> --
> For 

Re: Finding uncatalogued datasets

[Jack Zukt]

Hello again,
Mike, when I first answered a while ago, I forgot to thank you for your
suggestion but, at present, there is no overture to invest on vendor tools.
Thank you any way.

Kolosu,
I have tried DFDSS as you suggested. However, it is not working.
If I run it like this:

DUMP DATASET(INCLUDE(**) -
 EXCLUDE(SYS1.**) -
 BY((REFDT,LE,*,-90) -
(DSORG NE VSAM) -
(CATLG EQ NO))) -
 LOGINDDNAME(DASD1) -
 OUTDDNAME(WHOOOPS)

DASD1 being a DD for a volume, it works. But if I run it like this:

DUMP DATASET(INCLUDE(**) -
 EXCLUDE(SYS1.**) -
 BY((REFDT,LE,*,-90) -
(DSORG NE VSAM) -
(CATLG EQ NO))) -
 OUTDDNAME(WHOOOPS)

it fails with ADR140E (001)-RI03 (05), INVALID 'BY' CRITERIA
Jack

On Fri, 22 Jul 2022 at 16:40, Mike Shaw  wrote:

> Michael,
>
> Look at member QWDSLIST in the MVS/QuickRef JCL library. Comments at top of
> member will provide guidance and sort criteria help. Volser masking is
> supported.
>
> Mike Shaw
> MVS/QuickRef Support Group
>
> On Fri, Jul 22, 2022, 11:19 AM Michael Watkins <
> 032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote:
>
> > The installation where I'm employed has MVS/QuickRef installed, but we do
> > not currently use it to find uncataloged datasets.
> >
> > Can you provide a sample of the batch job using MVS/Quickref to find all
> > uncataloged datasets? Preferably one that would employ a mask for volumes
> > to exclude, since temporary datasets, restricted to one pool where I
> work,
> > are not cataloged by design.
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On Behalf
> > Of Mike Shaw
> > Sent: Friday, July 22, 2022 10:11 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Finding uncatalogued datasets
> >
> > CAUTION: This email originated from outside of the Texas Comptroller's
> > email system.
> > DO NOT click links or open attachments unless you expect them from the
> > sender and know the content is safe.
> >
> > Jack,
> >
> > MVS/QuickRef will give you a list of the uncataloged data sets across all
> > your online DASD volumes, with one batch job, and you don't need to code
> > any DD statements.
> >
> > Mike Shaw
> > MVS/QuickRef Support Group
> > Chicago-Soft, Ltd.
> >
> > On Fri, Jul 22, 2022, 10:00 AM Jack Zukt  wrote:
> >
> > > Hi all,
> > > As a byproduct of what I am working now, I have found out a few
> > > uncatalogued datasets. Now I would like to find out all the
> > > uncatalogued datasets that are forgotten on the hundred of volumes that
> > are out there.
> > > Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a
> DD
> > > for each VOLSER. I could write a rexx that would read the DCOLLECT
> > > VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
> > > VOLSERs but I really would like to use a more standard approach. I
> > > seem to remember, from another age, that FDRABR could do it. However
> > > Dr. Google has not been able to find me anything to that effect using
> > only IBM tools.
> > > Do you have any ideas how to go about this?
> > > Your help will be, as always, greatly appreciated.
> > > Regards,
> > > Jack
> > >
> > > --
> > > 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
> >
> > --
> > 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
>

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

Re: Finding uncatalogued datasets

[David Spiegel]

Hi Mike,
So will The VTOC Command Processor (CBT File 112) and it's free.
Not only that, but VTOC an also show incorrectly Cataloged Datasets 
(with the same Job).


Regards,
David

On 2022-07-22 11:10, Mike Shaw wrote:

Jack,

MVS/QuickRef will give you a list of the uncataloged data sets across all
your online DASD volumes, with one batch job, and you don't need to code
any DD statements.

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

On Fri, Jul 22, 2022, 10:00 AM Jack Zukt  wrote:


Hi all,
As a byproduct of what I am working now, I have found out a few
uncatalogued datasets. Now I would like to find out all the uncatalogued
datasets that are forgotten on the hundred of volumes that are out there.
Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
for each VOLSER. I could write a rexx that would read the DCOLLECT
VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
VOLSERs but I really would like to use a more standard approach. I seem toH
remember, from another age, that FDRABR could do it. However Dr. Google has
not been able to find me anything to that effect using only IBM tools.
Do you have any ideas how to go about this?
Your help will be, as always, greatly appreciated.
Regards,
Jack

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


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

Re: Finding uncatalogued datasets

[Mike Shaw]

Michael,

Look at member QWDSLIST in the MVS/QuickRef JCL library. Comments at top of
member will provide guidance and sort criteria help. Volser masking is
supported.

Mike Shaw
MVS/QuickRef Support Group

On Fri, Jul 22, 2022, 11:19 AM Michael Watkins <
032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote:

> The installation where I'm employed has MVS/QuickRef installed, but we do
> not currently use it to find uncataloged datasets.
>
> Can you provide a sample of the batch job using MVS/Quickref to find all
> uncataloged datasets? Preferably one that would employ a mask for volumes
> to exclude, since temporary datasets, restricted to one pool where I work,
> are not cataloged by design.
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Mike Shaw
> Sent: Friday, July 22, 2022 10:11 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Finding uncatalogued datasets
>
> CAUTION: This email originated from outside of the Texas Comptroller's
> email system.
> DO NOT click links or open attachments unless you expect them from the
> sender and know the content is safe.
>
> Jack,
>
> MVS/QuickRef will give you a list of the uncataloged data sets across all
> your online DASD volumes, with one batch job, and you don't need to code
> any DD statements.
>
> Mike Shaw
> MVS/QuickRef Support Group
> Chicago-Soft, Ltd.
>
> On Fri, Jul 22, 2022, 10:00 AM Jack Zukt  wrote:
>
> > Hi all,
> > As a byproduct of what I am working now, I have found out a few
> > uncatalogued datasets. Now I would like to find out all the
> > uncatalogued datasets that are forgotten on the hundred of volumes that
> are out there.
> > Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
> > for each VOLSER. I could write a rexx that would read the DCOLLECT
> > VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
> > VOLSERs but I really would like to use a more standard approach. I
> > seem to remember, from another age, that FDRABR could do it. However
> > Dr. Google has not been able to find me anything to that effect using
> only IBM tools.
> > Do you have any ideas how to go about this?
> > Your help will be, as always, greatly appreciated.
> > Regards,
> > Jack
> >
> > --
> > 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
>
> --
> 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: Finding uncatalogued datasets

[Jack Zukt]

Hello,
Thank you all for your suggestions. I will begin by trying DFDSS as
suggested by Kolosu, as I have not tried like that. If it works as I need,
it will be the more standard approach, which is what I am looking for. If
that will not work, than I will have a go with the CBT.
I will keep you posted of the developments.
Regards,
Jack

On Fri, 22 Jul 2022 at 16:08, Sri h Kolusu  wrote:

> >> Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
>
> Jack,
>
> Not sure what you tried, but you can try the DUMP command with
> TYPRUN=NORUN so that you can see the list of datasets that will processed.
>
> Try this
>
> //GENLIST  EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN'
> //SYSPRINT DD SYSOUT=*
> //PSEUDO   DD DUMMY
> //PSEUDO   DD DUMMY
> //SYSINDD *
>   DUMP   /* Command DUMP */ -
>DS(INCL(*.**) /* Include all datasets */ -
>BY((REFDT,LE,*,-90))) /* Select If CATLG EQ NO*/ -
>OUTDD(PSEUDO)
> /*
>
> You can route the SYSPRINT to a dataset and run DFSORT to extract the
> contents. Let me know if you are interested in that.
>
> Thanks,
> Kolusu
>
>
> --
> 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: Finding uncatalogued datasets

[kekronbekron]

Yes please, this will be handy to have.

- KB

--- Original Message ---
On Friday, July 22nd, 2022 at 8:49 PM, Michael Watkins 
<032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote:


> The installation where I'm employed has MVS/QuickRef installed, but we do not 
> currently use it to find uncataloged datasets.
>
> Can you provide a sample of the batch job using MVS/Quickref to find all 
> uncataloged datasets? Preferably one that would employ a mask for volumes to 
> exclude, since temporary datasets, restricted to one pool where I work, are 
> not cataloged by design.
>
> -Original Message-
> From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf Of 
> Mike Shaw
>
> Sent: Friday, July 22, 2022 10:11 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Finding uncatalogued datasets
>
> CAUTION: This email originated from outside of the Texas Comptroller's email 
> system.
> DO NOT click links or open attachments unless you expect them from the sender 
> and know the content is safe.
>
> Jack,
>
> MVS/QuickRef will give you a list of the uncataloged data sets across all 
> your online DASD volumes, with one batch job, and you don't need to code any 
> DD statements.
>
> Mike Shaw
> MVS/QuickRef Support Group
> Chicago-Soft, Ltd.
>
> On Fri, Jul 22, 2022, 10:00 AM Jack Zukt jzuk...@gmail.com wrote:
>
> > Hi all,
> > As a byproduct of what I am working now, I have found out a few
> > uncatalogued datasets. Now I would like to find out all the
> > uncatalogued datasets that are forgotten on the hundred of volumes that are 
> > out there.
> > Using ADRDDSU and (CATLG EQ NO) is not an option as it would need a DD
> > for each VOLSER. I could write a rexx that would read the DCOLLECT
> > VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
> > VOLSERs but I really would like to use a more standard approach. I
> > seem to remember, from another age, that FDRABR could do it. However
> > Dr. Google has not been able to find me anything to that effect using only 
> > IBM tools.
> > Do you have any ideas how to go about this?
> > Your help will be, as always, greatly appreciated.
> > Regards,
> > Jack
> >
> > --
> > 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
>
> --
> 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: Finding uncatalogued datasets

[Michael Watkins]

The installation where I'm employed has MVS/QuickRef installed, but we do not 
currently use it to find uncataloged datasets.

Can you provide a sample of the batch job using MVS/Quickref to find all 
uncataloged datasets? Preferably one that would employ a mask for volumes to 
exclude, since temporary datasets, restricted to one pool where I work, are not 
cataloged by design. 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mike Shaw
Sent: Friday, July 22, 2022 10:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Finding uncatalogued datasets

CAUTION: This email originated from outside of the Texas Comptroller's email 
system.
DO NOT click links or open attachments unless you expect them from the sender 
and know the content is safe.

Jack,

MVS/QuickRef will give you a list of the uncataloged data sets across all your 
online DASD volumes, with one batch job, and you don't need to code any DD 
statements.

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

On Fri, Jul 22, 2022, 10:00 AM Jack Zukt  wrote:

> Hi all,
> As a byproduct of what I am working now, I have found out a few 
> uncatalogued datasets. Now I would like to find out all the 
> uncatalogued datasets that are forgotten on the hundred of volumes that are 
> out there.
> Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
> for each VOLSER. I could write a rexx that would read the DCOLLECT
> VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of 
> VOLSERs but I really would like to use a more standard approach. I 
> seem to remember, from another age, that FDRABR could do it. However 
> Dr. Google has not been able to find me anything to that effect using only 
> IBM tools.
> Do you have any ideas how to go about this?
> Your help will be, as always, greatly appreciated.
> Regards,
> Jack
>
> --
> 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

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

Re: Finding uncatalogued datasets

[Mike Shaw]

Jack,

MVS/QuickRef will give you a list of the uncataloged data sets across all
your online DASD volumes, with one batch job, and you don't need to code
any DD statements.

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

On Fri, Jul 22, 2022, 10:00 AM Jack Zukt  wrote:

> Hi all,
> As a byproduct of what I am working now, I have found out a few
> uncatalogued datasets. Now I would like to find out all the uncatalogued
> datasets that are forgotten on the hundred of volumes that are out there.
> Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
> for each VOLSER. I could write a rexx that would read the DCOLLECT
> VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
> VOLSERs but I really would like to use a more standard approach. I seem to
> remember, from another age, that FDRABR could do it. However Dr. Google has
> not been able to find me anything to that effect using only IBM tools.
> Do you have any ideas how to go about this?
> Your help will be, as always, greatly appreciated.
> Regards,
> Jack
>
> --
> 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: Finding uncatalogued datasets

[Sri h Kolusu]

>> Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD

Jack,

Not sure what you tried, but you can try the DUMP command with TYPRUN=NORUN so 
that you can see the list of datasets that will processed.

Try this

//GENLIST  EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//PSEUDO   DD DUMMY
//PSEUDO   DD DUMMY
//SYSINDD *
  DUMP   /* Command DUMP */ -
   DS(INCL(*.**) /* Include all datasets */ -
   BY((REFDT,LE,*,-90))) /* Select If CATLG EQ NO*/ -
   OUTDD(PSEUDO)
/*

You can route the SYSPRINT to a dataset and run DFSORT to extract the contents. 
Let me know if you are interested in that.

Thanks,
Kolusu


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

Re: Finding uncatalogued datasets

[David Spiegel]

Hi Jack,
The VTOC Command Processor (CBT File 112).
If you install it, I can supply JCL  to do this.

Regards,
David

On 2022-07-22 10:00, Jack Zukt wrote:

Hi all,
As a byproduct of what I am working now, I have found out a few
uncatalogued datasets. Now I would like to find out all the uncatalogued
datasets that are forgotten on the hundred of volumes that are out there.
Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
for each VOLSER. I could write a rexx that would read the DCOLLECT
VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
VOLSERs but I really would like to use a more standard approach. I seem to
remember, from another age, that FDRABR could do it. However Dr. Google has
not been able to find me anything to that effect using only IBM tools.
Do you have any ideas how to go about this?
Your help will be, as always, greatly appreciated.
Regards,
Jack

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

Finding uncatalogued datasets

[Jack Zukt]

Hi all,
As a byproduct of what I am working now, I have found out a few
uncatalogued datasets. Now I would like to find out all the uncatalogued
datasets that are forgotten on the hundred of volumes that are out there.
Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
for each VOLSER. I could write a rexx that would read the DCOLLECT
VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
VOLSERs but I really would like to use a more standard approach. I seem to
remember, from another age, that FDRABR could do it. However Dr. Google has
not been able to find me anything to that effect using only IBM tools.
Do you have any ideas how to go about this?
Your help will be, as always, greatly appreciated.
Regards,
Jack

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

Re: IWS Agent for z/OS - SSL Configuration

[Colin Paice]

I've done some work with AT-TLS.  There is a collection of blog posts on
AT-TLS here  (including
using z/OSMF and TCP configuration assistant).

Getting AT-TLS and PAGENT to work on z/OS – start here

.

Colin

On Fri, 22 Jul 2022 at 14:42, Gilson Cesar de Oliveira 
wrote:

> Hi Tim and Colin,
>
> Many thanks for your prompt help.
> I´ll work with the team who owns the IWS in order to implement
> these
> configurations and test them before the roll-out.
>
> If it works I´ll post the results here for the list.
>
> Regards,
>
> Gilson
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of
> Timothy Sipples
> Sent: sexta-feira, 22 de julho de 2022 01:59
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: IWS Agent for z/OS - SSL Configuration
>
> I think Colin has pointed you in the right direction.
>
> I wonder if (alternatively) you could configure IBM Z Workload Scheduler
> for
> HTTP (unencrypted) traffic but then use z/OS AT-TLS to provide the TLS 1.2+
> support with your desired cipher suites.
>
> — — — — —
> Timothy Sipples
> Senior Architect
> Digital Assets, Industry Solutions, and Cybersecurity IBM
> zSystems/LinuxONE,
> Asia-Pacific sipp...@sg.ibm.com
>
>
> --
> 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
>

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

Re: IWS Agent for z/OS - SSL Configuration

[Gilson Cesar de Oliveira]

Hi Tim and Colin,

Many thanks for your prompt help.
I´ll work with the team who owns the IWS in order to implement these
configurations and test them before the roll-out.

If it works I´ll post the results here for the list.

Regards,

Gilson

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Timothy Sipples
Sent: sexta-feira, 22 de julho de 2022 01:59
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IWS Agent for z/OS - SSL Configuration

I think Colin has pointed you in the right direction.

I wonder if (alternatively) you could configure IBM Z Workload Scheduler for
HTTP (unencrypted) traffic but then use z/OS AT-TLS to provide the TLS 1.2+
support with your desired cipher suites.

— — — — —
Timothy Sipples
Senior Architect
Digital Assets, Industry Solutions, and Cybersecurity IBM zSystems/LinuxONE,
Asia-Pacific sipp...@sg.ibm.com


--
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: INFOPRINT SERVER EXPERIENCE

[Lionel B. Dyck]

Or check out XMITIP (https://github.com/lbdyck/xmitip or https://cbttape.org
file 314) which supports the text to pdf (plus others) and is open source,
using standard system interfaces and is also easy to install and use.

It's free, other than your time/resources so you can install and try it out
quickly and without dealing with contract negotiations, purchase orders,
etc. Depending on your needs it may be adequate - while not efficient as it
is mostly rexx (you can compile it if you have the rexx compiler) it does
work well and has for a couple of decades during which it has continued to
be enhanced.


Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you
are, reputation merely what others think you are.”   - - - John Wooden

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Shelia Chalk
Sent: Friday, July 22, 2022 07:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INFOPRINT SERVER EXPERIENCE

Also, check out jes2ftp/jes2mail. Own by same company and very easy to
install.

Thanks
Shelia Chalk 


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Tony Thigpen
Sent: Thursday, July 21, 2022 3:15 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INFOPRINT SERVER EXPERIENCE

Check out JES2MAIL.

Tony Thigpen

Avner Michaeli wrote on 7/21/22 07:45:
> Hello,
> Our company is looking for a product that transforms sysouts to PDF.
> One product is IBM Infoprint Server with Print Transform.
> Anyone using these product ?
> How are these product compared to others in the market ?
> Any remarkable advantages/disadvantages ?
> We are running z/OS v2.3
> 
> TIA,
> 
> 
> 
>   Avner Michaeli
> 
> 
> 
> אבנר מיכאלי
> 
> 
>   z/OS System Programmer
> 
> מתכנת מערכות z/OS
> 
> 
> 
> 
>   Phone:
> 
> +972 2 6707740
> 
> 
> 
> +972-2-6707740
> 
> טלפון:
> 
>   Fax:
> 
> +972 2 6523349
> 
> +972-2-6523349
> 
> פקס:
> 
>   Mobile:
> 
> + 972 50 735 5091
> 
> 050-735-5091
> 
> סלולרי:
> 
>   Email:
> 
>   avne...@malam.com
> 
> avne...@malam.com
> 
> דוא''ל:
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> [X]
> 
> [X]
> https://nam10.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.m
> alamteam.com%2Fdata=05%7C01%7CSChalk%40TRUSTMARK.COM%7Cfd425123d2
> db4a21983908da6b55cd26%7C518d66eacb8948c8a7b903cba11cde91%7C1%7C0%7C63
> 7940313503477224%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV
> 2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=kavh6%
> 2F%2B9TNmuJaDfXHd1FKnyT2n1u5OlGO%2BMB6cB2Q0%3Dreserved=0 nam10.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.malamteam
> .com%2Fdata=05%7C01%7CSChalk%40TRUSTMARK.COM%7Cfd425123d2db4a2198
> 3908da6b55cd26%7C518d66eacb8948c8a7b903cba11cde91%7C1%7C0%7C6379403135
> 03477224%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiL
> CJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=kavh6%2F%2B9TN
> muJaDfXHd1FKnyT2n1u5OlGO%2BMB6cB2Q0%3Dreserved=0>
> 
> [X]
> 
> 
> 
> 
> 
> 
> 
> --
> 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

--
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: INFOPRINT SERVER EXPERIENCE

[Shelia Chalk]

Also, check out jes2ftp/jes2mail. Own by same company and very easy to install.

Thanks
Shelia Chalk 


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Tony Thigpen
Sent: Thursday, July 21, 2022 3:15 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INFOPRINT SERVER EXPERIENCE

Check out JES2MAIL.

Tony Thigpen

Avner Michaeli wrote on 7/21/22 07:45:
> Hello,
> Our company is looking for a product that transforms sysouts to PDF.
> One product is IBM Infoprint Server with Print Transform.
> Anyone using these product ?
> How are these product compared to others in the market ?
> Any remarkable advantages/disadvantages ?
> We are running z/OS v2.3
> 
> TIA,
> 
> 
> 
>   Avner Michaeli
> 
> 
> 
> אבנר מיכאלי
> 
> 
>   z/OS System Programmer
> 
> מתכנת מערכות z/OS
> 
> 
> 
> 
>   Phone:
> 
> +972 2 6707740
> 
> 
> 
> +972-2-6707740
> 
> טלפון:
> 
>   Fax:
> 
> +972 2 6523349
> 
> +972-2-6523349
> 
> פקס:
> 
>   Mobile:
> 
> + 972 50 735 5091
> 
> 050-735-5091
> 
> סלולרי:
> 
>   Email:
> 
>   avne...@malam.com
> 
> avne...@malam.com
> 
> דוא''ל:
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> [X]
> 
> [X]
> https://nam10.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.m
> alamteam.com%2Fdata=05%7C01%7CSChalk%40TRUSTMARK.COM%7Cfd425123d2
> db4a21983908da6b55cd26%7C518d66eacb8948c8a7b903cba11cde91%7C1%7C0%7C63
> 7940313503477224%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV
> 2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=kavh6%
> 2F%2B9TNmuJaDfXHd1FKnyT2n1u5OlGO%2BMB6cB2Q0%3Dreserved=0 nam10.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.malamteam
> .com%2Fdata=05%7C01%7CSChalk%40TRUSTMARK.COM%7Cfd425123d2db4a2198
> 3908da6b55cd26%7C518d66eacb8948c8a7b903cba11cde91%7C1%7C0%7C6379403135
> 03477224%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiL
> CJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=kavh6%2F%2B9TN
> muJaDfXHd1FKnyT2n1u5OlGO%2BMB6cB2Q0%3Dreserved=0>
> 
> [X]
> 
> 
> 
> 
> 
> 
> 
> --
> 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

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

Re: Using DFSORT to display binary and Packed Decimal values

[Jack Zukt]

Hi Kolusu
That solved this problem.
Thank you very much for your assistance
Best wishes
Jack

On Thu, 21 Jul 2022 at 19:10, Sri h Kolusu  wrote:

> >>If I use  117,4,CH,LE,X'2021202F', it works as expected. But I do not
> want to have a hard coded date. I have used on a different report
> "118,10,BI,LE,DATE1(-)-90)" for dates with the  "-mm-dd" format.
> >>My interpretation of the DFSORT manual for a date on the "ddd"
> format, is that I should use the DATE3 symbol, but it is not working. I
> will keep reading the manual and I will keep trying on but, in the
> meantime, does anyone has a suggestion?
>
> Jack,
>
> You need to use DATE3P which is a packed decimal format in +ddd format.
>
> So you can use
>
>   INCLUDE COND=(009,2,CH,EQ,C'D ',AND,
> 117,4,PD,LE,DATE3P-90)
>
> This will filter out the records that have last reference date <= current
> date - 90 days
>
> Further if you have any questions please let me know
>
>
> Thanks,
>  Kolusu
> DFSORT Development
> IBM Corporation
>
>
>
>
> --
> 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