Re: What is the PDS command?

[Roger Bolan]

It's all built into ISPF nowadays.  I would suggest that it is worth your
time to go through the ISPF Tutorial every time you get a new release.  On
my systems the main ISPF panel has an option 11 for Workplace  ISPF
Object/Action Workplace.   You can also get to by the ISPF command DSLIST.
 You can list datasets, append other datasets and save any lists you want.
I construct lots of lists for different projects.  Once I am displaying the
datasets in my list, I can use the SRCHFOR command to search inside all the
libraries in my list.  I can exclude libraries with the X (EXCLUDE) primary
command if I need to. I have the options for SRCHFOR set to default to
searching only the non-excluded libraries.  So, for example, if I want to
search through a list of 30 JCL libraries for all members that use AMBLIST,
it's easy.

On Fri, Dec 15, 2023 at 4:51 PM Paul Feller  wrote:

> Greetings Bob,
>
> I was looking through my old JCL library and ran across several examples of
> scans using ISRSUPC.  Depending on what you want to do you could try
> ISRSUPC.  If you have access to JOBSCAN you could try it.  If you client
> has
> DAF, you can use that to scan SMF records to see if any executing jobs are
> touch the dataset.
>
>
> //SEARCH02 EXEC PGM=ISRSUPC,PARM=('SRCHCMP,ANYC,LPSF')
>
> //NEWDDDD DSN=D0PCPN.JCLLIB.CA7PROD,DISP=(SHR,KEEP,KEEP)
>
> // DD DSN=D0PCPN.JCLLIB.OVERRIDE,DISP=(SHR,KEEP,KEEP)
>
> // DD DSN=D0PCPN.JCLLIB.ALTERNAT,DISP=(SHR,KEEP,KEEP)
>
> // DD DSN=D0PCPN.JCLLIB.FREEZE,DISP=(SHR,KEEP,KEEP)
>
> // DD DSN=D0PCPN.JCLLIB.ABEND,DISP=(SHR,KEEP,KEEP)
>
> //OUTDDDD SYSOUT=X
>
> //SYSINDD *
>
> SRCHFOR'UNIT=TAPE'
>
> /*
>
>
> Paul
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of
> John Pratt
> Sent: Friday, December 15, 2023 5:09 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: What is the PDS command?
>
> Hi Bob,
>
> If I remember correctly =3.14 has a batch option and you can concatenate
> all
> your JCL libraries into the generated job.
>
> John.
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of
> Bob Bridges
> Sent: Saturday, 16 December 2023 8:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: What is the PDS command?
>
> Long ago I wrote - I'm pretty sure I wrote - a REXX exec that would do a
> 3.14 search through multiple libraries for a character string.  I'm looking
> for it now, and I find one in my archives that uses the PDS command to do
> the search.
>
> But what's the PDS command?  I've a strong suspicion that I wrote this at a
> client that had a popular CBTTAPE utility, and if so it's not appropriate
> for my current location.  Can someone confirm?
>
> If you care, what I really want to do is search through a list of JCL
> libraries for certain DSN fragments.  There's a job we're probably going to
> shut down, and I want to be sure the datasets it produces are not used
> anywhere else in production.
>
> ---
> Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313
>
> /* "Bother", said the Borg, "we've assimilated a Pooh". */
>
> --
> 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: What is the PDS command?

[Paul Feller]

Greetings Bob,

I was looking through my old JCL library and ran across several examples of
scans using ISRSUPC.  Depending on what you want to do you could try
ISRSUPC.  If you have access to JOBSCAN you could try it.  If you client has
DAF, you can use that to scan SMF records to see if any executing jobs are
touch the dataset.


//SEARCH02 EXEC PGM=ISRSUPC,PARM=('SRCHCMP,ANYC,LPSF')

//NEWDDDD DSN=D0PCPN.JCLLIB.CA7PROD,DISP=(SHR,KEEP,KEEP)

// DD DSN=D0PCPN.JCLLIB.OVERRIDE,DISP=(SHR,KEEP,KEEP)

// DD DSN=D0PCPN.JCLLIB.ALTERNAT,DISP=(SHR,KEEP,KEEP)

// DD DSN=D0PCPN.JCLLIB.FREEZE,DISP=(SHR,KEEP,KEEP)

