Hello Open Cobol Friends,
Any idea why the following code does not assign numeric values, as planned?
thanks,
Peter
$ cat pk.pco
IDENTIFICATION DIVISION.
PROGRAM-ID. RFPROCESS.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 pkpk.
05 RF-AID PIC X(2).
05 RF-AID-JUST PIC X(2) JUST.
05 verify-key pic s9(9) comp.
PROCEDURE DIVISION.
100-MAIN-LOOP.
move 5 to
verify-key
display "verify-key " verify-key
move verify-key to rf-aid
display "rf-aid " rf-aid
move verify-key to rf-aid-just
display "rf-aid-just " rf-aid-just
move rf-aid-just to rf-aid
display "rf-aid " rf-aid
display "end".
100-MAIN-LOOP-EXIT.
EXIT.
address@hidden:/export/home/rhdev/src/rf$ make pk
`pk' is up to date.
address@hidden:/export/home/rhdev/src/rf$ ./pk
verify-key +000000005
rf-aid 00
rf-aid-just 00
rf-aid 00
end