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

;<AZREX.DEV>IQLINS.CTL.3, 11-May-81 15:16:39, Edit by AZREX
;iqlins.ctl  --  modify to refer to COBOL/LIBOL V12B
@info logical all
;
;IQLINS.CTL
;
;THIS CONTROL FILE WILL BUILD IQL VERSION 3.3
;FOR A DECSYSTEM-20.
;
;TO RECOMPILE ALL COBOL SOURCES, RUN WITH
;	@SUBMIT IQLINS
;
;TO ONLY RELOAD, RUN WITH
;	@SUBMIT IQLINS/TAG:NOCOMP
;
;A MAIL MESSAGE WILL BE SENT UPON COMPLETION TO THE SUBMITTER
; (DECSYSTEM-20 ONLY)
;
;
;REQUIRED FILES TO COMPILE IQL3.3
;
;   (IN LOGICAL DEVICE DSK:)
;	IQLINS.CTL (THIS FILE)
;	IQA.CBL
;	IQA.CMD
;	IQD.CBL
;	IQD.CMD
;	IQE.CBL
;	IQE.CMD
;	IQEBAS.CMD
;	IQES.CBL
;	IQCALL.CBL
;	IQL.CBL
;	IQL.CMD
;	IQLIB.REL
;	IQLVER.MAC
;	IQM.CBL
;	IQM.CMD
;	IQSCH.CBL  (FOR DBMS ONLY)
;	IQSCH.CMD
;	IQU.CBL
;	IQU.CMD
;
;   (IN LOGICAL DEVICE SYS:)
;	COBOL.EXE (V.12B)
;	LIBO12.EXE (V.12B)
;	LIBOL.REL   (V.12B)
;	LINK.EXE (V.3 (560) OR V.4)
;	MACRO.EXE (V.53)
;	MACSYM.UNV
;	SORT.EXE (V.4)
;
;OUTPUT FILES:
;	IQA.EXE
;	IQD.EXE
;	IQE.EXE
;	IQL.EXE
;	IQM.EXE
;	IQU.EXE
;	IQSCH.EXE  (FOR DBMS ONLY)
;
;
;FIRST, CHECK FOR ALL THE FILES THERE, AND VERSION NUMBERS
;
@VDIR IQA.C%%,IQD.C%%,IQE*.C%%,IQCALL.CBL,IQL.C%%,IQLIB.REL,IQLVER.MAC,IQM.C%%,IQSCH.C%%,IQU.C%%,
@CHECK SEQ
@
@
;
@VDIR SYS:COBOL,SYS:LIBO12,SYS:LIBOL,SYS:MACRO,SYS:MONSYM,SYS:MACSYM,SYS:MACREL,SYS:LINK,SYS:SORT,
@CHECK SEQ
@
@
;
@GET SYS:COBOL
@INFO VERSION
@GET SYS:LIBO12
@INFO VERSION
@GET SYS:MACRO
@INFO VERSION
@GET SYS:LINK
@INFO VERSION
@GET SYS:SORT
@INFO VERSION
;
; TYPE OUT THE COMMAND .CMD FILES FOR REFERENCE
;
@TYPE IQ*.CMD
;
;
;NOW BUILD EACH IQL MODULE SEPARATELY
;
;	IQLVER VERSION NUMBER MODULE
;-----------------------------------------
@R MACRO
*IQLVER=IQLVER
@
;
;	IQA
;----------------------
@R COBOL
*,-=IQA/S/N/P
@LOAD @IQA.CMD
@EXPUNGE
@SAVE IQA
@INFO VERSION
;
;	IQD
;---------------------
@R COBOL
*,-=IQD/S/N/P
@LOAD @IQD.CMD
@EXPUNGE
@SAVE IQD
@INFO VERSION
;
;	IQE
;-----------------------
@R COBOL
*,-=IQE/S/N/P/R
*,-=IQES/S/N/P/R
*,-=IQCALL/S/N/P/R
@LOAD @IQE.CMD
@IF (ERROR) @LOAD @IQEBAS.CMD
@EXPUNGE
@SAVE IQE
@INFO VERSION
;
;	IQL
;---------------------
@R COBOL
*,-=IQL/S/N/P
@LOAD @IQL.CMD
@EXPUNGE
@SAVE IQL
@INFO VERSION
;
;	IQM
;--------------------
@R COBOL
*,-=IQM/S/N/P
@LOAD @IQM.CMD
@EXPUNGE
@SAVE IQM
@INFO VERSION
;
;	IQU
;--------------------
@R COBOL
*,-=IQU/S/N/P
@LOAD @IQU.CMD
@EXPUNGE
@SAVE IQU
@INFO VERSION
;
;	IQSCH (NEEDED FOR DBMS ONLY)
;----------------------------------------
@R COBOL
*,-=IQSCH/S/N/P/R
@IF (ERROR) GOTO CLEAN
@LOAD @IQSCH.CMD
@IF (NOERROR) @SAVE IQSCH
@INFO VERSION
@EXPUNGE
;
;DONE, GO CLEAN UP
@GOTO CLEAN
;
;
NOCOMP::	;HERE TO RELOAD ONLY, NO COMPILING NEEDED
;
;FIRST, CHECK FOR ALL THE FILES THERE, AND VERSION NUMBERS
;
@VDIR IQA.REL,IQD.REL,IQE*.REL,IQCALL.REL,IQL*.REL,IQM.REL,IQSCH.REL,IQU.REL,
@CHECK SEQ
@
@
;
@VDIR SYS:COBOL,SYS:LIBO12,SYS:MACRO,SYS:MACSYM,SYS:LINK,SYS:SORT,
@CHECK SEQ
@
@
;
@GET SYS:COBOL
@INFO VERSION
@GET SYS:LIBO12
@INFO VERSION
@GET SYS:MACRO
@INFO VERSION
@GET SYS:LINK
@INFO VERSION
@GET SYS:SORT
@INFO VERSION
;
;
; TYPE OUT THE COMMAND .CMD FILES FOR REFERENCE
;
@TYPE *.CMD
;
;
@LOAD @IQA.CMD
@EXPUNGE
@SAVE IQA
@INFO VERSION
@LOAD @IQD.CMD
@EXPUNGE
@SAVE IQD
@INFO VERSION
@LOAD @IQE.CMD
@IF (ERROR) @LOAD @IQEBAS.CMD
@EXPUNGE
@SAVE IQE
@INFO VERSION
@LOAD @IQL.CMD
@EXPUNGE
@SAVE IQL
@INFO VERSION
@LOAD @IQM.CMD
@EXPUNGE
@SAVE IQM
@INFO VERSION
@LOAD @IQU.CMD
@EXPUNGE
@SAVE IQU
@INFO VERSION
@LOAD @IQSCH.CMD
@IF (NOERROR) @SAVE IQSCH
@INFO VERSION
@EXPUNGE
;
;
CLEAN::		;CHECK ON THE FILES GENERATED
;
@VDIR IQA.EXE,IQD.EXE,IQE.EXE,IQL.EXE,IQM.EXE,IQU.EXE,IQSCH.EXE,
@CHECK SEQ
@
@
;
;
@EXPUNGE
%ERR::
@MAIL
;TO:
*.
;CC:
*
;SUBJECT:
*IQLINS.CTL
;MESSAGE TEXT:
*ERRORS IN JOB
@LOGO
%FIN::
@MAIL
;TO:
*.
;CC:
*
;SUBJECT:
*IQLINS.CTL
;MESSAGE TEXT:
*JOB SUCCESSFUL!