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 <
0000031df298a9da-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 <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
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
