[open-cobol-list] Fw: OpenCobol 1.0 MOVE bug?

[cris . schlehuber]

> 
> > 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