Bob, thanks, but I guess I need to dig deeper into the REXX manuals. I haven't done a ton of REXX work in years, except for some IPCS stuff, and this one has me stumped. The token contains an address and other data. I was expecting that REXX(TOKEN(VAR)) would behave similar to REXX(STORAGE(VAR)) does in the evaluate and set the variable to an external format, since it doesn't, I need to find the REXX function to get it into this format.
Wayne Driscoll Product Developer JME Software LLC NOTE: All opinions are strictly my own. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Robert Wright Sent: Friday, February 01, 2008 8:26 PM To: [email protected] Subject: Re: IPCS NAMETOKN Command Wayne Driscoll wrote: > Once again I find myself writing IPCS formatting execs. My application > makes use of name/token pairs, and I am attempting to track down the > contents. I know how to dig the contents out myself, but I would prefer > to use the supported method, but I am having a problem. I issue the > command > Nametokn ASCBnnn nolist rexx(token(tokeval)) > And if tokeval changes from the pre-seed that I use, I know I have token > I am looking for. All good. However, the contents of the rexx variable > is unformatted data, so how do I utilize the data? If I specify LIST it > is able to format the data, but I want to use the data for later > processing (basically I would like to perform in a program actions > similar to the actions done manually in the second example of the > NAMETOKN command in the IPCS Commands manual. REXX provides you the means to break TOKEVAL apart into the bytes that have independent meaning to your application. If some of that data yields a storage address or length, REXX can convert the binary value to an EBCDIC one that can be substituted into an appropriate IPCS subcommand to access the addressed data and the length of the instance referenced. If the piece is truly EBCDIC and printable in the 1st place, no conversion is needed. Bob Wright - MVS Service Aids ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
