Trailing-Edge
-
PDP-10 Archives
-
bb-l014z-bm_tops20_v7_0_tsu03_1_of_3
-
tsu/lodcbl.ctl
There are 15 other files named lodcbl.ctl in the archive. Click here to see a list.
;
; 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-Z759A-SM COBOL V13/SORT V5"
@RUN DUMPER
*TAPE TAPE:
*SKIP 1
*RESTORE -
PS:<SUBSYS>SORT.* SRTSYS:, -
PS:<SUBSYS>*.* CBLSYS:
*RESTORE -
PS:<COBOL-SOURCE>COBOL.KEY BASE:, -
PS:<COBOL-SOURCE>COBLIB.KEY BASE:, -
PS:<COBOL-SOURCE>*.* CBLSRC:
*RESTORE -
PS:<SORT-SOURCE>SORT.KEY BASE:, -
PS:<SORT-SOURCE>*.* SRTSRC:
*REWIND
*EXIT
@DISMOUNT TAPE:
@COPY BASE:COBLIB.KEY CBLSRC:
@COPY BASE:COBLIB.KEY CBLSRC:CBLSRC.KEY
@DELETE BASE:COBLIB.KEY
@COPY BASE:COBOL.KEY CBLSRC:
@COPY BASE:COBOL.KEY CBLSYS:CBLSYS.KEY
@DELETE BASE:COBOL.KEY
@COPY BASE:SORT.KEY SRTSRC:
@COPY BASE:SORT.KEY SRTSRC:SRTSRC.KEY
@COPY BASE:SORT.KEY SRTSYS:SRTSYS.KEY
@DELETE BASE:SORT.KEY