MVSFORUMS.com

rajkumar_1981 · Beginner Joined: 05 Jan 2007 Posts: 5 Topics: 4

hi,

input
------
01 a pic x value '+'

01 b pic 9(4)

output
-------
01 c pic s9(4).

to populate the input value into output.

for example,

a=+(x) , b=1000(9(4))

c=+1000(in s9(4))

Please help me...

CICS Guy · Intermediate Joined: 30 Apr 2007 Posts: 292 Topics: 3

If a will always be "+", just move b to c.
If a might be "+" or "-", use a conditional to set the sign such as:
move zero to c
if a = '+' add b to c
if a = '-' subtract b from c

The "S" in the pic of c is not a plus or minus sign, is is actually a difference in the high half of the low-order byte.

rajkumar_1981 · Beginner Joined: 05 Jan 2007 Posts: 5 Topics: 4

dbzTHEdinosauer · Posted: Thu Jun 07, 2007 12:46 am Post subject:

rajkumar_1981,

signed display numeric values can have their sign either leading or trailing - indicated by the 'leading or trailing clause' in the element definition.

If you wish to actually move the sign character, then c needs to be redefined. You should refer to the manual for information how to accomplish this for your student project.

A professional would write code that would work for either trailing/leading as well as display and Packed-decimal - or any other numeric designation. That way, if the data definition changes, the code must not.