MVSFORUMS.com

[kraj]

Hello,
Our system is Unisys 2200.
I am trying to compare a field declared like this.

01 WH-AMT PIC S9(09)v99 SIGN LEADING SEPARATE.

IF WH-AMT < 0
do negative process
ELSE
do positive process
END-IF.

Even when I get minus amount , it is always going to positive process.
Any help is appreciated.
thanks.
kraj.

[kolusu]

kraj,

I have never worked on unisys, but I am expecting it to function the same way as the cobol on mainframe does. Your logic works fine on the mainframe. Put a display and see if that works.

[kraj]

Thanks Kolusu.
I put display , it is going to positive process.During that time the value was -197.04. ( But I did not move the value as you said.)
Even I tried CBL NUMPROC (PFD) ----> (got from your previous post).
If I miss some thing, again I 'll try on Monday and post the results.

Thanks Kolusu.
kraj.

[Ganti]

Try This:

01 WH-AMT PIC S9(09)v99 SIGN LEADING SEPARATE.
01 WH-AMT-ZERO PIC S(09)V99 SIGN LEADING SEPARATE.
...
MOVE 0 TO WH-AMT-ZERO.
DISPLAY 'THIS IS ZERO ' , WH-AMT-ZERO.
IF WH-AMT < WH-AMT-ZERO
DISPLAY ' I AM NEGATIVE'
ELSE
DISPLAY ' I AM POSITIVE'

I am wondering if there is any difference in the way a compare happens for a sign leading separate declaration.

I have not worked on UNISYS, maybe this will work.

regards
Ganti
It Is Nice To Be Important But It Is More Important To Be Nice

[kraj]

Thanks Kolusu & Ganti.

Actually we are getting WH-AMT value from WT-AMT filed.
Now what we did is :
01 WT-AMT PIC -(9).99.
01 WH-AMT PIC S(9).99.

declared like above.
Now it is working .

thanks.
kraj.

[Cogito-Ergo-Sum]

kraj,

[kraj]

Cogito-Ergo-Sum,
you are correct. Before comparing , that was moved to
wt-amt pic s(9).99.

thanks.
kraj.