PDP-10 Archive: cobol-source/cobots.ctl from BB-Z759A-SM

Trailing-Edge - PDP-10 Archives - BB-Z759A-SM - cobol-source/cobots.ctl

There is 1 other file named cobots.ctl in the archive. Click here to see a list.

! UPD ID= 1453 on 12/6/83 at 9:17 AM by HOFFMAN                         
!COBOTS.CTL	COBOL OTS V13
!
!USED TO MAKE COBOTS.EXE AND COBLIB.REL FROM COBOTS SOURCE FILES.
!THIS FILE RUNS ON EITHER TOPS-20 OR TOPS-10 ON ALL SUPPORTED MONITORS
!SUBMIT WITH COMMAND	SUBMIT COBOTS/TIME:0:30:0
!
!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, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
!
!IF ANY NON-STANDARD ASSEMBLY SWITCHES ARE DESIRED THEY SHOULD BE
!	INSERTED IN COBASM.MAC
!
!INSTALLATION SPECIFIC ASSIGNMENTS SHOULD BE PUT IN THE FOLLOWING FILE:
! ON TOPS-20 IN A TAKE FILE COBOL.CMD
! ON TOPS-10 IN A MIC  FILE COBOL.MIC
!	  OR IN A TECO FILE COBOL.TEC
!NOTE, IN GENERAL THIS CONTROL FILE WILL NOT RUN WITHOUT ONE OF THE ABOVE
!DEFINITION FILES BEING PRESENT.
!
!***** NOTE ***** TOPS-10 SYSTEMS
!PRIOR TO 7.01 MIC DOES NOT WORK UNDER BATCH - DO NOT SUPPLY A MIC FILE.
!ALSO 7.01 USERS CAN USE THE PATH COMMAND TO CREATE COMPLEX LOGICAL NAME
!ALA TOPS-20. THIS FILE WILL SUPPORT SUCH NAMES, IF YOU CANNOT USE PATH
!THEN ALL FILES SPECIFIED AS BEING IN LOGICAL NAMES MUST BE IN DSK:.
!NOTE THE SOURCES CAN BE IN A SEPARATE LIB: AREA.
!
!IF LISTINGS ARE DESIRED, THE EMPTY FILE
!LISTEM.MAC SHOULD BE IN DSK:
!
!IF YOU ALREADY HAVE A SORT FROM A PREVIOUS BUILD AND WISH TO INCLUDE 
!IT IN THE OTS WITHOUT HAVING TO RUN SORT.CTL AGAIN
! ON TOPS-20 THIS DOES NOT APPLY ANY MORE.
! ON TOPS-10 IF YOU USE PATH	LEAVE SRTCBL.REL IN SBUILD:
!				ELSE COPY SRTCBL.REL TO DSK:
!
!
!FOR COBOL-74 SET ANS82==0 IN COBASM.MAC
!FOR COBOL-8x SET ANS82==1 IN COBASM.MAC
!
!
!TEST FOR WHICH SYSTEM
@GOTO TOPS20	!TOPS20 VERSION
.GOTO TOPS10	!TOPS10 VERSION

