REXX to convert Packed Signed Decimal to Decimal or Integer 1

[techtip07]

Hello everybody,

I have a fixed length dataset file in Mainframes having a few thousands of records,where some of the fields are integers and others are PACKED SIGNED DECIMALs. How could I convert these PACKED DECIMALs to INTEGER or DECIMAL ?
Could someone help me with a REXX program to do this ?

Thank you.

 

[rexxhead]

The REXX builtin function C2X wil convert a string into its hexadecimal characters. If you were to

C2X(some_4_byte_packed_field)

you might receive in response "0002156C" (that is, +2156).

You would want to snip the low-order character ("C" in this case) and add "0". This has the effect of trimming leading zeroes; there are other ways to do this, too.


Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[techtip07]

Hi Frank,

Thank you,.I got that function,could u help me in writing the REXX as I am not familiar with it.
A template would do.

thank you

 

[rexxhead]

No, that would be a conflict-of-interest since my employer pays me to do exactly that.

REXX is actually very easy to write -- very intuitive. Try it. You'll probably have no trouble.


Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster