Trailing-Edge
-
PDP-10 Archives
-
BB-4148F-BM_1984
-
sources/dbmtst.ctl
There is 1 other file named dbmtst.ctl in the archive. Click here to see a list.
! DBMTST.CTL for DBMS-20 Version 6.1 Jun-84
! Copyright (C) 1984 by
! Digital Equipment Corporation, Maynard, Mass.
!
! This software is furnished under a license, and may be used
! or copied only in accordance with the terms of that license.
! Verification test of DBMS-20 in product build/host install area
! Timings: Approx 10 min CPU, 45 min connect.
! Setup libraries
@DEFINE DSK: NUL:
@DEFINE DSK:
@DEFINE SYS: DSK:,SYS:
@DEFINE HLP: DSK:
BEGIN::
! Files needed or used from SYS:
! FILCOM.EXE
! LINK.EXE
! PA1050.EXE
! COBOL.EXE Optional, depending on install options
! CBL74.EXE Optional, depending on install options
! CBL68.EXE Optional, depending on install options
! FORTRA.EXE Optional, depending on install options
! FOROT?.EXE Current version of FORTRAN OTS
! Files needed on disk:
! LIBOL.REL If installed with COBOL-68 V12B
! LIBO12.EXE If installed with COBOL-68 V12B
! C74LIB.REL If installed with COBOL-74 V12B
! C74O12.EXE If installed with COBOL-74 V12B
! COBOTS.REL If installed with COBOL-20 V13 and DBSTUB added
! COBOTS-V13.EXE If installed with COBOL-20 V13
! DBMS.REL If installed with COBOL or FORTRAN and no DBMSF.REL
! DBMSF.EXE If installed with FORTRAN
! DBMSF.REL If current FORTRAN requires this versus DBMS.REL
! FORLIB.REL If installed with FORTRAN V7 and DBSTUB changed
! DBINFO.EXE The utilites and their help files
! DBINFO.HLP
! DBMEND.EXE
! DBMEND.HLP
! FORDML.EXE
! FORDML.HLP
! SCHEMA.EXE
! SCHEMA.HLP
! XDML.EXE
! XDML.HLP
! DBMTST.CTL This file
! DTORD.DDL General application like test
! DTORDR.CBL
! DTORDR.FML
! DTSCH.DDL Schema and DML bind processor tests
! DTSCHB.CBL
! DTSCHB.FML
! DTVRB.DDL DML verb processor and DBCS tests
! DTVR1S.CBL Large subset of DTVRB1.CBL
! DTVRB1.CBL
! DTVRB2.CBL
! DTVRB1.FML
! DTVRB2.FML
! Define logical name for test, create initial status file
@DEFINE JRN: DSK:
@NOERROR
@DELETE DBMTST.MAIL,
@EXPUNGE
@
@ERROR
@COPY TTY: DBMTST.MAIL
@Start of DBMS test.
@
@^Z
! Clean up area
! Running in an unknown environment, must be specific.
@NOERROR
@DELETE DSK:DTORD.JRN,DSK:DTORD.LOK,DSK:DTORD.SCH
@DELETE DSK:DTORDR.FOR,DSK:DTORDR.REL,DSK:DTORDR.EXE,DSK:DTSSOF.SUB
@DELETE DSK:DTORD1.DBS,DSK:DTORD2.DBS,DSK:DTORD3.DBS,DSK:DTORD4.DBS
@DELETE DSK:DTORD1.TMP,DSK:DTORD2.TMP,DSK:DTORD3.TMP,DSK:DTORD4.TMP
@DELETE DSK:DTORD1.AID,DSK:DTORD2.AID,DSK:DTORD3.AID,DSK:DTORD4.AID
@DELETE DSK:DTSCH.LOK,DSK:DTSCH.SCH
@DELETE DSK:DTSCHB.FOR,DSK:DTSCHB.REL,DSK:DTSCHB.EXE,DSK:DTSSSF.SUB
@DELETE DSK:DTVRB.JRN,DSK:DTVRB.LOK,DSK:DTVRB.SCH
@DELETE DSK:DTVRB1.DBS,DSK:DTVRB2.DBS
@DELETE DSK:DTVRB1.FOR,DSK:DTVRB2.FOR,DSK:DTVRB1.REL,DSK:DTVRB2.REL
@DELETE DSK:DTVR1S.REL,DSK:DTVRB1.EXE
@DELETE DSK:DTSSV1.SUB,DSK:DTSSV2.SUB
@DELETE DSK:DTORD.LOC,DSK:DTORD1.DBC,DSK:DTORD2.DBC,DSK:DTORD3.DBC
@DELETE DSK:DTORD4.DBC
@DELETE DSK:DTSCH.LOC,DSK:DTVRB.LOC,DSK:DTVRB1.DBC,DSK:DTVRB2.DBC
@DELETE DSK:DTORD.DBI,DSK:DTORD.ABS,DSK:DTORDB.ABS
@DELETE DSK:DTHOST.OK,DSK:DTUTL.OK,DSK:DTHLP.OK,DSK:DTSCHB.COB
@DELETE DSK:DTXDM.CMD,DSK:DTXDM.DCA,DSK:DTXDM.LOG
@EXPUNGE DSK:
@ERROR
TSTCK::
! Check for required test files.
@ERROR %
@DIRECT DSK:DTORD.DDL,DSK:DTORDR.CBL,DSK:DTORDR.FML
@IF (ERROR) @GOTO TSTF1
@DIRECT DSK:DTSCH.DDL,DSK:DTSCHB.CBL,DSK:DTSCHB.FML
@IF (ERROR) @GOTO TSTF1
@DIRECT DSK:DTVRB.DDL,DSK:DTVRB1.CBL,DSK:DTVRB2.CBL,DSK:DTVR1S.CBL
@IF (ERROR) @GOTO TSTF1
@DIRECT DSK:DTVRB1.FML,DSK:DTVRB2.FML
@IF (ERROR) @GOTO TSTF1
@ERROR
@GOTO UTLCK
TSTF1::
@ERROR
@APPEND TTY: DBMTST.MAIL
@DBMS test files are missing from DSK: build area. Test aborted.
@^Z
@GOTO ENDIT
UTLCK::
! Check for all required DBMS utilities.
! Assume all are OK
@COPY NUL: DSK:DTUTL.OK
UTLC1::
@GET DSK:DBINFO
@IF (ERROR) @GOTO UTLF1
@INFORMATION VERSION
@GOTO UTLC2
UTLF1::
@APPEND TTY: DBMTST.MAIL
@DBMS utility DSK:DBINFO.EXE not found.
@^Z
@NOERROR
@DELETE DSK:DTUTL.OK,
@EXPUNGE
@
@ERROR
UTLC2::
@GET DSK:DBMEND
@IF (ERROR) @GOTO UTLF2
@INFORMATION VERSION
@GOTO UTLC3
UTLF2::
@APPEND TTY: DBMTST.MAIL
@DBMS utility DSK:DBMEND.EXE not found.
@^Z
@NOERROR
@DELETE DSK:DTUTL.OK,
@EXPUNGE
@
@ERROR
UTLC3::
@GET DSK:FORDML
@IF (ERROR) @GOTO UTLF3
@INFORMATION VERSION
@GOTO UTLC4
UTLF3::
@APPEND TTY: DBMTST.MAIL
@DBMS utility DSK:FORDML.EXE not found.
@^Z
@NOERROR
@DELETE DSK:DTUTL.OK,
@EXPUNGE
@
@ERROR
UTLC4::
@GET DSK:SCHEMA
@IF (ERROR) @GOTO UTLF4
@INFORMATION VERSION
@GOTO UTLC5
UTLF4::
@APPEND TTY: DBMTST.MAIL
@DBMS utility DSK:SCHEMA.EXE not found.
@^Z
@NOERROR
@DELETE DSK:DTUTL.OK,
@EXPUNGE
@
@ERROR
UTLC5::
@GET DSK:XDML
@IF (ERROR) @GOTO UTLF5
@INFORMATION VERSION
@GOTO HLPCK
UTLF5::
@APPEND TTY: DBMTST.MAIL
@DBMS utility DSK:XDML.EXE not found.
@^Z
@NOERROR
@DELETE DSK:DTUTL.OK,
@EXPUNGE
@
@ERROR
HLPCK::
! Check for required utility help files.
! Assume all there
@COPY NUL: DSK:DTHLP.OK
HLPC1::
@ERROR %
@DIRECT DSK:DBINFO.HLP
@IF (NOERROR) @GOTO HLPC2
@ERROR
@APPEND TTY: DBMTST.MAIL
@DBMS help file DSK:DBINFO.HLP not found.
@^Z
@NOERROR
@DELETE DSK:DTHLP.OK,
@EXPUNGE
@
HLPC2::
@ERROR %
@DIRECT DSK:DBMEND.HLP
@IF (NOERROR) @GOTO HLPC3
@ERROR
@APPEND TTY: DBMTST.MAIL
@DBMS help file DSK:DBMEND.HLP not found.
@^Z
@NOERROR
@DELETE DSK:DTHLP.OK,
@EXPUNGE
@
HLPC3::
@ERROR %
@DIRECT DSK:FORDML.HLP
@IF (NOERROR) @GOTO HLPC4
@ERROR
@APPEND TTY: DBMTST.MAIL
@DBMS help file DSK:FORDML.HLP not found.
@^Z
@NOERROR
@DELETE DSK:DTHLP.OK,
@EXPUNGE
@
HLPC4::
@ERROR %
@DIRECT DSK:SCHEMA.HLP
@IF (NOERROR) @GOTO HLPC5
@ERROR
@APPEND TTY: DBMTST.MAIL
@DBMS help file DSK:SCHEMA.HLP not found.
@^Z
@NOERROR
@DELETE DSK:DTHLP.OK,
@EXPUNGE
@
HLPC5::
@ERROR %
@DIRECT DSK:XDML.HLP
@IF (NOERROR) @GOTO SCHRN
@ERROR
@APPEND TTY: DBMTST.MAIL
@DBMS help file DSK:XDML.HLP not found.
@^Z
@NOERROR
@DELETE DSK:DTHLP.OK,
@EXPUNGE
@
SCHRN::
! Now run SCHEMA
@ERROR
@RUN DSK:SCHEMA
*/HELP
@IF (ERROR) @GOTO SCHF1
@ERROR %
*DTORD=DTORD.DDL
@IF (ERROR) @GOTO SCHF1
*DTSCH/NOCR
@IF (ERROR) @GOTO SCHF1
! Two warnings are expected in next schema
@ERROR
*DTVRB.DDL
@IF (ERROR) @GOTO SCHF1
*^Z
! Now copy the database files and lock files
! for repeated executions using fresh copies
@COPY DSK:DTORD.LOK DSK:DTORD.LOC
@COPY DSK:DTORD1.DBS DSK:DTORD1.DBC
@COPY DSK:DTORD2.DBS DSK:DTORD2.DBC
@COPY DSK:DTORD3.DBS DSK:DTORD3.DBC
@COPY DSK:DTORD4.DBS DSK:DTORD4.DBC
@COPY DSK:DTSCH.LOK DSK:DTSCH.LOC
@COPY DSK:DTVRB.LOK DSK:DTVRB.LOC
@COPY DSK:DTVRB1.DBS DSK:DTVRB1.DBC
@COPY DSK:DTVRB2.DBS DSK:DTVRB2.DBC
@GOTO FMLRN
SCHF1::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@SCHEMA test produced fatal errors. Test aborted.
@^Z
@GOTO ENDIT
FMLRN::
! Do the FORTRAN DML translations, even if no FORTRAN
@ERROR
@RUN DSK:FORDML
*/HELP
@IF (ERROR) @GOTO FMLF1
@ERROR %
*DTORDR=DTORDR.FML/CHARACTER
@IF (ERROR) @GOTO FMLF1
*DTSCHB.FML/NOCH
@IF (ERROR) @GOTO FMLF1
*DTVRB1/NOCHAR/UNFLAG
@IF (ERROR) @GOTO FMLF1
*DTVRB2/NOCH/U
@IF (ERROR) @GOTO FMLF1
*^Z
@GOTO XDMRN
FMLF1::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@FORDML test produced fatal errors.
@^Z
@NOERROR
@DELETE DSK:DTUTL.OK,
@EXPUNGE
@
XDMRN::
! Use XDML to create a sample Order Entry database
! Combined with this are a few miscellaneous commands
@ERROR
@RUN DSK:XDML
*HELP
@IF (ERROR) @GOTO XDMF1
@ERROR %
*INVOKE SUB-SCHEMA DTSSOC OF SCHEMA DTORD
*ORDER
*OPEN ALL USAGE-MODE UPDATE
*SHOW DATABASE
*DAYTIME
*ACCEPT IDAREA
*CUSAREA
*ACCEPT ORDSUM
*1
*
*0
*STORE ORDSUM
*ACCEPT PROD
*KA10
*CENTRAL PROCESSOR
*140000
*0
*0
*0
*0
*0
*0
*STORE PROD
*DISPLAY
*ACCEPT PROD
*DF10
*DATA CHANNEL
*14000
*0
*0
*0
*0
*0
*0
*STORE PROD
*ACCEPT SLSENG
*HOGAN, R.
*MAYNARD
*617897-5112968
*
*STORE SLSENG
*ACCEPT SLSENG
*CARMICHAEL, R.
*SANTA ANNA
*714979-2460 2
*
*STORE SLSENG
*ACCEPT CUSTOM
*DEC
*0
*
*ACCEPT STREET
*146 MAIN ST.
*ACCEPT CITY
*MAYNARD
*ACCEPT STATE
*MASS.
*ACCEPT ZIP
*01754
*STORE CUSTOM
*ACCEPT SLSENG-NAME
*HOGAN, R.
*FIND SLSENG
*FIND CUSTOM
*INSERT CUSTOM INTO SLSCUS-SET
*ACCEPT PURORD
*1
*071173
*0
*0
*
*STORE PURORD
*ACCEPT ORDSUM
*2
*
*1
*ACCEPT ITEM
*1001
*KA10
*1
*140000
*
*ACCEPT PROD-NO
*KA10
*FIND PROD RECORD
*ACCEPT PROD-ON-ORDER
*1
*MODIFY PROD PROD-ON-ORDER
*STORE ITEM
*FIND PURORD
*ACCEPT PURORD
*
*
*1
*140000
*
*MODIFY PURORD
*FIND FIRST ORDSUM RECORD OF ORDAREA AREA
*MODIFY ORDSUM ORDSUM-ORDERS,ORDSUM-NO
*CLOSE RUN-UNIT
*SHOW DATABASE
*STATS
*EXIT
@IF (ERROR) @GOTO XDMF1
XDMR2::
! Demonstrate many of the capabilities of XDML
! First, create a sample take file
@ERROR
@COPY TTY: DTXDM.CMD
@TYPE RUNNING XDML
@^Z
@ERROR
@RUN DSK:XDML
@ERROR %
*LOG OUTPUT DTXDM
*TAKE DTXDM
*SET ECHO TAKE ON
*TAKE DTXDM.CMD
*INVOKE SUB DTSSOC SCHEMA DTORD
*ORDER
*OPEN ALL
*FIND FIRST ORDSUM RECORD OF ORDAREA AREA
*NOTE ALL
*SET DISPLAY ERROR STATUS OFF
*FIND NEXT ORDSUM RECORD OF ORDAREA AREA
@IF (ERROR) @GOTO XDMF1
*TRANSLATE
@IF (NOERROR) @GOTO XDMF1
*SET DISPLAY ERROR STATUS ON
*DEFINE FN
*TYPE NEXT REC OF CUSAREA IS:
*FETCH NEXT RECORD OF CUSAREA AREA
*END
*SHOW USER-DEFINED-COMMAND FN
*FIND FIRST REC OF CUSAREA A
*SET DISPLAY CURRENCY ON
*FN
*SHOW CURRENCY
*MOVE CURRENCY STATUS RUN-UNIT TO DATA-BASE-KEY
*DISPLAY DATA-BASE-KEY
*SET DBKEY FORMAT SINGLE
*SET DBKEY RADIX OCTAL
*DISPLAY DATA-BASE-KEY
*GET
*DISPLAY
@IF (ERROR) @GOTO XDMF1
! 2ndary command level manips
*ENABLE
*DTKEY
*INTERCEPT NONE
*SHOW MODE
*RESET INTERCEPTS
*RESET NOTES
*SHOW BUFFER CUSAREA
*SHO LOC CUST-NAME
*DDT
*RET^[X
*QUIT
@CONTINUE
@IF (ERROR) @GOTO XDMF1
! User command/ keypad manips
*ASSIGN FN ONE
*SHOW KEYPAD
*PRESERVE DTXDM
*DEASSIGN ONE
*UNDEFINE FN
*DECLARE DTXDM
*SET ECHO USER ON
*FN
*LOG NO OUTPUT
*PUSH
@DIRECT DTXDM.LOG
@IF (ERROR) @GOTO XDMF1
@DELETE DTXDM.CMD,DTXDM.DCA,DTXDM.LOG,
@EXPUNGE
@
@POP
*SHOW KEYPAD
*SHOW MODE
*CLOSE
*EXIT
@IF (NOERROR) @GOTO INFRN
XDMF1::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@XDML tests produced fatal errors.
@^Z
@NOERROR
@DELETE DSK:DTUTL.OK,
@EXPUNGE
@
INFRN::
! Use DBINFO to examine the Order Entry database
@ERROR
@RUN DSK:DBINFO
*HELP
@IF (ERROR) @GOTO INFF1
@ERROR %
*SCHEMA DTORD
*SS
*ADMIN:DTKEY
*OPEN CUSAREA,PRDAREA,SYSAREA,ORDAREA
*SUPERSEDE DTORD
*DISPLAY CALC
*DISP CREF
*DIS MAP
*STAR:20
*DISP FREE:1
*NOSTAR
*ACCUMULATE:2
*DISPLAY USAGE
*NOACCUMULATE
*DISPLAY US:"PROD-ITEM-SET"
*PAGES 5-10
*DISP DATA
*NOPAGES
*D D:"ALLORD-SET"
*DISPLAY
*DISPLAY K:7001
*APPEND DTORD
*DIS
*RECORD:33
*DISPLAY DATA:"CUSORD-SET"
*CLOSE ALL
*STATS
*EXIT
@IF (ERROR) @GOTO INFF1
@DIRECT DTORD.DBI
@IF (NOERROR) @GOTO MNDRN
INFF1::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@DBINFO tests produced fatal errors.
@^Z
@NOERROR
@DELETE DSK:DTUTL.OK,
@EXPUNGE
@
MNDRN::
! Use DBMEND to manipulate and abstract the journal
! And merge in before images for most areas
@ERROR
@RUN DSK:DBMEND
*HELP
@IF (ERROR) @GOTO MNDF1
@ERROR %
*JOURNAL DTORD
*LABEL
*DISPLAY BEFORE COMMAND PAGENUM TEXT TRANSACTION
*START
*END
*ABSTRACT DTORD
*BUILD DTORDB
*CLOSE JOURNAL
*SCHEMA DTORD
*JOURNAL DTORD
*EXCLUDE SYSAREA
*OPEN ALL:DTKEY
*START
*END
*TRACE
*MERGE BEFORE
*CLOSE RUN-UNIT
*EXIT
@IF (ERROR) @GOTO MNDF1
@DIRECT DTORD.ABS
@IF (ERROR) @GOTO MNDF1
@DIRECT DTORDB.ABS
@IF (ERROR) @GOTO MNDF1
! Use XDML to make sure there is no data
@ERROR
@RUN DSK:XDML
@ERROR %
*INVOKE SUB-SCHEMA DTSSOC OF SCHEMA DTORD
*ORDER
*OPEN ALL
*FIND FIRST ORDSUM RECORD OF ORDAREA AREA
@IF (NOERROR) @GOTO MNDF1
*CLOSE ALL
*EXIT
@IF (ERROR) @GOTO MNDF1
! Use DBMEND to merge in all original after images
! and use XDML to check for existance of data
@RUN DSK:DBMEND
*JOURNAL DTORD
*EXCLUDE SYSAREA
*FORCEOPEN ALL
*START
*END *:21
*TRACE
*MERGE AFTER
*CLOSE RUN-UNIT
*EXIT
@IF (ERROR) @GOTO MNDF1
! Now to verify
@ERROR
@RUN DSK:XDML
@ERROR %
*INVOKE SUB-SCHEMA DTSSOC SCHEMA DTORD
*ORDER
*OPEN ALL
*ACCEPT IDAREA
*CUSAREA
*FETCH FIRST ORDSUM RECORD OF ORDAREA AREA
*ACCEPT PROD-NO
*KA10
*FETCH PROD
*ACCEPT PROD-NO
*DF10
*FETCH PROD
*FETCH FIRST SLSENG RECORD OF CUSAREA AREA
*FETCH NEXT SLSENG REC CUSAREA A
*ACCEPT CUST-NAME
*DEC
*FETCH CUSTOM
*ACCEPT ORDNUM
*1
*FETCH PURORD
*FETCH FIRST ITEM REC OF ORDITM-SET SET
*CLO ALL
*EXI
@IF (ERROR) @GOTO MNDF1
! Use XDML to open a transaction, abort, and reset, use DBMEND to
! delete the transaction, and use XDML to check
@ERROR
@RUN DSK:XDML
@ERROR %
*INV SUB DTSSOC SCH DTORD
*ORDER
*OPEN ALL U U
*OPEN TRANSACTION
*JRTEXT BIG TRANSACTION
*ACC IDAREA
*CUSAREA
*ACC CUSTOM
*DEC-WEST
*
*OREGON
*STORE CUSTOM
*FETCH FIRST REC CUSAREA AREA
*MODIFY CUSTOM CUST-KEY
*DEFINE FN
*FETCH NEXT REC CUSAREA AREA
*END
*FN
*MODIFY SLSENG SLSENG-PAD
*FN
*MODIFY CUSTOM CUST-KEY
*FN
*MODIFY SLSENG SLSENG-PAD
*FETCH FIRST REC CUSAREA AREA
! Generate an illegal-area intercept
*ACCEPT IDAREA
*BOGUS
@IF (ERROR) @GOTO MNDF1
*STORE CUSTOM
@IF (NOERROR) @GOTO MNDF1
@RESET
@RUN DSK:DBMEND
*SCHEMA DTORD
*DELETE TRANSACTION
*EXIT
@IF (ERROR) @GOTO MNDF1
@ERROR
@RUN DSK:XDML
@ERROR %
*INV SUB DTSSOC SCH DTORD
*ORDER
*OPEN ALL
*ACC IDAREA
*CUSAREA
*ACCEPT CUST-NAME
*DEC-WEST
*FIND CUSTOM RECORD
@IF (NOERROR) @GOTO MNDF1
*CLO ALL
*EXIT
@IF (ERROR) @GOTO MNDF1
! Now Set AID for all areas
@RUN DSK:DBMEND
*SCHEMA DTORD
*AID ALL
*EXIT
! And add a record, then verify its not there
! when all areas are temporary
@ERROR
@RUN DSK:XDML
@ERROR %
*INVOKE SUB DTSSOC SCHEMA DTORD
*ORDER
*OPEN ALL USAGE-MODE EXCLUSIVE UPDATE
*ACC IDAREA
*CUSAREA
*ACC CUSTOM
*DEC-WEST
*
*OREGON
*STORE CUSTOM SUPPRESS ALL
*CLOSE RUN
*EXIT
@IF (ERROR) @GOTO MNDF1
@ERROR
@RUN DSK:XDML
@ERROR %
*INVOKE SUB TS1 OF SCH DTORD
*OTEMP
*OPEN ALL
*ACCEPT CUST-NAME
*DEC-WEST
*ACCEPT IDAREA
*CUSAREA
*FIND CUSTOM RECORD
@IF (NOERROR) @GO TO MNDF1
*CLOSE ALL
*EXIT
@IF (ERROR) @GO TO MNDF1
! Now MERGE AID, turn it off, and verify data is there
@RUN DSK:DBMEND
*SCHEMA DTORD
*OPEN ALL
*MERGE AID
*CLOSE CUSAREA,PRDAREA,SYSAREA,ORDAREA
*EXIT
@IF (ERROR) @GOTO MNDF1
! Record should be there even when temp
@ERROR
@RUN DSK:XDML
@ERROR %
*INVOKE SUB TS1 OF SCH DTORD
*OTEMP
*OPEN ALL
*ACCEPT CUST-NAME
*DEC-WEST
*ACCEPT IDAREA
*CUSAREA
*FIND CUSTOM RECORD
@IF (ERROR) @GOTO MNDF1
*CLOSE ALL
*EXIT
@IF (ERROR) @GOTO MNDF1
@RESET
@GOTO UTLDN
MNDF1::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@DBMEND tests produced fatal errors.
@^Z
@NOERROR
@DELETE DSK:DTUTL.OK,
@EXPUNGE
@
UTLDN::
! Utility tests complete - give status
@ERROR %
@DIRECT DSK:DTUTL.OK
@IF (ERROR) @GOTO UTLD2
@DIRECT DSK:DTHLP.OK
@IF (ERROR) @GOTO UTLD1
@ERROR
@APPEND TTY: DBMTST.MAIL
@All DBMS utility tests completed OK.
@^Z
@GOTO HSTTS
UTLD1::
@ERROR
@APPEND TTY: DBMTST.MAIL
@DBMS utility tests ran OK, some help files are missing.
@^Z
@GOTO HSTTS
UTLD2::
@ERROR
@APPEND TTY: DBMTST.MAIL
@Some DBMS utility tests failed.
@^Z
HSTTS::
! Should minimally have a DBMS.REL in SYS:. Will check for
! possibly required DBMSF.REL with FORTRAN check later.
! Let test proceed, and catch error at load time.
@ERROR %
@DIRECT SYS:DBMS.REL
@IF (NOERROR) @GOTO COBTS
@ERROR
@APPEND TTY: DBMTST.MAIL
@DBMS load library SYS:DBMS.REL not found.
@^Z
COBTS::
! Check for the FORTRAN and COBOL host languages
! First try COBOL
@ERROR %
@DIRECT SYS:COBOL.EXE
@IF (NOERROR) @GOTO COBRN
@APPEND TTY: DBMTST.MAIL
@COBOL host language unavailable, trying FORTRAN.
@^Z
@GOTO FORTS
COBRN::
! Now wish to try all flavors of COBOL - at least 1 should work
! if DBMS has been installed with COBOL.
! Will try COBOL, CBL74, and CBL68 (via COMPILE switches)
! However COBOL may actually be one of CBL68 or 74, therfore will
! also check one of the generated .RELs to avoid replication
! First, get clean DTORD database files and no .JRN
@NOERROR
@RESET
@DELETE DSK:DTORD.LOK,DSK:DTORD.JRN
@DELETE DSK:DTORD1.DBS,DSK:DTORD2.DBS,DSK:DTORD3.DBS,DSK:DTORD4.DBS
@DELETE DSK:DTORD1.AID,DSK:DTORD2.AID,DSK:DTORD3.AID,DSK:DTORD4.AID
@DELETE DSK:DTORD1.TMP,DSK:DTORD2.TMP,DSK:DTORD3.TMP,DSK:DTORD4.TMP
@EXPUNGE DSK:
@ERROR
@COPY DSK:DTORD.LOC DSK:DTORD.LOK
@COPY DSK:DTORD1.DBC DSK:DTORD1.DBS
@COPY DSK:DTORD2.DBC DSK:DTORD2.DBS
@COPY DSK:DTORD3.DBC DSK:DTORD3.DBS
@COPY DSK:DTORD4.DBC DSK:DTORD4.DBS
! Now begin with generic COBOL
@ERROR %
@COMPILE DTORDR.CBL
@IF (ERROR) @GOTO COBF1
@COMPILE DTSCHB.CBL
@IF (ERROR) @GOTO COBF1
! Try and compile full COBOL DML test - may fail
@COMPILE DTVRB1.CBL
@IF (NOERROR) @GOTO COBV2
@NOERROR
@DELETE DSK:DTVRB1.REL,
@EXPUNGE
@
@ERROR %
! COBOL DML 99% sub-set must compile
@COMPILE DTVR1S.CBL
@IF (ERROR) @GOTO COBF1
! Simplify loading
@COPY DSK:DTVR1S.REL DSK:DTVRB1.REL
COBV2::
@COMPILE DTVRB2.CBL
@IF (NOERROR) @GOTO COBLD
COBF1::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using COBOL: DBMS tests failed to compile.
@^Z
@GOTO C74CK
COBLD::
@ERROR %
@LOAD DTORDR.REL
@IF (ERROR) @GOTO COBF2
@SAVE DTORDR
@IF (ERROR) @GOTO COBF2
@LOAD DTSCHB.REL
@IF (ERROR) @GOTO COBF2
@SAVE DTSCHB
@IF (ERROR) @GOTO COBF2
@LOAD DTVRB1.REL,DTVRB2.REL
@IF (ERROR) @GOTO COBF2
@SAVE DTVRB1
@IF (NOERROR) @GOTO COBEX
COBF2::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using COBOL: DBMS tests failed to load.
@^Z
@GOTO C74CK
COBEX::
@ERROR %
@RUN DTSCHB
@IF (ERROR) @GOTO COBF3
@ERROR
! May have a warning if really CBL68 or CBL74
@RUN DTVRB1
@IF (ERROR) @GOTO COBF3
@ERROR %
@RUN DTORDR
*BEGIN
*ENTER
*PROD
*KA10
*CENTRAL PROCESSOR
*140000
*DF10
*DATA CHANNEL
*14000
*KI10
*CENTRAL PROCESSOR
*240000
*
*SLSENG
*HOGAN, R.
*MAYNARD
*617
*897-5111
*2968
*CARMICHAEL, R.
*SANTA ANNA
*714
*979-2460
*2
*BRANDT, D.
*CAMBRIDGE
*617
*491-6130
*2522
*CUTHBERTSON, F.
*CAMBRIDGE
*617
*491-6130
*2522
*
*CUSTOM
*DEC
*146 MAIN ST.
*MAYNARD
*MASS.
*01754
*
*YES
*070973
*KA10
*3
*DF10
*4
*
*CUSTOM
*COPLEY
*2525 PACIFIC BEACH BLVD.
*SAN DIEGO
*CALIF.
*07111
*CARMICHAEL, R.
*YES
*071173
*KA10
*1
*
*CUSTOM
*FIRST CHURCH
*25 HUNTINGTON AVE.
*BOSTON
*MASS.
*02139
*BRANDT, D.
*YES
*071173
*KI10
*1
*DF10
*3
*
*CUSTOM
*SPAN
*25 TURNPIKE ROAD
*PROVIDENCE
*RHODE ISLAND
*01800
*CUTHBERTSON, F.
*NO
*
*INQUIRY
*CUSTOM
*DEC
*YES
*YES
*
*ENTER
*PROD
*MC10
*MEMORY PORT AND CABLE
*1000
*MD10-E
*MD10 32K WORD MEMORY EXPANSION MODULE
*42000
*
*PURORD
*DEC
*071273
*MC10
*2
*
*
*QUIT
@IF (ERROR) @GOTO COBF3
@ERROR
@APPEND TTY: DBMTST.MAIL
@Using COBOL: DBMS tests completed OK.
@^Z
! Copy simple DTSCHB.REL for comparison
! And create DTHOST.OK to show 1 successful host run
@COPY DSK:DTSCHB.REL DSK:DTSCHB.COB
@COPY NUL: DSK:DTHOST.OK
@GOTO C74CK
COBF3::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using COBOL: DBMS tests failed to execute.
@^Z
C74CK::
! Now try CBL74
! If no SYS:CBL74.EXE, skip all this
@ERROR %
@DIRECT SYS:CBL74.EXE
@IF (ERROR) @GOTO C68CK
! First, get fresh copy of .LOK and .DBS, and no .JRNs
! And delete previous .RELs and .EXEs
@NOERROR
@RESET
@DELETE DSK:DTORD.LOK,DSK:DTORD.JRN,DSK:DTORDR.REL,DSK:DTORDR.EXE
@DELETE DSK:DTORD1.DBS,DSK:DTORD2.DBS,DSK:DTORD3.DBS,DSK:DTORD4.DBS
@DELETE DSK:DTSCH.LOK,DSK:DTSCHB.REL,DSK:DTSCHB.EXE
@DELETE DSK:DTVRB.LOK,DSK:DTVRB.JRN,DSK:DTVRB1.REL,DSK:DTVRB2.REL
@DELETE DSK:DTVR1S.REL,DSK:DTVRB1.EXE
@EXPUNGE DSK:
@ERROR
@COPY DSK:DTSCH.LOC DSK:DTSCH.LOK
@COPY DSK:DTVRB.LOC DSK:DTVRB.LOK
@COPY DSK:DTVRB1.DBC DSK:DTVRB1.DBS
@COPY DSK:DTVRB2.DBC DSK:DTVRB2.DBS
@COPY DSK:DTORD.LOC DSK:DTORD.LOK
@COPY DSK:DTORD1.DBC DSK:DTORD1.DBS
@COPY DSK:DTORD2.DBC DSK:DTORD2.DBS
@COPY DSK:DTORD3.DBC DSK:DTORD3.DBS
@COPY DSK:DTORD4.DBC DSK:DTORD4.DBS
! Now use /74-COBOL, but first, compile the simple DTSCHB prog
! If failure, report same, else compare with
! COBOL compile, if the same, skip to CBL68
@ERROR %
@COMPILE DTSCHB.CBL/74-COBOL
@IF (ERROR) @GOTO C74F1
@RUN SYS:FILCOM
*=DTSCHB.COB,DTSCHB.REL/W/Q
@IF (ERROR) @GOTO C74C2
@ERROR
@APPEND TTY: DBMTST.MAIL
@Using CBL74: .REL matched COBOL, test skipped.
@^Z
@GOTO C68CK
C74C2::
@COMPILE DTORDR.CBL/74-COBOL
@IF (ERROR) @GOTO C74F1
@COMPILE DTVR1S.CBL/74-COBOL
@IF (ERROR) @GOTO C74F1
@COMPILE DTVRB2.CBL/74-COBOL
@IF (NOERROR) @GOTO C74LD
C74F1::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using CBL74: DBMS tests failed to compile.
@^Z
@GOTO C68CK
C74LD::
@ERROR %
@LOAD DTORDR.REL
@IF (ERROR) @GOTO C74F2
@SAVE DTORDR
@IF (ERROR) @GOTO C74F2
@LOAD DTSCHB.REL
@IF (ERROR) @GOTO C74F2
@SAVE DTSCHB
@IF (ERROR) @GOTO C74F2
@LOAD DTVR1S.REL,DTVRB2.REL
@IF (ERROR) @GOTO C74F2
@SAVE DTVRB1
@IF (NOERROR) @GOTO C74EX
C74F2::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using CBL74: DBMS tests failed to load.
@^Z
@GOTO C68CK
C74EX::
@ERROR %
@RUN DTSCHB
@IF (ERROR) @GOTO C74F3
@ERROR
! May have a warning
@RUN DTVRB1
@IF (ERROR) @GOTO C74F3
@ERROR %
@RUN DTORDR
*BEGIN
*ENTER
*PROD
*KA10
*CENTRAL PROCESSOR
*140000
*DF10
*DATA CHANNEL
*14000
*KI10
*CENTRAL PROCESSOR
*240000
*
*SLSENG
*HOGAN, R.
*MAYNARD
*617
*897-5111
*2968
*CARMICHAEL, R.
*SANTA ANNA
*714
*979-2460
*2
*BRANDT, D.
*CAMBRIDGE
*617
*491-6130
*2522
*CUTHBERTSON, F.
*CAMBRIDGE
*617
*491-6130
*2522
*
*CUSTOM
*DEC
*146 MAIN ST.
*MAYNARD
*MASS.
*01754
*
*YES
*070973
*KA10
*3
*DF10
*4
*
*CUSTOM
*COPLEY
*2525 PACIFIC BEACH BLVD.
*SAN DIEGO
*CALIF.
*07111
*CARMICHAEL, R.
*YES
*071173
*KA10
*1
*
*CUSTOM
*FIRST CHURCH
*25 HUNTINGTON AVE.
*BOSTON
*MASS.
*02139
*BRANDT, D.
*YES
*071173
*KI10
*1
*DF10
*3
*
*CUSTOM
*SPAN
*25 TURNPIKE ROAD
*PROVIDENCE
*RHODE ISLAND
*01800
*CUTHBERTSON, F.
*NO
*
*INQUIRY
*CUSTOM
*DEC
*YES
*YES
*
*ENTER
*PROD
*MC10
*MEMORY PORT AND CABLE
*1000
*MD10-E
*MD10 32K WORD MEMORY EXPANSION MODULE
*42000
*
*PURORD
*DEC
*071273
*MC10
*2
*
*
*QUIT
@IF (ERROR) @GOTO C74F3
@ERROR
@APPEND TTY: DBMTST.MAIL
@Using CBL74: DBMS tests completed OK.
@^Z
! Note a successful host run
@COPY NUL: DSK:DTHOST.OK.1
@GOTO C68CK
C74F3::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using CBL74: DBMS tests failed to execute.
@^Z
C68CK::
! Now try CBL68
! If no SYS:CBL68.EXE, skip all this
@ERROR %
@DIRECT SYS:CBL68.EXE
@IF (ERROR) @GOTO FORTS
! First, get fresh copy of .LOK and .DBS, and no .JRNs
! And delete previous .RELs and .EXEs
@NOERROR
@RESET
@DELETE DSK:DTORD.LOK,DSK:DTORD.JRN,DSK:DTORDR.REL,DSK:DTORDR.EXE
@DELETE DSK:DTORD1.DBS,DSK:DTORD2.DBS,DSK:DTORD3.DBS,DSK:DTORD4.DBS
@DELETE DSK:DTSCH.LOK,DSK:DTSCHB.REL,DSK:DTSCHB.EXE
@DELETE DSK:DTVRB.LOK,DSK:DTVRB.JRN,DSK:DTVRB1.REL,DSK:DTVRB2.REL
@DELETE DSK:DTVR1S.REL,DSK:DTVRB1.EXE
@EXPUNGE DSK:
@ERROR
@COPY DSK:DTSCH.LOC DSK:DTSCH.LOK
@COPY DSK:DTVRB.LOC DSK:DTVRB.LOK
@COPY DSK:DTVRB1.DBC DSK:DTVRB1.DBS
@COPY DSK:DTVRB2.DBC DSK:DTVRB2.DBS
@COPY DSK:DTORD.LOC DSK:DTORD.LOK
@COPY DSK:DTORD1.DBC DSK:DTORD1.DBS
@COPY DSK:DTORD2.DBC DSK:DTORD2.DBS
@COPY DSK:DTORD3.DBC DSK:DTORD3.DBS
@COPY DSK:DTORD4.DBC DSK:DTORD4.DBS
! Now use /68-COBOL, but first, compile the simple DTSCHB prog
! If failure, report same, else compare with
! COBOL compile, if the same, skip to FORTS
@ERROR %
@COMPILE DTSCHB.CBL/68-COBOL
@IF (ERROR) @GOTO C68F1
@RUN SYS:FILCOM
*=DTSCHB.COB,DTSCHB.REL/W/Q
@IF (ERROR) @GOTO C68C2
@ERROR
@APPEND TTY: DBMTST.MAIL
@Using CBL68: .REL matched COBOL, test skipped.
@^Z
@GOTO FORTS
C68C2::
@COMPILE DTORDR.CBL/68-COBOL
@IF (ERROR) @GOTO C68F1
@COMPILE DTVR1S.CBL/68-COBOL
@IF (ERROR) @GOTO C68F1
@COMPILE DTVRB2.CBL/68-COBOL
@IF (NOERROR) @GOTO C68LD
C68F1::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using CBL68: DBMS tests failed to compile.
@^Z
@GOTO FORTS
C68LD::
@ERROR %
@LOAD DTORDR.REL
@IF (ERROR) @GOTO C68F2
@SAVE DTORDR
@IF (ERROR) @GOTO C68F2
@LOAD DTSCHB.REL
@IF (ERROR) @GOTO C68F2
@SAVE DTSCHB
@IF (ERROR) @GOTO C68F2
@LOAD DTVR1S.REL,DTVRB2.REL
@IF (ERROR) @GOTO C68F2
@SAVE DTVRB1
@IF (NoERROR) @GOTO C68EX
C68F2::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using CBL68: DBMS tests failed to load.
@^Z
@GOTO FORTS
C68EX::
@ERROR %
@RUN DTSCHB
@IF (ERROR) @GOTO C68F3
@ERROR
! May have a warning
@RUN DTVRB1
@IF (ERROR) @GOTO C68F3
@ERROR %
@RUN DTORDR
*BEGIN
*ENTER
*PROD
*KA10
*CENTRAL PROCESSOR
*140000
*DF10
*DATA CHANNEL
*14000
*KI10
*CENTRAL PROCESSOR
*240000
*
*SLSENG
*HOGAN, R.
*MAYNARD
*617
*897-5111
*2968
*CARMICHAEL, R.
*SANTA ANNA
*714
*979-2460
*2
*BRANDT, D.
*CAMBRIDGE
*617
*491-6130
*2522
*CUTHBERTSON, F.
*CAMBRIDGE
*617
*491-6130
*2522
*
*CUSTOM
*DEC
*146 MAIN ST.
*MAYNARD
*MASS.
*01754
*
*YES
*070973
*KA10
*3
*DF10
*4
*
*CUSTOM
*COPLEY
*2525 PACIFIC BEACH BLVD.
*SAN DIEGO
*CALIF.
*07111
*CARMICHAEL, R.
*YES
*071173
*KA10
*1
*
*CUSTOM
*FIRST CHURCH
*25 HUNTINGTON AVE.
*BOSTON
*MASS.
*02139
*BRANDT, D.
*YES
*071173
*KI10
*1
*DF10
*3
*
*CUSTOM
*SPAN
*25 TURNPIKE ROAD
*PROVIDENCE
*RHODE ISLAND
*01800
*CUTHBERTSON, F.
*NO
*
*INQUIRY
*CUSTOM
*DEC
*YES
*YES
*
*ENTER
*PROD
*MC10
*MEMORY PORT AND CABLE
*1000
*MD10-E
*MD10 32K WORD MEMORY EXPANSION MODULE
*42000
*
*PURORD
*DEC
*071273
*MC10
*2
*
*
*QUIT
@IF (ERROR) @GOTO C68F3
@ERROR
@APPEND TTY: DBMTST.MAIL
@Using CBL68: DBMS tests completed OK.
@^Z
! Note a successful host run
@COPY NUL: DSK:DTHOST.OK.1
@GOTO FORTS
C68F3::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using CBL68: DBMS tests failed to execute.
@^Z
FORTS::
! See if a FORTRAN to run
@ERROR %
@DIRECT SYS:FORTRA
@IF (NOERROR) @GOTO DBFCK
@ERROR
@APPEND TTY: DBMTST.MAIL
@FORTRAN host language unavailable.
@^Z
@GOTO HSTCK
DBFCK::
! Will need FORTRAN specific DBCS SYS:DBMSF.EXE
@ERROR %
@DIRECT SYS:DBMSF.EXE
@IF (NOERROR) @GOTO DFLCK
@ERROR
@APPEND TTY: DBMTST.MAIL
@FORTRAN only DBCS file SYS:DBMSF.EXE not found.
@^Z
DFLCK::
! Now see if there is a DBMSF.REL. If not, it is possible
! that the current FORLIB will require one. See if this is so.
@ERROR %
@DIRECT SYS:DBMSF.REL
@IF (NOERROR) @GOTO FORRN
@RUN SYS:LINK
*/REQUIRE:SBIND
*SYS:FORLIB.REL/SEARCH
@IF (NOERROR) @GOTO FORRN
@ERROR
@APPEND TTY: DBMTST.MAIL
@FORTRAN only DBMS load library SYS:DBMSF.REL not found.
@^Z
FORRN::
! First, get fresh copy of .LOK and .DBS, and no .JRNs
! And delete previous .RELs and .EXEs
@NOERROR
@RESET
@DELETE DSK:DTORD.LOK,DSK:DTORD.JRN,DSK:DTORDR.REL,DSK:DTORDR.EXE
@DELETE DSK:DTORD1.DBS,DSK:DTORD2.DBS,DSK:DTORD3.DBS,DSK:DTORD4.DBS
@DELETE DSK:DTSCH.LOK,DSK:DTSCHB.REL,DSK:DTSCHB.EXE
@DELETE DSK:DTVRB.LOK,DSK:DTVRB.JRN,DSK:DTVRB1.REL,DSK:DTVRB2.REL
@DELETE DSK:DTVR1S.REL,DSK:DTVRB1.EXE
@EXPUNGE DSK:
@ERROR
@COPY DSK:DTSCH.LOC DSK:DTSCH.LOK
@COPY DSK:DTVRB.LOC DSK:DTVRB.LOK
@COPY DSK:DTVRB1.DBC DSK:DTVRB1.DBS
@COPY DSK:DTVRB2.DBC DSK:DTVRB2.DBS
@COPY DSK:DTORD.LOC DSK:DTORD.LOK
@COPY DSK:DTORD1.DBC DSK:DTORD1.DBS
@COPY DSK:DTORD2.DBC DSK:DTORD2.DBS
@COPY DSK:DTORD3.DBC DSK:DTORD3.DBS
@COPY DSK:DTORD4.DBC DSK:DTORD4.DBS
! Now use DML translated FORTRAN programs
@ERROR %
@COMPILE DTORDR.FOR/LANG:"/NOWARN:CNM"
@IF (ERROR) @GOTO FORF1
@COMPILE DTSCHB.FOR
@IF (ERROR) @GOTO FORF1
@COMPILE DTVRB1.FOR,DTVRB2.FOR
@IF (NOERROR) @GOTO FORLD
FORF1::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using FORTRAN: DBMS tests failed to compile.
@^Z
@GOTO HSTCK
FORLD::
@ERROR %
@LOAD DTORDR.REL
@IF (ERROR) @GOTO FORF2
@SAVE DTORDR
@IF (ERROR) @GOTO FORF2
@LOAD DTSCHB.REL
@IF (ERROR) @GOTO FORF2
@SAVE DTSCHB
@IF (ERROR) @GOTO FORF2
@LOAD DTVRB1.REL,DTVRB2.REL
@IF (ERROR) @GOTO FORF2
@SAVE DTVRB1
@IF (NOERROR) @GOTO FOREX
FORF2::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using FORTRAN: DBMS tests failed to load.
@^Z
@GOTO HSTCK
FOREX::
@ERROR %
@RUN DTSCHB
@IF (ERROR) @GOTO FORF3
@RUN DTVRB1
@IF (ERROR) @GOTO FORF3
@RUN DTORDR
*BEGIN
*ENTER
*PROD
*KA10
*CENTRAL PROCESSOR
*140000
*DF10
*DATA CHANNEL
*14000
*KI10
*CENTRAL PROCESSOR
*240000
*
*SLSENG
*HOGAN, R.
*MAYNARD
*617
*897-5111
*2968
*CARMICHAEL, R.
*SANTA ANNA
*714
*979-2460
*2
*BRANDT, D.
*CAMBRIDGE
*617
*491-6130
*2522
*CUTHBERTSON, F.
*CAMBRIDGE
*617
*491-6130
*2522
*
*CUSTOM
*DEC
*146 MAIN ST.
*MAYNARD
*MASS.
*01754
*
*YES
*070973
*KA10
*3
*DF10
*4
*
*CUSTOM
*COPLEY
*2525 PACIFIC BEACH BLVD.
*SAN DIEGO
*CALIF.
*07111
*CARMICHAEL, R.
*YES
*071173
*KA10
*1
*
*CUSTOM
*FIRST CHURCH
*25 HUNTINGTON AVE.
*BOSTON
*MASS.
*02139
*BRANDT, D.
*YES
*071173
*KI10
*1
*DF10
*3
*
*CUSTOM
*SPAN
*25 TURNPIKE ROAD
*PROVIDENCE
*RHODE ISLAND
*01800
*CUTHBERTSON, F.
*NO
*
*INQUIRY
*CUSTOM
*DEC
*YES
*YES
*
*ENTER
*PROD
*MC10
*MEMORY PORT AND CABLE
*1000
*MD10-E
*MD10 32K WORD MEMORY EXPANSION MODULE
*42000
*
*PURORD
*DEC
*071273
*MC10
*2
*
*
*QUIT
@IF (ERROR) @GOTO FORF3
@ERROR
@APPEND TTY: DBMTST.MAIL
@Using FORTRAN: DBMS tests completed OK.
@^Z
! Note a successful host run
@COPY NUL: DSK:DTHOST.OK.1
@GOTO HSTCK
FORF3::
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Using FORTRAN: DBMS tests failed to execute.
@^Z
HSTCK::
! Now verify that at least one host language test succeeded
@ERROR %
@DIRECT DTHOST.OK
@IF (NOERROR) @GOTO ENDIT
@ERROR
@APPEND TTY: DBMTST.MAIL
@No DBMS host language test ran correctly.
@^Z
@GOTO ENDIT
%TERR::
! Job timeout
@
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@DBMS20 timed out - rerun test with larger time limit.
@^Z
@GOTO ENDIT
%ERR::
@GOTO UERR
UERR::
! An unexpected error occurred somewhere.
@
@ERROR
@RESET
@APPEND TTY: DBMTST.MAIL
@Unexpected DBMS test error - check .LOG file.
@^Z
@GOTO ENDIT
ENDIT::
! Cleanup and finish
@NOERROR
@RESET
@DELETE DSK:DTORD.JRN,DSK:DTORD.LOK,DSK:DTORD.SCH
@DELETE DSK:DTORDR.FOR,DSK:DTORDR.REL,DSK:DTORDR.EXE,DSK:DTSSOF.SUB
@DELETE DSK:DTORD1.DBS,DSK:DTORD2.DBS,DSK:DTORD3.DBS,DSK:DTORD4.DBS
@DELETE DSK:DTORD1.TMP,DSK:DTORD2.TMP,DSK:DTORD3.TMP,DSK:DTORD4.TMP
@DELETE DSK:DTORD1.AID,DSK:DTORD2.AID,DSK:DTORD3.AID,DSK:DTORD4.AID
@DELETE DSK:DTSCH.LOK,DSK:DTSCH.SCH
@DELETE DSK:DTSCHB.FOR,DSK:DTSCHB.REL,DSK:DTSCHB.EXE,DSK:DTSSSF.SUB
@DELETE DSK:DTVRB.JRN,DSK:DTVRB.LOK,DSK:DTVRB.SCH
@DELETE DSK:DTVRB1.DBS,DSK:DTVRB2.DBS
@DELETE DSK:DTVRB1.FOR,DSK:DTVRB2.FOR,DSK:DTVRB1.REL,DSK:DTVRB2.REL
@DELETE DSK:DTVR1S.REL,DSK:DTVRB1.EXE
@DELETE DSK:DTSSV1.SUB,DSK:DTSSV2.SUB
@DELETE DSK:DTORD.LOC,DSK:DTORD1.DBC,DSK:DTORD2.DBC,DSK:DTORD3.DBC
@DELETE DSK:DTORD4.DBC
@DELETE DSK:DTSCH.LOC,DSK:DTVRB.LOC,DSK:DTVRB1.DBC,DSK:DTVRB2.DBC
@DELETE DSK:DTORD.DBI,DSK:DTORD.ABS,DSK:DTORDB.ABS
@DELETE DSK:DTHOST.OK,DSK:DTUTL.OK,DSK:DTHLP.OK,DSK:DTSCHB.COB
@DELETE DSK:DTXDM.CMD,DSK:DTXDM.DCA,DSK:DTXDM.LOG
@EXPUNGE DSK:
@ERROR
@APPEND TTY: DBMTST.MAIL
@
@End of DBMS test.
@^Z
! Mail the status message
@MAIL
@IF (ERROR) @PLEASE DBMTST finished. Please TYPE DBMTST.MAIL for results.
*.
*
*DBMS-20 Verification Test results
*@DBMTST.MAIL
%FIN::
! End of tests.