IBM Mainframe Forum

You need to consider defensive coding:

Thank you Robert Sample it worked perfectly.

Now i am having trouble to deal with s(9) comp-3 variables and etc. I have to get those variables ex[ S9(9) COMP-3] and move to pic 9(9). when i try i always get a number with some dirty thing like:


07226077C should be 072260777
00716114{
00846023{
01172505{
07226124I should be 072261249
06908804{
071825110

Hello,

07226077C should be 072260777

Most likely not . . . I suspect it should be 773 not 777.

What you see is signed zoned-decimal values. Which are totally valid.

so a=1 b=2 c=3 ? and what is }?

i change thos to numbers with evaluate or there is a better way ? =D.

Hello,

so a=1 b=2 c=3 ? and what is }?

"J" is a negative one. '}' is a negative zero.
Positive values are x'C0' thry x'C9".
Negative values are x'D0' thru x'D9'
Enter a few values in a file or member and show these in hex.

i change thos to numbers with evaluate or there is a better way ? =D.

A MOVE or COMPUTE will do what you want - no need for an EVALUATE.

I just removed the s(09) -> (09), i was afraind that moving to comp s etc were the problem. Now everything works fine thx.