Re: Unzip on z/OS ?

[Mike Hochee]

http://www.info-zip.org  is a good bet. Whatever product/freeware you choose it 
needs to more or less conform to this format... 
https://pkware.cachefly.net/webdocs/APPNOTE/APPNOTE-6.2.0.txt 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
MARTIN, MIKE
Sent: Thursday, March 23, 2023 10:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Unzip on z/OS ?

Caution! This message was sent from outside your organization.

Hi all,

(This seems like one of those easy answers to find, but I'm not having much 
luck)

We have z/OS 2.4 and we are wondering if we can unzip an ASCII file that was 
zipped on the Windows platform.

I've seen references to gzip, Ported Tools, 3rd party software.   What are our 
options for unzipping a file with the z/OS 2.4?

Mike Martin

This email may contain confidential and privileged material for the sole use of 
the intended recipient. If you are not the intended recipient, please contact 
the sender and delete all copies. Any review or distribution by others is 
strictly prohibited. Personal emails are restricted by policy of the State 
Employees' Credit Union (SECU).  Therefore SECU specifically disclaims any 
responsibility or liability for any personal information or opinions of the 
author expressed in this email.

--
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: Unzip on z/OS ?

[Rahim Azizarab]

is this what you are looking for?   you might find it on cbttape.org or on 
MVS380 distribution 
 Zap** Top of Data 
 //HERC01A  JOB CLASS=A,REGION=0K,MSGCLASS=A,MSGLEVEL=(1,1)    
 //* Now provide some documentation    
 //*   
 //MINIUNZ   EXEC PGM=MINIUNZ,PARM='-a dd:in dd:out'   
 //STEPLIB   DD DSN=PDPCLIB.LINKLIB,DISP=SHR   
 //IN    DD DSN=HERC01.INCBITS3.ZIP,DISP=SHR   
 //*    VOL=SER=CBT777     
 //OUT   DD DSN=GCC.GNUCBL.SRC,DISP=SHR    
 //SYSIN DD DUMMY  
 //SYSPRINT  DD SYSOUT=*   
 //SYSTERM   DD SYSOUT=*   
 //*   



regards;

Rahim 
  



   

 

On Thursday, March 23, 2023 at 09:33:43 AM CDT, MARTIN, MIKE 
<04b29373b847-dmarc-requ...@listserv.ua.edu> wrote:  
 
 Hi all,

(This seems like one of those easy answers to find, but I'm not having much 
luck)

We have z/OS 2.4 and we are wondering if we can unzip an ASCII file that was 
zipped on the Windows platform.

I've seen references to gzip, Ported Tools, 3rd party software.  What are our 
options for unzipping a file with the z/OS 2.4?

Mike Martin

This email may contain confidential and privileged material for the sole use of 
the intended recipient. If you are not the intended recipient, please contact 
the sender and delete all copies. Any review or distribution by others is 
strictly prohibited. Personal emails are restricted by policy of the State 
Employees' Credit Union (SECU).  Therefore SECU specifically disclaims any 
responsibility or liability for any personal information or opinions of the 
author expressed in this email.

--
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: DITTO/ESA V1R3 User’s Guide, SH19-8221

[Seymour J Metz]

I haven't seen them on my GMU account. Did you drop the 3 from smetz3?


From: IBM Mainframe Discussion List  on behalf of 
Pommier, Rex 
Sent: Thursday, March 23, 2023 5:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DITTO/ESA V1R3 User’s Guide, SH19-8221

I just sent you an e-mail (2 actually).  Did you get them?

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Michael Watkins
Sent: Thursday, March 23, 2023 3:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] DITTO/ESA V1R3 User’s Guide, SH19-8221

DITTO/ESA V1R3 User’s Guide, SH19-8221

Does anyone have a .pdf copy of this document that could be emailed to me?

michael.watk...@cpa.texas.gov

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

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to 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: DITTO/ESA V1R3 User’s Guide, SH19-8221

[Pommier, Rex]

I just sent you an e-mail (2 actually).  Did you get them?

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Michael Watkins
Sent: Thursday, March 23, 2023 3:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] DITTO/ESA V1R3 User’s Guide, SH19-8221

DITTO/ESA V1R3 User’s Guide, SH19-8221

Does anyone have a .pdf copy of this document that could be emailed to me?

michael.watk...@cpa.texas.gov

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

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

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

Re: Does BSAM I/O area have to be fixed storage

[Michael Stein]

On Thu, Mar 23, 2023 at 04:16:10PM -0400, Tony Harminc wrote:
> On Thu, 23 Mar 2023 at 08:57, Joseph Reichman  wrote:
> 
> >   STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=(31,64),SP=233
> 
> Does BSAM (or EXCP for that matter) support above-the-bar real storage
> for I/O operations? Format-2 IDAWs or MIDAWs and all that?

Sounds like the answer is yes:

'SC23-6852-03 z-OS DFSMS Macro Instructions for Data Sets V2R2 2015 
dgt3d510.pdf'
BSAM READ Macro 

 Addressing mode: When you issue the READ macro in 24-bit mode, provide
 only 24-bit addresses unless you code SF64 or SF64P. When you issue the
 READ macro in 31-bit addressing mode, provide only 31-bit addresses
 unless documentation says otherwise or you code SF64 or SF64P. With
 SF64 or SF64P, the data area can reside above the 2 GB bar but you
 cannot issue READ in 64-bit mode.

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

Re: Unzip on z/OS ?

[Paul Gilmartin]

On Thu, 23 Mar 2023 21:06:39 +, Seymour J Metz wrote:

>Fixes CRLF, but also  uses a wired-in translation table. The point of using -b 
>is to do your own translation, but that means no CRLF conversion.
> 
A one-line "sed" or "tr" script can fix CRLF.

To what code pages does the wired-in translation table correspond.  Is it 
available on
ASCII-based systems?

-- 
gil

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

Re: Unzip on z/OS ?

[Seymour J Metz]

Fixes CRLF, but also  uses a wired-in translation table. The point of using -b 
is to do your own translation, but that means no CRLF conversion.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Thursday, March 23, 2023 5:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unzip on z/OS ?

On Thu, 23 Mar 2023 20:41:40 +, Seymour J Metz wrote:

>Why use unzip -a if the data are anything but ASCII? use unzip and a separate 
>iconv. You might need another step to deal with line endings; I don't recall.
>
unzip -a also fixes CRLF.

z/OS pax also does code page conversion.  (But not related FILEDATA changes.   
WAD.)
In one case I did three passes of "pax -r" with different filename templates.

--
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: Does BSAM I/O area have to be fixed storage

[Seymour J Metz]

EXCPV4 does. For anything else, consult the PLM (curse you, OCO!)


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Tony Harminc [t...@harminc.net]
Sent: Thursday, March 23, 2023 4:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

On Thu, 23 Mar 2023 at 08:57, Joseph Reichman  wrote:

>   STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=(31,64),SP=233

Does BSAM (or EXCP for that matter) support above-the-bar real storage
for I/O operations? Format-2 IDAWs or MIDAWs and all that?

Tony H.

--
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: Unzip on z/OS ?

[Paul Gilmartin]

On Thu, 23 Mar 2023 20:41:40 +, Seymour J Metz wrote:

>Why use unzip -a if the data are anything but ASCII? use unzip and a separate 
>iconv. You might need another step to deal with line endings; I don't recall.
>
unzip -a also fixes CRLF.

z/OS pax also does code page conversion.  (But not related FILEDATA changes.   
WAD.)
In one case I did three passes of "pax -r" with different filename templates.

-- 
gil

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

DITTO/ESA V1R3 User’s Guide, SH19-8221

[Michael Watkins]

DITTO/ESA V1R3 User’s Guide, SH19-8221

Does anyone have a .pdf copy of this document that could be emailed to me?

michael.watk...@cpa.texas.gov

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

Re: Unzip on z/OS ?

[Seymour J Metz]

Why use unzip -a if the data are anything but ASCII? use unzip and a separate 
iconv. You might need another step to deal with line endings; I don't recall.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Thursday, March 23, 2023 1:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unzip on z/OS ?

On Thu, 23 Mar 2023 16:00:40 +, Seymour J Metz wrote:

>What's wrong with goof old Infozip?
>
NIH.

jar works fine for me, except for files created with 7zip and some of its fancy 
options.

It's very unlikely that zip creates an ASCII file.  Perhaps IBM-1252, UTF-8, 
Quoted-Printable.
Base64, ...?  Or just binary.

with the "-aa" option, Info-Zip might convert ASCII members->EBCDIC, (FSVO 
each.)

>
>From: MARTIN, MIKE
>Sent: Thursday, March 23, 2023 10:33 AM
>...
>We have z/OS 2.4 and we are wondering if we can unzip an ASCII file that was 
>zipped on the Windows platform.
>
>I've seen references to gzip, Ported Tools, 3rd party software.   What are our 
>options for unzipping a file with the z/OS 2.4?

--
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: IBM utility to print an arbitrary block/track on a volume

[Seymour J Metz]

You don't need STARTIO to read an arbitrary track, although you do need AC(1) 
and SAF rights.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
Sent: Thursday, March 23, 2023 1:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: IBM utility to print an arbitrary block/track on a volume

I am sure that such a utility exists, but not finding it.

I hope I don't have to do STARTIO coding for this.

--
Binyamin Dissen 
http://secure-web.cisco.com/16p0yiiMZ96fNoYbJmtEOEUM0_zpPs4uhOBDbwJSrZT4GfALshzYkrL5xQgdGzkGPiS6nQrzSL-_xmtzmyPBrgqWfOHN7RRJ80a_h66J1tYqbD44v0TKpis81S-1hYm90CfSnbU5-Ur-X00HAHFKpmTojNhfmlTsi6Q1wNj83LBr7L5Sjlsu5W88SNzVcDw4bmNA1ChNBdYw1I8JbrByDR1C6e0ZnhYbIu9ZUJrsGTHVtl_J1IRlJwZ_ZMEyxaZoPBlxSdSlbXH-UPZZxqMc5K6RWSVlR0fsvgKs7XeBWYLHJcEho9gJulowvaAFAufwniuWfsl0nTp9cpmCGKno61raWeQSohjR4IpVRkSMbVyy84TAzp462V6r-DrnawKCI9rdfyNQxHQh4Fxzq5w1SkMtwn9-u9GJgpJb3c0NXfvU/http%3A%2F%2Fwww.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

--
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: Does BSAM I/O area have to be fixed storage

[Seymour J Metz]

BSAM really isn't that hard, and I didn't see any errors that he didn't 
correct. I don't know why he's running AC(1), but I also don't know why it's 
acting as though he had FIX=USER. If I had access I'd be looking at the 
relevant control blocks.

Are both IEZIOB and IGGIOBEX available for customer use these days?

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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Thursday, March 23, 2023 1:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

On Thu, 23 Mar 2023 10:03:50 -0400, Joseph Reichman wrote:

>Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a 
>locate mode the user supplied the I/O area
>
My (very old) experience with BSAM agreed with what Seymour says.

Why are you trying to use BSAM.  QSAM is easier.
o Are your records not in a RECFM supported by QSAM?
o Are you concerned with the performance of repeatedly calling GET LOCATE?
o Did you make a bad initial design choice and are unwilling to reconsider?


