Trailing-Edge
-
PDP-10 Archives
-
BB-5372D-BM
-
traffic/source/traffic-20.ctl
There are 2 other files named traffic-20.ctl in the archive. Click here to see a list.
!
! Name: TRAFFIC-20.CTL
! Date: 22-JUL-81
!
! *** Copyright (C) 1976, 1977, 1978, 1979, 1980, 1981 Digital Equipment Corp., Maynard, MA ***
!
!This control file is provided for information only. The
!purpose of the file is to document the procedures used to
!build the distributed software. It is unlikely that this
!control file will be able to be submitted without
!modification on consumer systems. Particular attention
!should be given to logical names, structure names, directory
!names, and other such parameters. Submit times may vary
!depending on system configuration and load. The
!availability of sufficient disk space is mandatory. This
!control file has not been extensively tested on alternate
!configurations. It has been used sucessfully for the
!purpose for which it is intended: to build the distributed
!software.
!
!Function:
!
!This control file builds TRAFFIC-20 from its basic sources.
!The files required by this job are:
!
!DEC:
! MACRO.EXE LINK.EXE CREF.EXE
! PA1050.EXE
!REL:
! MACREL.REL
!UNV:
! MACSYM.UNV MONSYM.UNV
!DSK:
! TFRUNV.MAC TFR.MAC TFRCOB.MAC
! IP20.MAC
!
!If the test for the TFR.EXE is to be done, MYFORM.FORM-SPEC and
!MYFORM.CBL are also needed.
!
!The files generated by this job are:
!
!DSK:
! TFRUNV.UNV TFR.EXE TFRCOB.REL
! IP20.REL
!Also if '/TAG:CREF' was specified on the SUBMIT command:
! TFRUNV.LST TFR.LST TFRCOB.LST
! IP20.LST
!
!Submit with the switch '/TAG:CREF' to obtain listings and/or
!.MAP files.
!
@DEFINE LIST: NUL:
@GOTO NOCREF
CREF:: @DEFINE LIST: DSK:
NOCREF::
!
! Define in-house logical names.
!
@DEFINE SYS: DSK:, PS:<SUBSYS>, SYS:
@DEFINE DEC: SYS:
@DEFINE UNV: DEC:
@DEFINE REL: DEC:
@TAKE TRAFFIC-20.CMD
@IF (ERROR) !IGNORE IT
@INFORMATION LOGICAL-NAMES
!
! Take a checksummed directory of all the input files.
!
@VDIRECT DEC:MACRO.EXE, DEC:LINK.EXE, DEC:CREF.EXE, DEC:PA1050.EXE,
@CHECKSUM SEQ
@
@VDIRECT UNV:MACSYM.UNV, UNV:MONSYM.UNV,
@CHECKSUM SEQ
@
@VDIRECT REL:MACREL.REL,
@CHECKSUM SEQ
@
@VDIRECT TFRUNV.MAC, TFR.MAC, TFRCOB.MAC, IP20.MAC,
@CHECKSUM SEQ
@
!
! Type the versions of the various .EXE files used.
!
@GET DEC:MACRO
@INFORMATION VERSION
@GET DEC:LINK
@INFORMATION VERSION
@GET DEC:CREF
@INFORMATION VERSION
@GET DEC:PA1050
@INFORMATION VERSION
!
! Build the Terminal Formatting Routines.
!
! TRAFFIC-20 VERSION 2A
!
! The module TFRCOB.MAC is now built to interface with COBOL V12B.
!
!
@DEC:MACRO
*TFRUNV,TFRUNV/C=TFRUNV
*TFR,TFR/C=TFR
*TFRCOB,TFRCOB/C=TFRCOB
!
@DEC:CREF
*LIST:TFRUNV.LST=TFRUNV
*LIST:TFR.LST=TFR
*LIST:TFRCOB.LST=TFRCOB
!
@DEC:LINK
*/LOCALS TFR/GO
@SAVE TFR.EXE
!
@DELETE TFRUNV.REL, TFR.REL
@EXPUNGE
!
! Build the Transaction Routing Routines.
!
@DEC:MACRO
*IP20,IP20/C=IP20
!
@DEC:CREF
*LIST:IP20.LST=IP20
!
@EXPUNGE
!
! Take a checksummed directory of all the output files.
!
@VDIRECT TFRUNV.UNV, TFR.EXE, TFRCOB.REL, IP20.REL,
@CHECKSUM SEQ
@
@GET TFR
@INFORMATION VERSION
!
TEST::
!TEST FOR TRAFFIC-20
!
! (Remove comment marker (!) on following line if no test is desired
!@GOTO LASTP
!
! The test for TRAFFIC-20 involves running TFR.EXE to compile the
! form specification MYFORM.EXE, compiling and linking the program
! MYFORM.CBL with TFRCOB.REL and executing it. (This execution will
! look strange in batch since there are a lot of cursor control
! characters for a VT52). Note that this testing procedure does not
! test IP20.
!
! The program MYFORM.CBL is documented in the TRAFFIC-20 USER's
! GUIDE as an example.
!
@DELETE MYFORM.FORM-DESC,MYFORM.FORM-LIST,MYFORM.FORM-DATA
@EXPUNGE
@ERROR % ! Changed for the LOOKUP WARNING
VDIRECT MYFORM.FORM-SPEC,
@CHECKSUM SEQ
@
@IF (ERROR) GOTO NOTEST:: !Test Files not there
@VDIRECT MYFORM.*,SYS:COBOL.EXE
@CHECKSUM SEQ
@
@IF (ERROR) GOTO NOCOB:: !COBOL Files not there
@NOERROR %
@RUN TFR
*MYFORM.FORM-SPEC
@IF (ERROR) GOTO NOTEST:: !Test Files not there
@COBOL
*MYFORM,-=MYFORM
@INFORMATION VERSION
@LINK
*MYFORM.REL,TFRCOB.REL/GO
@SAVE MYFORM
@VDIRECT MYFORM.*,
@CHECKSUM SEQ
@RUN MYFORM
*1234567N
NOCOB::
! No Cobol (compiler or COBOL source) files found
NOTEST::
! No test files found
LASTP::
! End of TRAFFIC-20.CTL.