;		RLVBLD
;		======
;
;
.;	Command file to build the RTL/2 Linkage Verifier.  Four parameters
.;	are either passed from DLV1 or asked for by this command file.  These
.;	are :-
.;	    1) What partition is being used ?
.;	    2) Do you wish to use memory resident FCS ?
.;	    3) Are you building tasks to run in I- & D- Space ?
.;	    4) Do you have FCSRES or FCSFSL ?
.;
.enable substitution
.disable lowercase
.gosub setcli
.;
.if P1 ne "" .goto gotpar
.asks [::"GEN"] P1 In which partition is the linkage verifier to run
.gotpar:
;
.if P2 ne "" .goto gotfcs
.sets P2 "LIB"
.ask FCS Should the verifier use memory-resident FCS (default is library)
.ift FCS .sets P2 "MEM"
.gotfcs:
;
.if P3 ne "" .goto gotrsx
.sets P3 "M"
.ask MPLUS Will the verifier run in separate I- & D- spaces
.ift MPLUS .sets P3 "MPLUS"
.gotrsx:
.;
.if P2 ne "MEM" .goto nomlib
.if P4 ne "" .goto gottyp
.settyp:
.sets P4 "FCSRES"
.if P3 ne "MPLUS" .goto gottyp
;
.asks TYP Build the verifier using FCSRES or FCSFSL (enter RES or FSL)
.sets P4 "FCS"+TYP
.gottyp:
.if P4 ne "FCSRES" .and .if P4 ne "FCSFSL" .goto settyp
.if P4 eq "FCSRES" .sets MEMLIB "LIBR=FCSRES:RO"
.if P4 eq "FCSFSL" .sets MEMLIB "SUPLIB=FCSFSL:SV"
.nomlib:
.;
.;
.sets SWITCH ""
.if P3 eq "MPLUS" .sets SWITCH "/ID"
;
;	Creating taskbuild command file.
;
.open #1 rlvbld.lnk
.enable data #1
RTLV.TSK/CP'SWITCH',RTLV/-SP=RTLRTSRSX/LB:RSXBA1:RSXBA2:RTLCTL
RLVLIBRSX/LB,CIPLIBRSX/LB:CIP3,CIPLIBRSX/LB,RTLRTSRSX/LB
/
PAR='P1'
TASK=...RLV
UNITS=7
ASG=SY:2:3:4:5:6
ASG=TI:1:7
WNDWS=1
STACK=850
GBLDEF=STKCTL:0
GBLPAT=RSXBA1:PAGING:74
.disable data #1
.if P2 ne "MEM" .goto nmemlb
.data #1 'MEMLIB'
.nmemlb:
.data #1 //
.close #1
;
;	Build the Linkage Verifier.
;
tkb @rlvbld.lnk
.setn exst <exstat>
.if exst ne 1 .goto done
;
;	Delete unwanted files.
;
pip rlvbld.lnk;0/de
.;
.done:
'rstcli'
.exit 'exst'
.;
.; Subroutine to determine current CLI; set it to DCL if possible
.;
.setcli:
.sett isdcl
.sets rstcli ";"
.sets oldcli "'<cli>'"
.if oldcli eq "DCL" .return
.if oldcli ne "MCR" .goto lsc1
.ifnins dcl .setf isdcl
.iff isdcl .return
.sets rstcli "mcr set /mcr=ti:"
.lsc1:
dcl set /dcl
.if rstcli eq ";" .sets rstcli "set term/cli:"+oldcli
.return