TOPS20::
!REQUIRED FILES:
!<FIELD-IMAGE>	CREF.EXE
!		LINK.EXE
!		MACRO.EXE
!		MAKLIB.EXE
!		MACREL.REL
!		MACSYM.UNV
!		MONSYM.UNV
!		UUOSYM.UNV
!
!<NEW>		PA1050.EXE
!
!<UNSUPPORTED>	GLOB.EXE
!
!<SELF>	COBOTS.CTL	
!	ACCEPT.MAC	ALBSTB.MAC			ARGS.MAC
!	CANCEL.MAC	CBLIO.MAC	CDD.MAC		CHREQV.MAC
!	CMP.MAC		COBASM.MAC	COBFUN.MAC	COBSRT.MAC
!	COBST.MAC	COBVER.MAC	COMUNI.MAC	DBSTUB.MAC
!	COVRLY.MAC	DEBSTB.MAC	ARITH.MAC	DSPFP.MAC
!	EASTBL.MAC	EDIT.MAC	EDITB.MAC	DBDUM.MAC
!	EXPON.MAC	FIX.MAC		FLGDF.MAC	FLOAT.MAC
!	FTDEFS.MAC	GC.MAC		GD.MAC		INSPEC.MAC
!	INTERM.MAC	KEY.MAC		LBLERR.MAC	LBLPRM.MAC
!	LCM20.MAC	LIBREL.MAC	C8XSHR.MAC	LILOWS.MAC
!	LINE.MAC	LSU.MAC
!	MOVE.MAC	STRING.MAC	NTBSTB.MAC
!	NUBSTB.MAC	NUM.MAC		NUMEQV.MAC
!	PC.MAC		PD.MAC		PERF.MAC	PNZ.MAC
!	PUTRES.MAC	REMOVL.MAC	RESOLV.MAC	RMSIO.MAC
!	SETRET.MAC
!	SIZ23.MAC	SIZE1.MAC	SPAC.MAC	SUBSCR.MAC
!	TODAY.MAC	TRACED.MAC	USRDSP.MAC	ZERC.MAC
!
!	
!
!LINK CONTROL FILES
!	L13.CMD
!
!
!TO TEST THE FEATURES TEST SWITCH SETTINGS THE FOLLOWING IS REQUIRED:
!
!<SELF>			COBTST.MAC
!
!OUTPUT:		COBOTS.LOG
!			COBLIB.REL	COBOTS.EXE	COBOTS.GLB
!			DBMS.REL (dummy DBCS library to resolve DBCS calls)
@CHKPNT CK2A
CK2A::
@ERROR
@TAKE COBOL.CMD
@IF (ERROR) !IGNORE IT
!MAKE A RECORD OF WHAT IS BEING USED.
@GET SYS:PA1050
@INFO VERSION
@GET SYS:MACRO
@INFO VERSION
@GET SYS:MAKLIB
@INFO VERSION
@GET SYS:LINK
@INFO VERSION
@GET SYS:CREF
@INFO VERSION
@GET SYS:GLOB
@IF (ERROR) @!GLOB IS NOT SUPPORTED
@INFO VERSION
!
@VD SYS:MACRO.EXE,SYS:MAKLIB.EXE,SYS:LINK.EXE,SYS:CREF.EXE,SYS:GLOB.EXE,SYS:MACSYM.UNV,SYS:MONSYM.UNV,SYS:UUOSYM.UNV,SYS:PA1050.EXE,SYS:MACREL.REL,
@CHECK SEQ
@
!
@VD COBASM.MAC,COBVER.MAC,INTERM.MAC,LBLPRM.MAC,COMUNI.MAC,CHREQV.MAC,NUMEQV.MAC,FTDEFS.MAC,FLGDF.MAC,ACCEPT.MAC,ALBSTB.MAC,ARGS.MAC,
@CHECK SEQ
@
@VD CANCEL.MAC,CBLIO.MAC,CDD.MAC,CMP.MAC,COBFUN.MAC,COBST.MAC,COVRLY.MAC,COBSRT.MAC,DEBSTB.MAC,
@CHECK SEQ
@
@VD ARITH.MAC,DSPFP.MAC,EASTBL.MAC,EDIT.MAC,EDITB.MAC,EXPON.MAC,FIX.MAC,FLOAT.MAC,
@CHECK SEQ
@
@VD GC.MAC,GD.MAC,INSPEC.MAC,KEY.MAC,LBLERR.MAC,LCM20.MAC,LIBREL.MAC,C8XSHR.MAC,LILOWS.MAC,LINE.MAC,LSU.MAC,MOVE.MAC,
@CHECK SEQ
@
@VD NUM.MAC,NTBSTB.MAC,NUBSTB.MAC,PC.MAC,PD.MAC,PERF.MAC,PNZ.MAC,PUTRES.MAC,REMOVL.MAC,RESOLV.MAC,RMSIO.MAC,SETRET.MAC,SIZ23.MAC,SIZE1.MAC,
@CHECK SEQ
@
@VD SPAC.MAC,STRING.MAC,SUBSCR.MAC,TODAY.MAC,TRACED.MAC,USRDSP.MAC,ZERC.MAC,
@CHECK SEQ
@
@VD COBOTS.CTL,L13.CMD,
@CHECK SEQ
@
!
!ASSEMBLE SOURCES:
!
!ASSEMBLE THE UNIVERSALS FIRST.
@ERROR %
@TYPE LISTEM.MAC
@IF (ERROR) @GOTO NOLIS1
@ERROR
!
!HERE FOR CREF LISTINGS
!
@MACRO
*COPYRT,COPYRT/C=COPYRT
*COBASM,COBASM/C=COBASM
*INTERM,INTERM/C=INTERM
*COBVER,COBVER/C=COBVER
*COMUNI,COMUNI/C=COMUNI
*FTDEFS,FTDEFS/C=FTDEFS
*LBLPRM,LBLPRM/C=LBLPRM
*CHREQV,CHREQV/C=CHREQV
*NUMEQV,NUMEQV/C=NUMEQV
*FLGDF,FLGDF/C=FLGDF
!
!GET MACRO AGAIN OR TOO MANY UNIVERSALS MESSAGE
@MACRO
*COBTST=COBTST
!
! LOAD THE FEATURE TEST SWITCH TESTER
!
@LINK
*COBTST/GO
@SAVE COBTST
@IF (ERROR) @GOTO TRUBLE
!
!
!NOW WE CAN ASSEMBLE THE SOURCES.
@CHKPNT CK2B
CK2B::
@ERROR
@TAKE COBOL.CMD
@IF (ERROR) !IGNORE IT
@MACRO
*ACCEPT,ACCEPT/C=ACCEPT
*ALBSTB,ALBSTB/C=ALBSTB
*ARGS,ARGS/C=ARGS
*CANCEL,CANCEL/C=CANCEL
*CBLIO,CBLIO/C=CBLIO
@IF (ERROR) @GOTO TRUBLE
!
@CHKPNT CK2C
CK2C::
@ERROR
@TAKE COBOL.CMD
@IF (ERROR) !IGNORE IT
@MACRO
*CDD,CDD/C=CDD
*CMP,CMP/C=CMP
*COBFUN,COBFUN/C=COBFUN
*COBST,COBST/C=COBST
*COVRLY,COVRLY/C=COVRLY
*COBSRT,COBSRT/C=COBSRT
*DBSTUB,DBSTUB/C=DBSTUB
*DBDUM,DBDUM/C=DBDUM
*DEBSTB,DEBSTB/C=DEBSTB
*ARITH,ARITH/C=ARITH
*DSPFP,DSPFP/C=DSPFP
@MACRO
*EASTBL,EASTBL/C=EASTBL
*EDIT,EDIT/C=EDIT
*EDITB,EDITB/C=EDITB
*EXPON,EXPON/C=EXPON
*FIX,FIX/C=FIX
*FLOAT,FLOAT/C=FLOAT
*GC,GC/C=GC
*GD,GD/C=GD
*INSPEC,INSPEC/C=INSPEC
*KEY,KEY/C=KEY
@MACRO !TOO MANY UNIVERSALS OTHERWISE
*LBLERR,LBLERR/C=LBLERR
*LCM20,LCM20/C=LCM20
*LIBREL,LIBREL/C=LIBREL
*C8XSHR,C8XSHR/C=C8XSHR
@IF (ERROR) @GOTO TRUBLE
!
!
@CHKPNT CK2D
CK2D::
@ERROR
@TAKE COBOL.CMD
@IF (ERROR) !IGNORE IT
@MACRO
*LILOWS,LILOWS/C=LILOWS
*LINE,LINE/C=LINE
*LSU,LSU/C=LSU
*MOVE,MOVE/C=MOVE
*NUM,NUM/C=NUM
*NTBSTB,NTBSTB/C=NTBSTB
*NUBSTB,NUBSTB/C=NUBSTB
*PC,PC/C=PC
*PD,PD/C=PD
*PERF,PERF/C=PERF
*PNZ,PNZ/C=PNZ
*PUTRES,PUTRES/C=PUTRES
*REMOVL,REMOVL/C=REMOVL
*RESOLV,RESOLV/C=RESOLV
*RMSIO,RMSIO/C=RMSIO
*SETRET,SETRET/C=SETRET
*SIZ23,SIZ23/C=SIZ23
*SIZE1,SIZE1/C=SIZE1
*SPAC,SPAC/C=SPAC
*STRING,STRING/C=STRING
*SUBSCR,SUBSCR/C=SUBSCR
*TODAY,TODAY/C=TODAY
*TRACED,TRACED/C=TRACED
*USRDSH,USRDSH/C=TTY:,DSK:USRDSP
*SHR==1
=
=
*USRDSL,USRDSL/C=USRDSP
*ZERC,ZERC/C=ZERC
@IF (ERROR) @GOTO TRUBLE
!
!CREF THE SOURCES
@CHKPNT CK2E
CK2E::
@ERROR
@TAKE COBOL.CMD
@IF (ERROR) !IGNORE IT
@CREF
*DSK:COBASM.LZT=COBASM
*DSK:INTERM.LZT=INTERM
*DSK:COBVER.LZT=COBVER
*DSK:COMUNI.LZT=COMUNI
*DSK:FTDEFS.LZT=FTDEFS

*DSK:LBLPRM.LZT=LBLPRM
*DSK:CHREQV.LZT=CHREQV
*DSK:NUMEQV.LZT=NUMEQV
*DSK:FLGDF.LZT=FLGDF
*DSK:ACCEPT.LZT=ACCEPT
*DSK:ALBSTB.LZT=ALBSTB
*DSK:ARGS.LZT=ARGS
*DSK:CANCEL.LZT=CANCEL
*DSK:CBLIO.LZT=CBLIO
*DSK:CDD.LZT=CDD
*DSK:CMP.LZT=CMP
*DSK:COBFUN.LZT=COBFUN
*DSK:COBST.LZT=COBST
*DSK:COVRLY.LZT=COVRLY
*DSK:COBSRT.LZT=COBSRT
*DSKLDBSTUB.LZT=DBSTUB
*DSK:DBDUM.LZT=DBDUM
*DSK:DEBSTB.LZT=DEBSTB
*DSK:ARITH.LZT=ARITH
*DSK:DSPFP.LZT=DSPFP
*DSK:EASTBL.LZT=EASTBL
*DSK:EDIT.LZT=EDIT
*DSK:EDITB.LZT=EDITB
*DSK:EXPON.LZT=EXPON
*DSK:FIX.LZT=FIX
*DSK:FLOAT.LZT=FLOAT
*DSK:GC.LZT=GC
*DSK:GD.LZT=GD
*DSK:INSPEC.LZT=INSPEC
*DSK:KEY.LZT=KEY
*DSK:LBLERR.LZT=LBLERR
*DSK:LCM20.LZT=LCM20
*DSK:LIBREL.LZT=LIBREL
*DSK:C8XSHR.LZT=C8XSHR
*DSK:LILOWS.LZT=LILOWS
*DSK:LINE.LZT=LINE
*DSK:LSU.LZT=LSU
*DSK:MOVE.LZT=MOVE
*DSK:NUM.LZT=NUM
*DSK:NTBSTB.LZT=NTBSTB
*DSK:NUBSTB.LZT=NUBSTB
*DSK:PC.LZT=PC
*DSK:PD.LZT=PD
*DSK:PERF.LZT=PERF
*DSK:PNZ.LZT=PNZ
*DSK:PUTRES.LZT=PUTRES
*DSK:REMOVL.LZT=REMOVL
*DSK:RESOLV.LZT=RESOLV
*DSK:RMSIO.LZT=RMSIO
*DSK:SETRET.LZT=SETRET
*DSK:SIZ23.LZT=SIZ23
*DSK:SIZE1.LZT=SIZE1
*DSK:SPAC.LZT=SPAC
*DSK:STRING.LZT=STRING
*DSK:SUBSCR.LZT=SUBSCR
*DSK:TODAY.LZT=TODAY
*DSK:TRACED.LZT=TRACED
*DSK:USRDSH.LZT=USRDSH
*DSK:USRDSL.LZT=USRDSL
*DSK:ZERC.LZT=ZERC
@IF (ERROR) !TROUBLE CREATING .LZT FILES
@GOTO DONCRF

NOLIS1::
!HERE FOR NO CREF LISTINGS
@ERROR
@MACRO
*COPYRT=COPYRT
*COBASM=COBASM
*INTERM=INTERM
*COBVER=COBVER
*COMUNI=COMUNI
*FTDEFS=FTDEFS
*LBLPRM=LBLPRM
*CHREQV=CHREQV
*NUMEQV=NUMEQV
*FLGDF=FLGDF
!GET MACRO AGAIN OR TOO MANY UNIVERSALS MESSAGE
@MACRO
*COBTST=COBTST
!
! LOAD THE FEATURE TEST SWITCH TESTER
!
@LINK
*COBTST/GO
@SAVE COBTST
@IF (ERROR) @GOTO TRUBLE
@CHKPNT CK2F
CK2F::
@ERROR
@TAKE COBOL.CMD
@IF (ERROR) !IGNORE IT
@MACRO
*ACCEPT=ACCEPT
*ALBSTB=ALBSTB
*ARGS=ARGS
*CANCEL=CANCEL
*CBLIO=CBLIO
@IF (ERROR) @GOTO TRUBLE
!
@CHKPNT CK2G
CK2G::
@ERROR
@TAKE COBOL.CMD
@IF (ERROR) !IGNORE IT
@MACRO
*CDD=CDD
*CMP=CMP
*COBFUN=COBFUN
*COBST=COBST
*COVRLY=COVRLY
*COBSRT=COBSRT
*DBSTUB=DBSTUB
*DBDUM=DBDUM
*DEBSTB=DEBSTB
*ARITH=ARITH
*DSPFP=DSPFP
@MACRO	!OR TOO MANY UNIVERSALS
*EASTBL=EASTBL
*EDIT=EDIT
*EDITB=EDITB
*EXPON=EXPON
*FIX=FIX
*FLOAT=FLOAT
*GC=GC
*GD=GD
*INSPEC=INSPEC
*KEY=KEY
@MACRO !TOO MANY UNIVERSALS OTHERWISE
*LBLERR=LBLERR
*LCM20=LCM20
*LIBREL=LIBREL
*C8XSHR=C8XSHR
@IF (ERROR) @GOTO TRUBLE
@CHKPNT CK2H
CK2H::
@ERROR
@TAKE COBOL.CMD
@IF (ERROR) !IGNORE IT
@MACRO
*LILOWS=LILOWS
*LINE=LINE
*LSU=LSU
*MOVE=MOVE
*NUM=NUM
*NTBSTB=NTBSTB
*NUBSTB=NUBSTB
*PC=PC
*PD=PD
*PERF=PERF
*PNZ=PNZ
*PUTRES=PUTRES
*REMOVL=REMOVL
*RESOLV=RESOLV
*RMSIO=RMSIO
*SETRET=SETRET
*SIZ23=SIZ23
*SIZE1=SIZE1
*SPAC=SPAC
*STRING=STRING
*SUBSCR=SUBSCR
*TODAY=TODAY
*TRACED=TRACED
*USRDSH=TTY:,DSK:USRDSP
*SHR==1
=
=
*USRDSL=USRDSP
*ZERC=ZERC
@IF (ERROR) @GOTO TRUBLE
@GOTO DONCRF

