MVSFORUMS.com

[Sarangadhar]

for one of the numeric item, I defined my input copybook as unsigned data field; Eg.: PIC 9(4).

If input fiel contains negative value (because my source system sends negative value), what my program receives? Will program just take the value and ignores the sign OR interpretes into some other value?
_________________
Thanks

[Terry_Heinze]

It will move in the absolute value of the sending field. Also, you might get a compile time warning about dropping the sign during the move. This is in the Language Reference manual under the MOVE statement.
_________________
....Terry

[slade]

I know I'm a little late with this, but for posterity's sake, here goes:

You're probably reading the field into an 01 group level field. With that said, the sign is maintained.

If you need to keep the sign for further processing, best to use a ref/moded move to a signed field to preserve the sign, then do your math.
_________________
Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering

[Terry_Heinze]

If your input field is PIC 9(4) like you say, it's not a negative number -- it's an unsigned number. See Language Reference manual and test to see your results. The LR manual contains all valid and invalid MOVEs.
_________________
....Terry

[slade]

My assumption was that the creating pgm used S9 to create the field.

The OP said:

[slade]

Just a note to say that I was in error when I stated: