RE: strange behavior with MOVEL, RPGIII

[Buck Calabro <Buck.Calabro@xxxxxxxxxxxx>]

>File Field CFRDA, alpha, 4, value = '350P'
>
>MoveL to a numeric 1, 0 internally defined field:
>
>MOVELCFRDA     DIV     10
>
>You'd expect the result to be 3.  Sometimes, but not always, it is -3.
>
>On a movel, when factor 2 is larger (in defined size) than the 
>result, factor 2's sign is 
>used as the sign of the result.
>
>So, how can an alpha field be negative?  Is it having a bad day?

For reasons relating to The Old Days, punched cards used an overpunch to
designate negative numbers.
} = -0 = x'd0'
J = -1 = x'd1'
K = -2 = x'd2'
L = -3 = x'd3'
M = -4 = x'd4'
N = -5 = x'd5'
O = -6 = x'd6'
P = -7 = x'd7'
Q = -8 = x'd8'
R = -9 = x'd9'

0 = x'f0'
1 = x'f1'
2 = x'f2'
3 = x'f3'
4 = x'f4'
5 = x'f5'
6 = x'f6'
7 = x'f7'
8 = x'f8'
9 = x'f9'
  --buck