DONCRF::
!
! APPEND THE COPYRIGHT STATEMENT TO ALL THE UNV FILES TO PROTECT THEM
!
@APPEND COPYRT.TXT COPYRT.UNV
@APPEND COPYRT.TXT COBASM.UNV
@APPEND COPYRT.TXT INTERM.UNV
@APPEND COPYRT.TXT COBVER.UNV
@APPEND COPYRT.TXT COMUNI.UNV
@APPEND COPYRT.TXT FTDEFS.UNV
@APPEND COPYRT.TXT LBLPRM.UNV
@APPEND COPYRT.TXT CHREQV.UNV
@APPEND COPYRT.TXT NUMEQV.UNV
@APPEND COPYRT.TXT FLGDF.UNV
!
@CHKPNT CK2J
CK2J::
@ERROR
@TAKE COBOL.CMD
@IF (ERROR) !IGNORE IT
!
!CHECKSUM ALL COBOTS REL FILES
!
@VDIR COBST.REL,CBLIO.REL,LIBREL.REL,REMOVL.REL,TRACED.REL,LINE.REL,STRING.REL,LSU.REL,
@CHECK SEQ
@
@VDIR ACCEPT.REL,ARGS.REL,PUTRES.REL,CANCEL.REL,GD.REL,GC.REL,PD.REL,PC.REL,FLOAT.REL,
@CHECK SEQ
@
@VDIR FIX.REL,CDD.REL,MOVE.REL,EXPON.REL,
@CHECK SEQ
@
@VDIR CMP.REL,SPAC.REL,ZERC.REL,PNZ.REL,NUM.REL,DSPFP.REL,
@CHECK SEQ
@
@VDIR ARITH.REL,SUBSCR.REL,TODAY.REL,
@CHECK SEQ
@
@VDIR SIZE1.REL,SIZ23.REL,INSPEC.REL,EDIT.REL,PERF.REL,COVRLY.REL,
@CHECK SEQ
@
@VDIR KEY.REL,LBLERR.REL,COBSRT.REL,SETRET.REL,COBFUN.REL,EASTBL.REL,ALBSTB.REL,DBSTUB.REL,DBDUM.REL,DEBSTB.REL,
@CHECK SEQ
@
@VDIR EDITB.REL,NUBSTB.REL,NTBSTB.REL,LCM20.REL,USRDSL.REL,USRDSH.REL,RESOLV.REL,
@CHECK SEQ
@
@
!
!CHECKSUM ALL COBOTS UNIVERSAL FILES
!
@VDIR COBASM.UNV,COBVER.UNV,COMUNI.UNV,INTERM.UNV,LBLPRM.UNV,CHREQV.UNV,NUMEQV.UNV,FTDEFS.UNV,FLGDF.UNV,
@CHECK SEQ
@
!

L74::
! create dummy DBMS.REL
@RENAME DBDUM.REL DBMS.REL
!
!CREATE COBLIB.REL
@COPY COBST.REL COBLIB.REL
@APPEND LILOWS.REL,CBLIO.REL,RMSIO.REL,LBLERR.REL,LIBREL.REL,REMOVL.REL,TRACED.REL,LINE.REL,STRING.REL,LSU.REL COBLIB.REL
@APPEND ACCEPT.REL,ARGS.REL,PUTRES.REL,CANCEL.REL,GD.REL,GC.REL,PD.REL,PC.REL,FLOAT.REL COBLIB.REL
@APPEND FIX.REL,CDD.REL,MOVE.REL,EXPON.REL COBLIB.REL
@APPEND CMP.REL,SPAC.REL,ZERC.REL,PNZ.REL,NUM.REL,DSPFP.REL COBLIB.REL
@APPEND ARITH.REL,SUBSCR.REL,TODAY.REL COBLIB.REL
@APPEND SIZE1.REL,SIZ23.REL,INSPEC.REL,EDIT.REL,PERF.REL,COVRLY.REL COBLIB.REL
@APPEND KEY.REL,SETRET.REL,EASTBL.REL,ALBSTB.REL,DBSTUB.REL,DEBSTB.REL,COBFUN.REL COBLIB.REL
@APPEND COBSRT.REL COBLIB.REL
@APPEND EDITB.REL,NUBSTB.REL,NTBSTB.REL,LCM20.REL,USRDSL.REL,USRDSH.REL,RESOLV.REL COBLIB.REL
!@APPEND SYS:MACREL.REL LIBREL.REL
IF (ERROR) @GOTO TRUBLE
!
!CREATE COBOTS-V13.EXE
!
@LINK
*@L13
@IF (ERROR) @GOTO TRUBLE
@INFO MEM
@EXAMINE 600000
@IF (ERROR) @GOTO TRUBLE !WRONG VERSION OF PA1050 USED
!
!NOW SAVE IT. NOTE WE MUST GET RID OF PAGE 400 (A LINK BUG)
!BUT SAVE PAGE 0 AS IT MAKES IT EASIER TO PATCH
!
@SAVE DSK:COBOTS-V13 0 1,574 575,600 677
@IF (ERROR) @GOTO TRUBLE
!
GLOB::
@GLOB
@IF (ERROR) @GOTO NEXT !GLOB IS NOT SUPPORTED
*C8XSHR,COBLIB
*COBOTS.GLB=
!
NEXT::
!
!SEE WHAT WE GOT:
@VD DSK:COB*.*,
@CHECK SEQ
@
@IF (ERROR) @ !IGNORE ANY ERRORS.
@GOTO DONE

