PDP-10 Archive: uetp/lib/dtr20.ver from BB-AI48A-BM

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - uetp/lib/dtr20.ver
There are no other files named dtr20.ver in the archive.
!TIME 000:05
!
!	Datatrieve-20 V1.0 Verification Test
!	COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983
!
!	This test verifies that the following components of
!	Datatrieve-20 V1.0 are properly installed:
!
!		DTR20.EXE	Stand alone Datatrieve program
!		DDMF.EXE	Callable Datatrieve
!		XRMS.EXE	Extended RMS (not part of Datatrieve kit)
!		RTL.EXE		Extended Run Time Library
!		ADT.EXE		Application Design Tool
!		SORT.EXE	Extended Sort (not part of Datatrieve kit)
!		NETJOB.EXE	Job controller for DECnet servers (optional)
!		DTRSRV.EXE	Distributed Datatrieve Server (optional)
!		REMDTR.EXE	Remote Datatrieve program (optional)
!		REGIS.EXE	Regis graphics display program (optional)
!		DTR20.HLP	Datatrieve help file
!		DTR.COMBINED-HLP Internal Datatrieve help text
!

BEGIN::
@DEFINE DSK: PS:<UETP.DTR20>,PS:<UETP.LIB>
@DELETE PS:<UETP.DTR20>*.*
@EXPUNGE PS:<UETP.DTR20>
@DEFINE SYS: DSK:,SYS:
!
!	Message: Start of DTR20 Test
!
@R SENDER
*TYPE START
*BLABEL BEGIN:
*TEST DTR20
*SEND START OF DTR20 TEST
*EXIT
! Test DTR20.EXE
@GET SYS:DTR20.EXE
@IF (NOERROR) @GOTO DTR20::
!
!	Message: DTR20 not available
!
@R SENDER
*TYPE ERROR
*BLABEL DTR20:
*TEST DTR20
*SEND SYS:DTR20.EXE not available
*EXIT
@GOTO END::

DTR20::
@INFO VERSION
@DIR SYS:DTR20.EXE,
@CHECKSUM
@
! Test DDMF.EXE
@GET SYS:DDMF.EXE
@IF (NOERROR) @GOTO DDMF::
!
!	Message: DDMF not available
!
@R SENDER
*TYPE ERROR
*BLABEL DDMF:
*TEST DTR20
*SEND SYS:DDMF.EXE not available
*EXIT
@GOTO END::

DDMF::
@INFO VERSION
@DIR SYS:DDMF.EXE,
@CHECKSUM
@

! Test XRMS.EXE
@GET SYS:XRMS.EXE
@IF (NOERROR) @GOTO XRMS::
!
!	Message: XRMS not available
!
@R SENDER
*TYPE ERROR
*BLABEL XRMS:
*TEST DTR20
*SEND SYS:XRMS.EXE not available
*EXIT
@GOTO END::

XRMS::
@INFO VERSION
@DIR SYS:XRMS.EXE,
@CHECKSUM
@
! Test RTL.EXE
@GET SYS:RTL.EXE
@IF (NOERROR) @GOTO RTL::
!
!	Message: RTL not available
!
@R SENDER
*TYPE ERROR
*BLABEL RTL:
*TEST DTR20
*SEND SYS:RTL.EXE not available
*EXIT
@GOTO END::

RTL::
@INFO VERSION
@DIR SYS:RTL.EXE,
@CHECKSUM
@
! Test ADT.EXE
@GET SYS:ADT.EXE
@IF (NOERROR) @GOTO ADT::
!
!	Message: ADT not available
!
@R SENDER
*TYPE ERROR
*BLABEL ADT:
*TEST DTR20
*SEND SYS:ADT.EXE not available
*EXIT
@GOTO END::

ADT::
@INFO VERSION
@DIR SYS:ADT.EXE,
@CHECKSUM
@
! Test SORT.EXE
@GET SYS:SORT.EXE
@IF (NOERROR) @GOTO SORT::
!
!	Message: SORT not available
!
@R SENDER
*TYPE ERROR
*BLABEL SORT:
*TEST DTR20
*SEND SYS:SORT.EXE not available
*EXIT
@GOTO END::

SORT::
@INFO VERSION
@DIR SYS:SORT.EXE,
@CHECKSUM
@
! Test NETJOB.EXE
@GET SYS:NETJOB.EXE
@IF (NOERROR) @GOTO NETJOB::
!
!	Message: NETJOB not available
!
@R SENDER
*TYPE ERROR
*BLABEL NETJOB:
*TEST DTR20
*SEND SYS:NETJOB.EXE not available (distributed DTR may not be installed), continuing
*EXIT
@GOTO NONET1

NETJOB::
@INFO VERSION
@DIR SYS:NETJOB.EXE,
@CHECKSUM
@
NONET1::
! Test DTRSRV.EXE
@GET SYS:DTRSRV.EXE
@IF (NOERROR) @GOTO DTRSRV::
!
!	Message: DTRSRV not available
!
@R SENDER
*TYPE ERROR
*BLABEL DTRSRV:
*TEST DTR20
*SEND SYS:DTRSRV.EXE not available (distributed DTR may not be installed), continuing
*EXIT
@GOTO NONET2

DTRSRV::
@INFO VERSION
@DIR SYS:DTRSRV.EXE,
@CHECKSUM
@
NONET2::
! Test REMDTR.EXE
@GET SYS:REMDTR.EXE
@IF (NOERROR) @GOTO REMDTR::
!
!	Message: REMDTR not available
!
@R SENDER
*TYPE ERROR
*BLABEL REMDTR:
*TEST DTR20
*SEND SYS:REMDTR.EXE not available (distributed DTR may not be installed), continuing
*EXIT
@GOTO NONET3

