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 <IBM-MAIN@LISTSERV.UA.EDU> 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 <techsupp...@quickref.com> 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
