DevOps and Hybrid Cloud: A Q+A With Rosalind Radcliffe

[Timothy Sipples]

TechChannel has an interesting article on enterprise DevOps with z/OS:

https://techchannel.com/Enterprise/03/2023/devops-hybrid-cloud-rosalind-radcliffe

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


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

Re: BSAM READ AMODE 31 RMODE 31

[Joseph Reichman]

This totally crazy I abended 800 RC 4 
Looked at the abend codes says  system EXCPVSR was trying to page fix storage 

I then got sp 233 says it’s fixed and also key 0 
Worked 

I don’t get it there is no reason for the IOAREA to be sp 233 subpool 0 should 
be good enough 



> On Mar 21, 2023, at 11:43 AM, Seymour J Metz  wrote:
> 
> You have to give READ the address of the buffer, not the address of a 
> pointer to it.
> 
> For 64-bit there is a different DECB format; I believe that's SF64.
> 
> 
> From: IBM Mainframe Discussion List  on behalf of 
> Joseph Reichman 
> Sent: Tuesday, March 21, 2023 11:22 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: BSAM READ AMODE 31 RMODE 31
> 
> Still have problems
> 
> With the read
> 
> I tried last night and it worked let me explain
> 
> The address of the IO area I store in a full word
> IOBUFF
> 
> When I did LA R7,IOBUFF
> And then did
> 
> READ ADATADECB,SF,(R6),(R7),’S’,MF=E
> 
> It worked today morning didn’t change code had problems
> 
> When I did L R7,IOBUFF it didn’t
> 
> I know both Binyamin and Charles Mills in their example had Load but it 
> doesn’t make sense
> 
> At +12 is the address of a pointer to the IOAREA if that were the address it 
> self
> 
> What if you had a 64 bit pointer (which bsam supoorts) so it had to be a 
> pointer to where the pointer ( in 64 bit  that would 8 bytes )
> Thanks
> 
> 
>> On Mar 20, 2023, at 3:46 PM, Seymour J Metz  wrote:
>> 
>> IMHO it's clearer to just use
>> 
>> READ  PDSDECB,SF,PDSDCB,address _of_READ_buffer,MF=E
>> CHECK PDSDECB
>> 
>> 
>> --
>> 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: Monday, March 20, 2023 9:20 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: BSAM READ AMODE 31 RMODE 31
>> 
>>  Hi
>> 
>> 
>> 
>> I know Charles Mills answered my question nearly 4 weeks ago but I would
>> just like to corroborate the I/O areas for the read can be 31 bit addressing
>> only the dcb and decb need to be below the line
>> 
>> I am running AMODE 31 RMODE 31
>> 
>> 
>> 
>> The DCB is below the line as well as the DECB
>> 
>> 
>> 
>> My read returns ok
>> 
>> 
>> 
>> After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP
>> 
>> 
>> 
>> This the example that Charles sent to me does nt say anything about the
>> IOAREAS or pointers to the IOAREAS
>> 
>> 
>> 
>> LA Rn,PDSDCB
>> 
>> ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB
>> 
>> L Rn,address  of READ buffer
>> 
>> READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> This is my read
>> 
>> 
>> 
>> READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
>> 
>> 
>> 
>> The  IOBUFF is a full word  pointer to the storage I obtain
>> 
>> 
>> 
>> 
>> 
>> Here is my code
>> 
>> 
>> 
>> LAR0,IODSECTLEN
>> 
>> STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0
>> 
>> LRR9,R6
>> 
>> USING IHADCB,R9
>> 
>> USING IODSECT,R6
>> 
>> *
>> 
>> *
>> 
>> LAR7,SYSADATA
>> 
>> MVC   0(IODSECTLEN,R6),0(R7)
>> 
>> *
>> 
>> LAR7,SYSDCBE-SYSADATA(,R6)
>> 
>> STR7,DCBDCBE
>> 
>> LAR7,EX24LST-SYSADATA(,R6)
>> 
>> STCM  R7,B'0111',DCBEXLSA
>> 
>> LAR7,ABND24-SYSADATA(,R6)
>> 
>> STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)
>> 
>> LAR7,ABENDRTN
>> 
>> STR7,ABEND31-SYSADATA(,R6)
>> 
>> *
>> 
>> T  L R0,=F'31996'
>> 
>> *
>> 
>> STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0
>> 
>> *LAR7,IOAREA
>> 
>> *STR7,IOPTR
>> 
>> *
>> 
>> STR7,IOBUFF
>> 
>> MVC   OPEN_LST(OPEN_LEN),OPEN_CON
>> 
>> OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31
>> 
>> *
>> 
>> TMDCBOFLGS,DCBOFOPN
>> 
>> BZEXITDEBG
>> 
>> USING ASMADATA,R7
>> 
>> L R10,IOBUFF
>> 
>> PROCADATA DS   0H
>> 
>> READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
>> 
>> *
>> 
>> CHECK ADATADECB
>> 
>> *
>> 
>> 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)

Re: IGGCSI00 - NVSNATTR

[Lennie Dymoke-Bradshaw]

The man who will know all about IGGCSI00 is Stephen Branch at IBM, who
maintains this code I think.
He is a very knowledgeable and approachable man, who has helped me in the
past.

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

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Kirk Wolf
Sent: 21 March 2023 18:43
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IGGCSI00 - NVSNATTR

Peter,
Did you ever get an answer to this question about NVSMATTR='Q' ?

As far as I know, there is no public API (callable by assembler, not an IBM
utility), that can be used to determine PDSEV2.  Am I wrong?


Kirk Wolf
Dovetailed Technologies
https://coztoolkit.com

On Mon, Jan 23, 2023, at 1:17 PM, Pierre Fichaud wrote:
> I asked for NVSMATTR,DEVTYP, DSCBTTR and VOLSER for a PDSE version 1.
> R15 was 0 after the call to IGGCSI.
> The DEVTYP, DSCBTTR and VOLSER were fine.
> I was expecting NVSMATTR to have a value of 'L' for a PDSE but I got 'Q'.
> This isn't documented.
> I was hoping to identify a PDSE (ve or v2) before doing an allocation but
...
> 
> What does 'Q' represent and where is that documented?
> 
> Regards, Pierre.
> 
> 
> 
> --
> 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: Dynamic information Retrieval - TU C012

[Sri h Kolusu]

>> I set up the latter as number=1,len=1

Binyamin,

When you code DINDSNAM, # must be one, LEN is the length of the dsname, and 
PARM contains the dsname.

https://www.ibm.com/docs/en/zos/2.4.0?topic=dirtu-dsname-specification-key-0002

>>and upon return from dynalloc I see that the length was set to zero, as if 
>>nothing could be returned. The requested dataset is a PDSE.


For information retrieval text units, the system uses this field to indicate 
the length of the information it is returning, or to indicate that the 
information was not available, by setting it to 0.

https://www.ibm.com/docs/en/zos/2.4.0?topic=s99tukey-length-s99tulng


Thanks,
Kolusu


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

Dynamic information Retrieval - TU C012

[Binyamin Dissen]

I am attempting a dynamic information retrieval using text keys DINDSNAM and
DINRDSNT.

I set up the latter as number=1,len=1 and upon return from dynalloc I see that
the length was set to zero, as if nothing could be returned. The requested
dataset is a PDSE.

I added a TU for DINRTDDN and it is returning the correct DDNAME.

 R15=0. S99ERROR and S99INFO = 0.

What might I be missing?

--
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: Exact AT-TLS parms for SMP/E Download

[Seymour J Metz]

That sounds like they are greylisting your provider.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Charles Mills [charl...@mcn.org]
Sent: Tuesday, March 21, 2023 3:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Exact AT-TLS parms for SMP/E Download

> Genuinely curious, why aren't you using HTTPS?