>> On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote:
>>
>> The access method handles page fixing unless you specify DCBE FIX=USER.

--
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: Does BSAM I/O area have to be fixed storage

[Tony Harminc]

On Thu, 23 Mar 2023 at 08:57, Joseph Reichman  wrote:

>   STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=(31,64),SP=233

Does BSAM (or EXCP for that matter) support above-the-bar real storage
for I/O operations? Format-2 IDAWs or MIDAWs and all that?

Tony H.

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

Re: Is z/OS Name/Token pair retrieval supported from REXX?

[Steve Austin]

After lurking for on here for years, it's nice to have contributed something
some found useful. Please excuse my poor attempt at humour.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Paul Gilmartin
Sent: Thursday, March 23, 2023 6:59 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?

On Thu, 23 Mar 2023 18:46:43 -, Steve Austin wrote:

>... The loop
>is simply to check that server has not ended every 2 seconds.
>
I see.  Thanks.

>I think I got
>the idea from an IBM sample that uses a similar technique to call the
>Catalog Search Interface  from REXX. I didn' t expect a kind of Spanish
>Inquisition(citation Monty Python).
>
A couple of us thought you might have some expertise to share, as you did.

>-Original Message-
>From: Paul Gilmartin
>Sent: Thursday, March 23, 2023 5:19 PM
>> ...
>I'm curious, too.
> ...

--
gil

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

-- 
This e-mail message has been scanned and cleared by Google Message Security 
and the UNICOM Global security systems. This message is for the named 
person's use only. If you receive this message in error, please delete it 
and notify the sender. 

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

IBM z/OS pdfs (was: Typst [non-mainframe])

[Paul Gilmartin]

On Wed, 22 Mar 2023 10:36:12 -0500, Charles Mills wrote:

>I am not a user of typesetting languages so I have no real personal feelings, 
>but I know others here have expressed a fondness for LaTeX, so this 
>announcement caught my eye.
>..."
>The example seems pretty cool to me.
>https://github.com/typst/typst 
>
Just to keep current, I periodically download the 800Mb file of zipped z/OS 
pdfs from

I just did so. it takes about 5 minutes.  The PDFs appear to be compiled by:
Creator:AH XSL Formatter V7.2 MR4 for Linux64 : 7.2.5.55968 
(2022-03-22T13:56+09)
Producer:   Antenna House PDF Output Library 7.2.1783

The PDF internal timestamps are distributed over the last few years, clustering 
in the last
week of each month.

A couple things puzzle/disappoint me:

The HTTP headers contain neither Last-Modified nor ETag validators
,
so there's no way to detect changes except by downloading the entire archive,
extracting it, and comparing the contents to the earlier version.  I've 
submitted
a Feedback on this.

The file timestamps of members of the archive are separated by a few seconds
*during*the*time*of*the*download*!  E.g.:
-rw-r--r--   1 paulgilm wheel   6116035 2023-03-23 12:35:46.0 -0600 
ieam400_v2r5.pdf
-rw-r--r--   1 paulgilm wheel   3541085 2023-03-23 12:35:46.0 -0600 
ieam200_v2r5.pdf
-rw-r--r--   1 paulgilm wheel   2332945 2023-03-23 12:35:48.0 -0600 
ieaw100_v2r5.pdf
-rw-r--r--   1 paulgilm wheel   2793607 2023-03-23 12:35:50.0 -0600 
izua300_v2r5.pdf
-rw-r--r--   1 paulgilm wheel 802485495 2023-03-23 12:35:59.676351911 -0600 
zOSV2R5Library.zip

Do they generate the .zip file dynamically as they pipe it to the HTTPD and does
their zip tool mark each member with the time it was added?

Or even, do the recompile each PDF dynamically  during the zip/download??

Astonishing in either case.

-- 
gil

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

Re: Is z/OS Name/Token pair retrieval supported from REXX?

[Paul Gilmartin]

On Thu, 23 Mar 2023 18:46:43 -, Steve Austin wrote:

>... The loop
>is simply to check that server has not ended every 2 seconds. 
>
I see.  Thanks.

>I think I got
>the idea from an IBM sample that uses a similar technique to call the
>Catalog Search Interface  from REXX. I didn' t expect a kind of Spanish
>Inquisition(citation Monty Python).
>
A couple of us thought you might have some expertise to share, as you did.

>-Original Message-
>From: Paul Gilmartin
>Sent: Thursday, March 23, 2023 5:19 PM
>> ...
>I'm curious, too.
> ...

-- 
gil

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

Re: Is z/OS Name/Token pair retrieval supported from REXX?

[Steve Austin]

The code is taken from a routine I've had running for some time and rather
than change it and potentially introduce an error I left it alone. The loop
is simply to check that server has not ended every 2 seconds. I think I got
the idea from an IBM sample that uses a similar technique to call the
Catalog Search Interface  from REXX. I didn' t expect a kind of Spanish
Inquisition(citation Monty Python).

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Paul Gilmartin
Sent: Thursday, March 23, 2023 5:19 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?

On Wed, 22 Mar 2023 11:30:44 -0400, Steve Smith wrote:

>That's a far more elegant and supported way to do it.  Although the
>loop is presumably part of some other logic.  I converted it into a
>simple demo
>exec:
>
I'm curious, too.
Why the loop?
Why the SLEEP?
Have you an example where they help?  Does the doc recommend that?  Cite?

>/* REXX */
>ARG NAME
>LEVEL = '0004'X
>NAME = LEFT(NAME,16)
>TOKEN = ''X
>RETCODE = ''X
>ADDRESS LINKPGM "IEANTRT  LEVEL NAME  TOKEN RETCODE"
>RCC = C2D(RETCODE)
>SAY "RC:" RCC "NAME:" NAME "TOKEN:" C2X(TOKEN)


>On Wed, Mar 22, 2023 at 4:22 AM Steve Austin wrote:
>>
>> level='0004'x
>> name=left(serverName,16)
>> token=''x
>> retcode=''x
>> do until retcode = '0004'x
>>   "sleep 2"
>>   address LINKPGM "IEANTRT  LEVEL NAME  TOKEN RETCODE"
>> end

--
gil

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

-- 
This e-mail message has been scanned and cleared by Google Message Security 
and the UNICOM Global security systems. This message is for the named 
person's use only. If you receive this message in error, please delete it 
and notify the sender. 

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

Re: IBM utility to print an arbitrary block/track on a volume

[Binyamin Dissen]

Thanks.

ADRDSSU is the way to go.

On Thu, 23 Mar 2023 12:39:22 -0500 "Lionel B. Dyck"  wrote:

:>Try this 
:>
:>//STEP1EXEC  PGM=ADRDSSU
:>//SYSPRINT DDSYSOUT=A
:>//DASD DDUNIT=3380,VOL=(PRIVATE,SER=11),DISP=OLD
:>//SYSINDD*
:> PRINT  TRACKS(1,0,1,5) INDDNAME(DASD)
:>/*
:>
:>From
:>https://www.ibm.com/docs/en/SSLTBW_2.2.0/com.ibm.zos.v2r2.adru000/dgt3u2128.
:>htm
:>
:>
:>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
:>Binyamin Dissen
:>Sent: Thursday, March 23, 2023 12:33 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: IBM utility to print an arbitrary block/track on a volume
:>
:>I am sure that such a utility exists, but not finding it.
:>
:>I hope I don't have to do STARTIO coding for this.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

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

Re: CICSTS56 Deployment thru zOSMF- issue with unzip job

[Ronald Kristel]

There are some SAF requirements in order to succesfully execute deployment 
jobs; define profiles for CB.OS*.** and CB.ST*.** is one of them:

"To deploy a ServerPac Portable Software Instance with z/OSMF Software 
Management, observe the following requirements:

  *   The user ID that you use must have READ access to the SAF (System 
Authorization Facility) resource that protects the IBM data sets that are 
produced during the creation of the ServerPac portable software instance. That 
is, your user ID requires READ access to data set names that begin with 
CB.OS*.** and CB.ST*.**.

"

https://www.ibm.com/docs/en/zos/2.5.0?topic=idsrizpus-driving-system-requirements-installing-zos-other-products-by-using-serverpac-portable-software-instance-zosmf-software-management

Ronald Kristel
Driving system requirements for installing z/OS and other IBM products by using 
a ServerPac portable software instance and z/OSMF Software 
Management
This topic describes the driving system requirements for installing z/OS and 
other IBM products by using a ServerPac portable software instance and z/OSMF 
Software Management.
www.ibm.com


From: IBM Mainframe Discussion List  on behalf of B M 

Sent: Thursday, March 23, 2023 18:40
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: CICSTS56 Deployment thru zOSMF- issue with unzip job

Did anyone face an issue with CICSTS56 deployment job (IZUD01UZ unzip) with 
RACF issue. Looks like a bug with the install job,  and I tried to bypassacs 
that also failing with syntax error.



Appreciate any leads on this?



RESTORE INDD(SYSUT1) -

 DATASET(INCLUDE( -

   CB.OS25.OMVS.CICSTS.CICSTS56 -

 )) -

 RENAMEUNCONDITIONAL( -

   (CB.OS25.OMVS.CICSTS.CICSTS56, -

 SXXX.CICSTS56.ZFS.#) -

 ) -

 OUTDYNAM(I) -

 STORCLAS(NONSMS) VOLCOUNT(ANY) -

 NULLMGMTCLAS -

 CATALOG -

 SHARE CANCELERROR
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE '

ADR109I (R/I)-RI01 (01), 2023.079 17:50:15 INITIAL SCAN OF USER CONTROL 
STATEMENTS COMPLETED

ADR050I (001)-PRIME(01), DFSMSDSS INVOKED VIA APPLICATION INTERFACE

ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK

ADR006I (001)-STEND(01), 2023.079 17:50:15 EXECUTION BEGINS

ADR780I (001)-TDDS (01), THE INPUT DUMP DATA SET BEING PROCESSED IS IN LOGICAL 
DATA SET FORMAT AND WAS CREATED BY

 Z/OS DFSMSDSS VERSION 2 RELEASE 5 MODIFICATION LEVEL 0 
ON 2023.069 14:43:24

ADR402E (001)-AUTH (28), AUTHORIZATION CHECK FAILED FOR DATA SET 
CB.OS25.OMVS.CICSTS.CICSTS56, ON VOLUME

 ZSMSXQ, 4, IN CATALOG CATALOG.MVSICF1.VUSERZ4

ADR415W (001)-TDLOG(01), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY 
VOLUME

ADR480W (001)-TDLOG(01), THE FOLLOWING DATA SETS WERE NOT PROCESSED FROM THE 
LOGICALLY FORMATTED DUMP TAPE DUE TO

 ERRORS:






ICH408I USER(  ) GROUP(XXX) NAME()  084

  CB.OS25.OMVS.CICSTS.CICSTS56 CL(DATASET ) VOL(ZSMSXQ)

  RESOURCE NOT PROTECTED

  ACCESS INTENT(READ   )  ACCESS ALLOWED(NONE   )

PFSTRT01 IUZ GIMUNZIP  00012

Thanks,

BM

--
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: Does BSAM I/O area have to be fixed storage

[Joseph Reichman]

I’m actually doing a presentation at work 

( I hope Seymour will attend )

Most programs here are qsam locate mode 

But there are some BSAM

All most all amode 24 rmode 24

> On Mar 23, 2023, at 1:43 PM, Paul Gilmartin 
> <042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:
> 
> On Thu, 23 Mar 2023 10:03:50 -0400, Joseph Reichman wrote:
> 
>> Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a 
>> locate mode the user supplied the I/O area 
>> 
> My (very old) experience with BSAM agreed with what Seymour says.
> 
> Why are you trying to use BSAM.  QSAM is easier.
> o Are your records not in a RECFM supported by QSAM?
> o Are you concerned with the performance of repeatedly calling GET LOCATE?
> o Did you make a bad initial design choice and are unwilling to reconsider?
> 
> 
 On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote:
>>> 
>>> The access method handles page fixing unless you specify DCBE FIX=USER.
> 
> -- 
> 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: Does BSAM I/O area have to be fixed storage

[Paul Gilmartin]

On Thu, 23 Mar 2023 10:03:50 -0400, Joseph Reichman wrote:

>Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a 
>locate mode the user supplied the I/O area 
>
My (very old) experience with BSAM agreed with what Seymour says.

Why are you trying to use BSAM.  QSAM is easier.
o Are your records not in a RECFM supported by QSAM?
o Are you concerned with the performance of repeatedly calling GET LOCATE?
o Did you make a bad initial design choice and are unwilling to reconsider?


>> On Mar 23, 2023, at 9:40 AM, Seymour J Metz wrote:
>> 
>> The access method handles page fixing unless you specify DCBE FIX=USER.

-- 
gil

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

Re: IBM utility to print an arbitrary block/track on a volume

[Mark Jacobs]

ADRDSSU or AMASPZAP perhaps?

Mark Jacobs 

Sent from ProtonMail, Swiss-based encrypted email.

GPG Public Key - 
https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com


--- Original Message ---
On Thursday, March 23rd, 2023 at 1:32 PM, Binyamin Dissen 
 wrote:


> I am sure that such a utility exists, but not finding it.
> 
> I hope I don't have to do STARTIO coding for this.
> 
> --
> Binyamin Dissen bdis...@dissensoftware.com
> 
> http://www.dissensoftware.com
> 
> Director, Dissen Software, Bar & Grill - Israel
> 
> --
> 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

CICSTS56 Deployment thru zOSMF- issue with unzip job

[B M]

Did anyone face an issue with CICSTS56 deployment job (IZUD01UZ unzip) with 
RACF issue. Looks like a bug with the install job,  and I tried to bypassacs 
that also failing with syntax error.

 

Appreciate any leads on this?

 

RESTORE INDD(SYSUT1) -

 DATASET(INCLUDE( -   

   CB.OS25.OMVS.CICSTS.CICSTS56 - 

 )) - 

 RENAMEUNCONDITIONAL( -   

   (CB.OS25.OMVS.CICSTS.CICSTS56, -   

 SXXX.CICSTS56.ZFS.#) -   

 ) -  

 OUTDYNAM(I) -   

 STORCLAS(NONSMS) VOLCOUNT(ANY) - 

 NULLMGMTCLAS -

 CATALOG -

 SHARE CANCELERROR   
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE ' 
   

ADR109I (R/I)-RI01 (01), 2023.079 17:50:15 INITIAL SCAN OF USER CONTROL 
STATEMENTS COMPLETED

ADR050I (001)-PRIME(01), DFSMSDSS INVOKED VIA APPLICATION INTERFACE 
   

ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK


ADR006I (001)-STEND(01), 2023.079 17:50:15 EXECUTION BEGINS 
   

ADR780I (001)-TDDS (01), THE INPUT DUMP DATA SET BEING PROCESSED IS IN LOGICAL 
DATA SET FORMAT AND WAS CREATED BY  

 Z/OS DFSMSDSS VERSION 2 RELEASE 5 MODIFICATION LEVEL 0 
ON 2023.069 14:43:24   

ADR402E (001)-AUTH (28), AUTHORIZATION CHECK FAILED FOR DATA SET 
CB.OS25.OMVS.CICSTS.CICSTS56, ON VOLUME   

 ZSMSXQ, 4, IN CATALOG CATALOG.MVSICF1.VUSERZ4  
   

ADR415W (001)-TDLOG(01), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY 
VOLUME 

ADR480W (001)-TDLOG(01), THE FOLLOWING DATA SETS WERE NOT PROCESSED FROM THE 
LOGICALLY FORMATTED DUMP TAPE DUE TO  

 ERRORS:
 

 


 

ICH408I USER(  ) GROUP(XXX) NAME()  084

  CB.OS25.OMVS.CICSTS.CICSTS56 CL(DATASET ) VOL(ZSMSXQ)   

  RESOURCE NOT PROTECTED  

  ACCESS INTENT(READ   )  ACCESS ALLOWED(NONE   ) 

PFSTRT01 IUZ GIMUNZIP  00012  

Thanks,

BM

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

Re: IBM utility to print an arbitrary block/track on a volume

[Lionel B. Dyck]

Try this 

//STEP1EXEC  PGM=ADRDSSU
//SYSPRINT DDSYSOUT=A
//DASD DDUNIT=3380,VOL=(PRIVATE,SER=11),DISP=OLD
//SYSINDD*
 PRINT  TRACKS(1,0,1,5) INDDNAME(DASD)
/*

From
https://www.ibm.com/docs/en/SSLTBW_2.2.0/com.ibm.zos.v2r2.adru000/dgt3u2128.
htm


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
Binyamin Dissen
Sent: Thursday, March 23, 2023 12:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: IBM utility to print an arbitrary block/track on a volume

I am sure that such a utility exists, but not finding it.

I hope I don't have to do STARTIO coding for this.

--
Binyamin Dissen  http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

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

IBM utility to print an arbitrary block/track on a volume

[Binyamin Dissen]

I am sure that such a utility exists, but not finding it.

I hope I don't have to do STARTIO coding for this.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

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

Re: Dynamic information Retrieval - TU C012

[Binyamin Dissen]

On Thu, 23 Mar 2023 08:18:08 -0500 Scott Ballentine 
wrote:

:>Dynamic Information Retrieval doesn't read the data set to determine 
information - it looks at what is known about it in SWA.  So unless it knows 
the information you're looking for - for example, the DD is coded in JCL and 
has the relevant keyword specified, or maybe you've OPENed the DD so that OPEN 
processing retrieves some of that information from the data set and puts it in 
SWA - then Dynamic Information Retrieval doesn't have the information to return 
to you.

Thanks. That is what my research showed.

Worth putting in the manual.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

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

Re: Is z/OS Name/Token pair retrieval supported from REXX?

[Paul Gilmartin]

On Wed, 22 Mar 2023 11:30:44 -0400, Steve Smith wrote:

>That's a far more elegant and supported way to do it.  Although the loop is
>presumably part of some other logic.  I converted it into a simple demo
>exec:
>
I'm curious, too.
Why the loop?
Why the SLEEP?
Have you an example where they help?  Does the doc recommend that?  Cite?

>/* REXX */
>ARG NAME
>LEVEL = '0004'X
>NAME = LEFT(NAME,16)
>TOKEN = ''X
>RETCODE = ''X
>ADDRESS LINKPGM "IEANTRT  LEVEL NAME  TOKEN RETCODE"
>RCC = C2D(RETCODE)
>SAY "RC:" RCC "NAME:" NAME "TOKEN:" C2X(TOKEN)


>On Wed, Mar 22, 2023 at 4:22 AM Steve Austin wrote:
>>
>> level='0004'x
>> name=left(serverName,16)
>> token=''x
>> retcode=''x
>> do until retcode = '0004'x
>>   "sleep 2"
>>   address LINKPGM "IEANTRT  LEVEL NAME  TOKEN RETCODE"
>> end

-- 
gil

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

Re: watching JIT generated machine instructions on z/OS

[René Jansen]

Thank you! Wonderful. This is probably the BCD Assist that is mentioned in 
https://www.websphereusergroup.co.uk/wug/presentations/40/Whats_new_In_IBM_Java_8.pdf
 .

René.

> On 23 Mar 2023, at 03:29, Andrew Rowley  wrote:
> 
> On 23/03/2023 11:39 am, David Crayford wrote:
>> FYI, the OpenJ9 JIT can implement JIT intrinsics to generate native decimal 
>> instructions when running on z/OS. IBM have open source OpenJ9 and OMR so 
>> you can snoop around the code 
>> https://github.com/eclipse-openj9/openj9/blob/master/jcl/src/openj9.dataaccess/share/classes/com/ibm/dataaccess/DecimalData.java
> 
> More interesting is:
> https://github.com/eclipse-openj9/openj9/blob/master/jcl/src/java.base/share/classes/com/ibm/jit/BigDecimalExtension.java
> 
> since that implies DFP is used for BigDecimal calculations.
> 
> However, BigDecimal is immutable so by specification calculations create a 
> new object for every intermediate value. Hopefully the compiler can optimize 
> away most of them, if you require maximum performance.
> 
> -- 
> Andrew Rowley
> Black Hill Software
> 
> --
> 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: Unzip on z/OS ?

[Paul Gilmartin]

On Thu, 23 Mar 2023 16:00:40 +, Seymour J Metz wrote:

>What's wrong with goof old Infozip?
>
NIH.

jar works fine for me, except for files created with 7zip and some of its fancy 
options.

It's very unlikely that zip creates an ASCII file.  Perhaps IBM-1252, UTF-8, 
Quoted-Printable.
Base64, ...?  Or just binary.

with the "-aa" option, Info-Zip might convert ASCII members->EBCDIC, (FSVO 
each.)

>
>From: MARTIN, MIKE
>Sent: Thursday, March 23, 2023 10:33 AM
>...
>We have z/OS 2.4 and we are wondering if we can unzip an ASCII file that was 
>zipped on the Windows platform.
>
>I've seen references to gzip, Ported Tools, 3rd party software.   What are our 
>options for unzipping a file with the z/OS 2.4?

-- 
gil

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

Re: Check my math?

[Paul Gilmartin]

On Thu, 23 Mar 2023 09:34:02 -0500, John McKown wrote:

>I got curious about how many possible different values could exist in a
>dataset "node". A node can be 1 to 8 characters long. The first character
>must be A-Z @#$ or 29 characters. Subsequent characters are those 29 plus
>digits 0-9 and a dash (the dash was a surprise to me). Unless I goofed up,
>that means that a single node can have a bit over 4.8 trillion unique
>values.
>
>Did I do something wrong? This seems way too large a number.
>
Dash is weird.  It's accepted in DSN=... but a syntax error in DCB=...
(Used to be.  I can't find it documented.  Has it been fixed?)

Is there  any reason for that, or even any explanation other than Conway's Law?

Lots more, of course, with DISABLE(DSNCHECK).

-- 
gil

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

Re: Check my math?

[Tom Brennan]

Thanks for that!  I was lost as usual with math.
https://www.youtube.com/watch?v=NO0cvqT1tAE

On 3/23/2023 8:48 AM, Phil Smith III wrote:

Steve Smith added:

Seems reasonable to me.  Don't forget to add the shorts (node length <8).


To summarize:
8-character node:   29*(40**7) 4,751,360,000,000
7-character node:   29*(40**6) 118,784,000,000
6-character node:   29*(40**5) 2,969,600,000
5-character node:   29*(40**4) 74,240,000
4-character node:   29*(40**3) 1,856,000
3-character node:   29*(40**2) 46,400
2-character node:   29*(40**1) 1,160
1-character node:   29*(40**0) 29
=
TOTAL
4,873,189,743,589


--
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: Unzip on z/OS ?

[Seymour J Metz]

What's wrong with goof old Infozip?


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
MARTIN, MIKE [04b29373b847-dmarc-requ...@listserv.ua.edu]
Sent: Thursday, March 23, 2023 10:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Unzip on z/OS ?

Hi all,

(This seems like one of those easy answers to find, but I'm not having much 
luck)

We have z/OS 2.4 and we are wondering if we can unzip an ASCII file that was 
zipped on the Windows platform.

I've seen references to gzip, Ported Tools, 3rd party software.   What are our 
options for unzipping a file with the z/OS 2.4?

Mike Martin

This email may contain confidential and privileged material for the sole use of 
the intended recipient. If you are not the intended recipient, please contact 
the sender and delete all copies. Any review or distribution by others is 
strictly prohibited. Personal emails are restricted by policy of the State 
Employees' Credit Union (SECU).  Therefore SECU specifically disclaims any 
responsibility or liability for any personal information or opinions of the 
author expressed in this email.

--
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: Does BSAM I/O area have to be fixed storage

[Joseph Reichman]

Did listpsw at breakpoint was key 8 problem bit bit 15 was one 

Open ok Read ok and got IOAREA 



> On Mar 23, 2023, at 11:39 AM, Joseph Reichman  wrote:
> 
> You are absolutely right I’ll fix pronto
> 
>>> On Mar 23, 2023, at 11:38 AM, Michael Stein  wrote:
>>> 
>>> On Thu, Mar 23, 2023 at 08:56:43AM -0400, Joseph Reichman wrote:
>>> Here is the code if you page down the email you will see "Here is the
>>> DCB//DECB/DCBE and exlst code" 
>> 
>> Another partial source which ignores that you are authorized.
>> 
>> When you are authorized (especially key zero/system key/supervisor)
>> the system calls have different behavior.
>> 
>> subpools for example:
>> 
>> https://www.ibm.com/docs/en/zos/2.1.0?topic=summary-storage-subpools
>> 
>> 6.  Subpools 0-127, 131, and 132 are the only valid subpools for
>>   unauthorized programs. A request by an unauthorized program for a
>>   subpool other than 0-127, 131, or 132 causes abnormal termination
>>   of the program.
>> 
>>> As I said when get the I/O area from sp=0 I abend 800 rc 4 from sp=233 which
>>> is fixed its okay 
>> 
>> https://www.ibm.com/docs/en/zos/2.1.0?topic=codes-800
>> 
>>  800
>>  Explanation
>>  During processing of an I/O request, execute channel program (EXCP)
>>  processing encountered an error. Most instances of the X'800' ABEND code
>>  have a reason code that explains the error. After the pages for a buffer
>>  were fixed, an LRA instruction for a page in the buffer got a nonzero
>>  condition code. This means that page is not valid.
>> 
>>  04
>>  A program issued SVC 114, the EXCPVR macro, but an error occurred during
>>  page-fix or page-unfix processing. A page-fix error can occur if the EXCP
>>  processor tries to fix pages that are not assigned to the caller's ASID.
>> 
>> So you convinced BSAM to use some authorized path for the I/O and
>> tried to use as buffers storage it couldn't use for I/O...
>> 
>> Try BSAM without authorization first and don't include any extra options
>> you haven't researched, especially ones requiring authorization.
>> 
>> The default for QSAM is that the open routine gets the buffers and
>> you don't deal with buffers, you just get records.
>> 
>> The default for BSAM is that you supply the buffers.  The buffers
>> can come from:
>> 
>> a. you request storage from the system via getmain or storage etc..
>> 
>> b. you have the access method buffer management routines get 
>>  buffers which you then ask for buffers.
>> 
>> SC23-6852-03 z-OS DFSMS Macro Instructions for Data Sets V2R2 2015 
>> dgt3d510.pdf
>> 
>>  The BUILD macro is used to construct a buffer pool in an area provided
>>  by the problem program. The buffer pool can be used by more than one
>>  data set through separate data control blocks. For BDAM, BISAM, BPAM
>>  and BSAM your program can obtain individual buffers from the buffer
>>  pool using the GETBUF macro, and return them to the buffer pool using
>>  a FREEBUF macro. For QISAM and QSAM, OPEN obtains buffers from and
>>  CLOSE returns buffers to the buffer pool. See z/OS DFSMS Using Data
>>  Sets for an explanation of the interaction of the DCB, BUILD, and
>>  GETBUF macros in each access method, and the buffer size requirements.
>> 
>> c. storage in your program (obviously not reentrant).
>> 
>> I've never taken path (b), only (a) or (c).
>> 
>> --
>> 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: Check my math?

[Phil Smith III]

Steve Smith added:
>Seems reasonable to me.  Don't forget to add the shorts (node length <8).

To summarize:
8-character node:   29*(40**7) 4,751,360,000,000
7-character node:   29*(40**6) 118,784,000,000
6-character node:   29*(40**5) 2,969,600,000
5-character node:   29*(40**4) 74,240,000
4-character node:   29*(40**3) 1,856,000
3-character node:   29*(40**2) 46,400
2-character node:   29*(40**1) 1,160
1-character node:   29*(40**0) 29
=
TOTAL
4,873,189,743,589


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

Re: Check my math?

[Seymour J Metz]

Woops! Taking that into account I get 4.87318974, which is just over.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Steve Smith [sasd...@gmail.com]
Sent: Thursday, March 23, 2023 11:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Check my math?

Seems reasonable to me.  Don't forget to add the shorts (node length <8).

sas

On Thu, Mar 23, 2023 at 11:00 AM Seymour J Metz  wrote:

> I get 4.75136 trillion, just under rather than over.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of John McKown [john.archie.mck...@gmail.com]
> Sent: Thursday, March 23, 2023 10:34 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Check my math?
>
> I got curious about how many possible different values could exist in a
> dataset "node". A node can be 1 to 8 characters long. The first character
> must be A-Z @#$ or 29 characters. Subsequent characters are those 29 plus
> digits 0-9 and a dash (the dash was a surprise to me). Unless I goofed up,
> that means that a single node can have a bit over 4.8 trillion unique
> values.
>
> Did I do something wrong? This seems way too large a number.
>
>

--
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: Does BSAM I/O area have to be fixed storage

[Joseph Reichman]

You are absolutely right I’ll fix pronto

> On Mar 23, 2023, at 11:38 AM, Michael Stein  wrote:
> 
> On Thu, Mar 23, 2023 at 08:56:43AM -0400, Joseph Reichman wrote:
>> Here is the code if you page down the email you will see "Here is the
>> DCB//DECB/DCBE and exlst code" 
> 
> Another partial source which ignores that you are authorized.
> 
> When you are authorized (especially key zero/system key/supervisor)
> the system calls have different behavior.
> 
> subpools for example:
> 
> https://www.ibm.com/docs/en/zos/2.1.0?topic=summary-storage-subpools
> 
> 6.  Subpools 0-127, 131, and 132 are the only valid subpools for
>unauthorized programs. A request by an unauthorized program for a
>subpool other than 0-127, 131, or 132 causes abnormal termination
>of the program.
> 
>> As I said when get the I/O area from sp=0 I abend 800 rc 4 from sp=233 which
>> is fixed its okay 
> 
> https://www.ibm.com/docs/en/zos/2.1.0?topic=codes-800
> 
>   800
>   Explanation
>   During processing of an I/O request, execute channel program (EXCP)
>   processing encountered an error. Most instances of the X'800' ABEND code
>   have a reason code that explains the error. After the pages for a buffer
>   were fixed, an LRA instruction for a page in the buffer got a nonzero
>   condition code. This means that page is not valid.
> 
>   04
>   A program issued SVC 114, the EXCPVR macro, but an error occurred during
>   page-fix or page-unfix processing. A page-fix error can occur if the EXCP
>   processor tries to fix pages that are not assigned to the caller's ASID.
> 
> So you convinced BSAM to use some authorized path for the I/O and
> tried to use as buffers storage it couldn't use for I/O...
> 
> Try BSAM without authorization first and don't include any extra options
> you haven't researched, especially ones requiring authorization.
> 
> The default for QSAM is that the open routine gets the buffers and
> you don't deal with buffers, you just get records.
> 
> The default for BSAM is that you supply the buffers.  The buffers
> can come from:
> 
> a. you request storage from the system via getmain or storage etc..
> 
> b. you have the access method buffer management routines get 
>   buffers which you then ask for buffers.
> 
> SC23-6852-03 z-OS DFSMS Macro Instructions for Data Sets V2R2 2015 
> dgt3d510.pdf
> 
>   The BUILD macro is used to construct a buffer pool in an area provided
>   by the problem program. The buffer pool can be used by more than one
>   data set through separate data control blocks. For BDAM, BISAM, BPAM
>   and BSAM your program can obtain individual buffers from the buffer
>   pool using the GETBUF macro, and return them to the buffer pool using
>   a FREEBUF macro. For QISAM and QSAM, OPEN obtains buffers from and
>   CLOSE returns buffers to the buffer pool. See z/OS DFSMS Using Data
>   Sets for an explanation of the interaction of the DCB, BUILD, and
>   GETBUF macros in each access method, and the buffer size requirements.
> 
> c. storage in your program (obviously not reentrant).
> 
> I've never taken path (b), only (a) or (c).
> 
> --
> 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: Does BSAM I/O area have to be fixed storage

[Michael Stein]

On Thu, Mar 23, 2023 at 08:56:43AM -0400, Joseph Reichman wrote:
> Here is the code if you page down the email you will see "Here is the
> DCB//DECB/DCBE and exlst code" 

Another partial source which ignores that you are authorized.

When you are authorized (especially key zero/system key/supervisor)
the system calls have different behavior.

subpools for example:

https://www.ibm.com/docs/en/zos/2.1.0?topic=summary-storage-subpools

6.  Subpools 0-127, 131, and 132 are the only valid subpools for
unauthorized programs. A request by an unauthorized program for a
subpool other than 0-127, 131, or 132 causes abnormal termination
of the program.
  
> As I said when get the I/O area from sp=0 I abend 800 rc 4 from sp=233 which
> is fixed its okay 

https://www.ibm.com/docs/en/zos/2.1.0?topic=codes-800

   800
   Explanation
   During processing of an I/O request, execute channel program (EXCP)
   processing encountered an error. Most instances of the X'800' ABEND code
   have a reason code that explains the error. After the pages for a buffer
   were fixed, an LRA instruction for a page in the buffer got a nonzero
   condition code. This means that page is not valid.

   04
   A program issued SVC 114, the EXCPVR macro, but an error occurred during
   page-fix or page-unfix processing. A page-fix error can occur if the EXCP
   processor tries to fix pages that are not assigned to the caller's ASID.

So you convinced BSAM to use some authorized path for the I/O and
tried to use as buffers storage it couldn't use for I/O...

Try BSAM without authorization first and don't include any extra options
you haven't researched, especially ones requiring authorization.

The default for QSAM is that the open routine gets the buffers and
you don't deal with buffers, you just get records.

The default for BSAM is that you supply the buffers.  The buffers
can come from:

a. you request storage from the system via getmain or storage etc..

b. you have the access method buffer management routines get 
   buffers which you then ask for buffers.

SC23-6852-03 z-OS DFSMS Macro Instructions for Data Sets V2R2 2015 dgt3d510.pdf

   The BUILD macro is used to construct a buffer pool in an area provided
   by the problem program. The buffer pool can be used by more than one
   data set through separate data control blocks. For BDAM, BISAM, BPAM
   and BSAM your program can obtain individual buffers from the buffer
   pool using the GETBUF macro, and return them to the buffer pool using
   a FREEBUF macro. For QISAM and QSAM, OPEN obtains buffers from and
   CLOSE returns buffers to the buffer pool. See z/OS DFSMS Using Data
   Sets for an explanation of the interaction of the DCB, BUILD, and
   GETBUF macros in each access method, and the buffer size requirements.

c. storage in your program (obviously not reentrant).

I've never taken path (b), only (a) or (c).

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

Re: Check my math?

[John McKown]

Ok. At least I'm close. Thanks.

On Thu, Mar 23, 2023, 10:00 Seymour J Metz  wrote:

> I get 4.75136 trillion, just under rather than over.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of John McKown [john.archie.mck...@gmail.com]
> Sent: Thursday, March 23, 2023 10:34 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Check my math?
>
> I got curious about how many possible different values could exist in a
> dataset "node". A node can be 1 to 8 characters long. The first character
> must be A-Z @#$ or 29 characters. Subsequent characters are those 29 plus
> digits 0-9 and a dash (the dash was a surprise to me). Unless I goofed up,
> that means that a single node can have a bit over 4.8 trillion unique
> values.
>
> Did I do something wrong? This seems way too large a number.
>
> --
> 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: Check my math?

[Steve Smith]

Seems reasonable to me.  Don't forget to add the shorts (node length <8).

sas

On Thu, Mar 23, 2023 at 11:00 AM Seymour J Metz  wrote:

> I get 4.75136 trillion, just under rather than over.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of John McKown [john.archie.mck...@gmail.com]
> Sent: Thursday, March 23, 2023 10:34 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Check my math?
>
> I got curious about how many possible different values could exist in a
> dataset "node". A node can be 1 to 8 characters long. The first character
> must be A-Z @#$ or 29 characters. Subsequent characters are those 29 plus
> digits 0-9 and a dash (the dash was a surprise to me). Unless I goofed up,
> that means that a single node can have a bit over 4.8 trillion unique
> values.
>
> Did I do something wrong? This seems way too large a number.
>
>

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

Re: Check my math?

[Michael Babcock]

Same here.

On Thu, Mar 23, 2023 at 10:00 AM Seymour J Metz  wrote:

> I get 4.75136 trillion, just under rather than over.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of John McKown [john.archie.mck...@gmail.com]
> Sent: Thursday, March 23, 2023 10:34 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Check my math?
>
> I got curious about how many possible different values could exist in a
> dataset "node". A node can be 1 to 8 characters long. The first character
> must be A-Z @#$ or 29 characters. Subsequent characters are those 29 plus
> digits 0-9 and a dash (the dash was a surprise to me). Unless I goofed up,
> that means that a single node can have a bit over 4.8 trillion unique
> values.
>
> Did I do something wrong? This seems way too large a number.
>
> --
> 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
>
-- 
Michael Babcock
OneMain Financial
z/OS Systems Programmer, Lead

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

Re: Check my math?

[Seymour J Metz]

I get 4.75136 trillion, just under rather than over.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
John McKown [john.archie.mck...@gmail.com]
Sent: Thursday, March 23, 2023 10:34 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Check my math?

I got curious about how many possible different values could exist in a
dataset "node". A node can be 1 to 8 characters long. The first character
must be A-Z @#$ or 29 characters. Subsequent characters are those 29 plus
digits 0-9 and a dash (the dash was a surprise to me). Unless I goofed up,
that means that a single node can have a bit over 4.8 trillion unique
values.

Did I do something wrong? This seems way too large a number.

--
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: Does BSAM I/O area have to be fixed storage

[Joseph Reichman]

FIXED=USER 

Worked no abend I also have to say that I took 
The RMODE31=BUFF out since it’s not relevant for bsam and I had ADDR=(1)
And included LR R6,R1

Thank you 

> On Mar 23, 2023, at 10:49 AM, Seymour J Metz  wrote:
> 
> If your DCBE doesn't have FIXED=USER then the page fix shouldn't be needed 
> and something else is wrong.
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Joseph Reichman [reichman...@gmail.com]
> Sent: Thursday, March 23, 2023 10:26 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Does BSAM I/O area have to be fixed storage
> 
> So I’ll try using FIX=USER ? And ADDR=(1)
> 
>> On Mar 23, 2023, at 10:22 AM, Seymour J Metz  wrote:
>> 
>> FSVO QSAM.
>> 
>> "FIXED=USER
>> With this DCBE option, you assert that the data areas remain fixed from the 
>> time the READ or WRITE
>> macro instruction is issued through the completion of the CHECK or WAIT 
>> macro instruction."
>> 
>> Three out of four of those macros are BASm, and the last isn't part of the 
>> access methods.
>> 
>> SP0 is normal for BSAM buffers. try
>> 
>>STORAGE OBTAIN,...,ADDR=(1)
>>LR  R6,R1
>> 
>> 
>> --
>> Shmuel (Seymour J.) Metz
>> http://mason.gmu.edu/~smetz3
>> 
>> 
>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>> Joseph Reichman [reichman...@gmail.com]
>> Sent: Thursday, March 23, 2023 10:03 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: Does BSAM I/O area have to be fixed storage
>> 
>> Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a 
>> locate mode the user supplied the I/O area
>> 
>> This snippet is from code that is re-entrant
>> 
>> I remember a long time ago I wrote program here at the IRS using bsam and 
>> got storage from subpool zero
>> 
>> There is one program here at the IRS that uses bsam most of the programs are 
>>  qsam in locate mode I would ask but they don’t like it if I contact 
>> developers
>> 
>> 
>> 
 On Mar 23, 2023, at 9:40 AM, Seymour J Metz  wrote:
>>> 
>>> The access method handles page fixing unless you specify DCBE FIX=USER.
>>> 
>>> 
>>> --
>>> Shmuel (Seymour J.) Metz
>>> http://mason.gmu.edu/~smetz3
>>> 
>>> 
>>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>>> Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
>>> Sent: Thursday, March 23, 2023 9:03 AM
>>> To: IBM-MAIN@LISTSERV.UA.EDU
>>> Subject: Re: Does BSAM I/O area have to be fixed storage
>>> 
> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote:
 
 It is normal to obtaon buffers from subpool 0. It is not normal to specify 
 DCBE options that you don't want'
 
>>> I coded some BSAM long ago, 370 era.  I never bothered with fixing pages.
>>> I assumed/was told the access method did that for me.  I suspect it was
>>> for compatibility with 360.
>>> 
 Please include the relevant DCBE with code that you post.
 
 BTW, the DFSMSdfp documentation discusses what can be above the line line 
 and how to support it.
>>> 
>>> --
>>> 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
>> 
>> --
>> 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: Does BSAM I/O area have to be fixed storage

[Seymour J Metz]

If your DCBE doesn't have FIXED=USER then the page fix shouldn't be needed and 
something else is wrong.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Joseph Reichman [reichman...@gmail.com]
Sent: Thursday, March 23, 2023 10:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

So I’ll try using FIX=USER ? And ADDR=(1)

> On Mar 23, 2023, at 10:22 AM, Seymour J Metz  wrote:
>
> FSVO QSAM.
>
> "FIXED=USER
> With this DCBE option, you assert that the data areas remain fixed from the 
> time the READ or WRITE
> macro instruction is issued through the completion of the CHECK or WAIT macro 
> instruction."
>
> Three out of four of those macros are BASm, and the last isn't part of the 
> access methods.
>
> SP0 is normal for BSAM buffers. try
>
> STORAGE OBTAIN,...,ADDR=(1)
> LR  R6,R1
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Joseph Reichman [reichman...@gmail.com]
> Sent: Thursday, March 23, 2023 10:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Does BSAM I/O area have to be fixed storage
>
> Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a 
> locate mode the user supplied the I/O area
>
> This snippet is from code that is re-entrant
>
> I remember a long time ago I wrote program here at the IRS using bsam and got 
> storage from subpool zero
>
> There is one program here at the IRS that uses bsam most of the programs are  
> qsam in locate mode I would ask but they don’t like it if I contact developers
>
>
>
>> On Mar 23, 2023, at 9:40 AM, Seymour J Metz  wrote:
>>
>> The access method handles page fixing unless you specify DCBE FIX=USER.
>>
>>
>> --
>> Shmuel (Seymour J.) Metz
>> http://mason.gmu.edu/~smetz3
>>
>> 
>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>> Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
>> Sent: Thursday, March 23, 2023 9:03 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: Does BSAM I/O area have to be fixed storage
>>
 On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote:
>>>
>>> It is normal to obtaon buffers from subpool 0. It is not normal to specify 
>>> DCBE options that you don't want'
>>>
>> I coded some BSAM long ago, 370 era.  I never bothered with fixing pages.
>> I assumed/was told the access method did that for me.  I suspect it was
>> for compatibility with 360.
>>
>>> Please include the relevant DCBE with code that you post.
>>>
>>> BTW, the DFSMSdfp documentation discusses what can be above the line line 
>>> and how to support it.
>>
>> --
>> 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
>
> --
> 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: Unzip on z/OS ?

[Denis]

If you have Java on z/OS, try the jar command.jar xf zipfile


-Original Message-
From: MARTIN, MIKE <04b29373b847-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Thu, Mar 23, 2023 3:33 pm
Subject: Unzip on z/OS ?

Hi all,

(This seems like one of those easy answers to find, but I'm not having much 
luck)

We have z/OS 2.4 and we are wondering if we can unzip an ASCII file that was 
zipped on the Windows platform.

I've seen references to gzip, Ported Tools, 3rd party software.  What are our 
options for unzipping a file with the z/OS 2.4?

Mike Martin

This email may contain confidential and privileged material for the sole use of 
the intended recipient. If you are not the intended recipient, please contact 
the sender and delete all copies. Any review or distribution by others is 
strictly prohibited. Personal emails are restricted by policy of the State 
Employees' Credit Union (SECU).  Therefore SECU specifically disclaims any 
responsibility or liability for any personal information or opinions of the 
author expressed in this email.

--
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: Does BSAM I/O area have to be fixed storage

[Seymour J Metz]

It is documented that BSAM buffers must be page fixed by the user *ONLY* if the 
DCBE specifies FIXED=USER. The problem lies elsewhere.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Kirk Wolf [k...@wolf-associates.com]
Sent: Thursday, March 23, 2023 10:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

Is it documented by IBM that BSAM IO buffers must be in fixed storage?  I've 
never seen it.
Further, we have written widely used BSAM code in the last 15 years that uses a 
circular queue of DECBs, with one BLKSIZE buffer per DECB  (as suggested by 
"Using Data Sets").   We just use 31 bit C Library HEAP storage.

Kirk Wolf
Dovetailed Technologies

On Thu, Mar 23, 2023, at 9:22 AM, Seymour J Metz wrote:
> FSVO QSAM.
>
> "FIXED=USER
> With this DCBE option, you assert that the data areas remain fixed from the 
> time the READ or WRITE
> macro instruction is issued through the completion of the CHECK or WAIT macro 
> instruction."
>
> Three out of four of those macros are BASm, and the last isn't part of the 
> access methods.
>
> SP0 is normal for BSAM buffers. try
>
>  STORAGE OBTAIN,...,ADDR=(1)
>  LR  R6,R1
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Joseph Reichman [reichman...@gmail.com]
> Sent: Thursday, March 23, 2023 10:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Does BSAM I/O area have to be fixed storage
>
> Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a 
> locate mode the user supplied the I/O area
>
> This snippet is from code that is re-entrant
>
> I remember a long time ago I wrote program here at the IRS using bsam and got 
> storage from subpool zero
>
> There is one program here at the IRS that uses bsam most of the programs are  
> qsam in locate mode I would ask but they don’t like it if I contact developers
>
>
>
> > On Mar 23, 2023, at 9:40 AM, Seymour J Metz  wrote:
> >
> > The access method handles page fixing unless you specify DCBE FIX=USER.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> > 
> > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> > Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
> > Sent: Thursday, March 23, 2023 9:03 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Does BSAM I/O area have to be fixed storage
> >
> >> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote:
> >>
> >> It is normal to obtaon buffers from subpool 0. It is not normal to specify 
> >> DCBE options that you don't want'
> >>
> > I coded some BSAM long ago, 370 era.  I never bothered with fixing pages.
> > I assumed/was told the access method did that for me.  I suspect it was
> > for compatibility with 360.
> >
> >> Please include the relevant DCBE with code that you post.
> >>
> >> BTW, the DFSMSdfp documentation discusses what can be above the line line 
> >> and how to support it.
> >
> > --
> > 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
>
> --
> 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: Unzip on z/OS ?

[Lionel B. Dyck]

You can get a port of unzip from https://github.com/ZOSOpenTools/unzipport

To get the executable go here
https://github.com/ZOSOpenTools/unzipport/releases/tag/unzipport_601

Hope this helps



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
MARTIN, MIKE
Sent: Thursday, March 23, 2023 9:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Unzip on z/OS ?

Hi all,

(This seems like one of those easy answers to find, but I'm not having much
luck)

We have z/OS 2.4 and we are wondering if we can unzip an ASCII file that was
zipped on the Windows platform.

I've seen references to gzip, Ported Tools, 3rd party software.   What are
our options for unzipping a file with the z/OS 2.4?

Mike Martin

This email may contain confidential and privileged material for the sole use
of the intended recipient. If you are not the intended recipient, please
contact the sender and delete all copies. Any review or distribution by
others is strictly prohibited. Personal emails are restricted by policy of
the State Employees' Credit Union (SECU).  Therefore SECU specifically
disclaims any responsibility or liability for any personal information or
opinions of the author expressed in this email.

--
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: Unzip on z/OS ?

[John McKown]

I am not sure, but GIMUNZUP might work. It's designed for SMPE, but might
work. Or write a Java program to do an unzip.

https://www.ibm.com/docs/en/zos/2.2.0?topic=routines-gimunzip-file-extraction-service-routine


On Thu, Mar 23, 2023, 09:33 MARTIN, MIKE <
04b29373b847-dmarc-requ...@listserv.ua.edu> wrote:

> Hi all,
>
> (This seems like one of those easy answers to find, but I'm not having
> much luck)
>
> We have z/OS 2.4 and we are wondering if we can unzip an ASCII file that
> was zipped on the Windows platform.
>
> I've seen references to gzip, Ported Tools, 3rd party software.   What are
> our options for unzipping a file with the z/OS 2.4?
>
> Mike Martin
>
> This email may contain confidential and privileged material for the sole
> use of the intended recipient. If you are not the intended recipient,
> please contact the sender and delete all copies. Any review or distribution
> by others is strictly prohibited. Personal emails are restricted by policy
> of the State Employees' Credit Union (SECU).  Therefore SECU specifically
> disclaims any responsibility or liability for any personal information or
> opinions of the author expressed in this email.
>
> --
> 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

Check my math?

[John McKown]

I got curious about how many possible different values could exist in a
dataset "node". A node can be 1 to 8 characters long. The first character
must be A-Z @#$ or 29 characters. Subsequent characters are those 29 plus
digits 0-9 and a dash (the dash was a surprise to me). Unless I goofed up,
that means that a single node can have a bit over 4.8 trillion unique
values.

Did I do something wrong? This seems way too large a number.

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

Unzip on z/OS ?

[MARTIN, MIKE]

Hi all,

(This seems like one of those easy answers to find, but I'm not having much 
luck)

We have z/OS 2.4 and we are wondering if we can unzip an ASCII file that was 
zipped on the Windows platform.

I've seen references to gzip, Ported Tools, 3rd party software.   What are our 
options for unzipping a file with the z/OS 2.4?

Mike Martin

This email may contain confidential and privileged material for the sole use of 
the intended recipient. If you are not the intended recipient, please contact 
the sender and delete all copies. Any review or distribution by others is 
strictly prohibited. Personal emails are restricted by policy of the State 
Employees' Credit Union (SECU).  Therefore SECU specifically disclaims any 
responsibility or liability for any personal information or opinions of the 
author expressed in this email.

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

Re: Does BSAM I/O area have to be fixed storage

[Kirk Wolf]

Is it documented by IBM that BSAM IO buffers must be in fixed storage?  I've 
never seen it.
Further, we have written widely used BSAM code in the last 15 years that uses a 
circular queue of DECBs, with one BLKSIZE buffer per DECB  (as suggested by 
"Using Data Sets").   We just use 31 bit C Library HEAP storage.

Kirk Wolf
Dovetailed Technologies

On Thu, Mar 23, 2023, at 9:22 AM, Seymour J Metz wrote:
> FSVO QSAM.
> 
> "FIXED=USER
> With this DCBE option, you assert that the data areas remain fixed from the 
> time the READ or WRITE
> macro instruction is issued through the completion of the CHECK or WAIT macro 
> instruction." 
> 
> Three out of four of those macros are BASm, and the last isn't part of the 
> access methods.
> 
> SP0 is normal for BSAM buffers. try
> 
>  STORAGE OBTAIN,...,ADDR=(1)
>  LR  R6,R1
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Joseph Reichman [reichman...@gmail.com]
> Sent: Thursday, March 23, 2023 10:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Does BSAM I/O area have to be fixed storage
> 
> Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a 
> locate mode the user supplied the I/O area
> 
> This snippet is from code that is re-entrant
> 
> I remember a long time ago I wrote program here at the IRS using bsam and got 
> storage from subpool zero
> 
> There is one program here at the IRS that uses bsam most of the programs are  
> qsam in locate mode I would ask but they don’t like it if I contact developers
> 
> 
> 
> > On Mar 23, 2023, at 9:40 AM, Seymour J Metz  wrote:
> >
> > The access method handles page fixing unless you specify DCBE FIX=USER.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> > 
> > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> > Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
> > Sent: Thursday, March 23, 2023 9:03 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Does BSAM I/O area have to be fixed storage
> >
> >> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote:
> >>
> >> It is normal to obtaon buffers from subpool 0. It is not normal to specify 
> >> DCBE options that you don't want'
> >>
> > I coded some BSAM long ago, 370 era.  I never bothered with fixing pages.
> > I assumed/was told the access method did that for me.  I suspect it was
> > for compatibility with 360.
> >
> >> Please include the relevant DCBE with code that you post.
> >>
> >> BTW, the DFSMSdfp documentation discusses what can be above the line line 
> >> and how to support it.
> >
> > --
> > 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
> 
> --
> 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: Does BSAM I/O area have to be fixed storage

[Seymour J Metz]

Interesting - time for an RCF.

BTW, you'll get shorter code if you use the documented LENGTH=(0) instead of 
using the symbolic name. It would be nice if IBM assumed that R0-R15 had the 
values 0-15, but that might break existing code.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Joseph Reichman [reichman...@gmail.com]
Sent: Thursday, March 23, 2023 10:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

I put executable=yes because of exlst initial code must be below the line

Just noticed the LAM

Don't believe I have a SYSSTATE ASCENV=AR don't even know if that has
anything to do with the abend I was getting

LAR0,IODSECTLEN
  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES
SP=0
+ LAM   15,15,=AL1(B'0001',(0),(0),B'')
+   .SET AR 15  @P9
+ LR 0,R0 .STORAGE LENGTH
+ L  15,=AL1(B'0010',(0*16),(0),B'00010010')
+ .CONTROL INFORMATION  @P9
+ L  14,16(0,0)   .CVT ADDRESS
+ L  14,772(14,0) .ADDR SYST LINKAGE TABLE
+ L  14,160(14,0) .OBTAIN LX/EX FOR OBTAIN
+ PC 0(14).PC TO STORAGE RTN
+ LR R6,1 .SAVE ADDR OF STORAGE
  USING IODSECT,R6
   *VIEW

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Thursday, March 23, 2023 10:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

>   STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES,X
>SP=0

Is ADDR=(R6) legal? What is the generated code?


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Joseph Reichman [reichman...@gmail.com]
Sent: Thursday, March 23, 2023 8:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

Seymour

Here is the code if you page down the email you will see "Here is the
DCB//DECB/DCBE and exlst code"

As I said when get the I/O area from sp=0 I abend 800 rc 4 from sp=233 which
is fixed its okay

*
 *
 *   Get  STORAGE FOR DCB
  LAR0,IODSECTLEN
  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES,X
SP=0
  USING IODSECT,R6
  USING IHADCB,ADATADCB
  USING DCBE,ADATADECB
 *
 *
  MVC   0(IODSECTLEN,R6),SYSADATA
 *
  LAR7,ADATADCBE
  STR7,DCBDCBE
  LAR7,INST31
  STCM  R7,B'0111',DCBEXLSA
  LAR7,INST31+4
  STCM  R7,B'0111',INST31+1
  LAR7,ABENDRTN
  STR7,ABEND31-SYSADATA(,R6)
 *
  L R0,=F'32760'
  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=(31,64),SP=233
< when this is obtained from SP=0 I abend 800 RC 4 on the read
 *LAR7,IOAREA
 *STR7,IOPTR
 *
 *
  STR0,IOLEN
  XRR8,R8
  XRR9,R9
  STR7,IOBUFF
  L R7,IOBUFF
  MVC   OPEN_LST(OPEN_LEN),OPEN_CON
  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31
 *
 *MVC   ADATADECB(IREADLEN),IREAD
  TMDCBOFLGS,DCBOFOPN   d ===>
Scroll ===> CSR
  TMDCBOFLGS,DCBOFOPN
  BZEXITDEBG
  USING ASMADATA,R7
 PROCADATA DS   0H
  READ  ADATADECB,SF,(R6),(R7),'S',MF=E
 *
  CHECK ADATADECB
 *

  LHR12,0(R7)
  LAR12,0(R12,R7)
  LAR7,4(,R7)   Past BDW
 DATALP1  DS0H
  MVC   RDW,0(R7)
  CHSI  ADATA_RECTYPE,ADATA_RECESD  External sym dic.
  BNE   CKSRC
 *
 *
  NCEXSYMREL,EXSYMREL
T


 Process rest of sysadata

Here is the DCB//DECB/DCBE and exlst code

OPEN_CON OPEN (*-*,INPUT),MF=L,MODE=31
 SYSADATA DCB DDNAME=SYSADATA,RECFM=VB,MACRF=RP,DSORG=PS,DCBE=SYSDCBE,EXX
LST=EX24LST

   IHADECB DSECT=NO
 DECBLEN  EQU   *-DECB
 SYSDCBE  DCBE EODAD=FIN,GETSIZE=YES,LOC=ANY,RMODE31=BUFF,SYNAD=SYNAD,VEX
RSION=1
 EX24LSTDS  0F
 ADATAEXLST DC  AL1(EXLDCBAB+X'80')
 ABND24ADR  DS  AL3
 ABND24 DS  0H
L   R15,ABEND31-SYSADATA(,R15)
BSM 0,R15
 ABEND31DS  XL4
 STROGE24   EQU *-EX24LST

IODSECT   DSECT
ADATADCB  DSCL(DCBLNGBS)
ADATADECB DSCL(DECBLEN)
ADATADCBE DSCL(DCBELENV1)
  DS0F
INST31DSCL(STROGE24)
IODSECTLEN EQU  *-IODSECT
*




T

T

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Thursday, March 23, 2023 

Re: Does BSAM I/O area have to be fixed storage

[Joseph Reichman]

So I’ll try using FIX=USER ? And ADDR=(1)

> On Mar 23, 2023, at 10:22 AM, Seymour J Metz  wrote:
> 
> FSVO QSAM.
> 
> "FIXED=USER
> With this DCBE option, you assert that the data areas remain fixed from the 
> time the READ or WRITE
> macro instruction is issued through the completion of the CHECK or WAIT macro 
> instruction." 
> 
> Three out of four of those macros are BASm, and the last isn't part of the 
> access methods.
> 
> SP0 is normal for BSAM buffers. try
> 
> STORAGE OBTAIN,...,ADDR=(1)
> LR  R6,R1
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Joseph Reichman [reichman...@gmail.com]
> Sent: Thursday, March 23, 2023 10:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Does BSAM I/O area have to be fixed storage
> 
> Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a 
> locate mode the user supplied the I/O area
> 
> This snippet is from code that is re-entrant
> 
> I remember a long time ago I wrote program here at the IRS using bsam and got 
> storage from subpool zero
> 
> There is one program here at the IRS that uses bsam most of the programs are  
> qsam in locate mode I would ask but they don’t like it if I contact developers
> 
> 
> 
>> On Mar 23, 2023, at 9:40 AM, Seymour J Metz  wrote:
>> 
>> The access method handles page fixing unless you specify DCBE FIX=USER.
>> 
>> 
>> --
>> Shmuel (Seymour J.) Metz
>> http://mason.gmu.edu/~smetz3
>> 
>> 
>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>> Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
>> Sent: Thursday, March 23, 2023 9:03 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: Does BSAM I/O area have to be fixed storage
>> 
 On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote:
>>> 
>>> It is normal to obtaon buffers from subpool 0. It is not normal to specify 
>>> DCBE options that you don't want'
>>> 
>> I coded some BSAM long ago, 370 era.  I never bothered with fixing pages.
>> I assumed/was told the access method did that for me.  I suspect it was
>> for compatibility with 360.
>> 
>>> Please include the relevant DCBE with code that you post.
>>> 
>>> BTW, the DFSMSdfp documentation discusses what can be above the line line 
>>> and how to support it.
>> 
>> --
>> 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
> 
> --
> 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: Does BSAM I/O area have to be fixed storage

[Seymour J Metz]

FSVO QSAM.

"FIXED=USER
With this DCBE option, you assert that the data areas remain fixed from the 
time the READ or WRITE
macro instruction is issued through the completion of the CHECK or WAIT macro 
instruction." 

Three out of four of those macros are BASm, and the last isn't part of the 
access methods.

SP0 is normal for BSAM buffers. try

 STORAGE OBTAIN,...,ADDR=(1)
 LR  R6,R1


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Joseph Reichman [reichman...@gmail.com]
Sent: Thursday, March 23, 2023 10:03 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a 
locate mode the user supplied the I/O area

This snippet is from code that is re-entrant

I remember a long time ago I wrote program here at the IRS using bsam and got 
storage from subpool zero

There is one program here at the IRS that uses bsam most of the programs are  
qsam in locate mode I would ask but they don’t like it if I contact developers



> On Mar 23, 2023, at 9:40 AM, Seymour J Metz  wrote:
>
> The access method handles page fixing unless you specify DCBE FIX=USER.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
> Sent: Thursday, March 23, 2023 9:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Does BSAM I/O area have to be fixed storage
>
>> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote:
>>
>> It is normal to obtaon buffers from subpool 0. It is not normal to specify 
>> DCBE options that you don't want'
>>
> I coded some BSAM long ago, 370 era.  I never bothered with fixing pages.
> I assumed/was told the access method did that for me.  I suspect it was
> for compatibility with 360.
>
>> Please include the relevant DCBE with code that you post.
>>
>> BTW, the DFSMSdfp documentation discusses what can be above the line line 
>> and how to support it.
>
> --
> 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

--
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: Does BSAM I/O area have to be fixed storage

[Joseph Reichman]

I put executable=yes because of exlst initial code must be below the line

Just noticed the LAM

Don't believe I have a SYSSTATE ASCENV=AR don't even know if that has
anything to do with the abend I was getting

LAR0,IODSECTLEN  
  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES
SP=0   
+ LAM   15,15,=AL1(B'0001',(0),(0),B'')
+   .SET AR 15  @P9
+ LR 0,R0 .STORAGE LENGTH  
+ L  15,=AL1(B'0010',(0*16),(0),B'00010010')   
+ .CONTROL INFORMATION  @P9
+ L  14,16(0,0)   .CVT ADDRESS 
+ L  14,772(14,0) .ADDR SYST LINKAGE TABLE 
+ L  14,160(14,0) .OBTAIN LX/EX FOR OBTAIN 
+ PC 0(14).PC TO STORAGE RTN   
+ LR R6,1 .SAVE ADDR OF STORAGE
  USING IODSECT,R6 
   *VIEW   

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Thursday, March 23, 2023 10:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

>   STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES,X
>SP=0

Is ADDR=(R6) legal? What is the generated code?


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Joseph Reichman [reichman...@gmail.com]
Sent: Thursday, March 23, 2023 8:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

Seymour

Here is the code if you page down the email you will see "Here is the
DCB//DECB/DCBE and exlst code"

As I said when get the I/O area from sp=0 I abend 800 rc 4 from sp=233 which
is fixed its okay

*
 *
 *   Get  STORAGE FOR DCB
  LAR0,IODSECTLEN
  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES,X
SP=0
  USING IODSECT,R6
  USING IHADCB,ADATADCB
  USING DCBE,ADATADECB
 *
 *
  MVC   0(IODSECTLEN,R6),SYSADATA
 *
  LAR7,ADATADCBE
  STR7,DCBDCBE
  LAR7,INST31
  STCM  R7,B'0111',DCBEXLSA
  LAR7,INST31+4
  STCM  R7,B'0111',INST31+1
  LAR7,ABENDRTN
  STR7,ABEND31-SYSADATA(,R6)
 *
  L R0,=F'32760'
  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=(31,64),SP=233
< when this is obtained from SP=0 I abend 800 RC 4 on the read
 *LAR7,IOAREA
 *STR7,IOPTR
 *
 *
  STR0,IOLEN
  XRR8,R8
  XRR9,R9
  STR7,IOBUFF
  L R7,IOBUFF
  MVC   OPEN_LST(OPEN_LEN),OPEN_CON
  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31
 *
 *MVC   ADATADECB(IREADLEN),IREAD
  TMDCBOFLGS,DCBOFOPN   d ===>
Scroll ===> CSR
  TMDCBOFLGS,DCBOFOPN
  BZEXITDEBG
  USING ASMADATA,R7
 PROCADATA DS   0H
  READ  ADATADECB,SF,(R6),(R7),'S',MF=E
 *
  CHECK ADATADECB
 *

  LHR12,0(R7)
  LAR12,0(R12,R7)
  LAR7,4(,R7)   Past BDW
 DATALP1  DS0H
  MVC   RDW,0(R7)
  CHSI  ADATA_RECTYPE,ADATA_RECESD  External sym dic.
  BNE   CKSRC
 *
 *
  NCEXSYMREL,EXSYMREL
T


 Process rest of sysadata

Here is the DCB//DECB/DCBE and exlst code

OPEN_CON OPEN (*-*,INPUT),MF=L,MODE=31
 SYSADATA DCB DDNAME=SYSADATA,RECFM=VB,MACRF=RP,DSORG=PS,DCBE=SYSDCBE,EXX
LST=EX24LST

   IHADECB DSECT=NO
 DECBLEN  EQU   *-DECB
 SYSDCBE  DCBE EODAD=FIN,GETSIZE=YES,LOC=ANY,RMODE31=BUFF,SYNAD=SYNAD,VEX
RSION=1
 EX24LSTDS  0F
 ADATAEXLST DC  AL1(EXLDCBAB+X'80')
 ABND24ADR  DS  AL3
 ABND24 DS  0H
L   R15,ABEND31-SYSADATA(,R15)
BSM 0,R15
 ABEND31DS  XL4
 STROGE24   EQU *-EX24LST

IODSECT   DSECT
ADATADCB  DSCL(DCBLNGBS)
ADATADECB DSCL(DECBLEN)
ADATADCBE DSCL(DCBELENV1)
  DS0F
INST31DSCL(STROGE24)
IODSECTLEN EQU  *-IODSECT
*




T

T

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Thursday, March 23, 2023 8:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

It is normal to obtaon buffers from subpool 0. It is not normal to specify
DCBE options that you don't want'

Please include the relevant DCBE with code that you post.

BTW, the DFSMSdfp documentation discusses 

Re: Is z/OS Name/Token pair retrieval supported from REXX?

[Seymour J Metz]

In general, yes, and true for IEANTRT, but there are some cases where the 
intended service is awkward or pointless. 


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Ed 
Jaffe [edja...@phoenixsoftware.com]
Sent: Thursday, March 23, 2023 9:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?

On 3/22/2023 1:21 AM, Steve Austin wrote:
> This works for me;
>
> level='0004'x
> name=left(serverName,16)
> token=''x
> retcode=''x
> do until retcode = '0004'x
>"sleep 2"
>address LINKPGM "IEANTRT  LEVEL NAME  TOKEN RETCODE"
> end

Using an intended service is always preferable to "crawling" through
control blocks...


--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.phoenixsoftware.com%2F=05%7C01%7Csmetz3%40gmu.edu%7C1fe3af6b7741469ee7d108db2ba54894%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638151761113282322%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C=n2s6YQEWKU%2F%2BJtpMXYZQ%2BbH35UAhGVbO8SUPwvOr8Ck%3D=0



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

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

Re: Does BSAM I/O area have to be fixed storage

[Seymour J Metz]

>   STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES,X
>SP=0

Is ADDR=(R6) legal? What is the generated code?


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Joseph Reichman [reichman...@gmail.com]
Sent: Thursday, March 23, 2023 8:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

Seymour

Here is the code if you page down the email you will see "Here is the
DCB//DECB/DCBE and exlst code"

As I said when get the I/O area from sp=0 I abend 800 rc 4 from sp=233 which
is fixed its okay

*
 *
 *   Get  STORAGE FOR DCB
  LAR0,IODSECTLEN
  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES,X
SP=0
  USING IODSECT,R6
  USING IHADCB,ADATADCB
  USING DCBE,ADATADECB
 *
 *
  MVC   0(IODSECTLEN,R6),SYSADATA
 *
  LAR7,ADATADCBE
  STR7,DCBDCBE
  LAR7,INST31
  STCM  R7,B'0111',DCBEXLSA
  LAR7,INST31+4
  STCM  R7,B'0111',INST31+1
  LAR7,ABENDRTN
  STR7,ABEND31-SYSADATA(,R6)
 *
  L R0,=F'32760'
  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=(31,64),SP=233
< when this is obtained from SP=0 I abend 800 RC 4 on the read
 *LAR7,IOAREA
 *STR7,IOPTR
 *
 *
  STR0,IOLEN
  XRR8,R8
  XRR9,R9
  STR7,IOBUFF
  L R7,IOBUFF
  MVC   OPEN_LST(OPEN_LEN),OPEN_CON
  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31
 *
 *MVC   ADATADECB(IREADLEN),IREAD
  TMDCBOFLGS,DCBOFOPN   d ===>
Scroll ===> CSR
  TMDCBOFLGS,DCBOFOPN
  BZEXITDEBG
  USING ASMADATA,R7
 PROCADATA DS   0H
  READ  ADATADECB,SF,(R6),(R7),'S',MF=E
 *
  CHECK ADATADECB
 *

  LHR12,0(R7)
  LAR12,0(R12,R7)
  LAR7,4(,R7)   Past BDW
 DATALP1  DS0H
  MVC   RDW,0(R7)
  CHSI  ADATA_RECTYPE,ADATA_RECESD  External sym dic.
  BNE   CKSRC
 *
 *
  NCEXSYMREL,EXSYMREL
T


 Process rest of sysadata

Here is the DCB//DECB/DCBE and exlst code

OPEN_CON OPEN (*-*,INPUT),MF=L,MODE=31
 SYSADATA DCB DDNAME=SYSADATA,RECFM=VB,MACRF=RP,DSORG=PS,DCBE=SYSDCBE,EXX
LST=EX24LST

   IHADECB DSECT=NO
 DECBLEN  EQU   *-DECB
 SYSDCBE  DCBE EODAD=FIN,GETSIZE=YES,LOC=ANY,RMODE31=BUFF,SYNAD=SYNAD,VEX
RSION=1
 EX24LSTDS  0F
 ADATAEXLST DC  AL1(EXLDCBAB+X'80')
 ABND24ADR  DS  AL3
 ABND24 DS  0H
L   R15,ABEND31-SYSADATA(,R15)
BSM 0,R15
 ABEND31DS  XL4
 STROGE24   EQU *-EX24LST

IODSECT   DSECT
ADATADCB  DSCL(DCBLNGBS)
ADATADECB DSCL(DECBLEN)
ADATADCBE DSCL(DCBELENV1)
  DS0F
INST31DSCL(STROGE24)
IODSECTLEN EQU  *-IODSECT
*




T

T

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Thursday, March 23, 2023 8:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

It is normal to obtaon buffers from subpool 0. It is not normal to specify
DCBE options that you don't want'

Please include the relevant DCBE with code that you post.

BTW, the DFSMSdfp documentation discusses what can be above the line line
and how to support it.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Joseph Reichman [reichman...@gmail.com]
Sent: Thursday, March 23, 2023 7:35 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Does BSAM I/O area have to be fixed storage

Seems like this is the only way my read worked but it kind of doesn't make
sense

I should be able to have the I/O area from subpool 0 pageable storage

Thanks
--
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: Does BSAM I/O area have to be fixed storage

[Joseph Reichman]

Seymour “respectfully ” that’s for QSAM in locate mode BSAM doesn’t have a 
locate mode the user supplied the I/O area 

This snippet is from code that is re-entrant 

I remember a long time ago I wrote program here at the IRS using bsam and got 
storage from subpool zero 

There is one program here at the IRS that uses bsam most of the programs are  
qsam in locate mode I would ask but they don’t like it if I contact developers 



> On Mar 23, 2023, at 9:40 AM, Seymour J Metz  wrote:
> 
> The access method handles page fixing unless you specify DCBE FIX=USER.
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
> Sent: Thursday, March 23, 2023 9:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Does BSAM I/O area have to be fixed storage
> 
>> On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote:
>> 
>> It is normal to obtaon buffers from subpool 0. It is not normal to specify 
>> DCBE options that you don't want'
>> 
> I coded some BSAM long ago, 370 era.  I never bothered with fixing pages.
> I assumed/was told the access method did that for me.  I suspect it was
> for compatibility with 360.
> 
>> Please include the relevant DCBE with code that you post.
>> 
>> BTW, the DFSMSdfp documentation discusses what can be above the line line 
>> and how to support it.
> 
> --
> 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

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

Re: Is z/OS Name/Token pair retrieval supported from REXX?

[Ed Jaffe]

On 3/22/2023 1:21 AM, Steve Austin wrote:

This works for me;

level='0004'x
name=left(serverName,16)
token=''x
retcode=''x
do until retcode = '0004'x
   "sleep 2"
   address LINKPGM "IEANTRT  LEVEL NAME  TOKEN RETCODE"
end


Using an intended service is always preferable to "crawling" through 
control blocks...



--
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: Does BSAM I/O area have to be fixed storage

[Seymour J Metz]

The access method handles page fixing unless you specify DCBE FIX=USER.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Thursday, March 23, 2023 9:03 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Does BSAM I/O area have to be fixed storage

On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote:

>It is normal to obtaon buffers from subpool 0. It is not normal to specify 
>DCBE options that you don't want'
>
I coded some BSAM long ago, 370 era.  I never bothered with fixing pages.
I assumed/was told the access method did that for me.  I suspect it was
for compatibility with 360.

>Please include the relevant DCBE with code that you post.
>
>BTW, the DFSMSdfp documentation discusses what can be above the line line and 
>how to support it.

--
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: Dynamic information Retrieval - TU C012

[Scott Ballentine]

Dynamic Information Retrieval doesn't read the data set to determine 
information - it looks at what is known about it in SWA.  So unless it knows 
the information you're looking for - for example, the DD is coded in JCL and 
has the relevant keyword specified, or maybe you've OPENed the DD so that OPEN 
processing retrieves some of that information from the data set and puts it in 
SWA - then Dynamic Information Retrieval doesn't have the information to return 
to you.

-Scott Ballentine
 z/OS Device Allocation, Scheduler, SMF Development

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

Re: Does BSAM I/O area have to be fixed storage

[Paul Gilmartin]

On Thu, 23 Mar 2023 12:31:36 +, Seymour J Metz wrote:

>It is normal to obtaon buffers from subpool 0. It is not normal to specify 
>DCBE options that you don't want'
>
I coded some BSAM long ago, 370 era.  I never bothered with fixing pages.
I assumed/was told the access method did that for me.  I suspect it was
for compatibility with 360.

>Please include the relevant DCBE with code that you post.
>
>BTW, the DFSMSdfp documentation discusses what can be above the line line and 
>how to support it.

-- 
gil

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

Re: Does BSAM I/O area have to be fixed storage

[Joseph Reichman]

Seymour 

Here is the code if you page down the email you will see "Here is the
DCB//DECB/DCBE and exlst code" 
 
As I said when get the I/O area from sp=0 I abend 800 rc 4 from sp=233 which
is fixed its okay 

*   
 *   
 *   Get  STORAGE FOR DCB
  LAR0,IODSECTLEN
  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,EXECUTABLE=YES,X
SP=0 
  USING IODSECT,R6   
  USING IHADCB,ADATADCB  
  USING DCBE,ADATADECB   
 *   
 *   
  MVC   0(IODSECTLEN,R6),SYSADATA
 *   
  LAR7,ADATADCBE 
  STR7,DCBDCBE   
  LAR7,INST31
  STCM  R7,B'0111',DCBEXLSA  
  LAR7,INST31+4  
  STCM  R7,B'0111',INST31+1 
  LAR7,ABENDRTN   
  STR7,ABEND31-SYSADATA(,R6)  
 *
  L R0,=F'32760'  
  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=(31,64),SP=233
< when this is obtained from SP=0 I abend 800 RC 4 on the read
 *LAR7,IOAREA 
 *STR7,IOPTR  
 *
 *
  STR0,IOLEN  
  XRR8,R8 
  XRR9,R9 
  STR7,IOBUFF 
  L R7,IOBUFF 
  MVC   OPEN_LST(OPEN_LEN),OPEN_CON   
  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31  
 *
 *MVC   ADATADECB(IREADLEN),IREAD 
  TMDCBOFLGS,DCBOFOPN   d ===>
Scroll ===> CSR 
  TMDCBOFLGS,DCBOFOPN   
  BZEXITDEBG
  USING ASMADATA,R7 
 PROCADATA DS   0H  
  READ  ADATADECB,SF,(R6),(R7),'S',MF=E 
 *  
  CHECK ADATADECB   
 *  

  LHR12,0(R7)   
  LAR12,0(R12,R7)   
  LAR7,4(,R7)   Past BDW
 DATALP1  DS0H  
  MVC   RDW,0(R7)   
  CHSI  ADATA_RECTYPE,ADATA_RECESD  External sym dic.   
  BNE   CKSRC   
 *  
 *  
  NCEXSYMREL,EXSYMREL   
T   


 Process rest of sysadata

Here is the DCB//DECB/DCBE and exlst code

OPEN_CON OPEN (*-*,INPUT),MF=L,MODE=31  
 SYSADATA DCB DDNAME=SYSADATA,RECFM=VB,MACRF=RP,DSORG=PS,DCBE=SYSDCBE,EXX
LST=EX24LST  
 
   IHADECB DSECT=NO  
 DECBLEN  EQU   *-DECB 

Re: Does BSAM I/O area have to be fixed storage

[Seymour J Metz]

It is normal to obtaon buffers from subpool 0. It is not normal to specify DCBE 
options that you don't want'

Please include the relevant DCBE with code that you post.

BTW, the DFSMSdfp documentation discusses what can be above the line line and 
how to support it.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Joseph Reichman [reichman...@gmail.com]
Sent: Thursday, March 23, 2023 7:35 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Does BSAM I/O area have to be fixed storage

Seems like this is the only way my read worked but it kind of doesn’t make sense

I should be able to have the I/O area from subpool 0 pageable storage

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

Does BSAM I/O area have to be fixed storage

[Joseph Reichman]

Seems like this is the only way my read worked but it kind of doesn’t make 
sense 

I should be able to have the I/O area from subpool 0 pageable storage 

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