DONE::	!ALL DONE
@CHKPNT CK2K
CK2K::
@ERROR
@TAKE COBOL.CMD
@IF (ERROR) !IGNORE IT
!
!
!DELETE UNNEEDED FILES
!
@DELETE COBST.REL,CBLIO.REL,LIBREL.REL,REMOVL.REL,TRACED.REL,LINE.REL,STRING.REL,LSU.REL,LILOWS.REL
@DELETE ACCEPT.REL,ARGS.REL,PUTRES.REL,CANCEL.REL,GD.REL,GC.REL,PD.REL,PC.REL,FLOAT.REL
@DELETE FIX.REL,CDD.REL,MOVE.REL,EXPON.REL
@DELETE CMP.REL,SPAC.REL,ZERC.REL,PNZ.REL,NUM.REL,DSPFP.REL
@DELETE ARITH.REL,SUBSCR.REL,TODAY.REL
@DELETE SIZE1.REL,SIZ23.REL,INSPEC.REL,EDIT.REL,PERF.REL,COVRLY.REL
@DELETE KEY.REL,LBLERR.REL,COBSRT.REL,SETRET.REL,COBFUN.REL,EASTBL.REL,ALBSTB.REL,DBSTUB.REL,DEBSTB.REL
@DELETE EDITB.REL,NUBSTB.REL,NTBSTB.REL,LCM20.REL,USRDSL.REL,USRDSH.REL,RESOLV.REL
@DELETE RMSIO.REL
@IF (ERROR)	!ERRORS DELETING COBOTS FILES.
!
!TELL THE OPERATOR HOW WE DID.
!
@PLEASE -- COBOTS CREATION SUCCESSFUL
@EXP
@MODIFY BATCH */DEPEND:-1
@GOTO OK
%ERR::
TRUBLE:: @PLEASE -- COBOTS CREATION UNSUCCESSFUL!!!!!!!
@GOTO OK