// DD DSN=D0PCPN.JCLLIB.ABEND,DISP=(SHR,KEEP,KEEP)

//OUTDDDD SYSOUT=X

//SYSINDD *

SRCHFOR'UNIT=TAPE'

/*


Paul

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
John Pratt
Sent: Friday, December 15, 2023 5:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: What is the PDS command?

Hi Bob,

If I remember correctly =3.14 has a batch option and you can concatenate all
your JCL libraries into the generated job.

John.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Bob Bridges
Sent: Saturday, 16 December 2023 8:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: What is the PDS command?

Long ago I wrote - I'm pretty sure I wrote - a REXX exec that would do a
3.14 search through multiple libraries for a character string.  I'm looking
for it now, and I find one in my archives that uses the PDS command to do
the search.

But what's the PDS command?  I've a strong suspicion that I wrote this at a
client that had a popular CBTTAPE utility, and if so it's not appropriate
for my current location.  Can someone confirm?

If you care, what I really want to do is search through a list of JCL
libraries for certain DSN fragments.  There's a job we're probably going to
shut down, and I want to be sure the datasets it produces are not used
anywhere else in production.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* "Bother", said the Borg, "we've assimilated a Pooh". */

--
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: What is the PDS command?

[John Pratt]

Hi Bob,

If I remember correctly =3.14 has a batch option and you can concatenate all
your JCL libraries into the generated job.

John.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Bob Bridges
Sent: Saturday, 16 December 2023 8:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: What is the PDS command?

Long ago I wrote - I'm pretty sure I wrote - a REXX exec that would do a
3.14 search through multiple libraries for a character string.  I'm looking
for it now, and I find one in my archives that uses the PDS command to do
the search.

But what's the PDS command?  I've a strong suspicion that I wrote this at a
client that had a popular CBTTAPE utility, and if so it's not appropriate
for my current location.  Can someone confirm?

If you care, what I really want to do is search through a list of JCL
libraries for certain DSN fragments.  There's a job we're probably going to
shut down, and I want to be sure the datasets it produces are not used
anywhere else in production.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* "Bother", said the Borg, "we've assimilated a Pooh". */

--
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: What is the PDS command?

[Farley, Peter]

Does your current location have any ISV alternative like CA/Brightcom 
FileMaster or other competitors?  Or even the IBM FileMaster (which is probably 
search via SuperC under the covers anyway)?

Peter

From: IBM Mainframe Discussion List  On Behalf Of Bob 
Bridges
Sent: Friday, December 15, 2023 4:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: What is the PDS command?


Long ago I wrote - I'm pretty sure I wrote - a REXX exec that would do a

3.14 search through multiple libraries for a character string.  I'm looking

for it now, and I find one in my archives that uses the PDS command to do

the search.



But what's the PDS command?  I've a strong suspicion that I wrote this at a

client that had a popular CBTTAPE utility, and if so it's not appropriate

for my current location.  Can someone confirm?



If you care, what I really want to do is search through a list of JCL

libraries for certain DSN fragments.  There's a job we're probably going to

shut down, and I want to be sure the datasets it produces are not used

anywhere else in production.



---

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


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

Re: What is the PDS command?

[Paul Gilmartin]

On Fri, 15 Dec 2023 13:58:51 -0800, Ed Jaffe  wrote:
>...
>The ISPF/HLASM SUPERC search function, available natively in z/OS, might
>be a good alternative...
>
Some documentation here: 


-- 
gil

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

Re: What is the PDS command?

[Ed Jaffe]

On 12/15/2023 1:55 PM, Bob Bridges wrote:

But what's the PDS command?  I've a strong suspicion that I wrote this at a
client that had a popular CBTTAPE utility, and if so it's not appropriate
for my current location.  Can someone confirm?


Yes, the PDS command is excellent "shareware" that does a multitude of 
great things with partitioned data sets.


The ISPF/HLASM SUPERC search function, available natively in z/OS, might 
be a good alternative...


--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/



This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

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

Re: What is the PDS command?

[Sri h Kolusu]

>> But what's the PDS command?  I've a strong suspicion that I wrote this at a 
>> client that had a popular CBTTAPE utility, and if so it's not appropriate 
>> for my current location.  Can someone confirm?

ISPF has SRCHFOR which can be issued from DSLIST (3.4) 

