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 [email protected] with the message: INFO IBM-MAIN
