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 = '00000004'X >NAME = LEFT(NAME,16) >TOKEN = '00000000000000000000000000000000'X >RETCODE = '00000000'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='00000004'x >> name=left(serverName,16) >> token='00000000000000000000000000000000'x >> retcode='00000000'x >> do until retcode = '00000004'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
