Re: [open-cobol-list] Assignment Issue

[Peter Klosky]

The same code does work under MicroFocus Cobol. The question could be posed another way:  How to move numeric integers to alphanumeric character fields?

From: Peter Klosky <address@hidden>
To: "address@hidden" <address@hidden>
Sent: Friday, September 27, 2013 1:52 PM
Subject: [open-cobol-list] Assignment Issue

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

------------------------------------------------------------------------------
October Webinars: Code for Performance
Free Intel webinars can help you accelerate application performance.
Explore tips for MPI, OpenMP, advanced profiling, and more. Get the most from
the latest Intel processors and coprocessors. See abstracts and register >
http://pubads.g.doubleclick.net/gampad/clk?id=60133471&iu=/4140/ostg.clktrk
_______________________________________________
open-cobol-list mailing list
address@hidden
https://lists.sourceforge.net/lists/listinfo/open-cobol-list