It sort of works. You are supposed to get a return code of '20'x that tells you that you came to the last variable. But this doesn't return any return codes.
It's funny, I put it into a loop and sometimes it returned multiple variables and sometimes it didn't. Try it. The most I could get it to return was two. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Axel Miller Sent: 1. syyskuuta 2008 15:14 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: linkpgm "IKJCT441" does not return TOKEN In article <[EMAIL PROTECTED]>, Lindy Mayfield says... > Have you looked at a dump to see if the variables are returned? Name and value of the (first) variable are returned. I added the vaiable X and a "say" of the value to my example: /* 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") X = "MY FUNNY VALUE" address linkpgm "IKJCT441 ECODE NAMEPTR NAMELEN VALUEPTR VALUELEN TOKEN ECT RETCODE" say "retcode = "||c2d(RETCODE) say "name = "||storage(c2x(NAMEPTR),c2d(NAMELEN)) say "value = "||storage(c2x(VALUEPTR),c2d(VALUELEN)) say "token = "||c2x(TOKEN) I get: retcode = 0 name = X value = MY FUNNY VALUE token = 00000000 ---------------------------------------------------------------------- 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
