Movement of X field to a S9(04) comp field

tecnokrat

Hi all,

I have encountered a problem

i have a PIC X (02) FIELD which has the value say '03'.

Now i have to move this value to a PIC S9(04) COMP field

probably it should also have the same value +02 but its getting a value +00200 in it.

Can you please help me in this like how to get the same value as that of X(02).

CICS Guy · Posted: Mon Apr 05, 2010 12:39 pm Post subject:

tecnokrat · Posted: Mon Apr 05, 2010 12:48 pm Post subject:

PIC X(02) FIELD has value exactly '02'

now if i move this field to a PIC S9(04) COMP FIELD

the value in this PIC S9(04) FIELD HAS '+00200' in it.

Ranjithkumar · New User Joined: 10 Sep 2008 Posts: 94 Location: India

With the following code,

CICS Guy · Posted: Mon Apr 05, 2010 1:01 pm Post subject:

77 FROM-FIELD PIC X(02) VALUE '02'.
77 TO-FIELD PIC S9(04).

DISPLAY '*' FROM-FIELD '*'.
MOVE FROM-FIELD TO TO-FIELD.
DISPLAY '*' TO-FIELD '*'.

*02*
*0002*

Where does the above code differ from your code?

tecnokrat · Posted: Mon Apr 05, 2010 2:52 pm Post subject:

Hi all, i found the cause for it

Thanks for the input.

The fields was of X(04) which was having '02__'

and now if this field was moved to a S9(04) COMP field it was taking '+0200' in it.

So the possible answer i got was to reference modification.

taking the first two bytes of a X(04) variable and moving into a S9(04) COMP field.

possible learning from this : X field are left justified and 9 fields are right justified.

dbzTHEdinosauer · Posted: Mon Apr 05, 2010 5:08 pm Post subject:

your POSSIBLE LEARNING is actually basic knowledge
that would be acquired by reading a manual before trying to lay code.
why don't you use NUMVAL? - which is also in the manual that you have not read.