RE: [open-cobol-list] difference with opencobol ans mf cobol

[Bill Klein]

There is really no such thing as "MVS COBOL" - but assuming you are talking
about the currently supported "Enterprise COBOL for z/OS, V3", then tell us
which compiler options you are using for
   - ZWB
   - NUMPROC

I don't know for sure that it will impact these statements, but it does
impact similar ones.  

> -----Original Message-----
> From: address@hidden 
> [mailto:address@hidden On 
> Behalf Of David Korn
> Sent: Wednesday, May 31, 2006 10:17 AM
> To: address@hidden
> Subject: [open-cobol-list] difference with opencobol ans mf cobol
> 
> Subject:  difference with opencobol ans mf cobol
> --------
> 
> The following simple program gets different results with mvs cobol and
> mf cobol emulating mvs.
> 
> Here is the program:
> =============cut here=======================
>        IDENTIFICATION DIVISION.
>        PROGRAM-ID. PROG.
>        ENVIRONMENT DIVISION.
>        INPUT-OUTPUT SECTION.
>        DATA DIVISION.
>        WORKING-STORAGE SECTION.
>          01 WK-NPA-1  PIC X(3) value '  0'.
>          01 WK-NPA-2  PIC 9(3).
>          01 WK-NPA-3  PIC X(3).
>        PROCEDURE DIVISION.
>                  DISPLAY 'WK-NPA-1=' WK-NPA-1.
>                  MOVE WK-NPA-1 TO WK-NPA-2.
>                  DISPLAY 'WK-NPA-2=' WK-NPA-2.
>                  MOVE WK-NPA-2 TO WK-NPA-3.
>                  DISPLAY 'WK-NPA-3=' WK-NPA-3.
>                  STOP RUN.
> =============cut here=======================
> 
> On MVS, the output is
> WK-NPA-1=  0
> WK-NPA-2=  0
> WK-NPA-3=  0
> 
> With open-cobol, the output is
> WK-NPA-1=  0
> WK-NPA-2=000
> WK-NPA-3=000
> 
> 
> The problem appears to be in cob_move_alphanum_to_display() which
> skips over white space.
> 
> David Korn
> address@hidden
> 
> 
> -------------------------------------------------------
> All the advantages of Linux Managed Hosting--Without the Cost 
> and Risk!
> Fully trained technicians. The highest number of Red Hat 
> certifications in
> the hosting industry. Fanatical Support. Click to learn more
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=107521&bid=248729&;
> dat=121642
> _______________________________________________
> open-cobol-list mailing list
> address@hidden
> https://lists.sourceforge.net/lists/listinfo/open-cobol-list
>