On 10/22/96 2:48 AM, Fernando Olmos, INTERNET:[log in to unmask],
writes:
>Hi,
>
>I tried to compile a program using the following STREAM job....
>
>!JOB TSS9130T,$USER.$ACCOUNT,$GROUP
>!FILE COPYLIB=TSSLIB
>!COB85XL TSS9130S,TSS9130U
>!EOJ
>
>The program compiles without any syntax errors except for something even
>stranger at the end...
>
> PAGE 0024/COBTEXT TSS9130 COBOL ERRORS and WARNINGS
> COBOL ERRORS:
>
> LINE # SEQ # COL ERROR SEV TEXT OF MESSAGE
> ------ ------ --- ----- --- ---------------
>
> 00649 Bk-end 80 384 Q Codegen detected error (7204) error in
>writin
> 00649 Bk-end 80 999 D UNABLE TO CONTINUE. COMPILATION
>TERMINATED.
>
> 1 ERROR(s), 1 QUESTIONABLE, 0 WARNING(s)
>
> *** DISASTROUS ERROR NEAR LINE 00649 ***
> *** COMPILATION TERMINATED ***
>
>According to the "book" the error 7204 means that "...the object file,
>COBOBJ, is too small or there was some kind of error writing to it...".
>
>Can anyone allaborate on this error message please? Would I have to create
>COBOBJ with enough disk space or does it simply mean I don't have any more
>disc space even though issuing the MPE REPORT command I get the following,
>which means "unlimited" disk space - or am I wrong?
>
>ACCOUNT FILESPACE-SECTORS CPU-SECONDS CONNECT-MINUTES
> /GROUP COUNT LIMIT COUNT LIMIT COUNT LIMIT
>TESTLIB 3634208 ** 587287 ** 956573 **
> /FERNANDO 1791296 ** 142291 ** 76464 **
>
>
>Any help appreciated. Thank you.
I would say that the Object File "TSS9130U" is too small. Personally, I never
save compiler object files (except for inclusion in a library), and just use the
$OLDPASS/$NEWPASS files. Our compile commands (yes, I do online compiles!) look
like this:
For programs destined for a library:
FILE COPYLIB=COPYLIB.PUB
PURGE PROG.OBJECT
PURGE PROG.LIST
BUILD PROG.LIST;REC=-132,10,F,ASCII;CCTL;DISC=20000
COB85XL PROG,PROG.OBJECT,PROG.LIST
RUN LINKEDIT.PUB.SYS;INFO="ADDXL FROM=PROG.OBJECT;TO=XL.PUB;REPLACE"
For stand-alone programs:
FILE COPYLIB=COPYLIB.PUB
PURGE PROG.LIST
PURGE PROG.OBJECT
BUILD PROG.LIST;REC=-132,10,F,ASCII;CCTL;DISC=20000
COB85XL PROG,,PROG.LIST
LINK FROM=$OLDPASS;TO=PROG.OBJECT;CAP=IA,BA
Hope this helps.
BTW, there is a Cobol listserver ([log in to unmask]) you can join by
sending a subscribe message (subscribe sigcobol-l <your name>) to
[log in to unmask], not that this isn't an appropriate place to post
your message, just thought you might be interested.
Jim Phillips Manager of Information Systems
E-Mail: [log in to unmask] Therm-O-Link, Inc.
Phone: (330) 527-2124 P. O. Box 285
Fax: (330) 527-2123 Garrettsville, Ohio 44231
|