Re: What are the test results ?

Charles Hottel wrote:
> "Arnold Trembley" <arnold.trembley@[EMAIL PROTECTED]
> wrote in message 
> news:GuwUj.305057$cQ1.11746@[EMAIL PROTECTED]
>> Robert wrote:
>>> On Wed, 07 May 2008 22:00:45 GMT, "William M. Klein" 
>>> <wmklein@[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.
>>> Realia 16 bit says:
>>> Bytes do NOT match
>>> Index values match
>>>
>>> test-ind1 = 4a220000    test-ind2 = 4a222020
>>>
>>> The group names embrace two synchronization bytes.
>> I can confirm these results on probably a different Realia compiler
from 
>> around 1990.
>>
>> Realia COBOL Educational Version 1.00      C:OVERLAPI.COB
>>
>> LINE LVL                       ERROR TEXT
>>
>>    4 W SOURCE-COMPUTER paragraph assumed before 'WORKING-STORAGE'
>>    4 W OBJECT-COMPUTER paragraph assumed before 'WORKING-STORAGE'
>>   22 W Improper quote character accepted in column 22
>>   27 W Improper quote character accepted in column 22
>>   31 W Improper quote character accepted in column 25
>>   33 W Improper quote character accepted in column 25
>>   37 W Improper quote character accepted in column 25
>>   39 W Improper quote character accepted in column 25
>>
>> overlapi has   8 Warning  messages
>>
>> Bytes do NOT match
>> Index values match
>>
>> If I can find the time this week, I'll try it with Enterprise COBOL for

>> z/OS and let you know what happens.
>>
>>
>> -- 
>> http://arnold.trembley.home.att.net/
> 
> On Enterprise COBOL for z/OS I got:
> 
> Bytes match
> Index values match
> 
> I got a warning on the ELSE that the code could not be reached.

You beat me to it.  Here's the gory details:

PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1 
    Date 05/12/2008  Time 10:23:33   Page     1

Invocation parameters:
XREF(FULL),NORENT,X(FULL)


Options in effect:
     NOADATA
       ADV
       APOST
       ARITH(EXTEND)
       AWO
       BUFSIZE(27998)
     NOCICS
       CODEPAGE(1140)
     NOCOMPILE(E)
     NOCURRENCY
       DATA(31)
     NODATEPROC
     NODBCS
     NODECK
       DIAGTRUNC
     NODLL
     NODUMP
       DYNAM
     NOEXIT
     NOEX****TALL
       FASTSRT
       FLAG(I,W)
     NOFLAGSTD
       INTDATE(LILIAN)
       LANGUAGE(EN)
       LIB
       LINECOUNT(60)
     NOLIST
       MAP
     NOMDECK
     NONAME
       NSYMBOL(DBCS)
     NONUMBER
       NUMPROC(NOPFD)
       OBJECT
       OFFSET
       OPTIMIZE(FULL)
       OUTDD(SYSOUT)
       PGMNAME(COMPAT)
     NORENT
       RMODE(ANY)
     NOSEQUENCE
       SIZE(MAX)
       SOURCE
       SPACE(1)
     NOSQL
       SQLCCSID
     NOSSRANGE
       TERM
     NOTEST
     NOTHREAD
       TRUNC(OPT)
     NOVBREF
PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1 
     Date 05/12/2008  Time 10:23:33   Page     2

     NOWORD
       XREF(FULL)
       YEARWINDOW(1900)
       ZWB

(snip the boring stuff)

PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1 
OVERLAPI  Date 05/12/2008  Time 10:23:33   Page    12

LineID  Message code  Message text

     33  IGYOP3091-W   Code from "DISPLAY (line 33.01)" to "DISPLAY 
(line 33.01)" can never be executed and was therefore discarded.


Messages    Total    Informational    Warning    Error    Severe 
Terminating

Printed:       1                          1


* Statistics for COBOL program OVERLAPI:
*    Source records = 42
*    Data Division statements = 12
*    Procedure Division statements = 16

End of compilation 1,  program OVERLAPI,  highest severity 4.

Return code 4

(and now for the execution):


BYTES MATCH
INDEX VALUES MATCH

Options Re****t for Enclave OVERLAPI 05/12/08 10:23:53 AM
Language Environment V01 R08.00

*****************

I skipped the Language Environment storage re****t.  If anyone is 
really interested in that, please email me.

I don't know why they say COBOL is verbose...


-- 
http://arnold.trembley.home.att.net/