Google
 

Trailing-Edge - PDP-10 Archives - ap-c800d-sb - pkgc68.ctl
There are no other files named pkgc68.ctl in the archive.
!PKGC68.CTL
!
!USED TO BUILD THE COBOL-68 WITHOUT SORT RELEASE TAPE
!THIS FILE RUNS ON EITHER TOPS-20 OR TOPS-10 ON ALL SUPPORTED MONITORS
!SUBMIT WITH COMMAND	SUBMIT PKGC68
!
!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:*.*,
@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
@
!
NEXT::
@ERROR ?
!
@TMOUNT MTA0:COBOL,
@WRITE-ENABLE
@
@DUMPER
*TAPE MTA0:
*DEN 1600
*REWIND
*SSNAME DOCUMENTATION
*SAVE COBOL-DOCUMENTATION:*.*
*SSNAME BINARY
*SAVE COBOL-BINARY:*.*
*SSNAME COBOL-SOURCE
*SAVE COBOL-SOURCE:*.*
*SSNAME SORT-SOURCE
*SAVE N:THIS-DIRECTORY-IS-EMPTY
*SSNAME COBOL-68-BUILD
*SAVE COBOL-68-BUILD:*.*
*SSNAME COBOL-74-BUILD
*SAVE N:THIS-DIRECTORY-IS-EMPTY
*SSNAME SORT-BUILD
*SAVE N:THIS-DIRECTORY-IS-EMPTY
*REWIND
*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]*.*
*SSNAME "COBOL-SOURCE"
*SAVE CBL1:[10,131001]*.*
*SSNAME "SORT-SOURCE"
*SAVE DSK:EMPTY.FIL
*SSNAME "COBOL-68-KL-BUILD"
*SAVE CBL1:[10,131002]*.*
*SSNAME "COBOL-68-KI-BUILD"
*SAVE CBL1:[10,131003]*.*
*SSNAME "COBOL-74-KL-BUILD"
*SAVE DSK:EMPTY.FIL
*SSNAME "COBOL-74-KI-BUILD"
*SAVE DSK:EMPTY.FIL
*SSNAME "SORT-KL-BUILD"
*SAVE DSK:EMPTY.FIL
*SSNAME "SORT-KI-BUILD"
*SAVE DSK:EMPTY.FIL
*SSNAME "SORT-KA-BUILD"
*SAVE DSK:EMPTY.FIL
*SSNAME "LSTATS"
*SAVE DSK:EMPTY.FIL
*REWIND
*CHECK CBL1:[10,131000]*.*
*CHECK CBL1:[10,131001]*.*
*CHECK DSK:EMPTY.FIL
*CHECK CBL1:[10,131002]*.*
*CHECK CBL1:[10,131003]*.*
*CHECK DSK:EMPTY.FIL
*CHECK DSK:EMPTY.FIL
*CHECK DSK:EMPTY.FIL
*REWIND
!
.R DIRECT
LPT:COBOL.DIR=MTB0:*.*/CHECK
.UNLOAD MTB0:
.GOTO OK
OK::!ALL DONE