This code works under 2.0 pre-rel
$ cobc -free -x nums.cob
$ ./nums
verify-key +000000005
rf-aid 00
rf-aid-just 05
rf-aid 05
end
Not sure if that helps or not.
Cheers,
Brian
On 9/27/13, Peter Klosky <
address@hidden> wrote:
> 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