To be honest, I am not actually downloading PTFs. I am trying to figure how how 
to demo some concepts for a class.

> here's the general doc about configuring the FTP client to use AT-TLS

I'm on top of that. I have successfully configured AT-TLS and FTP in another 
situation. I'm on top of the FTP.DATA statements (which, FWIW, IBM documents 
perfectly relative to SMP/E).

(And apologies for kinda-quoting in this and other posts. For some reason 
IBM-MAIN has started rejecting mail from my ISP (not a blacklist thing in my 
reading; the HELO just times out about 80-90% of the time). So I am posting 
from the LISTSERV Web interface. Is there any way to quote there, other than 
cut-and-paste?)

Charles

--
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: Question for our international friends (mostly)

[Seymour J Metz]

I'd prefer neither. While I consider them equally offensive, the use of the 
c-word has sexust connotations that I oppose, sp I would use the a-word.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Bob 
Bridges [robhbrid...@gmail.com]
Sent: Tuesday, March 21, 2023 4:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question for our international friends (mostly)

So would you rather call someone the a-word or the c-word, in public and
possibly in mixed company?  I don't use either, myself (except when reading
aloud), but I don't pause if someone uses the former around me.

If the question doesn't seem sensible to you, maybe just tell yourself
"there's no accounting...".

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

/* War is God's way of teaching Americans geography.  -Ambrose Bierce */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Tuesday, March 21, 2023 10:00

And bum is equivalent to the a-word.


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Jeremy Nicoll
Sent: Tuesday, March 21, 2023 9:55 AM

Fanny is equivalent to the c-word ...

--- On Tue, 21 Mar 2023, at 13:11, Seymour J Metz wrote:
> I also don't understand why fanny pack is offensive  ...

--
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: Question for our international friends (mostly)

[Bob Bridges]

So would you rather call someone the a-word or the c-word, in public and
possibly in mixed company?  I don't use either, myself (except when reading
aloud), but I don't pause if someone uses the former around me.

If the question doesn't seem sensible to you, maybe just tell yourself
"there's no accounting...".

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

/* War is God's way of teaching Americans geography.  -Ambrose Bierce */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Tuesday, March 21, 2023 10:00

And bum is equivalent to the a-word.


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Jeremy Nicoll
Sent: Tuesday, March 21, 2023 9:55 AM

Fanny is equivalent to the c-word ...

--- On Tue, 21 Mar 2023, at 13:11, Seymour J Metz wrote:
> I also don't understand why fanny pack is offensive  ...

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

Re: Exact AT-TLS parms for SMP/E Download

[Charles Mills]

>They need to use iconography to accommodate non-anglophones.  And I just 
>noticed it

For that extensive population that knows the words Reply, Advanced, Plain, 
Preferences, Search, Save Draft and Send Message ... but not Quote.

 

CM

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

Re: Exact AT-TLS parms for SMP/E Download

[Paul Gilmartin]

On Tue, 21 Mar 2023 15:12:44 -0500, Charles Mills wrote:

>>At the top left of the text entry box there's a button with a graphic label, 
>>““”.  Is that what you need?
>
>Once you know it's there it's pretty darned obvious, isn't it? 
>
They need to use iconography to accommodate non-anglophones.  And I just 
noticed it
smartass-quoted my USASCII quotes.  Grrr!

-- 
gil

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

Re: Exact AT-TLS parms for SMP/E Download

[Charles Mills]

>At the top left of the text entry box there's a button with a graphic label, 
>““”.  Is that what you need?

Once you know it's there it's pretty darned obvious, isn't it? 

CM

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

Re: Exact AT-TLS parms for SMP/E Download

[Paul Gilmartin]

On Tue, 21 Mar 2023 14:47:45 -0500, Charles Mills wrote:

>> Genuinely curious, why aren't you using HTTPS?  
>
>To be honest, I am not actually downloading PTFs. I am trying to figure how 
>how to demo some concepts for a class.

>... So I am posting from the LISTSERV Web interface. Is there any way to 
> quote there, other than cut-and-paste?)
>
At the top left of the text entry box there's a button with a graphic label, 
““”.  Is that what you need?

Does anyone know hot to get a mono spaced font on that Web interface for 
composing code samples?

But the nice thing is that Web interface doesn't hard-wrap URLs.

-- 
gil

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

Re: Exact AT-TLS parms for SMP/E Download

[Charles Mills]

> Genuinely curious, why aren't you using HTTPS?  

To be honest, I am not actually downloading PTFs. I am trying to figure how how 
to demo some concepts for a class.

> here's the general doc about configuring the FTP client to use AT-TLS 

I'm on top of that. I have successfully configured AT-TLS and FTP in another 
situation. I'm on top of the FTP.DATA statements (which, FWIW, IBM documents 
perfectly relative to SMP/E).

(And apologies for kinda-quoting in this and other posts. For some reason 
IBM-MAIN has started rejecting mail from my ISP (not a blacklist thing in my 
reading; the HELO just times out about 80-90% of the time). So I am posting 
from the LISTSERV Web interface. Is there any way to quote there, other than 
cut-and-paste?)

Charles

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

Re: [EXTERNAL] Re: Exact AT-TLS parms for SMP/E Download

[Pommier, Rex]

Charles, I can only speak for the couple sites I've worked at but when IBM gave 
us the choice of HTTPS or secure FTP, we jumped to HTTPS and never looked back. 
 I'm guessing most other sites did similar.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Tuesday, March 21, 2023 1:34 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Exact AT-TLS parms for SMP/E Download

Really? IBM requires this but it's not documented anywhere?

It's not like AT-TLS is trivial and every sysprog ought to know how to 
configure it without a manual.

And no one on this list is doing this? You're all using HTTPS?

Charles

--
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: Exact AT-TLS parms for SMP/E Download

[Kurt J. Quackenbush]

> Really? IBM requires this but it's not documented anywhere?

Not specific for the IBM software download servers, but here's the general doc 
about configuring the FTP client to use AT-TLS (but I admit it looks a little 
thin):
https://www.ibm.com/docs/en/zos/2.4.0?topic=security-steps-migrating-ftp-server-client-use-tls

And about the TLSMECHANSIM statement in FTP.DATA:
https://www.ibm.com/docs/en/zos/2.4.0?topic=protocol-tlsmechanism-ftp-client-server-statement

> And no one on this list is doing this? You're all using HTTPS?

Genuinely curious, why aren't you using HTTPS?  I'm certainly no network 
expert, but I've been told it requires much less firewall futzing.

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

Chuck Norris never uses CHECK when he applies PTFs.


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

Re: IGGCSI00 - NVSNATTR

[Kirk Wolf]

Peter, 
Did you ever get an answer to this question about NVSMATTR='Q' ?

As far as I know, there is no public API (callable by assembler, not an IBM 
utility), that can be used to determine PDSEV2.  Am I wrong?


Kirk Wolf
Dovetailed Technologies
https://coztoolkit.com

On Mon, Jan 23, 2023, at 1:17 PM, Pierre Fichaud wrote:
> I asked for NVSMATTR,DEVTYP, DSCBTTR and VOLSER for a PDSE version 1.
> R15 was 0 after the call to IGGCSI.
> The DEVTYP, DSCBTTR and VOLSER were fine.
> I was expecting NVSMATTR to have a value of 'L' for a PDSE but I got 'Q'.
> This isn't documented.
> I was hoping to identify a PDSE (ve or v2) before doing an allocation but ...
> 
> What does 'Q' represent and where is that documented?
> 
> Regards, Pierre.
> 
> 
> 
> --
> 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: Exact AT-TLS parms for SMP/E Download

[Charles Mills]

Really? IBM requires this but it's not documented anywhere?

It's not like AT-TLS is trivial and every sysprog ought to know how to 
configure it without a manual.

And no one on this list is doing this? You're all using HTTPS?

