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 >