I am trying to loop through all variables that are defined in my currently
running REXX script.
I thought I could use the variable access routing IKJCT441 with entry code
TSVELOC (returns all active variables and their values).
But the following REXX code does not behave as I expected:
/* REXX */
ECODE = x2c("00000003") /* TSVELOC */
NAMEPTR = x2c("00000000")
NAMELEN = x2c("00000000")
VALUEPTR = x2c("00000000")
VALUELEN = x2c("00000000")
TOKEN = x2c("00000000")
ECT = x2c("FFFFFFFF")
RETCODE = x2c("00000000")
address linkpgm
"IKJCT441 ECODE NAMEPTR NAMELEN VALUEPTR VALUELEN TOKEN ECT RETCODE"
say "retcode = "||c2d(RETCODE)
say "name = "||storage(c2x(NAMEPTR),c2d(NAMELEN))
say "token = "||c2x(TOKEN)
If I understand the documentation right, a call to IKJCT441 with a zero'ed
TOKEN on input should return the first variable and fill the TOKEN. The
next call to IKJCT441 would than return the next variable and another
TOKEN.
The output from the above code on our z/OS 1.8 is:
retcode = 0
name = ECT
token = 00000000
It seems that IKJCT441 returns the first variable (ECT) but the token
value is still zero, so I can't use it for the next call to IKJCT441.
Any ideas?
Axel.
--------------------------------------------------------------
Axel Miller
PPI AG Informationstechnologie
Wall 55
24103 Kiel
Telefon: 0431 / 888 10 - 1 43
Telefax: 0431 / 53 53 - 1 11
E-Mail: mailto:[EMAIL PROTECTED]
Web: http://www.ppi.de
--------------------------------------------------------------------------
Registergericht: Amtsgericht Hamburg, HRB 76312
Vorstand: Uwe Prieß (Vorsitzender), Andreas Achner, Thomas Reher
Aufsichtsratsvorsitzender: Peter Pape
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