Charles

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

[Seymour J Metz]

Why? Chasing the pointers yourself will make the code more fragile.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Mike Shaw [techsupp...@quickref.com]
Sent: Tuesday, March 21, 2023 12:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Is z/OS Name/Token pair retrieval supported from REXX?

Listers,

The answer to my question is probably "no" since the doc on IEANTRT is
silent on this topic.

I need to be able to check for the existence of a specific name/token pair
from a REXX exec, WITHOUT using an external function. The z/OS Authorized
Assembler Services reference implies that only Assembler is supported, and
I have used that interface to create/retrieve/delete name/token pairs, but
I need to check for the existence of a specific name/token pair from a
REXX  exec.

...and I suppose it is a given that there is no (documented) anchored chain
of name/token pairs that I can run with the Rexx STORAGE function...

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

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

[Seymour J Metz]

How much core does your mainframe have? 


--
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: Tuesday, March 21, 2023 12:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?

On Tue, 21 Mar 2023 16:20:22 +, W Mainframe wrote:
>
>Some time ago I created a Rexx function in BAL ...
>
"Some time ago" indeed.  I hadn't realized the use of BAL overlapped 
availability of Rexx.

--
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: PL/I Opt. Compiler V2 manuals?

[Peter Sylvester]

 Seymour J Metz and others wrote:

Yes, but why doesn't it go into a save dialog instead of rendering it 
inappropriately?


because IBM tells that the mime-type is text/plain   they most likely don't have boo in their mime 
"dictionary"


curl should be your friend.




With a .boo ending, you need to use a bookmanager viewer.

The first four links are bad. jibberish is shown, like we are looking at
a character print of some binary file.


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

[ITschak Mugzach]

It dump the pairs, but you can always use IF and LEAVE...

בתאריך יום ג׳, 21 במרץ 2023 ב-19:24 מאת Paul Gilmartin <
042bfe9c879d-dmarc-requ...@listserv.ua.edu>:

> On Tue, 21 Mar 2023 16:51:17 +, Farley, Peter  wrote:
>
> >Great routine ITschak.  I made two small improvements to the name and
> token displays to better handle binary characters (less than '40'x) in each
> part.
> >
> Judicious use of  white space/indention helps/would help legibility.
>
> Use of PROCEDURE EXPOSE could help robustness.
>
> Does this actually "check for the existence of a specific name/token pair"
> as
> the OP requested or merely dump the entire table?  Setting a compound
> symbol
> would facilitate the former.
>
> Was I mistaken about the need to retry in case of concurrent updates?
>
>
> >Updated code for display subroutine:
> >
> >/* routine to report on name token pairs */
> >Donttp:
> >Parse Arg ptr,title
> >Say title' level NTTP at 'D2X(ptr)
> >eye = Storage(D2X(ptr),4)
> >If eye \= 'NTTH' then Do
> >Say '** Invalid eye catcher found for NTTP'
> >Return
> >End
> >base = C2D(Storage(D2X(ptr+64),4))
> >Do While base \= 0
> >tcbt = C2X(Storage(D2X(base+4),4))
> >name = Storage(D2X(base+8),16)
> >token = C2X(Storage(D2X(base+24),16))
> >nonprint = verify(name,xrange('40'x))
> >if nonprint = 0 then
> >   Say 'Name 'name' from 'tcbt
> >else do
> >   name_bin = c2x(substr(name, nonprint))
> >   name = substr(name, 1, nonprint - 1)' + "'name_bin'"'
> >   Say 'Name has binary characters: 'name' from 'tcbt
> >End
> >display = X2C(token)
> >/* translate out characters between 00 and 3f */
> >display = TRANSLATE(display,,XRANGE(,'3f'x),'.')
> >Say ' Token = 'token' ('display')'
> >base = C2D(Storage(D2X(base+64),4))
> >End
> >Say ''
> >Return
>
> --
> gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
-- 
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon  *

--
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 Tue, 21 Mar 2023 16:51:17 +, Farley, Peter  wrote:

>Great routine ITschak.  I made two small improvements to the name and token 
>displays to better handle binary characters (less than '40'x) in each part.
>
Judicious use of  white space/indention helps/would help legibility.

Use of PROCEDURE EXPOSE could help robustness.

Does this actually "check for the existence of a specific name/token pair" as
the OP requested or merely dump the entire table?  Setting a compound symbol
would facilitate the former.

Was I mistaken about the need to retry in case of concurrent updates?


>Updated code for display subroutine:
>
>/* routine to report on name token pairs */ 
>Donttp: 
>Parse Arg ptr,title 
>Say title' level NTTP at 'D2X(ptr)  
>eye = Storage(D2X(ptr),4)   
>If eye \= 'NTTH' then Do
>Say '** Invalid eye catcher found for NTTP' 
>Return  
>End 
>base = C2D(Storage(D2X(ptr+64),4))  
>Do While base \= 0  
>tcbt = C2X(Storage(D2X(base+4),4))  
>name = Storage(D2X(base+8),16)  
>token = C2X(Storage(D2X(base+24),16))   
>nonprint = verify(name,xrange('40'x))   
>if nonprint = 0 then
>   Say 'Name 'name' from 'tcbt  
>else do 
>   name_bin = c2x(substr(name, nonprint))   
>   name = substr(name, 1, nonprint - 1)' + "'name_bin'"'
>   Say 'Name has binary characters: 'name' from 'tcbt   
>End 
>display = X2C(token)
>/* translate out characters between 00 and 3f */
>display = TRANSLATE(display,,XRANGE(,'3f'x),'.')
>Say ' Token = 'token' ('display')'  
>base = C2D(Storage(D2X(base+64),4)) 
>End 
>Say ''  
>Return

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

[ITschak Mugzach]

Actually it is not my code. However I have been using it for a few years
now.

ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon  *




On Tue, Mar 21, 2023 at 6:51 PM Farley, Peter <
031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:

> Great routine ITschak.  I made two small improvements to the name and
> token displays to better handle binary characters (less than '40'x) in each
> part.
>
> HTH
>
> Peter
>
> Updated code for display subroutine:
>
> /* routine to report on name token pairs */
> Donttp:
> Parse Arg ptr,title
> Say title' level NTTP at 'D2X(ptr)
> eye = Storage(D2X(ptr),4)
> If eye \= 'NTTH' then Do
> Say '** Invalid eye catcher found for NTTP'
> Return
> End
> base = C2D(Storage(D2X(ptr+64),4))
> Do While base \= 0
> tcbt = C2X(Storage(D2X(base+4),4))
> name = Storage(D2X(base+8),16)
> token = C2X(Storage(D2X(base+24),16))
> nonprint = verify(name,xrange('40'x))
> if nonprint = 0 then
>Say 'Name 'name' from 'tcbt
> else do
>name_bin = c2x(substr(name, nonprint))
>name = substr(name, 1, nonprint - 1)' + "'name_bin'"'
>Say 'Name has binary characters: 'name' from 'tcbt
> End
> display = X2C(token)
> /* translate out characters between 00 and 3f */
> display = TRANSLATE(display,,XRANGE(,'3f'x),'.')
> Say ' Token = 'token' ('display')'
> base = C2D(Storage(D2X(base+64),4))
> End
> Say ''
> Return
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of ITschak Mugzach
> Sent: Tuesday, March 21, 2023 12:17 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?
>
> It does.
>
>
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Continuous Monitoring
> for z/OS, x/Linux & IBM I **| z/VM coming soon  *
>
> On Tue, Mar 21, 2023 at 6:15 PM Mike Shaw 
> wrote:
>
> > Listers,
> >
> > The answer to my question is probably "no" since the doc on IEANTRT is
> > silent on this topic.
> >
> > I need to be able to check for the existence of a specific name/token
> pair
> > from a REXX exec, WITHOUT using an external function. The z/OS Authorized
> > Assembler Services reference implies that only Assembler is supported,
> and
> > I have used that interface to create/retrieve/delete name/token pairs,
> but
> > I need to check for the existence of a specific name/token pair from a
> > REXX  exec.
> >
> > ...and I suppose it is a given that there is no (documented) anchored
> chain
> > of name/token pairs that I can run with the Rexx STORAGE function...
> >
> > Mike Shaw
> > MVS/QuickRef Support Group
> > Chicago-Soft, Ltd.
> --
>
> This message and any attachments are intended only for the use of the
> addressee and may contain information that is privileged and confidential.
> If the reader of the message is not the intended recipient or an authorized
> representative of the intended recipient, you are hereby notified that any
> dissemination of this communication is strictly prohibited. If you have
> received this communication in error, please notify us immediately by
> e-mail and delete the message and any attachments from your system.
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
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 Tue, 21 Mar 2023 16:20:22 +, W Mainframe wrote:
>
>Some time ago I created a Rexx function in BAL ...
>
"Some time ago" indeed.  I hadn't realized the use of BAL overlapped 
availability of Rexx.

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

