Re: What are the test results ?

On May 8, 12:00 am, "William M. Klein" <wmkl...@[EMAIL PROTECTED]
>
wrote:
> I would like to know what the results are from compiling and running the
> following source code on as many compilers/platforms as possible.  (I
don't
> think it should mater about compiler options/directives - although the
Micro
> Focus BYTEMOVE *might* impact it.)  I believe this is '85 Standard
conforming so
> it should compile (and run) on most systems.
>
> If you want to, you can reply to me off-line or via CLC.
>  (leading spaces may be funny - because of font changes - check for
A-/B-margin
> correctness)
>
>         Identification Division.
>          Program-ID. OverLapI.
>         Data Division.
>          Working-Storage Section.
>         01  Test-Ind1.
>               05 Save-Index Usage Index.
>         01  Group1.
>               05  Group1a.
>                    10  Ind1 Usage Index.
>                    10  Filler Pic X.
>              05  Group1b redefines Group1a.
>                    10  Filler Pic X.
>                    10  Test-Ind2.
>                          15  Ind2 Usage Index.
>         01  Group2.
>               05  Tabl.
>                      10  Each-Row occurs 345 times
>                              indexed by IndA IndB.
>                            15 Elem Pic X(33).
>         Procedure Division.
>          Mainline.
>             Move all "N" to Tabl
>             Move spaces to Group1
>             Set IndB to 1
>             Set IndA to 267
>             Set Save-Index to IndA
>             Move all "Y" to Elem (IndA)
>             Set Ind1 to IndA
>             Set Ind2 to Ind1
>             If Test-Ind1 = Test-Ind2
>                 Display "Bytes Match"
>             Else
>                 Display "Bytes do NOT match"
>             End-If
>             Set IndB to Ind2
>             If IndA = IndB
>                 Display "Index values match"
>             Else
>                 Display "index values do NOT match"
>             End-If
>             Stop Run
>                .
>
> --
> Bill Klein
>  wmklein <at> ix.netcom.com

../uname -a
AIX CW5 2 5

../cobc -version
cobc (OpenCOBOL) 1.1.0 Build date Apr 23 2008 09:10:17
Copyright (C) 2001-2008 Keisuke Nishida / Roger While


../cobtest
Bytes Match
Index values match