Trailing-Edge
-
PDP-10 Archives
-
BB-BT99S-BB_1990
-
10,7/tsu/lodcbl.ctl
There are 15 other files named lodcbl.ctl in the archive. Click here to see a list.
.DO TSU
.MOUNT TAPE:/REELID:TSU/READ/REMARK:"BB-H580E-SB COBOL V12C/SORT V4D"
.RUN BACKUP
*TAPE TAPE:
*INTERCHANGE
*PROTECT 055
*REWIND
*SKIP 1
*RESTORE -
CBLSRC:=C74LIB.KEY,-
SRTSYS:=SORT.EXE,-
SRTSYS:=FSORT.EXE,-
SRTSYS:=SRTCBL.REL,-
SRTSYS:=SRTFOR.REL,-
CBLSYS:=*.*
*RESTORE CBLSRC:=*.*
*RESTORE SRTSRC:=*.*
*REWIND
*EXIT
.DISMOUNT TAPE:
.MOUNT TAPE2:/REELID:TSU/READ/REMARK:"BB-PANKA-BB SORT KEYS"
.RUN BACKUP
*TAPE TAPE2:
*INTERCHANGE
*PROTECT 055
*REWIND
*SKIP 1
*RESTORE SRTSYS:=SRTSYS.KEY
*RESTORE SRTSRC:=SRTSRC.KEY
*REWIND
*EXIT
.DISMOUNT TAPE2:
.COPY CBLSRC:CBLSRC.KEY=CBLSRC:C74LIB.KEY
.COPY CBLSYS:=CBLSRC:C74LIB.KEY
.COPY CBLSYS:CBLSYS.KEY=CBLSYS:CBL74E.KEY