It dump the pairs, but you can always use IF and LEAVE... בתאריך יום ג׳, 21 במרץ 2023 ב-19:24 מאת Paul Gilmartin < 0000042bfe9c879d-dmarc-requ...@listserv.ua.edu>:
> On Tue, 21 Mar 2023 16:51:17 +0000, 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