Google
 

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/dbmall/newutp.ctl
There is 1 other file named newutp.ctl in the archive. Click here to see a list.
!	NEWUTP.CTL	for DBMS-20 Version 6.1		Jan-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.

!	Installation of DBMS-20 V6.1 UETP tests in PS:<UETP.LIB>
!	Requires sufficient privileges to do DELETEs and COPYs.

BEGIN::

! Files needed on DSK:

!	DBMS20.VER
!	DBMS20.CMP
!	DTORD.DDL
!	DTORDR.CBL
!	DTORDR.FML
!	DTSCH.DDL
!	DTSCHB.CBL
!	DTSCHB.FML
!	DTVRB.DDL
!	DTVR1S.CBL
!	DTVRB1.CBL
!	DTVRB2.CBL
!	DTVRB1.FML
!	DTVRB2.FML

!	Setup and enable
@DEFINE DSK:
@DEFINE UTP: PS:<UETP.LIB>
@ENABLE
@NOERROR
@DELETE NEWUTP.MAIL,DELUTP.STS,
@EXPUNGE
@
@ERROR
@COPY NUL: NEWUTP.MAIL

TDIR::
!	See if PS:<UETP.LIB> exists
@INFO DIRECT UTP:,
@NAME-ONLY
@
@IF (NOERROR) @GOTO TCOP
@APPEND TTY: NEWUTP.MAIL
@Directory PS:<UETP.LIB> does not exist. 
@ Installation of new DBMS-20 UETP tests aborted.
@^Z
@GOTO UTPDN

TCOP::
!	Try to copy something to PS:<UETP.LIB>
@COPY NUL: UTP:EXCEPT.LOG
@IF (NOERROR) @GOTO DELF
@APPEND TTY: NEWUTP.MAIL
@Insufficient privileges to access PS:<UETP.LIB>.
@ Installation of new DBMS-20 UETP tests aborted.
@^Z
@GOTO UTPDN

DELF::
!	Delete the old DBMS UETP test files
@DELETE UTP:DBMS.VER.0,UTP:FIT2.FML.0,UTP:ORDENT.CBL.0,
@EXPUNGE
@
@IF (ERROR) @COPY NUL: UTPDEL.STS.1
@DELETE UTP:ORDENT.DDL.0,UTP:ORDTIN.DDL.0,UTP:TSTIDB.CBL.0,
@EXPUNGE
@
@IF (ERROR) @COPY NUL: UTPDEL.STS.1
@DELETE UTP:TSTIDB.DDL.0,UTP:UNV4.FML.0,UTP:V4.FML.0,
@EXPUNGE
@
@IF (ERROR) @COPY NUL: UTPDEL.STS.1
@DELETE UTP:V4B.DDL.0,UTP:V4B.FML.0,UTP:V4S.DDL.0,UTP:V4S.FML.0,
@EXPUNGE
@
@IF (ERROR) @COPY NUL: UTPDEL.STS.1
@ERROR %
@DIRECT UTPDEL.STS
@IF (ERROR) @GOTO COPF
@APPEND TTY: NEWUTP.MAIL
@Unable to delete one or more old DBMS UETP test files
@ from PS:<UETP.LIB>. The installation was not aborted
@ since the old and new files are mutually exclusive.
@^Z
COPF::
@ERROR
@COPY DBMS20.VER UTP:
@IF (ERROR) @GOTO COPER
@COPY DBMS20.CMP UTP:
@IF (ERROR) @GOTO COPER
@COPY DTORD.DDL UTP:
@IF (ERROR) @GOTO COPER
@COPY DTORDR.CBL UTP:
@IF (ERROR) @GOTO COPER
@COPY DTORDR.FML UTP:
@IF (ERROR) @GOTO COPER
@COPY DTSCH.DDL UTP:
@IF (ERROR) @GOTO COPER
@COPY DTSCHB.CBL UTP:
@IF (ERROR) @GOTO COPER
@COPY DTSCHB.FML UTP:
@IF (ERROR) @GOTO COPER
@COPY DTVRB.DDL UTP:
@IF (ERROR) @GOTO COPER
@COPY DTVR1S.CBL UTP:
@IF (ERROR) @GOTO COPER
@COPY DTVRB1.CBL UTP:
@IF (ERROR) @GOTO COPER
@COPY DTVRB2.CBL UTP:
@IF (ERROR) @GOTO COPER
@COPY DTVRB1.FML UTP:
@IF (ERROR) @GOTO COPER
@COPY DTVRB2.FML UTP:
@IF (ERROR) @GOTO COPER
@GOTO COPOK
COPER::
@APPEND TTY: NEWUTP.MAIL
@Unable to copy one or more of the new DBMS-20 UETP
@ test files to PS:<UETP.LIB>. The installation of
@ the new tests is aborted.
@^Z
@GOTO UTPDN
COPOK::
@APPEND TTY: NEWUTP.MAIL
@All new DBMS-20 Version 6.1 UETP tests copied to PS:<UETP.LIB>.
@^Z
UTPDN::
@DISABLE
@MAIL
@IF (ERROR) @PLEASE NEWUTP finished. Please TYPE NEWUTP.MAIL for details.
*.
*
*DBMS-20 UETP test installation
*@NEWUTP.MAIL
@GOTO DONE
%ERR::
@GOTO DONE
DONE::
@NOERROR
@DELETE DELUTP.STS,
@EXPUNGE
@
@ERROR
%FIN::