Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
uetp/lib/dbms.ver
There are 14 other files named dbms.ver in the archive. Click here to see a list.
;<UETP.LIB>DBMS.VER.3, 10-May-79 11:46:19, EDIT BY EIBEN
!****************************************
!DBMS MUST HAVE ENQ-DEQ CAPABILITIES.
!****************************************
@inf str user:
@if (error) @goto begin:
@run <uetp.lib>sender
*type START
*blabel user:
*test dbms
*send DBMS =>USER:
*exit
@mount structure user:
@def dsk: user:<uetp.dbms>,ps:<uetp.lib>
@def out: user:<uetp.dbms>
@goto begin1:
begin::
@run <uetp.lib>sender
*TEST DBMS
*TYPE START
*BLABEL BEGIN:
*SEND
*EXIT
@def dsk: <uetp.dbms>,ps:<uetp.lib>
@def out: ps:<uetp.dbms>
begin1::
@take sys.cmd
@goto begin2:
%ERR::
@RUN <uetp.lib>sender
*TYPE error
*BLABEL BEGIN1:
*TEST dbms
*SEND ERROR on TAKE SYS.CMD
*EXIT
@revive
@goto ENDERR:
begin2::
@NOERROR
@delete out:*.*
@expunge out:
@error %
@inf dis out:
@inf log all
@goto dbms:
%ERR::
@run <uetp.lib>sender
*type error
*blabel begin2
*test dbms
*send No directory uetp.dbms on structure USER:?
*exit
@go to enderr:
DBMS::
@DEFINE JRN: out:
! DO A FORTRAN/DBMS TEST
@copy ordent.sch ordent.sch
@copy ordtin.sch ordtin.sch
@copy tstidb.sch tstidb.sch
@copy v4s.sch v4s.sch
@copy v4b.sch v4b.sch
@copy area1.dbs area1.dbs
@copy ordfil.dbs ordfil.dbs
@copy prdfil.dbs prdfil.dbs
@copy sysfil.dbs sysfil.dbs
@copy cusfil.dbs cusfil.dbs
@RUN SYS:LINK
*V4/G
@GOTO DBMS1:
%ERR::
@silence !***** message: FATAL ERROR(S) LINKING V4.
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS:
*SEND FATAL ERROR(S) LINKING V4.
*EXIT
@revive
@GOTO DBMS2:
DBMS1::
@SAVE V4
@START (PROGRAM)
*1
@GOTO DBMS2:
%ERR::
@silence !***** message: ERRORS RUNNING PROG V4
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS1:
*SEND ERRORS RUNNING PROG V4
*EXIT
@revive
DBMS2::
@GET <uetp.lib>DBMEND
@GOTO DBMS3:
%ERR::
@SILENCE !MESSAGE: ***** ERROR ON 'GET <uetp.lib>DBMEND'
@RUN ps:<uetp.lib>SENDER
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS2:
*SEND ERROR ON 'GET <uetp.lib>DBMEND'
*EXIT
@REVIVE
@GOTO DBMS13:
DBMS3::
@START
*JOURNAL ORDTIN
*START
*END
*OPEN ALL
*MERGE BEFORE
*CLOSE ALL
*UNLOAD
@GOTO DBMS4:
%ERR::
@silence !***** message: ERRORS RUNNNING DBMEND
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS3:
*SEND ERRORS RUNNING DBMEND
*EXIT
@revive
DBMS4::
@COPY (FROM) CUSFIL.DBS (TO) *.EMP
@GOTO DBMS5:
%ERR::
@silence !***** message: CAN'T FIND CUSFIL.DBS
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS4:
*SEND CAN'T FIND CUSFIL.DBS
*EXIT
@revive
@GOTO DBMS13:
DBMS5::
@run v4
*0
@GOTO DBMS6:
%ERR::
@silence !***** message: ERROR RUNNING V4 WITH PARM=0
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS5:
*SEND ERROR RUNNING V4 WITH PARM=0
*EXIT
@revive
DBMS6::
@RUN SYS:LINK
*UNV4/G
@GOTO DBMS7:
%ERR::
@silence !***** message: ERRORS LINKING UNV4
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS6:
*SEND ERRORS LINKING UNV04
*EXIT
@revive
@GOTO DBMS8:
DBMS7::
@START (PROGRAM)
@GOTO DBMS8:
%ERR::
@silence !***** message: ERRORS RUNNING UNV4
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS7:
*SEND ERRORS RUNNING UNV4
*EXIT
@revive
DBMS8::
@RUN SYS:LINK
*V4S/G
@GOTO DBMS9:
%ERR::
@silence !***** message: ERRORS LINKING V4S
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS8:
*SEND ERRORS LINKING V4S
*EXIT
@revive
@GOTO DBMS10:
DBMS9::
@START (PROGRAM)
*2
@GOTO DBMS10:
%ERR::
@silence !***** message: ERRORS RUNNING V4S
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS9:
*SEND ERRORS RUNNING V4S
*EXIT
@revive
DBMS10::
@RUN SYS:LINK
*FIT2/G
@GOTO DBMS11:
%ERR::
@silence !***** message: ERRORS LINKING FIT2
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS10:
*SEND ERRORS LINKING FIT2
*EXIT
@revive
@GOTO DBMS12:
DBMS11::
@START (PROGRAM)
@GOTO DBMS12:
%ERR::
@silence !***** message: ERRORS RUNNING FIT2
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS11:
*SEND ERRORS RUNNING FIT2
*EXIT
@revive
DBMS12::
@SILENCE !***** message: END OF FORTRAN DBMS TEST
@run ps:<uetp.lib>sender
*test dbms
*type MINOR
*blabel dbMS12:
*send END OF FORTRAN DBMS TEST
*exit
@revive
dbms13::
@NOERROR
@DELETE (FILES) *.*
@EXPUNGE out:<uetp.dbms>
@ERROR
!***********************************************************
!BEGINNING OF COBOL/DBMS TESTS
@silence !***** message: starting cobol dbms test
@run ps:<uetp.lib>sender
*type MINOR
*blabel DBMS13:
*test dbms
*send starting cobol dbms test
*exit
@revive
dbms14::
@DEFINE JRN: out:
@copy sysfil.dbs sysfil.dbs
@copy prdfil.dbs prdfil.dbs
@copy ordfil.dbs ordfil.dbs
@copy cusfil.dbs cusfil.dbs
@copy ordent.sch ordent.sch
@copy tstidb.sch tstidb.sch
@COPY TSTIDB.DDL TSTIDB.DDL
@COPY ORDENT.DDL ORDENT.DDL
@RUN SYS:LINK
*TSTIDB/G
@GOTO DBMS15:
%ERR::
@silence !***** message: ERROR LINKING COBOL TSTIDB
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS14:
*SEND ERROR LINKING COBOL TSTIDB
*EXIT
@revive
@GOTO DBMS16:
DBMS15::
@START (PROGRAM)
@GOTO DBMS16:
%ERR::
@silence !***** message: ERRORS RUNNING TSTIDB (COBOL TEST)
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS15:
*SEND ERRORS RUNNING TSTIDB (COBOL TEST)
*EXIT
@revive
DBMS16::
@RUN SYS:LINK
*ORDENT/G
@GOTO dbms17:
@silence !***** message: ERROR LINKING ORDENT
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS16:
*SEND ERROR LINKING ORDENT
*EXIT
@revive
@GOTO ENDERR:
DBMS17::
@START (PROGRAM)
*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
@GOTO DBMS19:
%ERR::
@silence !***** message: ERRORS RUNNING ORDENT
@run ps:<uetp.lib>sender
*TEST DBMS
*TYPE ERROR
*BLABEL DBMS18:
*SEND ERRORS RUNNING ORDENT
*EXIT
@revive
@GOTO ENDERR:
%TERR::
@SILENCE ! ***** MESSAGE: TIME-OUT ERROR DBMS
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST DBMS
*SEND TIME-OUT ERROR DBMS
*EXIT
@REVIVE
@GOTO ENDERR:
%ERR::
@SILENCE ! ***** MESSAGE: UNKNOWN ERROR IN DBMS.SUP
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST DBMS
*SEND UNKNOWN ERROR IN DBMS.SUP
*EXIT
@REVIVE
@GOTO ENDERR:
ENDERR::
@INF DIS out:<UETP.DBMS>
@VDIR out:
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM
END::
%FIN::
@silence !***** message: END OF DBMS TEST
@RUN ps:<uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST DBMS
*SEND
*EXIT
@revive