pkimpel / retro-b5500

Web-based emulator and operating environment for the Burroughs B5500 computer system.
http://www.phkimpel.us/B5500/
MIT License
77 stars 7 forks source link

COBOL program does not compile under TSS #42

Closed ghost closed 9 years ago

ghost commented 9 years ago

COBOL program gets EOF NO LABEL during batch compile under TSS:

? USER=TERRY
? COMPILE 0COB/TERRY WITH COBOL FOR LIBRARY
? DATA CARD
000100 * HELLO WORLD PROGRAM                                            00100
000200 IDENTIFICATION DIVISION.                                         00200
000300 PROGRAM-ID.    HELLO.                                            00300
000400 * ENVIRONMENT DIVISION.                                          00400
000500 * DATA DIVISION.                                                 00500
000700 PROCEDURE DIVISION.                                              00700
000800     DISPLAY "HELLO, WORLD"                                       00800
001000     STOP RUN.                                                    99999999
? END

Submitted by Terry Heidelberg on 2015-05-10.

pkimpel commented 9 years ago

There are several COBOL syntax errors in this program:

The following deck compiles and executes:

? USER=PAUL
? COMPILE 0COB/PAUL WITH COBOL FOR LIBRARY
? DATA CARD
000100 * HELLO WORLD PROGRAM                                            00100
000200 IDENTIFICATION DIVISION.                                         00200
000300 PROGRAM-ID.    HELLO.                                            00300
000400 ENVIRONMENT DIVISION.                                            00400
000410 CONFIGURATION SECTION.
000420     SOURCE-COMPUTER.     B-5500.
000430     OBJECT-COMPUTER.     B-5500.
000450 INPUT-OUTPUT SECTION.
000460 FILE-CONTROL.
000500 DATA DIVISION.                                                   00500
000600 WORKING-STORAGE SECTION.
000610 77  W-NOTHING                   PIC 9(4)                  COMP.
000700 PROCEDURE DIVISION.                                              00700
000750 MAIN-LINE.
000800     DISPLAY "HELLO, WORLD"                                       00800
001000     STOP RUN.                                                    99999999
999900 END-OF-JOB.
? END