MVSFORUMS.com

arunmr4 · Beginner Joined: 19 Dec 2005 Posts: 23 Topics: 8

Hi,
I need to write to a PS a numeric value (for eg. 2005) so that it gets stored in hexadecimal format. Is there a way to do this using Rexx.

Thank you

amit4u79 · Posted: Tue Dec 27, 2005 4:12 am Post subject:

Hi Arun,
The simplest way I can think is to convert your decimal to hexadecimal and write the output to the file :

/* REXX */
say 'enter your decimal value :'
pull dec_val
amit = d2x(dec_val)
say amit
Exit

Here get the variable dec_val as the input digit and then write the variable amit to the file which will be written to the file in an equivalent hex format.
_________________
I did not fail; I have found 10,000 ways that would not work - Albert Einstein.

dtf · Posted: Tue Dec 27, 2005 11:51 pm Post subject:

I guess I am not really sure what you want to do........

This value in Zone decimal would be X'F2F0F0F5' if you were to display it in HEX format in ISPF. It would take up 4 bytes.

The question seems to indicate that you'd like it stored in binary. Like a COMP field in COBOL. Is that correct?

Hexadecimal is really just an external shorthand for binary. The hex representation of this number which would fit into a halfword (2 bytes) is X'07DF' is that what you want?
________
roor bong

arunmr4 · Beginner Joined: 19 Dec 2005 Posts: 23 Topics: 8

Thanks amit but what I wan't to do is to store the value in packed format in the PS. Can you help dtf. Usually what I do now is to open the PS, do a hex and edit the values. And when I do a hex off the changes will be reflected as special characters.
Thanks

kolusu · Posted: Wed Dec 28, 2005 8:48 am Post subject:

arunmr4,

Try this

arunmr4 · Beginner Joined: 19 Dec 2005 Posts: 23 Topics: 8

Thanks a lot kolusu. Its working for me. If you have time please explain the statement
INTERPRET "PACK_NUM = '"DEC_NUM"C'X"

kolusu · Posted: Thu Dec 29, 2005 5:50 am Post subject:

arunmr4,

Check this link for a detailed explanation of INTERPRET

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A330/3.8?DT=20020521161835

The C & D are used to denote the signs positive and negative respectively.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

arunmr4 · Beginner Joined: 19 Dec 2005 Posts: 23 Topics: 8

Thanks a lot Kolusu
Arun

arunmr4 · Beginner Joined: 19 Dec 2005 Posts: 23 Topics: 8

Hi Kolusu,

In the statement "PACK_NUM = '"DEC_NUM"C'X" what is X. Is it a key word. What else can come in its place. I need to explain this to my colleagues. If you can just provide a link that will do.

Thanks,
Arun

Mervyn · Posted: Thu Jan 05, 2006 4:25 am Post subject:

Arun,

If DEC_NUM contains "2005" then the INTERPRET will yield the statement "PACK_NUM = '2005C'X". Take a look at the "Hexadecimal Strings" section here:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A350/2.1.3?SHELF=&DT=20040623084642&CASE=
_________________
The day you stop learning the dinosaur becomes extinct

semigeezer · Posted: Thu Jan 05, 2006 9:31 am Post subject:

Usually, when writing a visually complex interpret statement like this, it is good to do something like this:

arunmr4 · Beginner Joined: 19 Dec 2005 Posts: 23 Topics: 8

Thanks Mervyn and semigeezer.