[Farley, Peter]

Great routine ITschak.  I made two small improvements to the name and token 
displays to better handle binary characters (less than '40'x) in each part.

HTH

Peter

Updated code for display subroutine:

/* routine to report on name token pairs */ 
Donttp: 
Parse Arg ptr,title 
Say title' level NTTP at 'D2X(ptr)  
eye = Storage(D2X(ptr),4)   
If eye \= 'NTTH' then Do
Say '** Invalid eye catcher found for NTTP' 
Return  
End 
base = C2D(Storage(D2X(ptr+64),4))  
Do While base \= 0  
tcbt = C2X(Storage(D2X(base+4),4))  
name = Storage(D2X(base+8),16)  
token = C2X(Storage(D2X(base+24),16))   
nonprint = verify(name,xrange('40'x))   
if nonprint = 0 then
   Say 'Name 'name' from 'tcbt  
else do 
   name_bin = c2x(substr(name, nonprint))   
   name = substr(name, 1, nonprint - 1)' + "'name_bin'"'
   Say 'Name has binary characters: 'name' from 'tcbt   
End 
display = X2C(token)
/* translate out characters between 00 and 3f */
display = TRANSLATE(display,,XRANGE(,'3f'x),'.')
Say ' Token = 'token' ('display')'  
base = C2D(Storage(D2X(base+64),4)) 
End 
Say ''  
Return  

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
ITschak Mugzach
Sent: Tuesday, March 21, 2023 12:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?

It does.


ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon  *

On Tue, Mar 21, 2023 at 6:15 PM Mike Shaw  wrote:

> Listers,
>
> The answer to my question is probably "no" since the doc on IEANTRT is
> silent on this topic.
>
> I need to be able to check for the existence of a specific name/token pair
> from a REXX exec, WITHOUT using an external function. The z/OS Authorized
> Assembler Services reference implies that only Assembler is supported, and
> I have used that interface to create/retrieve/delete name/token pairs, but
> I need to check for the existence of a specific name/token pair from a
> REXX  exec.
>
> ...and I suppose it is a given that there is no (documented) anchored chain
> of name/token pairs that I can run with the Rexx STORAGE function...
>
> Mike Shaw
> MVS/QuickRef Support Group
> Chicago-Soft, Ltd.
--

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


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

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

[Seymour J Metz]

CMS also has macro-driven services, and z/OS also has callable services.


From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <042bfe9c879d-dmarc-requ...@listserv.ua.edu>
Sent: Tuesday, March 21, 2023 12:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?

On Tue, 21 Mar 2023 12:14:38 -0400, Mike Shaw  wrote:
>
>The answer to my question is probably "no" since the doc on IEANTRT is
>silent on this topic.
>
Grrr!  There's a strong argument for uniformity of interfaces.  I believe CMS 
does bettrt
with "callable services library (CSL) 
.
I've never used it, but it appears relatively general, however cumbersome.

ICSF is a laudable exemplar: there's a REXX example in SAMPLIB using address 
LINKMVS
with a subset of CALL macro facilities, passing no pointers to obtained storage 
-- results are
returned in the argument variables.

>...and I suppose it is a given that there is no (documented) anchored chain
>of name/token pairs that I can run with the Rexx STORAGE function...
>
That's a challenge given N-T's idiosyncratic serialization relying on testing a 
flag and
retrying if the chain was updated during a search.

--
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: Is z/OS Name/Token pair retrieval supported from REXX?

[Paul Gilmartin]

On Tue, 21 Mar 2023 12:14:38 -0400, Mike Shaw  wrote:
>
>The answer to my question is probably "no" since the doc on IEANTRT is
>silent on this topic.
> 
Grrr!  There's a strong argument for uniformity of interfaces.  I believe CMS 
does bettrt
with "callable services library (CSL) 
.
I've never used it, but it appears relatively general, however cumbersome.

ICSF is a laudable exemplar: there's a REXX example in SAMPLIB using address 
LINKMVS
with a subset of CALL macro facilities, passing no pointers to obtained storage 
-- results are
returned in the argument variables.

>...and I suppose it is a given that there is no (documented) anchored chain
>of name/token pairs that I can run with the Rexx STORAGE function...
>
That's a challenge given N-T's idiosyncratic serialization relying on testing a 
flag and
retrying if the chain was updated during a search.

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

[Mike Shaw]

God Bless You Itschak!

Thank you.

Mike

On Tue, Mar 21, 2023, 12:17 PM ITschak Mugzach  wrote:

> It does.
>
>
> /* REXX *** */
> /* track down various name token pair pointers */
> NUMERIC DIGITS 10
> /* TCB level */
> tcb = C2D(Storage(21C,4)) /* get current TCB */
> if tcb \= 0 then do
> stcb = C2D(Storage(D2X(tcb+312),4))
> nttp = C2D(Storage(D2X(stcb+200),4))
> If nttp \= 0 then Call donttp nttp,'Task'
> end
> /* ASCB level */
> ascb = C2D(Storage(224,4)) /* get current ascb */
> if ascb \= 0 then do
> assb = C2D(Storage(D2X(ascb+336),4))
> nttp = C2D(Storage(D2X(assb+220),4))
> If nttp \= 0 then Call donttp nttp,'Address space'
> end
>
> /* system level */
> cvt = C2d(Storage(10,4)) /* get CVT pointer */
> ecvt = C2d(Storage(D2x(cvt+140),4)) /* get CVTECVT */
> nttp = C2D(Storage(D2X(ecvt+140),4))
> Call donttp nttp,'System'
> exit 0
> /* routine to report on name token pairs */
> Donttp:
> Parse Arg ptr,title
> Say title' level NTTP at 'D2X(ptr)
> eye = Storage(D2X(ptr),4)
> If eye \= 'NTTH' then Do
> Say '** Invalid eye catcher found for NTTP'
> Return
> End
> base = C2D(Storage(D2X(ptr+64),4))
> Do While base \= 0
> tcbt = C2X(Storage(D2X(base+4),4))
> name = Storage(D2X(base+8),16)
> token = C2X(Storage(D2X(base+24),16))
> Say 'Name 'name' from 'tcbt
> display = X2C(token)
> /* translate out characters between 00 and 3f */
> display = TRANSLATE(display,,XRANGE(,'3f'x),'00'x)
> Say ' Token = 'token' ('display')'
> base = C2D(Storage(D2X(base+64),4))
> End
> Say ''
> Return
>
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Continuous Monitoring
> for z/OS, x/Linux & IBM I **| z/VM coming soon  *
>
>
>
>
> On Tue, Mar 21, 2023 at 6:15 PM Mike Shaw 
> wrote:
>
> > Listers,
> >
> > The answer to my question is probably "no" since the doc on IEANTRT is
> > silent on this topic.
> >
> > I need to be able to check for the existence of a specific name/token
> pair
> > from a REXX exec, WITHOUT using an external function. The z/OS Authorized
> > Assembler Services reference implies that only Assembler is supported,
> and
> > I have used that interface to create/retrieve/delete name/token pairs,
> but
> > I need to check for the existence of a specific name/token pair from a
> > REXX  exec.
> >
> > ...and I suppose it is a given that there is no (documented) anchored
> chain
> > of name/token pairs that I can run with the Rexx STORAGE function...
> >
> > Mike Shaw
> > MVS/QuickRef Support Group
> > Chicago-Soft, Ltd.
> >
> > --
> > 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?

