there is a defines as following:
01 FIELD-ATTRIBUTES.
05 W-HIGH-ASKIP-ALP PIC X VALUE "8".
05 W-LOW-ASKIP-ALP PIC X VALUE "0".
05 W-HIGH-ASKIP-ALP PIC X VALUE "8".
05 W-LOW-ASKIP-ALP PIC X VALUE "0".
relative program code as following
when ws-year > 2010
if filed-cd-A = W-HIGH-ASKIP-ALP
continue
else
move W-LOW-ASKIP-ALP to field-cd-A
end-if
.......
if filed-cd-A = W-HIGH-ASKIP-ALP
continue
else
move W-LOW-ASKIP-ALP to field-cd-A
end-if
.......
I checked the hexdecimal is x"F8" for "8", x"F0" for "0",
anybody can help me explain the meaning? thank you very much,
Helen