TOPS10::
!
!REQUIRED FILES:
!		(LATEST RELEASED VERSIONS)
!
!SYS:		COMPIL.EXE
!		CREF.EXE
!		DIRECT.EXE
!		GLOB.EXE
!		LINK.EXE+LNK???.EXE
!		MACRO.EXE
!		MAKLIB.EXE
!		PIP.EXE
!
!UNV:		MACTEN.UNV
!		UUOSYM.UNV
!
![SELF]	COBOTS.CTL	COBASM.MAC
!
!CS:	ACCEPT.MAC	ALBSTB.MAC	ALF.MAC		ARGS.MAC
!	CANCEL.MAC	CBLIO.MAC	CDD.MAC		CHREQV.MAC
!	CMP.MAC		COBFUN.MAC	COBST.MAC
!	COBVER.MAC	COMPD.MAC	COMUNI.MAC	COVRLY.MAC
!	DSORT.MAC	DEBSTB.MAC	ARITH.MAC	DSPFP.MAC
!	EASTBL.MAC	EDIT.MAC	EDITB.MAC	EXAM.MAC
!	EXPON.MAC	FIX.MAC		FLGDF.MAC	FLOAT.MAC
!	FTDEFS.MAC	GC.MAC		GD.MAC		INSPEC.MAC
!	INTERM.MAC	KEY.MAC		KPROG.MAC	LBLERR.MAC	
!	LBLPRM.MAC	LCM10.MAC	LCMIPC.MAC	LIBREL.MAC
!	C8XSHR.MAC	LILOWS.MAC	LINE.MAC	LSU.MAC
!	MOVE.MAC
!	STRING.MAC	NTBSTB.MAC	NUBSTB.MAC	NUM.MAC
!	NUMEQV.MAC	PC.MAC		PD.MAC
!	PERF.MAC	PNZ.MAC		PUTRES.MAC	REMOVL.MAC
!	RESOLV.MAC	RMSIO.MAC	SETRET.MAC	SIZ23.MAC
!	SIZE1.MAC
!	SPAC.MAC	SUBSCR.MAC	TODAY.MAC	TRACED.MAC
!	USRDSP.MAC	ZERC.MAC
!
!TO TEST THE FEATURES TEST SWITCH SETTINGS THE FOLLOWING IS REQUIRED:
!
!			COBTST.MAC
!
!OUTPUT:		COBOTS.LOG
!			COBLIB.REL	COBO13.EXE	COBOTS.GLB
!
!MAKE A RECORD OF WHAT IS BEING USED.
.CHKPNT CK1A
CK1A::
.ERROR
.SET WATCH VERSION
!SET UP THE DEFAULT LOGICAL NAMES
!
.DO COBOL.MIC
.IF (ERROR) !IGNORE IT
!
!SEE WHAT WE ARE USING
.R DIRECT
*TTY:=/CHECKSUM/WIDTH:90 SYS:PIP.EXE,MACRO.EXE,DIRECT.EXE,COMPIL.EXE,CREF.EXE,GLOB.EXE,MAKLIB.EXE,UUOSYM.UNV,MACTEN.UNV
.IF (ERROR) . !IGNORE ANY ERRORS.
.R DIRECT
*TTY:=/CHECKSUM/WIDTH:90 DSK:COBASM.MAC,CS::COBVER.MAC,INTERM.MAC,LBLPRM.MAC,COMUNI.MAC,CHREQV.MAC,NUMEQV.MAC,FTDEFS.MAC,FLGDF.MAC
*TTY:=/CHECKSUM/WIDTH:90 CS:LILOWS.MAC,COBST.MAC,CBLIO.MAC,LIBREL.MAC,REMOVL.MAC,TRACED.MAC,LINE.MAC,STRING.MAC,LSU.MAC
*TTY:=/CHECKSUM/WIDTH:90 CS:ACCEPT.MAC,ARGS.MAC,PUTRES.MAC,CANCEL.MAC,GD.MAC,GC.MAC,PD.MAC,PC.MAC,FLOAT.MAC
*TTY:=/CHECKSUM/WIDTH:90 CS:FIX.MAC,CDD.MAC,MOVE.MAC,EXPON.MAC,COMPD.MAC
*TTY:=/CHECKSUM/WIDTH:90 CS:CMP.MAC,SPAC.MAC,ZERC.MAC,ALF.MAC,PNZ.MAC,NUM.MAC,DSPFP.MAC
*TTY:=/CHECKSUM/WIDTH:90 CS:ARITH.MAC,SUBSCR.MAC,TODAY.MAC
*TTY:=/CHECKSUM/WIDTH:90 CS:SIZE1.MAC,SIZ23.MAC,EXAM.MAC,INSPEC.MAC,EDIT.MAC,PERF.MAC,COVRLY.MAC
*TTY:=/CHECKSUM/WIDTH:90 CS:KEY.MAC,KPROG.MAC,LBLERR.MAC,DSORT.MAC,SETRET.MAC,COBFUN.MAC,EASTBL.MAC,ALBSTB.MAC,DEBSTB.MAC
*TTY:=/CHECKSUM/WIDTH:90 CS:EDITB.MAC,NUBSTB.MAC,NTBSTB.MAC,LCM10.MAC,LCMIPC.MAC,USRDSP.MAC,RESOLV.MAC
*TTY:=/CHECKSUM/WIDTH:90 COBOTS.CTL
*TTY:=/CHECKSUM/WIDTH:90 SB:SRTCBL.REL
.IF (ERROR) . !IGNORE ANY ERRORS.
!ASSEMBLE SOURCES:
!
!ASSEMBLE THE UNIVERSALS FIRST.
.TYPE LISTEM.MAC
.IF (ERROR) .GOTO NOLIS1
!
!HERE FOR CREF LISTINGS
!
.R MACRO
*COBASM,COBASM/C=COBASM
*INTERM,INTERM/C=INTERM
*COBVER,COBVER/C=COBVER
*COMUNI,COMUNI/C=COMUNI
*FTDEFS,FTDEFS/C=FTDEFS
*LBLPRM,LBLPRM/C=LBLPRM
*CHREQV,CHREQV/C=CHREQV
*NUMEQV,NUMEQV/C=NUMEQV
*FLGDF,FLGDF/C=FLGDF
!GET MACRO AGAIN OR TOO MANY UNIVERSALS MESSAGE
.R MACRO
*COBTST=COBTST
!
! LOAD THE FEATURE TEST SWITCH TESTER
!
.R LINK
*COBTST/GO
.SAVE COBTST
.IF (ERROR) .GOTO TRUBLE
!
!
!NOW WE CAN ASSEMBLE THE SOURCES.
.CHKPNT CK1B
CK1B::
.ERROR
.SET WATCH VERSION
!SET UP THE DEFAULT LOGICAL NAMES
!
.DO COBOL.MIC
.IF (ERROR) !IGNORE IT
.R MACRO
*ACCEPT,ACCEPT/C=ACCEPT
*ALBSTB,ALBSTB/C=ALBSTB
*ALF,ALF/C=ALF
*ARGS,ARGS/C=ARGS
*CANCEL,CANCEL/C=CANCEL
*CBLIO,CBLIO/C=CBLIO
.IF (ERROR) .GOTO TRUBLE
!
.CHKPNT CK1C
CK1C::
.ERROR
.SET WATCH VERSION
!SET UP THE DEFAULT LOGICAL NAMES
!
.DO COBOL.MIC
.IF (ERROR) !IGNORE IT
.R MACRO
*CDD,CDD/C=CDD
*CMP,CMP/C=CMP
*COBFUN,COBFUN/C=COBFUN
*COBST,COBST/C=COBST
*COMPD,COMPD/C=COMPD
*COVRLY,COVRLY/C=COVRLY
*DSORT,DSORT/C=DSORT
*DEBSTB,DEBSTB/C=EBSTB
*ARITH,ARITH/C=ARITH
*DSPFP,DSPFP/C=DSPFP
.R MACRO	!OR TOO MANY UNIVERSALS MESSAGE
*EASTBL,EASTBL/C=EASTBL
*EDIT,EDIT/C=EDIT
*EDITB,EDITB/C=EDITB
*EXAM,EXAM/C=EXAM
*EXPON,EXPON/C=EXPON
*FIX,FIX/C=FIX
*FLOAT,FLOAT/C=FLOAT
*GC,GC/C=GC
*GD,GD/C=GD
*INSPEC,INSPEC/C=INSPEC
*KEY,KEY/C=KEY
*KPROG,KPROG/C=KPROG
.R MACRO !TOO MANY UNIVERSALS OTHERWISE
*LBLERR,LBLERR/C=LBLERR
*LCM10,LCM10/C=LCM10
*LCMIPC,LCMIPC/C=LCMIPC
*LIBREL,LIBREL/C=LIBREL
*C8XSHR,C8XSHR/C=C8XSHR
.IF (ERROR) .GOTO TRUBLE
!
!
.CHKPNT CK1D
CK1D::
.ERROR
.SET WATCH VERSION
!SET UP THE DEFAULT LOGICAL NAMES
!
.DO COBOL.MIC
.IF (ERROR) !IGNORE IT
.R MACRO
*LILOWS,LILOWS/C=LILOWS
*LINE,LINE/C=LINE
*LSU,LSU/C=LSU
*MOVE,MOVE/C=MOVE
*NUM,NUM/C=NUM
*NTBSTB,NTBSTB/C=NTBSTB
*NUBSTB,NUBSTB/C=NUBSTB
*PC,PC/C=PC
*PERF,PERF/C=PERF
*PNZ,PNZ/C=PNZ
*PUTRES,PUTRES/C=PUTRES
*REMOVL,REMOVL/C=REMOVL
*RESOLV,RESOLV/C=RESOLV
*RMSIO,RMSIO/C=RMSIO
*SETRET,SETRET/C=SETRET
*SIZ23,SIZ23/C=SIZ23
*SIZE1,SIZE1/C=SIZE1
*SPAC,SPAC/C=SPAC
*STRING,STRING/C=STRING
*SUBSCR,SUBSCR/C=SUBSCR
*TODAY,TODAY/C=TODAY
*TRACED,TRACED/C=TRACED
*USRDSH,USRDSH/C=TTY:,DSK:USRDSP
*SHR==1
=
=
*USRDSL,USRDSL/C=USRDSP
*ZERC,ZERC/C=ZERC
.IF (ERROR) .GOTO TRUBLE
!
!CREF THE SOURCES
.CHKPNT CK1E
CK1E::
.SET WATCH VERSION
.R CREF
*DSK:COBASM.LZT=COBASM
*DSK:INTERM.LZT=INTERM
*DSK:COBVER.LZT=COBVER
*DSK:COMUNI.LZT=COMUNI
*DSK:FTDEFS.LZT=FTDEFS
*DSK:LBLPRM.LZT=LBLPRM
*DSK:CHREQV.LZT=CHREQV
*DSK:NUMEQV.LZT=NUMEQV
*DSK:FLGDF.LZT=FLGDF
*DSK:ACCEPT.LZT=ACCEPT
*DSK:ALBSTB.LZT=ALBSTB
*DSK:ALF.LZT=ALF
*DSK:ARGS.LZT=ARGS
*DSK:CANCEL.LZT=CANCEL
*DSK:CBLIO.LZT=CBLIO
*DSK:CDD.LZT=CDD
*DSK:CMP.LZT=CMP
*DSK:COBFUN.LZT=COBFUN
*DSK:COBST.LZT=COBST
*DSK:COMPD.LZT=COMPD
*DSK:COVRLY.LZT=COVRLY
*DSK:DSORT.LZT=DSORT
*DSK:DEBSTB.LZT=DEBSTB
*DSK:ARITH.LZT=ARITH
*DSK:DSPFP.LZT=DSPFP
*DSK:EASTBL.LZT=EASTBL
*DSK:EDIT.LZT=EDIT
*DSK:EDITB.LZT=EDITB
*DSK:EXAM.LZT=EXAM
*DSK:EXPON.LZT=EXPON
*DSK:FIX.LZT=FIX
*DSK:FLOAT.LZT=FLOAT
*DSK:GC.LZT=GC
*DSK:GD.LZT=GD
*DSK:INSPEC.LZT=INSPEC
*DSK:KEY.LZT=KEY
*DSK:KPROG.LZT=KPROG
*DSK:LBLERR.LZT=LBLERR
*DSK:LCM10.LZT=LCM10
*DSK:LCMIPC.LZT=LCMIPC
*DSK:LIBREL.LZT=LIBREL
*DSK:C8XSHR.LZT=C8XSHR
*DSK:LILOWS.LZT=LILOWS
*DSK:LINE.LZT=LINE
*DSK:LSU.LZT=LSU
*DSK:MOVE.LZT=MOVE
*DSK:NUM.LZT=NUM
*DSK:NTBSTB.LZT=NTBSTB
*DSK:NUBSTB.LZT=NUBSTB
*DSK:PC.LZT=PC
*DSK:PD.LZT=PD
*DSK:PERF.LZT=PERF
*DSK:PNZ.LZT=PNZ
*DSK:PUTRES.LZT=PUTRES
*DSK:REMOVL.LZT=REMOVL
*DSK:RESOLV.LZT=RESOLV
*DSK:RMSIO.LZT=RMSIO
*DSK:SETRET.LZT=SETRET
*DSK:SIZ23.LZT=SIZ23
*DSK:SIZE1.LZT=SIZE1
*DSK:SPAC.LZT=SPAC
*DSK:STRING.LZT=STRING
*DSK:SUBSCR.LZT=SUBSCR
*DSK:TODAY=TODAY
*DSK:TRACED.LZT=TRACED
*DSK:USRDSH.LZT=USRDSH
*DSK:USRDSL.LZT=USRDSL
*DSK:ZERC.LZT=ZERC
.IF (ERROR) .!TROUBLE CREATING .LZT FILES
.GOTO DONCRF

