Google
 

Trailing-Edge - PDP-10 Archives - KS10_APT_INSTALL_TAPE - 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