.; rf.cmd: build a task using dean's remote rms server stuff, AND FCSFSL!
.; test I/D tasking
.; P1:filename P2:D=ddt|K=ddtknl
.ENABLE SUBSTITUTION
.;
xcc 'P1' -a >'P1'.ELG
.if <exstat> <> 1 .goto phukt
.;
.SETS DEBUG ""
;.IF P2 = "D" .SETS DEBUG "-LB:[1,1]DDT/DA"
;.IF P2 = "K" .SETS DEBUG "-LB:[1,1]DDTKNL/DA"
.OPEN TEMP.ODL
.ENABLE DATA
	.psect	c$code,ro,i,rel,con
	.psect	c$data,rw,d,rel,con
	.psect	c$strn,rw,d,rel,con
	.psect	 $finl,rw,d,rel,con
	.psect	$finl$,rw,d,rel,con
;	.psect	$finl.,rw,d,rel,con
	.psect	c$mwcn,rw,d,rel,con
	.psect	 $init,rw,d,rel,con
	.psect	$init$,rw,d,rel,con
;	.psect	$init.,rw,d,rel,con
;	.ROOT	'<UIC>''P1''DEBUG'-lb:[1,1]cisam/lb-lb:[1,1]rrms/lb-clib
	.ROOT	'<UIC>''P1'-id-lb:[1,1]cisam/lb-lb:[1,1]rrms/lb-clib
id:	.fctr	c$code-c$data-c$strn-$finl-$finl$-c$mwcn-$init-$init$
clib:	.fctr	lb:[1,1]cx/lb-float-lb:[1,1]cID/lb
float:	.fctr	lb:[1,1]dtoa-lb:[1,1]atod-lb:[1,1]atof
	.END
.DISABLE DATA
.CLOSE
.OPEN TEMPTKB.CMD
;.DATA 'P1'/CP,'P1'/CR/MA/-SP,'P1'=TEMP/MP
.DATA 'P1'/CP/id/nm,'P1'/MA/-SP/cr,'P1'=TEMP/MP
;.DATA SUPLIB=FCSFSL:SV
.DATA UNITS=20
.DATA ASG=TI:5:6
.DATA //
.CLOSE
;.IFNINS CRF... INS $CRF
TKB @TEMPTKB
.phukt:
.OPEN TI:
.IF <EXSTAT> <> 1 .DATA ['P0'] 'P1' 'P2' ****** FAILED ****** '<EXSTAT>' 
.close
.IF <EXSTAT> NE 1 .EXIT '<EXSTAT>'
;PIP TEMPTKB.CMD;*/DE/NM
;PIP 'P1'.MAP/PU
;PIP 'P1'.OBJ/PU
;PIP TEMP.ODL;*/DE/NM
;.WAIT CRF...
.open ti:
.DATA 
.close
