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
