how can i move 1.20 to numeric data type statically

vnbabu.au · Posted: Tue Dec 12, 2006 5:41 pm

i have one application. in that, i need to calculate
salary=designation code *hours worked * incentive factor.
incentive factor = 1.00 for 1st quarter,
= 1.10 for 2nd quarter
= 1.20 for 3rd quarter
= 1.30 for 4th quarter

how can i move these to incentive factor.
there is limitation in value claus and also in 'move statemeent;

Rajen · New User Joined: 05 May 2005 Posts: 61

Hi vnbabu,

You can define variable for Incentive Factor as
WS-INCENTIVE-FAC PIC 9(3)v9(2).

Now based on Quarter value (1st,2nd,3rd,4th) you move 1.00,1.10,1.20,1.30 to this variable.

This variable will take 5 bytes. you can increase/decrease picture clause value based on your requirement.

Let me know if it worked or not.

Thanks,
Rajen.

Arun Raj · Posted: Tue Dec 12, 2006 6:59 pm

Hi

vnbabu.au · Posted: Wed Dec 13, 2006 6:28 pm

o.k, thanks rajen.
but i get soc7 abend as i us that icentive factor in arithmetic operation.
how can i over come.

William Thompson · Posted: Wed Dec 13, 2006 6:39 pm

How is the "incentive factor" being loaded with the "1.00" and what is the definition of "salary", "designation code", "hours worked" and "incentive factor"?

sankar_MF · New User Joined: 19 Sep 2006 Posts: 29

Hi vnbabu,

If you declare the Incentive factor as 9(3)99, as Rajen said, it won't abend.It will work fine. can u please check once again.

Thanks
Sankar

Rajen · New User Joined: 05 May 2005 Posts: 61

Hi vnbabu,
You got soc7 abend as i us that icentive factor in arithmetic operation.

This might have happened because you are trying to add Incentive Factor to some variable which not of the proper picture clause.

Remember when you declare