Successful RSX11M COBOL

You are supposed to type COBOL to compile. But COBOL didn’t work. So I found C81.CMD on a DU1: directory listing.

>TYPE WORLD.CBL
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
PROCEDURE DIVISION.
000-BEGIN.
    DISPLAY "HELLO WORLD".
    STOP RUN.
>
>@DU1:[006022]C81 DU0:WORLD
C81 DU0:WORLD,DU0:WORLD=DU0:WORLD/BLD
TKB @DU0:WORLD.CMD
PIP DU0:WORLD.CMD,.SKL,.OBJ,.ODL,.LST,.TSK/PU
>
>DIR WORLD.*


Directory DU0:[USER]
19-NOV-2023 07:48

WORLD.OBJ;1         3.         19-NOV-2023 07:48
WORLD.LST;1         2.         19-NOV-2023 07:48
WORLD.CBL;1         1.         19-NOV-2023 07:23
WORLD.SKL;1         1.         19-NOV-2023 07:48
WORLD.ODL;1         1.         19-NOV-2023 07:48
WORLD.CMD;1         1.         19-NOV-2023 07:48
WORLD.TSK;1         17.     C  19-NOV-2023 07:48

Total of 26./44. blocks in 7. files

>RUN WORLD
HELLO WORLD

>

Glad the compile included the link, because my link wasn’t working DU1:[005004]LINK.

Below was before I renamed HELLO2 to WORLD

>@DU1:[005004]LINK/C81 HELLO2

AT.T0  -- Syntax error
@DU1:[005004]LINK/C81 HELLO2
>

BTW. This is the command file…

>TYPE DU1:[006022]C81.CMD
.ENABLE SUBSTITUTION
.DISABLE DISPLAY
.PARSE P1 "." PRG EXT
.SETS TSK PRG[1:3]
C81 'PRG','PRG'='PRG'/BLD
.IF <EXSTAT> <> 1 .EXIT <EXSTAT>
TKB @'PRG'.CMD
.IF <EXSTAT> <> 1 .EXIT <EXSTAT>
PIP 'PRG'.CMD,.SKL,.OBJ,.ODL,.LST,.TSK/PU
>

So, actually, the C81.CMD file includes C81 and a TKB step, which apparently is the Linker.

So manually…

COPY WORLD1.CBL WORLD.CBL      for my own safety
C81 WORLD,WORLD=WORLD/BLD
TKB @WORLD.CMD
PIP WORLD.CMD,.SKL,.OBJ,.ODL,.LST,.TSK/PU    delete old versions