! 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