NOLIS1::
!HERE FOR NO CREF LISTINGS
.R MACRO
*COBASM=COBASM
*INTERM=INTERM
*COBVER=COBVER
*COMUNI=COMUNI
*FTDEFS=FTDEFS
*LBLPRM=LBLPRM
*CHREQV=CHREQV
*NUMEQV=NUMEQV
*FLGDF=FLGDF
!GET MACRO AGAIN OR TOO MANY UNIVERSALS MESSAGE
.R MACRO
*COBTST=COBTST
!
! LOAD THE FEATURE TEST SWITCH TESTER
!
.R LINK
*COBTST/GO
.SAVE COBTST
.IF (ERROR) .GOTO TRUBLE
.CHKPNT CK1F
CK1F::
.ERROR
.SET WATCH VERSION
!SET UP THE DEFAULT LOGICAL NAMES
!
.DO COBOL.MIC
.IF (ERROR) !IGNORE IT
.R MACRO
*ACCEPT=ACCEPT
*ALBSTB=ALBSTB
*ALF=ALF
*ARGS=ARGS
*CANCEL=CANCEL
*CBLIO=CBLIO
.IF (ERROR) .GOTO TRUBLE
!
.CHKPNT CK1G
CK1G::
.ERROR
.SET WATCH VERSION
!SET UP THE DEFAULT LOGICAL NAMES
!
.DO COBOL.MIC
.IF (ERROR) !IGNORE IT
.R MACRO
*CDD=CDD
*CMP=CMP
*COBFUN=COBFUN
*COBST=COBST
*COMPD=COMPD
*COVRLY=COVRLY
*DSORT=DSORT
*DEBSTB=DEBSTB
*ARITH=ARITH
*DSPFP=DSPFP
.R MACRO
*EASTBL=EASTBL
*EDIT=EDIT
*EDITB=EDITB
*EXAM=EXAM
*EXPON=EXPON
*FIX=FIX
*FLOAT=FLOAT
*GC=GC
*GD=GD
*INSPEC=INSPEC
*KEY=KEY
*KPROG=KPROG
.R MACRO !TOO MANY UNIVERSALS OTHERWISE
*LBLERR=LBLERR
*LCM10=LCM10
*LCMIPC=LCMIPC
*LIBREL=LIBREL
*C8XSHR=C8XSHR
.IF (ERROR) .GOTO TRUBLE
!
.CHKPNT CK1H
CK1H::
.ERROR
.SET WATCH VERSION
!SET UP THE DEFAULT LOGICAL NAMES
!
.DO COBOL.MIC
.IF (ERROR) !IGNORE IT
.R MACRO
*LILOWS=LILOWS
*LINE=LINE
*LSU=LSU
*MOVE=MOVE
*NUM=NUM
*NTBSTB=NTBSTB
*NUBSTB=NUBSTB
*PC=PC
*PD=PD
*PERF=PERF
*PNZ=PNZ
*PUTRES=PUTRES
*REMOVL=REMOVL
*RESOLV=RESOLV
*RMSIO=RMSIO
*SETRET=SETRET
*SIZ23=SIZ23
*SIZE1=SIZE1
*SPAC=SPAC
*STRING=STRING
*SUBSCR=SUBSCR
*TODAY=TODAY
*TRACED=TRACED
*USRDSH=TTY:,DSK:USRDSP
*SHR==1
=
=
*USRDSL=USRDSP
*ZERC=ZERC
.IF (ERROR) .GOTO TRUBLE
.GOTO DONCRF

