Read Decimal Value from JCL into REXX

HameedAli · Active User Joined: 16 Apr 2009 Posts: 151 Location: India

I have coded a REXX Program, to read the contents of a file into a stem variable.
I'm trying to add a particular position in the file, say 100,10
I'm aware it is a decimal value, but when I try to add it, The value of the stem is like

superk · Posted: Tue Oct 05, 2010 9:29 pm

You've been asked before to do this on other topics. Post the content of the data in question as hexadecimal.

Akatsukami · Posted: Tue Oct 05, 2010 9:30 pm

I believe that you will use the Rexx built-in C2D function.

HameedAli · Active User Joined: 16 Apr 2009 Posts: 151 Location: India

here is the data, 15,8 is the position.

enrico-sorichetti · Posted: Tue Oct 05, 2010 10:22 pm

You might get better help if You would post the hex representation of the <things>

dick scherrer · Posted: Tue Oct 05, 2010 10:45 pm

Hello,

HameedAli · Active User Joined: 16 Apr 2009 Posts: 151 Location: India

Excuse me for the drag. Please help me out in getting 115,8 as decimal value in REXX

dbzTHEdinosauer · Posted: Tue Oct 05, 2010 11:02 pm

Hameed Ali,

Akatsukami has already suggested something that may work.

for the future:
do you even bother to debug this stuff that you write,
or do you just blindly execute and when it does not work, ask for a solution?

you should have run this using TRACE, which would have provided you with something to work with.

This is a very easy and elemental problem to debug. you need to increase your skill level,
as well as,
provide people answers to their questions.
This silliness has been going on for 2 hours and you are nowhere near
solving your problem.

and another thing. obviously your are a beginner at REXX
and
have not bother to learn or understand the language.
everything in REXX is char (x-type).
there are many functions which will convert data from one datatype to another.

you need to read.

Akatsukami · Posted: Tue Oct 05, 2010 11:05 pm

Actually, Hameed, none of the records that you have chosen to display contain the value 115.8, so you will never see that as your output from this sample.

Nonetheless, try this:

Substring the packed decimal number to work variable #1
Use work variable #1 as the argument to the C2D function giving work variable #2
Insert a decimal separation into work variable #2 at the appropriate place (note that there is no inherent means of representing scale in packed decimal numbers; you have to know where it is)
Use as desired.

superk · Posted: Tue Oct 05, 2010 11:18 pm

If you find at some point that you want to convert packed-decimal to decimal, you can try the P2D function shown in this previous topic.

enrico-sorichetti · Posted: Tue Oct 05, 2010 11:36 pm

searching forums for my posts with "REXX PACK UNPACK"
will certainly point You to ...

ibmmainframes.com/viewtopic.php?t=41407&highlight=rexx+pack+unpack

which in turn will suggest

ibmmainframes.com/viewtopic.php?t=31547&postdays=0&postorder=asc&start=15

ibmmainframes.com/viewtopic.php?t=27921&highlight=rexx+pack+unpack

Pedro · Posted: Wed Oct 06, 2010 1:44 am

It is not clear what this has to do with "Read Decimal Value from JCL into REXX".

Akatsukami · Posted: Wed Oct 06, 2010 2:04 am

Probably because the OP's request actually has nothing to do with "read decimal value from JCL into Rexx".

dick scherrer · Posted: Wed Oct 06, 2010 2:37 am

Hello,

Not sure if this applies to this topic, but unfortunately, we have many participants who believe that inline/instream data, code, or control statements are JCL . . .