Re: What are the test results ?

Arnold,
   Could you (or someone else with Enterprise COBOL) try it with NOOPT 
specified?  I know that will get rid of the warning message, but I don't
THINK 
it will change the run-time results.

-- 
Bill Klein
 wmklein <at> ix.netcom.com
"Arnold Trembley" <arnold.trembley@[EMAIL PROTECTED]
> wrote in message 
news:wbbWj.197235$D_3.189382@[EMAIL PROTECTED]
> 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
>     NOEXPORTALL
>       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 Report for Enclave OVERLAPI 05/12/08 10:23:53 AM
> Language Environment V01 R08.00
>
> *****************
>
> I skipped the Language Environment storage report.  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/