On Mon, 19 Dec 2022, 15:16 Paul Gorlinsky, <p...@atsmigrations.com> wrote:
> Results from a zos 2.4 system
>
> /* */
> Say c2x(Storage("10",8))
> Say c2x(Storage(10+0,4))
> Say c2x(Storage(10+4,4))
> Z = c2x(Storage(10,4))
> Say c2x(Storage(Z,8))
>
> Results:
>
> 00FD4EA800000000
> 00FD4EA8
> 00000000
> 0000021800FED054
>
> Any comments?
>
> ----------------------------------
>From memory*, if you want 8 bytes at CVTPTR then that last line should be
say c2x(storage(c2x(Z),8)).
I'm thinking the return from storage is raw data, so to use it as a pointer
represented in hex for storage() you need c2x().
*memory is old, and there are more hex and bin functions available now than
there were back in the '90s.
Roops
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