REMDTR::
@INFO VERSION
@DIR SYS:REMDTR.EXE,
@CHECKSUM
@

NONET3::
! Look for the REGIS utility program
@GET SYS:REGIS.EXE
@IF (NOERROR) @GOTO REGIS::
!
!	Message:  REGIS utility not available
!
@R SENDER
*TYPE ERROR
*BLABEL REGIS:
*TEST DTR20
*SEND SYS:REGIS.EXE not available (graphics utility may not be installed), continuing
*EXIT
@GOTO NONET4

REGIS::
@INFO VERSION
@DIR SYS:REGIS.EXE,
@CHECKSUM
@
NONET4::
! Look for the two HELP files
@ERROR %
@DIR HLP:DTR20.HLP,HLP:DTR.COMBINED-HLP
@IF (NOERROR) @GOTO HELP::
!
!	Message: HELP files not available
!
@R SENDER
*TYPE ERROR
*BLABEL HELP:
*TEST DTR20
*SEND HLP:DTR20.HLP and/or HLP:DTR.COMBINED-HLP not available
*EXIT
@GOTO END::

HELP::
@DIR HLP:DTR20.HLP,
@CHECKSUM
@
@DIR HLP:DTR.COMBINED-HLP,
@CHECKSUM
@

! Simple tests to insure that Datatrieve-20 was installed properly
@ERROR ?
@DELETE DSK:*.*
@EXPUNGE DSK:

! First get sample data files
@NOERROR
@TAKE CDD$DTR:NEWUSER.CMD
@ERROR
@COPY CDD$DTR:NEWUSER.CMD NUL:
@IF (NOERROR) @GOTO NEWU::
!
!	Message: NEWUSER not available
!
@R SENDER
*TYPE ERROR
*BLABEL NEWU:
*TEST DTR20
*SEND CDD$DTR:NEWUSER.CMD not found
*EXIT
@GOTO END::

NEWU::

! Now test DTR20, DDMF, XRMS, RTL, and SORT
@HELP DTR20
@DTR20
*SET DICTIONARY TO DSK:
*READY YACHTS
*PRINT FIRST 5 YACHTS WITH PRICE NOT MISSING SORTED BY FN$SQRT ( PRICE ) ON
*    PRINT.TXT  ;
*HELP FUNCTION
*EXIT

@FILCOM
NUL:=PRINT.TXT,PRINT.DTR
*^C
@IF (NOERROR) GOTO FCOK1::
!
!	Message: Print Statement error
!
@R SENDER
*TYPE ERROR
*BLABEL FCOK1:
*TEST DTR20
*SEND Error in Print statement
*EXIT
@GOTO END::

FCOK1::

! Test plotting
@DTR20 SET PLOTS CDD$DTR.VT125
@IF (NOERROR) @GOTO PLOK::
!
!	Message: Plot definitions not available
!
@R SENDER
*TYPE ERROR
*BLABEL DTR20:
*TEST DTR20
*SEND VT125 plot definitions not available, continuing
*EXIT
@GOTO FCOK2::

PLOK::
@DTR20
*SET DICTIONARY TO DSK:
*SET PLOTS CDD$DTR.VT125
*READY YACHTS
*PLOT PIE ALL BUILDER OF YACHTS ON PLOT.TXT ;
*EXIT
@FILCOM
NUL:=PLOT.TXT,PLOT.DTR/W
*^C
@IF (NOERROR) GOTO FCOK2::
!
!	Message: Plot Statement error
!
@R SENDER
*TYPE ERROR
*BLABEL FCOK2:
*TEST DTR20
*SEND Error in Plot statement
*EXIT
@GOTO END::

FCOK2::
! Test ADT
@DTR20
*SET DICTIONARY TO DSK:
*ADT
*N
*TEST
*TEST.DAT
*F1
*C
*10
*N
*N
*Y
*EXTRACT TEST,TEST-REC ON ADT.TXT
*EXIT
@DIR TEST.DAT
@FILCOM
*NUL:=ADT.TXT,ADT.DTR
*^C
@IF (NOERROR) GOTO FCOK3::
!
!	Message: ADT error
!
@R SENDER
*TYPE ERROR
*BLABEL FCOK3:
*TEST DTR20
*SEND Error in ADT command
*EXIT
@GOTO END::

FCOK3::
! Distributed Datatrieve Test
@DTR20
*TAKE REMDTR
*SHOW READY
*PRINT FIRST 5 YACHTS ON REMOTE.TXT
*EXIT
@IF (NOERROR) GOTO REM::
!
!	Message: Distributed Datatrieve Error
!
@R SENDER
*TYPE ERROR
*BLABEL END:
*TEST DTR20
*SEND Error in Distributed Datatrieve (it may not be installed), continuing
*EXIT
@GOTO END::

REM::
@FILCOM
*NUL:=REMOTE.TXT,REMOTE.DTR
*^C
@IF (NOERROR) GOTO END::
!
!	Message: Distributed Datatrieve error
!
@R SENDER
*TYPE ERROR
*BLABEL REM:
*TEST DTR20
*SEND Error in Distributed Datatrieve
*EXIT

! End of Test
@GOTO END::

%ERR::
@R SENDER
*TYPE ERROR
*BLABEL END:
*TEST DTR20
*SEND UNKNOWN ERROR IN DTR20 TEST
*EXIT

END::
%FIN::
@NOERROR

@R SENDER
*TYPE END
*BLABEL END:
*TEST DTR20
*SEND END OF DTR20 TEST
*EXIT