Trailing-Edge
-
PDP-10 Archives
-
BB-4148F-BM_1984
-
tools/fastcb.ctl
There is 1 other file named fastcb.ctl in the archive. Click here to see a list.
! FASTCB.CTL - unsupported tool to assemble DBMS-related
! COBOL modules and relink the complier.
! TO use:
! @CONN <COBOL rebuild directory>
! @DEFINE DBINS: <DBMS-20 installation/maintenance directory>
! @TAKE C13MOV.CMD ! for COBOL V.13
! - OR -
! @TAKE C12BMV.CMD ! for COBOL V.12B
! @SUB DBINS:FASTCB.CTL
@ERROR
@DIR COBOL.CMD! COBOL building environment (optional)
@IF (NOERROR) @TAKE COBOL.CMD
@VDIR CMLSYM.MAC, GENDCL.MAC, DBSDCL.MAC, STRUNV.MAC, STRDCL.MAC,
@CHECK SEQ
@
@VDIR DBDML.MAC, DBGETF.MAC, DMLVOK.MAC, DMLERR.MAC, DMLIO.MAC,
@CHECK SEQ
@
@MACRO
! If any of the next five were edited, assemble
! everything, else skip to DBDML.
*=CMLSYM
*=GENDCL
*=DBSDCL
*=STRUNV
*=STRDCL
! Of the next five, you only need assemble the ones
! that were edited (unless you assembled above,
! the do all).
*DBDML=DBDML
*DBGETF=DBGETF
*CMLVOK=DMLVOK
*CMLERR=DMLERR
*CMLIO=DMLIO
*^C
@SUB COBOL/TAG:CK2J
@COPY TTY: FASTCB.MAIL
@ FASTCB.CTL finished, COBOL.CTL submitted. Watch for PLEASE message
@ from COBOL.CTL for completion.
@
@GOTO ENDIT
%ERR::
@GOTO TRUBLE
%TERR::
@GOTO TRUBLE
TRUBLE::
@COPY TTY: FASTCB.MAIL
@ ERROR in FASTCB.CTL, see log for details.
@
ENDIT::
@MAIL
@IF (ERROR) @PLEASE FASTCB finished, COBOL.CTL submitted.
*.
*
*FASTCB.CTL
*@FASTCB.MAIL