Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;
;		       COPYRIGHT (c) 1990 BY
;	    Digital Equipment Corporation, Maynard, MA.
;
;   This software is furnished under a license and may be  used
;   and  copied  only  in  accordance  with  the  terms of such
;   license and with  the  inclusion  of  the  above  copyright
;   notice.   This software or any other copies thereof may not
;   be provided  or  otherwise	made  available  to  any  other
;   person.   No  title  to  and  ownership  of the software is
;   hereby transferred.
;
;   The information in	this  software	is  subject  to  change
;   without  notice and should not be construed as a commitment
;   by Digital Equipment Corporation.
;
;   Digital  assumes  no  responsibility   for	 the   use   or
;   reliability  of  its  software  on	equipment  which is not
;   supplied by Digital.
;
@DEFINE BASE: TSU:<UPDATE>
@ENABLE
@TAKE TSU.CMD
@MOUNT TAPE TAPE:/READ/REMARK:"BB-H506E-SM COBOL V12C/SORT V4D"
@RUN DUMPER
*TAPE TAPE:
*SKIP 1
*RESTORE -
PS:<COBOL.BINARY>CBL74.KEY BASE:,-
PS:<COBOL.BINARY>C74LIB.KEY BASE:,-
PS:<SORT.BINARY>SORT.KEY BASE:,-
PS:<COBOL.BINARY>*.* CBLSYS:, -
PS:<SORT.BINARY>*.* SRTSYS:
*RESTORE -
PS:<COBOL.SOURCE>*.* CBLSRC:
*RESTORE -
PS:<SORT.SOURCE>*.* SRTSRC:
*REWIND
*EXIT
@DISMOUNT TAPE:
@COPY BASE:CBL74.KEY CBLSYS:
@COPY BASE:CBL74.KEY CBLSYS:CBLSYS.KEY
@DELETE BASE:CBL74.KEY
@COPY BASE:C74LIB.KEY CBLSYS:
@COPY BASE:C74LIB.KEY CBLSRC:CBLSRC.KEY
@DELETE BASE:C74LIB.KEY
@COPY BASE:SORT.KEY SRTSYS:
@COPY BASE:SORT.KEY SRTSRC:SRTSRC.KEY
@COPY BASE:SORT.KEY SRTSYS:SRTSYS.KEY
@DELETE BASE:SORT.KEY