Re: [open-cobol-list] Assignment Issue

[Sergey Kashyrin]

CE might have a bug there. Later 1.1 also works fine

g:\skatests\cobol>cobc -x just.cbl
cob6DD8.c

g:\skatests\cobol>just
verify-key +000000005
rf-aid 00
rf-aid-just 05
rf-aid 05
end

g:\skatests\cobol>cobc -V
cobc (OpenCOBOL) 1.1.20100520
Copyright (C) 2001,2002,2003,2004,2005,2006,2007 Keisuke Nishida
Copyright (C) 2006,2007,2008,2009,2010 Roger While
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Built     Jun 28 2013 03:10:45
Packaged  May 19 2010 16:17:26 UTC

On 9/27/2013 2:53 PM, Brian Tiffin wrote:
> 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
> ------------------------------------------------------------------------------
> 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