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

!PKGCBL.CTL
!
!USED TO BUILD THE COBOL-68/74 & SORT RELEASE TAPE
!THIS FILE RUNS ON EITHER TOPS-20 OR TOPS-10 ON ALL SUPPORTED MONITORS
!SUBMIT WITH COMMAND	SUBMIT PKGCBL
!
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
!
@GOTO TOPS20	!TOPS20 VERSION
.GOTO TOPS10	!TOPS10 VERSION

TOPS20::
!
@TAKE COBOL.CMD
!
!CREATE THE DIRECTORY LISTING UNLESS ALREADY DONE
!
@ERROR %
@VDIR COBOL-DOCUMENTATION:COBOL.BD
@IF (NOERROR) @GOTO NEXT	!ASSUME ALL DONE
@ERROR ?
!
@VDIR COBOL-BINARY:*.*,SORT-BINARY:*.*,
@CHECK SEQ
@OUTPUT COBOL-DOCUMENTATION:COBOL.BD
@
!
@VDIR COBOL-SOURCE:*.*,
@CHECK SEQ
@OUTPUT COBOL-DOCUMENTATION:COBOL.SD
@
!
@VDIR COBOL-68-BUILD:*.*,
@CHECK SEQ
@OUTPUT COBOL-DOCUMENTATION:COBOL.68D
@
!
@VDIR COBOL-74-BUILD:*.*,
@CHECK SEQ
@OUTPUT COBOL-DOCUMENTATION:COBOL.74D
@
!
!@VDIR SORT-BINARY:*.*,
!@CHECK SEQ
!@OUTPUT SORT-DOCUMENTATION:SORT.BD
@
!
@VDIR SORT-SOURCE:*.*,
@CHECK SEQ
@OUTPUT SORT-DOCUMENTATION:SORT.SD
@
!
@VDIR SORT-BUILD:*.*,
@CHECK SEQ
@OUTPUT SORT-DOCUMENTATION:SORT.RD
@
!
NEXT::
@ERROR ?
!
@TMOUNT MTA0:COBOL,
@WRITE-ENABLE
@
@DUMPER
*TAPE MTA0:
*DEN 1600
*REWIND
*SSNAME DOCUMENTATION
*SAVE COBOL-DOCUMENTATION:*.*,SORT-DOCUMENTATION:*.*
*SSNAME BINARY
*SAVE COBOL-BINARY:*.*,SORT-BINARY:*.*
*SSNAME COBOL-SOURCE
*SAVE COBOL-SOURCE:*.*
*SSNAME SORT-SOURCE
*SAVE SORT-SOURCE:*.*
*SSNAME COBOL-68-BUILD
*SAVE COBOL-68-BUILD:*.*
*SSNAME COBOL-74-BUILD
*SAVE COBOL-74-BUILD:*.*
*SSNAME SORT-BUILD
*SAVE SORT-BUILD:*.*
*SSNAME LSTATS
*SAVE LSTATS:
*REWIND
*CHECK
*CHECK
*CHECK
*CHECK
*CHECK
*CHECK
*CHECK
*CHECK
*REWIND
*PRINT LPT:COBOL.DIR
@UNLOAD MTA0:
@GOTO OK

TOPS10::
.MOUNT MTB:MTB0/WE/REEID:COBOL/VID:"TU-70 1600BPI 9TRK"
!
.R BACKUP
*TAPE MTB0:
*DEN 1600
*INTERCHANGE
*REWIND
*SSNAME "DOCUMENTATION"
*SAVE CBL1:[10,131000]*.*,CBL1:[10,131005]*.*
*SSNAME "COBOL-SOURCE"
*SAVE CBL1:[10,131001]*.*
*SSNAME "SORT-SOURCE"
*SAVE CBL1:[10,131006]*.*
*SSNAME "COBOL-68-KL-BUILD"
*SAVE CBL1:[10,131002]*.*
*SSNAME "COBOL-68-KI-BUILD"
*SAVE CBL1:[10,131003]*.*
*SSNAME "COBOL-74-KL-BUILD"
*SAVE CBL1:[10,131011]*.*
*SSNAME "COBOL-74-KI-BUILD"
*SAVE CBL1:[10,131012]*.*
*SSNAME "SORT-KL-BUILD"
*SAVE CBL1:[10,131015]*.*
*SSNAME "SORT-KI-BUILD"
*SAVE CBL1:[10,131016]*.*
*SSNAME "SORT-KA-BUILD"
*SAVE CBL1:[10,131017]*.*
*SSNAME "LSTATS"
*SAVE CBL1:[10,131020]*.*
*REWIND
!THERE IS A BUG IN BACKUP THAT WILL NOT ALLOW MULTILPLE FILE SPEC
!THEREFORE THE FIRST SAVE SET IS CHECKED TWICE
!THIS GIVES FILE NOT FOUND ERRORS WHICH CAN BE IGNORED.
*CHECK CBL1:[10,131000]*.*
*REWIND
*CHECK CBL1:[10,131005]*.*
*CHECK CBL1:[10,131001]*.*
*CHECK CBL1:[10,131006]*.*
*CHECK CBL1:[10,131002]*.*
*CHECK CBL1:[10,131003]*.*
*CHECK CBL1:[10,131011]*.*
*CHECK CBL1:[10,131012]*.*
*CHECK CBL1:[10,131015]*.*
*CHECK CBL1:[10,131016]*.*
*CHECK CBL1:[10,131017]*.*
*CHECK CBL1:[10,131020]*.*
*REWIND
!
.R DIRECT
LPT:COBOL.DIR=MTB0:*.*/CHECK
.UNLOAD MTB0:
.GOTO OK
OK::!ALL DONE