https://www.ibm.com/docs/en/zos/2.4.0?topic=commands-srchfor-command

Under the covers it is 3.14 search

Thanks,
Kolusu

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

What is the PDS command?

[Bob Bridges]

Long ago I wrote - I'm pretty sure I wrote - a REXX exec that would do a
3.14 search through multiple libraries for a character string.  I'm looking
for it now, and I find one in my archives that uses the PDS command to do
the search.

But what's the PDS command?  I've a strong suspicion that I wrote this at a
client that had a popular CBTTAPE utility, and if so it's not appropriate
for my current location.  Can someone confirm?

If you care, what I really want to do is search through a list of JCL
libraries for certain DSN fragments.  There's a job we're probably going to
shut down, and I want to be sure the datasets it produces are not used
anywhere else in production.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* "Bother", said the Borg, "we've assimilated a Pooh". */

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

Re: SMP/E question of the day

[Kurt Quackenbush]

>> name ABCPROC#C is 9 characters.

> Right, but that's the generated name-the module is ABCPROC, written in C. How 
> does one get around this?

As a circumvention you can create a ++MOD to replace the entire module instead 
of using a ++ZAP to zap the load module.  If you require SMP/E to support CSECT 
names >8 characters on the IMASPZAP NAME statement within a ++ZAP, you can open 
a case with IBM support and request an APAR to update SMP/E's processing in 
this regard.

Kurt Quackenbush
IBM  |  z/OS SMP/E and z/OSMF Software Management  |  ku...@us.ibm.com

Chuck Norris never uses CHECK when he applies PTFs.

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

Re: Can this be done?

[Tony Harminc]

On Thu, 14 Dec 2023 at 18:39, Lennie Dymoke-Bradshaw
<032fff1be9b4-dmarc-requ...@listserv.ua.edu> wrote:

> I would have said use EXCP until recently. In addition you would need to be 
> APF authorised in order to open VSAM datasets using EXCP.
> However, I understand however that there are some undocumented issues running 
> EXCP against data sets that are extended format. The DFP Advanced Services 
> manual states the following,
> "The EXCP and EXCPVR macro instructions allow you to control the data 
> organization based on
> device characteristics. The exceptions to this capability are partitioned 
> data sets extended (PDSEs),
> extended format data sets, spooled and dummy data sets, TSO terminals, and 
> z/OS UNIX files and
> file systems. They are not supported for user-written applications using 
> EXCP."