[Lionel B. Dyck]

I couldn't find anything in the IBM Doc but I did find this in CBTTape File 794:

The RXMEM has the following features :  
  - to manage token pair service, using IEANTxx modules

This is obviously an external that you didn't want but it may be helpful.

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 
Mike Shaw
Sent: Tuesday, March 21, 2023 11:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Is z/OS Name/Token pair retrieval supported from REXX?

Listers,

The answer to my question is probably "no" since the doc on IEANTRT is silent 
on this topic.

I need to be able to check for the existence of a specific name/token pair from 
a REXX exec, WITHOUT using an external function. The z/OS Authorized Assembler 
Services reference implies that only Assembler is supported, and I have used 
that interface to create/retrieve/delete name/token pairs, but I need to check 
for the existence of a specific name/token pair from a REXX  exec.

...and I suppose it is a given that there is no (documented) anchored chain of 
name/token pairs that I can run with the Rexx STORAGE function...

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

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

[W Mainframe]

Hi,
Some time ago I created a Rexx function in BAL code to perform IEANT service, 
nut there are a plus.The CBT784 has storage/release/linkedliat/ieant services.
RegardsDan Gaeta


Sent from Yahoo Mail for iPhone


On Tuesday, March 21, 2023, 1:15 PM, Mike Shaw  wrote:

Listers,

The answer to my question is probably "no" since the doc on IEANTRT is
silent on this topic.

I need to be able to check for the existence of a specific name/token pair
from a REXX exec, WITHOUT using an external function. The z/OS Authorized
Assembler Services reference implies that only Assembler is supported, and
I have used that interface to create/retrieve/delete name/token pairs, but
I need to check for the existence of a specific name/token pair from a
REXX  exec.

...and I suppose it is a given that there is no (documented) anchored chain
of name/token pairs that I can run with the Rexx STORAGE function...

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

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

[ITschak Mugzach]

It does.


/* REXX *** */
/* track down various name token pair pointers */
NUMERIC DIGITS 10
/* TCB level */
tcb = C2D(Storage(21C,4)) /* get current TCB */
if tcb \= 0 then do
stcb = C2D(Storage(D2X(tcb+312),4))
nttp = C2D(Storage(D2X(stcb+200),4))
If nttp \= 0 then Call donttp nttp,'Task'
end
/* ASCB level */
ascb = C2D(Storage(224,4)) /* get current ascb */
if ascb \= 0 then do
assb = C2D(Storage(D2X(ascb+336),4))
nttp = C2D(Storage(D2X(assb+220),4))
If nttp \= 0 then Call donttp nttp,'Address space'
end

/* system level */
cvt = C2d(Storage(10,4)) /* get CVT pointer */
ecvt = C2d(Storage(D2x(cvt+140),4)) /* get CVTECVT */
nttp = C2D(Storage(D2X(ecvt+140),4))
Call donttp nttp,'System'
exit 0
/* routine to report on name token pairs */
Donttp:
Parse Arg ptr,title
Say title' level NTTP at 'D2X(ptr)
eye = Storage(D2X(ptr),4)
If eye \= 'NTTH' then Do
Say '** Invalid eye catcher found for NTTP'
Return
End
base = C2D(Storage(D2X(ptr+64),4))
Do While base \= 0
tcbt = C2X(Storage(D2X(base+4),4))
name = Storage(D2X(base+8),16)
token = C2X(Storage(D2X(base+24),16))
Say 'Name 'name' from 'tcbt
display = X2C(token)
/* translate out characters between 00 and 3f */
display = TRANSLATE(display,,XRANGE(,'3f'x),'00'x)
Say ' Token = 'token' ('display')'
base = C2D(Storage(D2X(base+64),4))
End
Say ''
Return

ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon  *




On Tue, Mar 21, 2023 at 6:15 PM Mike Shaw  wrote:

> Listers,
>
> The answer to my question is probably "no" since the doc on IEANTRT is
> silent on this topic.
>
> I need to be able to check for the existence of a specific name/token pair
> from a REXX exec, WITHOUT using an external function. The z/OS Authorized
> Assembler Services reference implies that only Assembler is supported, and
> I have used that interface to create/retrieve/delete name/token pairs, but
> I need to check for the existence of a specific name/token pair from a
> REXX  exec.
>
> ...and I suppose it is a given that there is no (documented) anchored chain
> of name/token pairs that I can run with the Rexx STORAGE function...
>
> Mike Shaw
> MVS/QuickRef Support Group
> Chicago-Soft, Ltd.
>
> --
> 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

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

[Mike Shaw]

Listers,

The answer to my question is probably "no" since the doc on IEANTRT is
silent on this topic.

I need to be able to check for the existence of a specific name/token pair
from a REXX exec, WITHOUT using an external function. The z/OS Authorized
Assembler Services reference implies that only Assembler is supported, and
I have used that interface to create/retrieve/delete name/token pairs, but
I need to check for the existence of a specific name/token pair from a
REXX  exec.

...and I suppose it is a given that there is no (documented) anchored chain
of name/token pairs that I can run with the Rexx STORAGE function...

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

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

Re: Exact AT-TLS parms for SMP/E Download

[Paul Gilmartin]

On Tue, 21 Mar 2023 10:15:13 -0500, Charles Mills wrote:

>I understand that SMP/E electronic delivery now requires FTP secured via 
>AT-TLS.
>
Have they discontinued support for HTTPS?  Isn't that easier?


>Does anyone have an exact example of the required AT-TLS parms -- or a pointer 
>to where IBM documents the exact requirements?
>
Why is this so hard on the z?  Better security than on my desktop where It Just 
Works?


-- 
gil

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

Re: BSAM READ AMODE 31 RMODE 31

[Joseph Reichman]

All I want to say then is the comment next to the ST Rx,12(R1) says store 64 
bit pointer not saying  you are not right

Thank you 

