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
HPDEBUG Intrinsic at: 3241.00172488 stack_trace+$9c
PC=3241.00172488 stack_trace+$9c
NM* 0) SP=41847000 RP=3241.001732e0 abnormal_termination+$16c
NM 1) SP=41846ea0 RP=3241.00173940 error+$3ec
NM 2) SP=41846dc0 RP=3241.00173344 simple_error+$30
NM 3) SP=41846b00 RP=3241.00174b70 fe_error+$2bc
NM 4) SP=41846ab8 RP=3241.00127224 print_undef+$28
NM 5) SP=41846928 RP=3241.00124968 scan_symbols+$94
NM 6) SP=418468e8 RP=3241.00124d60 pass1_sllic+$4c
NM 7) SP=41846868 RP=3241.00033798 process_sllic_graph+$f8
NM 8) SP=418467e8 RP=3241.0002df5c finish_program+$78
NM 9) SP=418463a8 RP=3241.0003c5a8 be_stp+$120
NM a) SP=41846368 RP=3241.00167024 emitu_s+$b0
NM b) SP=41846328 RP=3241.0016d54c close_usl+$40
NM c) SP=41846290 RP=3241.001339b0 ANSI74+$5ac
NM d) SP=41846258 RP=3241.00000000
(end of NM stack)
DATA AREA IS 782C BYTES.
CPU TIME = 0:00:00. WALL TIME = 0:00:05.
run COBOL.PUB.SYS,ANSI85;parm=1;info=""
Program terminated in an error state. (CIERR 976)
ERRORS IN COMPILE
setjcw jcw=fatal
Unless a CONTINUE is in effect, the remainder of the
current UDC will be flushed. (CIWARN 1723)
END OF COMPILE
-----------------------------------------------------------------------------
This message is confidential; its contents do not constitute a
commitment by BNP Paribas Group* except where provided for in a written agreement
between you and BNP Paribas Group*. Any unauthorised disclosure, use or
dissemination, either whole or partial, is prohibited. If you are not
the intended recipient of the message, please notify the sender
immediately.
*BNP Paribas Group is a trading name of BNP SA and Paribas SA
Ce message est confidentiel; son contenu ne représente en aucun cas un
engagement de la part du groupe BNP Paribas* sous réserve de tout accord conclu par
écrit entre vous et le groupe BNP Paribas*. Toute publication, utilisation ou
diffusion, même partielle, doit être autorisée préalablement. Si vous
n'êtes pas destinataire de ce message, merci d'en avertir immédiatement
l'expéditeur.
*Le groupe BNP Paribas est le nom commercial utilisé par BNP SA et Paribas SA
|