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:
/* 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) Sorry about upper-case, it was an accident. sas On Wed, Mar 22, 2023 at 4:22 AM Steve Austin <[email protected]> wrote: > This works for me; > > 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 > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