> On Mar 21, 2023, at 11:43 AM, Seymour J Metz  wrote:
> 
> You have to give READ the address of the buffer, not the address of a 
> pointer to it.
> 
> For 64-bit there is a different DECB format; I believe that's SF64.
> 
> 
> From: IBM Mainframe Discussion List  on behalf of 
> Joseph Reichman 
> Sent: Tuesday, March 21, 2023 11:22 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: BSAM READ AMODE 31 RMODE 31
> 
> Still have problems
> 
> With the read
> 
> I tried last night and it worked let me explain
> 
> The address of the IO area I store in a full word
> IOBUFF
> 
> When I did LA R7,IOBUFF
> And then did
> 
> READ ADATADECB,SF,(R6),(R7),’S’,MF=E
> 
> It worked today morning didn’t change code had problems
> 
> When I did L R7,IOBUFF it didn’t
> 
> I know both Binyamin and Charles Mills in their example had Load but it 
> doesn’t make sense
> 
> At +12 is the address of a pointer to the IOAREA if that were the address it 
> self
> 
> What if you had a 64 bit pointer (which bsam supoorts) so it had to be a 
> pointer to where the pointer ( in 64 bit  that would 8 bytes )
> Thanks
> 
> 
>> On Mar 20, 2023, at 3:46 PM, Seymour J Metz  wrote:
>> 
>> IMHO it's clearer to just use
>> 
>> READ  PDSDECB,SF,PDSDCB,address _of_READ_buffer,MF=E
>> CHECK PDSDECB
>> 
>> 
>> --
>> 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: Monday, March 20, 2023 9:20 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: BSAM READ AMODE 31 RMODE 31
>> 
>>  Hi
>> 
>> 
>> 
>> I know Charles Mills answered my question nearly 4 weeks ago but I would
>> just like to corroborate the I/O areas for the read can be 31 bit addressing
>> only the dcb and decb need to be below the line
>> 
>> I am running AMODE 31 RMODE 31
>> 
>> 
>> 
>> The DCB is below the line as well as the DECB
>> 
>> 
>> 
>> My read returns ok
>> 
>> 
>> 
>> After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP
>> 
>> 
>> 
>> This the example that Charles sent to me does nt say anything about the
>> IOAREAS or pointers to the IOAREAS
>> 
>> 
>> 
>> LA Rn,PDSDCB
>> 
>> ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB
>> 
>> L Rn,address  of READ buffer
>> 
>> READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> This is my read
>> 
>> 
>> 
>> READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
>> 
>> 
>> 
>> The  IOBUFF is a full word  pointer to the storage I obtain
>> 
>> 
>> 
>> 
>> 
>> Here is my code
>> 
>> 
>> 
>> LAR0,IODSECTLEN
>> 
>> STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0
>> 
>> LRR9,R6
>> 
>> USING IHADCB,R9
>> 
>> USING IODSECT,R6
>> 
>> *
>> 
>> *
>> 
>> LAR7,SYSADATA
>> 
>> MVC   0(IODSECTLEN,R6),0(R7)
>> 
>> *
>> 
>> LAR7,SYSDCBE-SYSADATA(,R6)
>> 
>> STR7,DCBDCBE
>> 
>> LAR7,EX24LST-SYSADATA(,R6)
>> 
>> STCM  R7,B'0111',DCBEXLSA
>> 
>> LAR7,ABND24-SYSADATA(,R6)
>> 
>> STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)
>> 
>> LAR7,ABENDRTN
>> 
>> STR7,ABEND31-SYSADATA(,R6)
>> 
>> *
>> 
>> T  L R0,=F'31996'
>> 
>> *
>> 
>> STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0
>> 
>> *LAR7,IOAREA
>> 
>> *STR7,IOPTR
>> 
>> *
>> 
>> STR7,IOBUFF
>> 
>> MVC   OPEN_LST(OPEN_LEN),OPEN_CON
>> 
>> OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31
>> 
>> *
>> 
>> TMDCBOFLGS,DCBOFOPN
>> 
>> BZEXITDEBG
>> 
>> USING ASMADATA,R7
>> 
>> L R10,IOBUFF
>> 
>> PROCADATA DS   0H
>> 
>> READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
>> 
>> *
>> 
>> CHECK ADATADECB
>> 
>> *
>> 
>> 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
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 
>> 

Re: BSAM READ AMODE 31 RMODE 31

[Seymour J Metz]

You have to give READ the address of the buffer, not the address of a pointer 
to it.

For 64-bit there is a different DECB format; I believe that's SF64.


From: IBM Mainframe Discussion List  on behalf of 
Joseph Reichman 
Sent: Tuesday, March 21, 2023 11:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: BSAM READ AMODE 31 RMODE 31

Still have problems

With the read

I tried last night and it worked let me explain

The address of the IO area I store in a full word
IOBUFF

When I did LA R7,IOBUFF
And then did

READ ADATADECB,SF,(R6),(R7),’S’,MF=E

It worked today morning didn’t change code had problems

When I did L R7,IOBUFF it didn’t

I know both Binyamin and Charles Mills in their example had Load but it doesn’t 
make sense

At +12 is the address of a pointer to the IOAREA if that were the address it 
self

What if you had a 64 bit pointer (which bsam supoorts) so it had to be a 
pointer to where the pointer ( in 64 bit  that would 8 bytes )
Thanks


> On Mar 20, 2023, at 3:46 PM, Seymour J Metz  wrote:
>
> IMHO it's clearer to just use
>
> READ  PDSDECB,SF,PDSDCB,address _of_READ_buffer,MF=E
> CHECK PDSDECB
>
>
> --
> 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: Monday, March 20, 2023 9:20 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: BSAM READ AMODE 31 RMODE 31
>
>   Hi
>
>
>
> I know Charles Mills answered my question nearly 4 weeks ago but I would
> just like to corroborate the I/O areas for the read can be 31 bit addressing
> only the dcb and decb need to be below the line
>
> I am running AMODE 31 RMODE 31
>
>
>
> The DCB is below the line as well as the DECB
>
>
>
> My read returns ok
>
>
>
> After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP
>
>
>
> This the example that Charles sent to me does nt say anything about the
> IOAREAS or pointers to the IOAREAS
>
>
>
> LA Rn,PDSDCB
>
> ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB
>
> L Rn,address  of READ buffer
>
> READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB
>
>
>
>
>
>
>
>
>
> This is my read
>
>
>
> READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
>
>
>
> The  IOBUFF is a full word  pointer to the storage I obtain
>
>
>
>
>
>  Here is my code
>
>
>
>  LAR0,IODSECTLEN
>
>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0
>
>  LRR9,R6
>
>  USING IHADCB,R9
>
>  USING IODSECT,R6
>
> *
>
> *
>
>  LAR7,SYSADATA
>
>  MVC   0(IODSECTLEN,R6),0(R7)
>
> *
>
>  LAR7,SYSDCBE-SYSADATA(,R6)
>
>  STR7,DCBDCBE
>
>  LAR7,EX24LST-SYSADATA(,R6)
>
>  STCM  R7,B'0111',DCBEXLSA
>
>  LAR7,ABND24-SYSADATA(,R6)
>
>  STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)
>
>  LAR7,ABENDRTN
>
>  STR7,ABEND31-SYSADATA(,R6)
>
> *
>
> T  L R0,=F'31996'
>
> *
>
>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0
>
> *LAR7,IOAREA
>
> *STR7,IOPTR
>
> *
>
>  STR7,IOBUFF
>
>  MVC   OPEN_LST(OPEN_LEN),OPEN_CON
>
>  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31
>
> *
>
>  TMDCBOFLGS,DCBOFOPN
>
>  BZEXITDEBG
>
>  USING ASMADATA,R7
>
>  L R10,IOBUFF
>
> PROCADATA DS   0H
>
>  READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
>
> *
>
>  CHECK ADATADECB
>
> *
>
> 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
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> --
> 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,

Re: BSAM READ AMODE 31 RMODE 31

[Joseph Reichman]

Forgot to mention the DECB is RMODE 24

