.; This command file compiles and builds the QIO error translation
.; task. B. Z. Lederman
.;
.ENABLE SUBSTITUTION
.SETS MCR ""
.IF <CLI> NE "MCR" .SETS MCR "MCR "
.;
.;
'mcr'F77 QIOERR, QIOERR/-SP = QIOERR/TR:ALL
.;
	.IF <SUCCES> NE <EXSTAT>&7 .GOTO END
;
; Looking for possible FCS Libraries
;
	.SETF fcsfsl				! Assume FSL false
	.SETF fcsres				! Assume RES false

.TSTFSL:
	.TESTFILE lb:[1,1]fcsfsl.tsk		! Look for the FSL Library
	.IF <FILERR> NE <SUCCES> .GOTO tstres	! Not present, can''t use it
	.TESTFILE lb:[1,1]fcsfsl.stb		! Look for the symbol table
	.IF <FILERR> NE <SUCCES> .GOTO tstres	! Not present, can''t use it
	.SETT fcsfsl				! Now we have all needed for
.;						! supervisor mode FCS support
;
; Linking Task to Supervisor Mode FCS Library
;
	.GOTO FCSEND

.TSTRES:
	.TESTFILE lb:[1,1]fcsres.tsk		! Look for the RES Library
	.IF <FILERR> NE <SUCCES> .GOTO nores	! Not present, can''t use it
	.TESTFILE lb:[1,1]fcsres.stb		! Look for the symbol table
	.IF <FILERR> NE <SUCCES> .GOTO nores	! Not present, can''t use it
	.SETT fcsres				! Now we have all needed for
.;						! resident FCS support
;
; Linking Task to resident FCS-Library
;
	.GOTO FCSEND
.NORES:
;
; Linking Task to normal FCS-Library
;
.FCSEND:
.OPEN QIOERRBLD.CMD
.DATA ; Task build file for QIO error translation task. This assumes that
.DATA ; the fortran OTS modules are in a seperate library. If they are
.DATA ; not in [1,1] change the UIC or library name. If they are in
.DATA ; SYSLIG, change the libarary name or remove the references.
.DATA ; B. Z. Lederman
.DATA ;
.DATA QIOERR/FP,QIOERR/-SP/MA=QIOERR,LB:[1,1]F77FCS/LB:$ERTXT,LB:[1,1]F77FCS/LB
.DATA /
.IFT FCSFSL .DATA SUPLIB=FCSFSL:SV
.IFT FCSRES .DATA LIBR=FCSRES:RO
.DATA TASK=...ERR
.DATA //
.CLOSE
.;
'mcr'TKB @QIOERRBLD
.;
.END:
'mcr'PIP QIOERR*.*/PU