What are the test results ?

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