Tad,

You have a fairly old version of the Cobol compiler (A.01.19)  This is a
compiler bug that was fixed in A.04.20 (circa 1997)  If you don't have
access to a newer version of the Cobol compiler then the workaround is to
break the programs up into separate source files.

HTH.

Doug.

Doug Werth                             Beechglen Development Inc.
[log in to unmask]                               Cincinnati, Ohio


----- Original Message -----
From: <[log in to unmask]>
To: <[log in to unmask]>
Sent: Sunday, March 19, 2000 1:23 PM
Subject: Cobol Help required ... please!


> Hi anybody,
> I am having trouble with the compilation of multiple Cobol programs
> within a single source file.
> Most of the time, this works fine, but sometimes for no reason apparent
> to me, the compiler aborts.
> In the sample given below, there were 3 programs which compiled Ok
> individually but 'dumped' when compiled together.
>
> I have isolated an offending statement,
>     104.7      move  function upper-case (keyword) to keyword
> When I change this to
>     104.7      move  function lower-case (keyword) to keyword
> the program compiles Ok, with no errors, but I dont *want* lower-case.
>
> Has anybody else suffered this ?
>
> TIA,
> Tad.
>
> PAGE 0001  COBOL II/iX HP31500A.04.19  [85] Copyright Hewlett-Packard CO.
1987.
> .
> .
>  00510          104700   move  function upper-case (keyword) to keyword
> .
> .
>  00855          011000 return-nonzero-status.
>  00856          011100     move      sortstatus to return-code.
>  00857          011200 end-fcMEMSORT.
>  00858          011300     goback.
>  00859          011400
>  00861          011500     end program   fcSORTUTILITY.
> PAGE 0020/COBTEXT  FCSORTUTILITY   COBOL ERRORS and WARNINGS
> COBOL ERRORS:
> LINE #   SEQ #  COL  ERROR  SEV   TEXT OF MESSAGE
> ------  ------  ---  -----  ---   ---------------
>  00858  Bk-end  80    384    Q    Codegen detected error (7403) undefined
label
>                                   - C$6 (7403).
>  00858  Bk-end  80    999    D    UNABLE TO CONTINUE. COMPILATION
TERMINATED.
> 1 ERROR(s), 1 QUESTIONABLE, 0 WARNING(s)
> *** DISASTROUS ERROR NEAR LINE  00858 ***
> *** COMPILATION TERMINATED ***
> procedure STACK_TRACE
> DEBUG/iX C.05.08
>