> On Mar 20, 2023, at 3:46 PM, Seymour J Metz  wrote:
> 
> IMHO it's clearer to just use
> 
> READ  PDSDECB,SF,PDSDCB,address _of_READ_buffer,MF=E
> CHECK PDSDECB 
> 
> 
> --
> 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: Monday, March 20, 2023 9:20 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: BSAM READ AMODE 31 RMODE 31
> 
>   Hi
> 
> 
> 
> I know Charles Mills answered my question nearly 4 weeks ago but I would
> just like to corroborate the I/O areas for the read can be 31 bit addressing
> only the dcb and decb need to be below the line
> 
> I am running AMODE 31 RMODE 31
> 
> 
> 
> The DCB is below the line as well as the DECB
> 
> 
> 
> My read returns ok
> 
> 
> 
> After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP
> 
> 
> 
> This the example that Charles sent to me does nt say anything about the
> IOAREAS or pointers to the IOAREAS
> 
> 
> 
> LA Rn,PDSDCB
> 
> ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB
> 
> L Rn,address  of READ buffer
> 
> READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB
> 
> 
> 
> 
> 
> 
> 
> 
> 
> This is my read
> 
> 
> 
> READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
> 
> 
> 
> The  IOBUFF is a full word  pointer to the storage I obtain
> 
> 
> 
> 
> 
>  Here is my code
> 
> 
> 
>  LAR0,IODSECTLEN
> 
>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0
> 
>  LRR9,R6
> 
>  USING IHADCB,R9
> 
>  USING IODSECT,R6
> 
> *
> 
> *
> 
>  LAR7,SYSADATA
> 
>  MVC   0(IODSECTLEN,R6),0(R7)
> 
> *
> 
>  LAR7,SYSDCBE-SYSADATA(,R6)
> 
>  STR7,DCBDCBE
> 
>  LAR7,EX24LST-SYSADATA(,R6)
> 
>  STCM  R7,B'0111',DCBEXLSA
> 
>  LAR7,ABND24-SYSADATA(,R6)
> 
>  STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)
> 
>  LAR7,ABENDRTN
> 
>  STR7,ABEND31-SYSADATA(,R6)
> 
> *
> 
> T  L R0,=F'31996'
> 
> *
> 
>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0
> 
> *LAR7,IOAREA
> 
> *STR7,IOPTR
> 
> *
> 
>  STR7,IOBUFF
> 
>  MVC   OPEN_LST(OPEN_LEN),OPEN_CON
> 
>  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31
> 
> *
> 
>  TMDCBOFLGS,DCBOFOPN
> 
>  BZEXITDEBG
> 
>  USING ASMADATA,R7
> 
>  L R10,IOBUFF
> 
> PROCADATA DS   0H
> 
>  READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
> 
> *
> 
>  CHECK ADATADECB
> 
> *
> 
> 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
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> --
> 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: BSAM READ AMODE 31 RMODE 31

[Joseph Reichman]

Still have problems 

With the read 

I tried last night and it worked let me explain 

The address of the IO area I store in a full word 
IOBUFF

When I did LA R7,IOBUFF  
And then did 

READ ADATADECB,SF,(R6),(R7),’S’,MF=E

It worked today morning didn’t change code had problems 

When I did L R7,IOBUFF it didn’t 

I know both Binyamin and Charles Mills in their example had Load but it doesn’t 
make sense 

At +12 is the address of a pointer to the IOAREA if that were the address it 
self 

What if you had a 64 bit pointer (which bsam supoorts) so it had to be a 
pointer to where the pointer ( in 64 bit  that would 8 bytes ) 
Thanks 


> On Mar 20, 2023, at 3:46 PM, Seymour J Metz  wrote:
> 
> IMHO it's clearer to just use
> 
> READ  PDSDECB,SF,PDSDCB,address _of_READ_buffer,MF=E
> CHECK PDSDECB 
> 
> 
> --
> 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: Monday, March 20, 2023 9:20 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: BSAM READ AMODE 31 RMODE 31
> 
>   Hi
> 
> 
> 
> I know Charles Mills answered my question nearly 4 weeks ago but I would
> just like to corroborate the I/O areas for the read can be 31 bit addressing
> only the dcb and decb need to be below the line
> 
> I am running AMODE 31 RMODE 31
> 
> 
> 
> The DCB is below the line as well as the DECB
> 
> 
> 
> My read returns ok
> 
> 
> 
> After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP
> 
> 
> 
> This the example that Charles sent to me does nt say anything about the
> IOAREAS or pointers to the IOAREAS
> 
> 
> 
> LA Rn,PDSDCB
> 
> ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB
> 
> L Rn,address  of READ buffer
> 
> READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB
> 
> 
> 
> 
> 
> 
> 
> 
> 
> This is my read
> 
> 
> 
> READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
> 
> 
> 
> The  IOBUFF is a full word  pointer to the storage I obtain
> 
> 
> 
> 
> 
>  Here is my code
> 
> 
> 
>  LAR0,IODSECTLEN
> 
>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0
> 
>  LRR9,R6
> 
>  USING IHADCB,R9
> 
>  USING IODSECT,R6
> 
> *
> 
> *
> 
>  LAR7,SYSADATA
> 
>  MVC   0(IODSECTLEN,R6),0(R7)
> 
> *
> 
>  LAR7,SYSDCBE-SYSADATA(,R6)
> 
>  STR7,DCBDCBE
> 
>  LAR7,EX24LST-SYSADATA(,R6)
> 
>  STCM  R7,B'0111',DCBEXLSA
> 
>  LAR7,ABND24-SYSADATA(,R6)
> 
>  STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)
> 
>  LAR7,ABENDRTN
> 
>  STR7,ABEND31-SYSADATA(,R6)
> 
> *
> 
> T  L R0,=F'31996'
> 
> *
> 
>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0
> 
> *LAR7,IOAREA
> 
> *STR7,IOPTR
> 
> *
> 
>  STR7,IOBUFF
> 
>  MVC   OPEN_LST(OPEN_LEN),OPEN_CON
> 
>  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31
> 
> *
> 
>  TMDCBOFLGS,DCBOFOPN
> 
>  BZEXITDEBG
> 
>  USING ASMADATA,R7
> 
>  L R10,IOBUFF
> 
> PROCADATA DS   0H
> 
>  READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
> 
> *
> 
>  CHECK ADATADECB
> 
> *
> 
> 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
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> --
> 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

Exact AT-TLS parms for SMP/E Download

[Charles Mills]

I understand that SMP/E electronic delivery now requires FTP secured via AT-TLS.

Does anyone have an exact example of the required AT-TLS parms -- or a pointer 
to where IBM documents the exact requirements?

Not a statement that AT-TLS is required. I get that. Not general AT-TLS 
configuration documentation. I have that. But specifically what the IBM 
electronic delivery FTP site requires from AT-TLS?

Thanks,
Charles

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

Re: Question for our international friends (mostly)

[Jeremy Nicoll]

On Tue, 21 Mar 2023, at 13:59, Seymour J Metz wrote:
> And bum is equivalent to the a-word.

Yes of course, but there's still a difference in severity been (say) calling
someone an a*s/ar*e and the other ... though there is (in Scotland, and
for all I know elsewhere too) a vernacular way (maybe commonest in 
Glasgow?) in which referring to eg "that bunch of people" over there
as "they c*nts" is much less offensive than saying directly to your pal
or shouting across the street "you're a c*nt". In this sense "they c*nts"
is no worse than "those blokes".

(NB I'm not precious about using the word but some people's email
systems especially on corporate systems might not like me using it
in full.)

-- 
Jeremy Nicoll - my opinions are my own.

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

Re: PL/I Opt. Compiler V2 manuals?

[Seymour J Metz]

Yes, but why doesn't it go into a save dialog instead of rendering it 
inappropriately?


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Mike Schwab [mike.a.sch...@gmail.com]
Sent: Sunday, March 19, 2023 9:15 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PL/I Opt. Compiler V2 manuals?

With a .boo ending, you need to use a bookmanager viewer.

