>
> > z/OS Enterprise Cobol > >
> > PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1
> > TESTCOPY Date 01/25/2008 Time 11:04:05 Page
3 > > LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----
> > +----5----+----6----+----7-|--+----8 Map and Cross Reference > > /* TESTCOPY > > 000001
IDENTIFICATION DIVISION. > > 000002
PROGRAM-ID. TESTCOPY. > > 000003
ENVIRONMENT DIVISION. > > 000004
CONFIGURATION SECTION. > > 000005
DATA DIVISION. > > 000006
* > > 000007
> > ****************************************************************** > > 000008
**** W O R K I N G S T
O R A G E S
> > E C T I O N **** > > 000009
> > ****************************************************************** > > 000010
WORKING-STORAGE SECTION. > > 000011
01 ARTIKEL-REC.
> > BLW=00000+000 0CL6 > > 000012
05 VERPRIJS
PIC S9(4)V99.
> > BLW=00000+000,0000000 6C > > 000013
01 TITELLIJN.
> > BLW=00000+008 0CL9 > > 000014
03 ARTIKELNAAM
PIC X(9) VALUE
> > 'ARTIKEL'.
BLW=00000+008,0000000 9C > > 000015
> > ****************************************************************** > > 000016
**** P R O C E D U R E
D I V I S I
> > O N **** > > 000017
> > ****************************************************************** > > 000018
PROCEDURE DIVISION. > > 000019
0000-MAIN-PARAGRAPH. > > 000020
MOVE VERPRIJS TO ARTIKELNAAM.
12 14 > >
> > ==000020==> IGYPA3005-S "VERPRIJS (NUMERIC NON-INTEGER)"
and
> > "ARTIKELNAAM (ALPHANUMERIC)" did not > >
follow the "MOVE" statement
compatibility
> > rules. The statement was > >
discarded. > >
> > 000021
MOVE 0
TO
> > RETURN-CODE.
IMP > > 000022
0000-EXIT. > > 000023
STOP RUN. > >
> > 20 IGYPA3005-S "VERPRIJS (NUMERIC
NON-INTEGER)" and
> > "ARTIKELNAAM (ALPHANUMERIC)" did not follow the "MOVE"
statement > >
compatibility rules. The statement
was discarded. > >
> > address@hidden wrote on 01/25/2008
> 10:54:54 AM:
> >
> > > G:\skatests\cobol>cobol syntp.cbl;
> > > MERANT Micro Focus Net Express V3
> > > Version 3.1.11 Copyright (C) 1984-2000 MERANT International
Ltd.
> > > URN AXCGG/AA0/00000
> > > 2 PROGRAM-ID. oef4A_0708.
> > > * 4-S******************
**
> > > ** Illegal character
> > > 57 move
verprijs to artikelnaam
> > > *1029-E*************************************
**
> > > ** A non-integer is being moved to an alphanumeric
data item
> > > 58 move
nieuwe-prijs to aang-artikel
> > > *1029-E******************************************
**
> > > ** A non-integer is being moved to an alphanumeric
data item
> > > 63 move
winst to artikelnaam
> > > *1029-E**********************************
**
> > > ** A non-integer is being moved to an alphanumeric
data item
> > > 64 move
nieuwe-winst to aang-artikel
> > > *1029-E******************************************
**
> > > ** A non-integer is being moved to an alphanumeric
data item
> > > 69 move
winst to artikelnaam
> > > *1029-E**********************************
**
> > > ** A non-integer is being moved to an alphanumeric
data item
> > > 70 move
nieuwe-winst to aang-artikel
> > > *1029-E******************************************
**
> > > ** A non-integer is being moved to an alphanumeric
data item
> > > * Checking complete - errors found
> > >
> > > ----- Original Message -----
> > > From: "Pieter Baele" <address@hidden>
> > > To: "vince coen" <address@hidden>;
<address@hidden
> > > sourceforge.net>
> > > Sent: Friday, January 25, 2008 11:28 AM
> > > Subject: Re: [open-cobol-list] OpenCobol 1.0 MOVE bug?
> > >
> > >
> > > >
> > > > On Fri, 2008-01-25 at 13:21 +0000, vince coen wrote:
> > > >>
> > > >> No you can't. Move it to a display field that's
redefined as an X
> > > >> field. move
> > > >> the defined field to your target field.
> > > >>
> > > >> This is not the only solution.
> > > >
> > > > Thanks for your help
> > > >
> > > > So legacyj PERCobol is wrong with its implementation?
And our professor
> > > > with this solution?
> > > >
> > > > Or is it a quirk of opencobol?
> > > > Is OpenCOBOL complete? (for COBOL-85 ?)
> > > >
> > > >
> > > >
> -------------------------------------------------------------------------
> > > > This SF.net email is sponsored by: Microsoft
> > > > Defy all challenges. Microsoft(R) Visual Studio 2008.
> > > > http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> > > > _______________________________________________
> > > > open-cobol-list mailing list
> > > > address@hidden
> > > > https://lists.sourceforge.net/lists/listinfo/open-cobol-list
> > > >
> > >
> > > -------------------------------------------------------------------------
> > > This SF.net email is sponsored by: Microsoft
> > > Defy all challenges. Microsoft(R) Visual Studio 2008.
> > > http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> > > _______________________________________________
> > > open-cobol-list mailing list
> > > address@hidden
> > > https://lists.sourceforge.net/lists/listinfo/open-cobol-list