DONCRF::
.CHKPNT CK1J
CK1J::
.ERROR
.SET WATCH VERSION
!
L74::
!CREATE COBLIB.REL & COBOTS
!
.R PIP
*COBLIB.REL/B=COBST.REL,LILOWS.REL,CBLIO.REL,RMSIO.REL,LBLERR.REL,LIBREL.REL,REMOVL.REL,TRACED.REL,LINE.REL,STRING.REL,LSU.REL
*COBLIB.REL/B=COBLIB.REL,ACCEPT.REL,ARGS.REL,PUTRES.REL,CANCEL.REL,GD.REL,GC.REL,PD.REL,PC.REL,FLOAT.REL
*COBLIB.REL/B=COBLIB.REL,FIX.REL,CDD.REL,MOVE.REL,EXPON.REL,COMPD.REL
*COBLIB.REL/B=COBLIB.REL,CMP.REL,SPAC.REL,ZERC.REL,ALF.REL,PNZ.REL,NUM.REL,DSPFP.REL
*COBLIB.REL/B=COBLIB.REL,ARITH.REL,SUBSCR.REL,TODAY.REL
*COBLIB.REL/B=COBLIB.REL,SIZE1.REL,SIZ23.REL,INSPEC.REL,EDIT.REL,PERF.REL,COVRLY.REL
*COBLIB.REL/B=COBLIB.REL,KEY.REL,KPROG.REL,DSORT.REL,SETRET.REL,COBFUN.REL,EASTBL.REL,ALBSTB.REL,DEBSTB.REL
*COBLIB.REL/B=COBLIB.REL,EDITB.REL,NUBSTB.REL,NTBSTB.REL,LCM10.REL,LCMIPC.REL,USRDSL.REL,USRDSH.REL,RESOLV.REL
.IF (ERROR) .GOTO TRUBLE
!
!SEE IF WE NEED TO INCLUDE REAL SORT
.ERROR %
.DIR SRTCBL.REL
.IF (ERROR) .GOTO NOSORT
.ERROR
.R MAKLIB
*COBLIB.REL=COBLIB.REL/MAST:SORT,SRTCBL.REL/REP:SORT
.IF (ERROR) .GOTO TRUBLE
!
NOSORT::
.ERROR
!
!INDEX COBLIB.REL
!
.R MAKLIB
*COBLIB.REL=COBLIB.REL/INDEX
.IF (ERROR) .GOTO TRUBLE
!
!
!CREATE COBO13.EXE
!
.R LINK
*COBOTS.MAP/MAP=C8XSHR,COBLIB/SEARCH/GO
.IF (ERROR) .GOTO TRUBLE
.SSAVE DSK:COBO13
.IF (ERROR) .GOTO TRUBLE
!
!CREATE COBOTS.GLB
!
.R GLOB
*COBOTS.GLB=C8XSHR.REL,COBLIB.REL
.IF (ERROR) .GOTO TRUBLE
!SEE WHAT WE GOT:
.R DIRECT
*TTY:=/CHECKSUM/WIDTH:90 COB???.*,*.UNV
.IF (ERROR) . !IGNORE ANY ERRORS.
!
.GOTO DONE

DONE::	!ALL DONE
.CHKPNT CK1K
CK1K::
.ERROR
.SET WATCH VERSION
!SET UP THE DEFAULT LOGICAL NAMES
!
.DO COBOL.MIC
.IF (ERROR) !IGNORE IT
!
!DELETE COBOTS REL FILES NO LONGER NEEDED
!
.R PIP
*DSK:/D=COBASM.REL,COMUNI.REL,INTERM.REL,LBLPRM.REL,CHREQV.REL,NUMEQV.REL,FTDEFS.REL,FLGDF.REL
*DSK:/D=LILOWS.REL,COBST.REL,CBLIO.REL,LIBREL.REL,REMOVL.REL,TRACED.REL,LINE.REL,STRING.REL,LSU.REL
*DSK:/D=ACCEPT.REL,ARGS.REL,PUTRES.REL,CANCEL.REL,GD.REL,GC.REL,PD.REL,PC.REL,FLOAT.REL
*DSK:/D=FIX.REL,CDD.REL,MOVE.REL,EXPON.REL,COMPD.REL
*DSK:/D=CMP.REL,SPAC.REL,ZERC.REL,ALF.REL,PNZ.REL,NUM.REL,DSPFP.REL
*DSK:/D=ARITH.REL,SUBSCR.REL,TODAY.REL
*DSK:/D=SIZE1.REL,SIZ23.REL,EXAM.REL,INSPEC.REL,EDIT.REL,PERF.REL,COVRLY.REL
*DSK:/D=KEY.REL,KPROG.REL,LBLERR.REL,DSORT.REL,SETRET.REL,COBFUN.REL,EASTBL.REL,ALBSTB.REL,DEBSTB.REL
*DSK:/D=EDITB.REL,NUBSTB.REL,NTBSTB.REL,LCM10.REL,LCMIPC.REL,USRDSL.REL,USRDSH.REL,RESOLV.REL
.RUN COBTST
*ANS74
.IF (ERROR) .GOTO SKPRSI
.R PIP
*DSK:/D=RMSIO.REL
SKPRSI::
.IF (ERROR)	. !TOO BAD
!
!
!TELL THE OPERATOR HOW WE DID.
!
.PLEASE -- COBOTS CREATION SUCCESSFUL
!
!WE CANNOT MIX GALAXY 2 AND GALAXY 4.1
!SO
.DEAS SYS
.IF (ERROR) !
!
.SUB INP:*=/MODIFY/DEPEND:-1
.GOTO OK
%ERR::
TRUBLE:: .PLEASE -- COBOTS CREATION UNSUCCESSFUL!!!!!!!
OK::!END OF COBOTS.CTL