Re: [open-cobol-list] Assignment Issue

[Brian Tiffin]

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