On Sun, Mar 19, 2023 at 7:39 PM Robin Vowels  wrote:
>
> On 2023-03-20 11:32, Peter Stockdill wrote:
> > Hi Robin,
> >
> > The first four are direct links to the BookManager book files.
> > The fifth should have been:
> > http://secure-web.cisco.com/1U08Rm2j6fYNp8Jh8eR8ICgE4hnrCH578H0EFyXcv8yS_G8Li99atmMZ3OMRvUvTbRTO5WwToIyLT9oD3tadl8e67J5N6OsD5qOpWcNASHrefrPYKd6eQLEDsaXQrciM40V2so9ugGpCR3-APQBYZxe0fkrjVXh2JZOMJszLIcRjc8_H6C1B2N3J_l36WMi2JcuOJilgzzC6Tw4gD07LVmD12umskwPLY23IfY093ZM2iTu2BaHJR8Ng0uY0lpTsrg1XXCgBzkD_Wv5_I5hgAseSUwDX1sC1UU83cSzkH1b0bMs7T6-Xn85mL0twKmrJVI5BsTVBQq3B1ErLD5Ddvq_XWh319tD6H4Ww29xIlkcllDuxrX7VIhA_aEI7HlGuSEe-AGEGjv1Y2_Uad_fkJm-EQxfLRV-9SqE2NQKXCN7I/http%3A%2F%2Fwww.bitsavers.org%2Fpdf%2Fibm%2F370%2Fpli%2FLY27-9528-0_OS_PLI_Version_2_Proble
> > m_Determination_Dec87.pdf
>
> As I said, the last link is OK.
> The first four links are bad. jibberish is shown, like we are looking at
> a character print of some binary file.
>
> > Cheers,
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> > Behalf Of
> > Robin Vowels
> > Sent: Monday, 20 March 2023 8:12 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: PL/I Opt. Compiler V2 manuals?
> >
> > Except for the last, the links are incomplete.
> >
> > On 2023-03-20 08:06, Peter Stockdill wrote:
> >> https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fpublib.boulder.ibm.com%2Fepubs%2Fbook%2Fibmop002.boo=05%7C01%7Csmetz3%40gmu.edu%7C6e3d9a7064eb4d28d10208db28e0df3e%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638148718517346202%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C=%2BZdzQLLvJ3yT9MxHr8R%2B%2BmgX3%2FcALv%2FBL2chEidQLus%3D=0
> >> https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fpublib.boulder.ibm.com%2Fepubs%2Fbook%2Fibmol004.boo=05%7C01%7Csmetz3%40gmu.edu%7C6e3d9a7064eb4d28d10208db28e0df3e%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638148718517346202%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C=KYLTvHAT4nN%2BSBBt%2F9BQoWvH556XTKaBXxSFfAw6s9E%3D=0
> >> https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fpublib.boulder.ibm.com%2Fepubs%2Fbook%2Fibmom002.boo=05%7C01%7Csmetz3%40gmu.edu%7C6e3d9a7064eb4d28d10208db28e0df3e%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638148718517346202%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C=yZoP6LMuQjZ%2FDySHe2Lz7xvydZM57lADpFl0n1RlKgg%3D=0
> >> https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fpublib.boulder.ibm.com%2Fepubs%2Fbook%2Fibmot001.boo=05%7C01%7Csmetz3%40gmu.edu%7C6e3d9a7064eb4d28d10208db28e0df3e%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638148718517346202%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C=biArLf5Y0eh3ypCCuf15TkqF%2BlfKUEGF7e1pVUbCO0Y%3D=0
> >> http://secure-web.cisco.com/1aJrlBbUWMfWhJH1Uz4oco7_vPtbIUJ5Uo6insBfqj3lt9nBB1638CA_EUIlFhj9ZR-oIOJHVhoXtxsJOG0DczThUAnT-UKr1potlzIFSHqZWsy4RmDJXCzESNur8Y2hLLOMbtx-DqrqtxTzlq0CvvSjkiUjDIN-qTemiCGHd9k2TXh4wsIsDQsUaqXsWA5yP2CzoWzPNGSENh8N94Nn-WJq2yENpXHiK8abyyKgFlNgJgLPU_vc3iCegEe6E9Flhz7kkHPUbSFsf5_Zp0sVvmx6HXPdAcr2_40_oHilb9JoKSbACMW8jxz-K3R7YrVMbb_rvqbWlGTuYGQ6q1FVTh4L3jUu2vaOsKGF0bNJD-L7tnHfTauufPKEpaz9ORhOBEAnyWLyHbj4U5NWt9TzFiV5tIV59LaU43UiJmDeqn4Y/http%3A%2F%2Fwww.bitsavers.org%2Fpdf%2Fibm%2F370%2Fpli%2FLY27-9528-0_OS_PLI_Version_2_
> >> Problem_Determination_Dec87.pdf
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



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

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


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

Re: Question for our international friends (mostly)

[Seymour J Metz]

And bum is equivalent to the a-word.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Jeremy Nicoll [jn.ls.mfrm...@letterboxes.org]
Sent: Tuesday, March 21, 2023 9:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question for our international friends (mostly)

On Tue, 21 Mar 2023, at 13:11, Seymour J Metz wrote:

> I also don't understand why fanny pack is offensive  ...

Fanny is equivalent to the c-word ...

--
Jeremy Nicoll - my opinions are my own.

--
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: Question for our international friends (mostly)

[Jeremy Nicoll]

On Tue, 21 Mar 2023, at 13:11, Seymour J Metz wrote:

> I also don't understand why fanny pack is offensive  ...

Fanny is equivalent to the c-word ...

-- 
Jeremy Nicoll - my opinions are my own.

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

Re: Question for our international friends (mostly)

[Seymour J Metz]

Oddly enough, Fanny is, or was, a perfectly proper diminutive for Frances.

I'm really bad on clothing nomenclature, but wiki claims "Historically, the bag 
was positioned in front of the body,"; from this I infer that the American 
nomenclature is perfectly appropriate in the UK. I also don't understand why 
fanny pack is offensive but bum bag is not.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Schmutzok, Mike (US - Georgia) [02dd6b12f291-dmarc-requ...@listserv.ua.edu]
Sent: Tuesday, March 21, 2023 8:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question for our international friends (mostly)

' Well, UK English can also get us Americans in trouble, e.g., "fanny".'


Yep, made that mistake once. My wife and I were on a bus tour in Ireland and I 
asked my wife to get something out of her fanny pack and a trio of English 
ladies quickly corrected me on that usage…


Fiserv

Michael Schmutzok
Systems Engineering - Advisor II
FISERV Technology Services

Fiserv
World’s Most Innovative Companies 2022 | Fast Company
Fiserv
 | Join Our 
Team
 | 
Twitter
 | 
LinkedIn
 | Facebook

© 2022 Fiserv Inc. or its affiliates. Fiserv is a registered trademark of 
Fiserv Inc. Privacy Notice
Fast
 Company is a registered trademark of Mansueto Ventures LLC.





--
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: Question for our international friends (mostly)

[Schmutzok, Mike (US - Georgia)]

' Well, UK English can also get us Americans in trouble, e.g., "fanny".'


Yep, made that mistake once. My wife and I were on a bus tour in Ireland and I 
asked my wife to get something out of her fanny pack and a trio of English 
ladies quickly corrected me on that usage…


Fiserv

Michael Schmutzok
Systems Engineering - Advisor II
FISERV Technology Services

Fiserv
World’s Most Innovative Companies 2022 | Fast Company
Fiserv | Join 
Our 
Team
 | Twitter | 
LinkedIn | Facebook

© 2022 Fiserv Inc. or its affiliates. Fiserv is a registered trademark of 
Fiserv Inc. Privacy Notice
Fast
 Company is a registered trademark of Mansueto Ventures LLC.





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

Re: Build problems under Unix System Services

[Neale Ferguson]

The initial question about include files, that depends on what was used for the 
#include in the source. If it was something like #include “abc.h” then it 
should take the current directory first (see the LSEARCH option defaults). Only 
if they used the #include  form in the source would they get the issue 
they mentioned since that is a system include which uses the system paths 
(obvious security issue if it took the current working directory first for 
system headers).
- There's a namespace clash with termcap.h but on Linux systems it doesn't 
matter as the contents are identical. Not so with z/OS.

For the second issue about the file type error, they can try setting the CCMODE 
environment variable. Ex. Do
export _C89_CCMODE=1
before the compilation command. Note that keeping the -L and -l is fine and 
should work as well.
- Perfect! 

Thanks.


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