In the pre-MVS days, EXCP was the lowest level I/O API. (A very few
programs stole the I/O new PSW and issued their own TIO/SIO
instructions, but that's hardly an API).

In MVS ("OS/VS2 Release 2") a new interface macro STARTIO (not to be
confused with the SIO machine instruction) which called the new "I/O
Supervisor" (IOS) was slid in between EXCP and the hardware I/O
instructions, and a new "EXCP processor" became just one of several
"IOS driver"s. IIRC the others in the early MVS days were ASM, JES3,
and perhaps VSAM and VTAM. Looking at z/OS 2.5 I see there are 36 such
drivers, of which "DFSMS" is one.

The STARTIO interface was never really documented externally by IBM,
though a number of individuals and companies figured out how to use
it. I would imagine that an IOS driver today can still direct CCWs
(and probably now TCWs) at an arbitrary device, and e.g. do I/O
against things such as a PDSE, an extended format dataset, or a ZFS
VSAM dataset that contains UNIX files. But of course the format and
metadata for these things is mostly undocumented, so having access to
the raw data this way is pretty much good for a backup/restore or
remote disk access product and not much else.

I have no access to the [in]famous  FAMS documentation, and I'm
not sure how FAMS relates to "Media Manager", but what little is
visible from APARs and MACLIB and discussion on this list suggests
that it is not just another layer above CCWs, but rather a much higher
level interface that understands all sorts of stuff about the
internals and metadata of various objects on DASD (and probably other
devices). It speculate that it might be that "DFSMS" IOS driver. What
level of interface handles non-CCW/TCW devices such as OSA, I have no
idea.

All idle speculation for a Friday...

Tony H.

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

Re: Can this be done?

[Matt Hogstrom]

As with many things on z/OS the simple can be complicated.  I would have 
thought a simple open of a dataset overriding with RECFM U would have at least 
allowed you to read a block at a time.  Nice idea.

Matt Hogstrom
m...@hogstrom.org
+1-919-656-0564
PGP Key: 0x90ECB270
Facebook   LinkedIn 
  Twitter 

“It may be cognitive, but, it ain’t intuitive."
— Hogstrom

> On Dec 15, 2023, at 12:42, Billy Ashton  wrote:
> 
> Thanks for letting me know how complicated this simple thought was - you can 
> all carry on here without me...


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

Re: Can this be done?

[Billy Ashton]

Ok, it looks like my plan to read any type of file is not going to be as 
simple as I thought. I guess I will abandon that for now, as it was just 
going to be a learning exercise to see if we could have a single program 
open and read data from any disk filetype.  I will stop thinking now, 
and go back to work!


Thanks for letting me know how complicated this simple thought was - you 
can all carry on here without me...


Thank you and best regards,
Billy Ashton

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

Re: Looking for COBOL SYSADATA record layouts

[Charles Mills]

+1

Not the solution to my problem today, however. 

CM

On Fri, 15 Dec 2023 11:30:28 -0600, Paul Gilmartin  wrote:

>On Fri, 15 Dec 2023 10:37:56 -0600, Charles Mills wrote:
>
>>I am looking for compiler-readable record layouts ...
>>
>>Source language, in order of descending preference, would be C header, 
>>Assembler DSECT, or anything else.
>>
>I see a need for a universal data format specification language generating 
>output
>for both compilers and documentation.

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

Re: Looking for COBOL SYSADATA record layouts

[Paul Gilmartin]

On Fri, 15 Dec 2023 10:37:56 -0600, Charles Mills wrote:

>I am looking for compiler-readable record layouts ...
>
>Source language, in order of descending preference, would be C header, 
>Assembler DSECT, or anything else.
>
I see a need for a universal data format specification language generating 
output
for both compilers and documentation.

Might XML provide a solution?

-- 
gil

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

Re: Can this be done?

[Schmitt, Michael]

Disk Browse and Disk Print show the raw track data. There's no interpretation 
by FM. You just can't use it on a PDSE -- and that's not a bug, it is BAD 
(Broken As Designed).

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Friday, December 15, 2023 10:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Can this be done?

On Fri, 15 Dec 2023 16:07:04 +, Schmitt, Michael wrote:

>I wonder if this explains why IBM File Manager doesn't allow Disk Browse or 
>Disk Print on PDSEs -- maybe their code using EXCP and they didn't want to 
>change it to use media manager.
>
I believe the PDSE raw data format is not a supported user interface.  If it 
were
made so, it would need to be documented and stabilized, perhaps precluding 
future
enhancements.

--
gil

--
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: SMP/E question of the day

[Paul Gilmartin]

On Fri, 15 Dec 2023 11:53:03 -0500, Phil Smith III wrote:
>
>Right, but that's the generated name-the module is ABCPROC, written in C. How 
>does one get around this? As Gil suggests, this seems like an SMP/E 
>bug/failing.
>
I'll generalize: It's improper for middleware, in this case SMP/E, to presume
to enforce syntactic rules of lower components.

Extreme example: any member name allowed by BLDL/STOW *should* be
accepted in JCL -- metacharacters escaped as needed.

Postel's Law is half wrong.

--
gil 

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

Re: SMP/E question of the day

[Phil Smith III]

Kurt Quackenbush wrote, re:

>> NAME ABCDITSK ABCPROC#C C_CODE

 

>I believe SMP/E supports a maximum of 8 characters for the LMOD,

>CSECT, and CLASS names specified on the IMASPZAP NAME statement. CSECT

>name ABCPROC#C is 9 characters.

 

Right, but that's the generated name-the module is ABCPROC, written in C. How 
does one get around this? As Gil suggests, this seems like an SMP/E bug/failing.


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

Re: Can this be done?

[Mike Shaw]

We use EXCP for the I/O to our DB and when customers incorrectly allocate
it as an extended format DS we fail with a S213-B8:

B8An OPEN was attempted against an extended-format data set with a DCB that
specified EXCP. EXCP is not supported for extended-format data sets.

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


On Fri, Dec 15, 2023, 11:07 AM Schmitt, Michael 
wrote:

> I wonder if this explains why IBM File Manager doesn't allow Disk Browse
> or Disk Print on PDSEs -- maybe their code using EXCP and they didn't want
> to change it to use media manager.
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Lennie Dymoke-Bradshaw
> Sent: Thursday, December 14, 2023 5:39 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Can this be done?
>
> I am assuming you are speaking of DASD based data sets rather than those
> on tape or any other medium.
>
> I would have said use EXCP until recently. In addition you would need to
> be APF authorised in order to open VSAM datasets using EXCP.
> However, I understand however that there are some undocumented issues
> running EXCP against data sets that are extended format. The DFP Advanced
> Services manual states the following,
> "The EXCP and EXCPVR macro instructions allow you to control the data
> organization based on
> device characteristics. The exceptions to this capability are partitioned
> data sets extended (PDSEs),
> extended format data sets, spooled and dummy data sets, TSO terminals, and
> z/OS UNIX files and
> file systems. They are not supported for user-written applications using
> EXCP."
> It seems likely to me that there are ways of circumventing these
> restrictions. There is a low level interface called the media manager which
> may do what you need. But the manual for this is not available to us mere
> mortals.
> As others have said, use ADRDSSU.
>
> Lennie Dymoke-Bradshaw
> https: //rsclweb.com
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Billy Ashton
> Sent: 14 December 2023 15:44
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Can this be done?
>
> Hey everyone! I have a little down time here at the end of the year with
> our freeze, and I wanted to play with some ideas I have had.
>
> I would like to write a program that can open any kind of file - PDS,
> Sequential, Panvalet, loadlib, and maybe even VSAM components. I want to
> open the file in "raw" format, as if I were going straight to the disk pack
> and scooping up the bytes from the beginning of the allocation to the end.
>
> Is there any way to do this without caring about the catalog RECFM?
> Obviously, the easiest way is through some JCL parameter that says "force
> as PS" but I doubt that is likely. I can't go into more detail at present,
> sorry!
>
> What do you think?
>
> Thank you and best regards,
> Billy Ashton
>
> --
> 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

Looking for COBOL SYSADATA record layouts

[Charles Mills]

I am looking for compiler-readable record layouts for Enterprise COBOL 
SYSADATA. I see the human-oriented record descriptions in the Programming 
Guide. I see the sample exit program in IGYxxx.SAMPLIB(ADEXIT), which contains 
(very) partial record layouts. I have searched SYS1.SIEAHDR.H. I have looked in 
IGYxxx.MACLIB and SYS1.MACLIB. I have asked the Goo Gal.

Source language, in order of descending preference, would be C header, 
Assembler DSECT, or anything else.

Thanks!

Charles

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

Re: Can this be done?

[Paul Gilmartin]

On Fri, 15 Dec 2023 16:07:04 +, Schmitt, Michael wrote:

>I wonder if this explains why IBM File Manager doesn't allow Disk Browse or 
>Disk Print on PDSEs -- maybe their code using EXCP and they didn't want to 
>change it to use media manager.
> 
I believe the PDSE raw data format is not a supported user interface.  If it 
were
made so, it would need to be documented and stabilized, perhaps precluding 
future
enhancements.

-- 
gil

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

Re: Can this be done?

[Schmitt, Michael]

I wonder if this explains why IBM File Manager doesn't allow Disk Browse or 
Disk Print on PDSEs -- maybe their code using EXCP and they didn't want to 
change it to use media manager.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Lennie Dymoke-Bradshaw
Sent: Thursday, December 14, 2023 5:39 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Can this be done?

I am assuming you are speaking of DASD based data sets rather than those on 
tape or any other medium.

I would have said use EXCP until recently. In addition you would need to be APF 
authorised in order to open VSAM datasets using EXCP.
However, I understand however that there are some undocumented issues running 
EXCP against data sets that are extended format. The DFP Advanced Services 
manual states the following,
"The EXCP and EXCPVR macro instructions allow you to control the data 
organization based on
device characteristics. The exceptions to this capability are partitioned data 
sets extended (PDSEs),
extended format data sets, spooled and dummy data sets, TSO terminals, and z/OS 
UNIX files and
file systems. They are not supported for user-written applications using EXCP."
It seems likely to me that there are ways of circumventing these restrictions. 
There is a low level interface called the media manager which may do what you 
need. But the manual for this is not available to us mere mortals.
As others have said, use ADRDSSU.

Lennie Dymoke-Bradshaw
https: //rsclweb.com
-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Billy Ashton
Sent: 14 December 2023 15:44
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Can this be done?

Hey everyone! I have a little down time here at the end of the year with our 
freeze, and I wanted to play with some ideas I have had.

I would like to write a program that can open any kind of file - PDS, 
Sequential, Panvalet, loadlib, and maybe even VSAM components. I want to open 
the file in "raw" format, as if I were going straight to the disk pack and 
scooping up the bytes from the beginning of the allocation to the end.

Is there any way to do this without caring about the catalog RECFM?
Obviously, the easiest way is through some JCL parameter that says "force as 
PS" but I doubt that is likely. I can't go into more detail at present, sorry!

What do you think?

Thank you and best regards,
Billy Ashton

--
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: SMP/E - Pointing Existing TARG & DLIB Zones To New CSI's

[Ross Vaughn]

Thanks Kurt.   This will be helpful as well. 

Ross

> On Dec 15, 2023, at 9:52 AM, Kurt Quackenbush  wrote:
> 
> 
>> 
>> If he clones the existing target and dlib zones, updates the DDDEFs and 
>> receives the new version, will SMPE try to delete the old FMID and/or the 
>> contents of the existing libraries?
> 
> Typically a new release of a product does delete the prior releases.  If you 
> are careful to update all DDDEF entries in the new target and dlib zones to 
> point to the new target and dlib data sets, then you should be safe from 
> accidentally deleting the existing FMID in the existing data sets.  But if 
> you are concerned then don't clone the existing target and dlib zones and 
> libraries; just create new, which should be about the same amount of work as 
> cloning, and the new product release I suspect supplies sample jobs to do 
> exactly that.
> 
> Kurt Quackenbush
> IBM  |  z/OS SMP/E and z/OSMF Software Management  |  ku...@us.ibm.com
> 
> Chuck Norris never uses CHECK when he applies PTFs.
> 
> --
> 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: SMP/E - Pointing Existing TARG & DLIB Zones To New CSI's

[Kurt Quackenbush]

> If he clones the existing target and dlib zones, updates the DDDEFs and 
> receives the new version, will SMPE try to delete the old FMID and/or the 
> contents of the existing libraries?

Typically a new release of a product does delete the prior releases.  If you 
are careful to update all DDDEF entries in the new target and dlib zones to 
point to the new target and dlib data sets, then you should be safe from 
accidentally deleting the existing FMID in the existing data sets.  But if you 
are concerned then don't clone the existing target and dlib zones and 
libraries; just create new, which should be about the same amount of work as 
cloning, and the new product release I suspect supplies sample jobs to do 
exactly that.

Kurt Quackenbush
IBM  |  z/OS SMP/E and z/OSMF Software Management  |  ku...@us.ibm.com

Chuck Norris never uses CHECK when he applies PTFs.

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

Re: Can this be done?

[Adam Johanson]

> Is FAMS-level I/O publicly documented, or only for NDA+$?

NDA+$

I think a first-born child was also involved.

===
Adam Johanson
Broadcom Mainframe Software Division

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

Re: CSVQUERY in ARR routine return code 8 didn't have PLISTVER=MAX On CSVQUERY LIST VERSION THANK YOU

[Joseph Reichman]

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Rob 
Scott
Sent: Friday, December 15, 2023 3:25 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: CSVQUERY in ARR routine return code 8

Joe

A couple of things that might help :

(o) Have you correctly told the CSVQUERY macro about the environment via 
SYSSTATE so that it generates the correct parameter list?
(o) Have you tested it with a known-good LPA address (or module name like 
"IEFBR14") to ensure that you have the basic plumbing correct?
(o) Have you dumped (or breakpointed)  the module to examine the parameter list 
and GPR/AR values just prior to CSVQUERY being invoked?

Rob Scott
Rocket Software

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Joseph Reichman
Sent: Friday, December 15, 2023 12:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: CSVQUERY in ARR routine return code 8

EXTERNAL EMAIL





Hi

I noticed a lot of the info regarding to the abending programs in a ARR 
recovery routine( for a space switching pc rtn)  point to the Home address 
space such as SDWARBAD that address is from the home address space RB

Wanting to get info on the PC rtn running in Primary I coded a CSVQUERY using 
the INADDR parameter having the SDWANXT1 as it value I tried the a full word 
containing the address and a pointer to a fullword containing that address both 
times It returned R15 = 8

When I do a tso TEST where subcommand with this value it recognizes the address 
as Whitin the PC load module

thanks

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


Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: 
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy


This communication and any attachments may contain confidential information of 
Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please notify Rocket 
Software immediately and destroy all copies of this communication. Thank you.

--
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: CSVQUERY in ARR routine return code 8

[Joseph Reichman]

Robb 

I tried the CSVQUERY with the INEPNAME param ( the load module name of the PC 
rtn ) and it returned the correct info 

I didn’t code sysstate as I’m not in AR mode 
Justice PASN not eq HASN as it’s the recovery for a space switching PC rtn 
The inaddr parm I have it pointing to the actual address ( though I tried a 
pointer to that address as well ) and it returned a 8 

Just wondering for a 31 bit address do I need the high order bit on ?

I’ll post my code ( not in front of my computer as the moment )

Thanks 

> On Dec 15, 2023, at 3:25 AM, Rob Scott  wrote:
> 
> Joe
> 
> A couple of things that might help :
> 
> (o) Have you correctly told the CSVQUERY macro about the environment via 
> SYSSTATE so that it generates the correct parameter list?
> (o) Have you tested it with a known-good LPA address (or module name like 
> "IEFBR14") to ensure that you have the basic plumbing correct?
> (o) Have you dumped (or breakpointed)  the module to examine the parameter 
> list and GPR/AR values just prior to CSVQUERY being invoked?
> 
> Rob Scott
> Rocket Software
> 
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of 
> Joseph Reichman
> Sent: Friday, December 15, 2023 12:46 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: CSVQUERY in ARR routine return code 8
> 
> EXTERNAL EMAIL
> 
> 
> 
> 
> 
> Hi
> 
> I noticed a lot of the info regarding to the abending programs in a ARR 
> recovery routine( for a space switching pc rtn)  point to the Home address 
> space such as SDWARBAD that address is from the home address space RB
> 
> Wanting to get info on the PC rtn running in Primary I coded a CSVQUERY using 
> the INADDR parameter having the SDWANXT1 as it value I tried the a full word 
> containing the address and a pointer to a fullword containing that address 
> both times It returned R15 = 8
> 
> When I do a tso TEST where subcommand with this value it recognizes the 
> address as Whitin the PC load module
> 
> thanks
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> 
> Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
> Main Office Toll Free Number: +1 855.577.4323
> Contact Customer Support: 
> https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
> Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
> http://www.rocketsoftware.com/manage-your-email-preferences
> Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
> 
> 
> This communication and any attachments may contain confidential information 
> of Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
> prohibited. If you are not the intended recipient, please notify Rocket 
> Software immediately and destroy all copies of this communication. Thank you.
> 
> --
> 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: CSVQUERY in ARR routine return code 8

[Rob Scott]

Joe

A couple of things that might help :

(o) Have you correctly told the CSVQUERY macro about the environment via 
SYSSTATE so that it generates the correct parameter list?
(o) Have you tested it with a known-good LPA address (or module name like 
"IEFBR14") to ensure that you have the basic plumbing correct?
(o) Have you dumped (or breakpointed)  the module to examine the parameter list 
and GPR/AR values just prior to CSVQUERY being invoked?

Rob Scott
Rocket Software

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Joseph Reichman
Sent: Friday, December 15, 2023 12:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: CSVQUERY in ARR routine return code 8

EXTERNAL EMAIL





Hi

I noticed a lot of the info regarding to the abending programs in a ARR 
recovery routine( for a space switching pc rtn)  point to the Home address 
space such as SDWARBAD that address is from the home address space RB

Wanting to get info on the PC rtn running in Primary I coded a CSVQUERY using 
the INADDR parameter having the SDWANXT1 as it value I tried the a full word 
containing the address and a pointer to a fullword containing that address both 
times It returned R15 = 8

When I do a tso TEST where subcommand with this value it recognizes the address 
as Whitin the PC load module

thanks

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


Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support: 
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy


This communication and any attachments may contain confidential information of 
Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please notify Rocket 
Software immediately and destroy all copies of this communication. Thank you.

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