;
; COMMAND FILE TO BUILD DSRDMP - DSR USAGE ANALYZER
;
.ENABLE SUBSTITUTION
.SETS DA ""
.IF P1 = "DEBUG" .SETS DA "/DA"
.SETS $U "'<UIC>'"
.SETS $D "SY:"
.SETT MAC
.SETT TKB
.SETT SRD
.IFNINS ...MAC .SETF MAC
.IFNINS ...TKB .SETF TKB
.IFNINS ...SRD .SETF SRD
.IFF MAC INS $BIGMAC
.IFF TKB INS $BIGTKB
.IFF SRD INS $SRD
.TESTFILE DSRDMP.MAC
.IF <FILERR> = 1 .GOTO 10
.5: .ASKS $D ON WHICH DISK IS THE SOURCE (DDn:)
.TESTFILE '$D'DSRDMP.MAC
.IF <FILERR> = 1 .GOTO 10
.SETS $D "'$D':"
.TESTFILE '$D'DSRDMP.MAC
.IF <FILERR> <> 1 .GOTO 5
.10:
.XQT MAC '$D'DSRDMP,DSRDMP/-SP/CR=LB:[1,1]EXEMC/ML,'$D''$U'DSRDMP
.OPEN '$D'DSRDMP.BLD
.DATA ;	DSRDMP.BLD
.DATA ;
.DATA ;	BUILD TASK DSRDMP PROCESSOR
.DATA ;
.DATA '$D'DSRDMP/-FP/CP/MM'DA',DSRDMP/-SP/CR='$D'DSRDMP
.DATA /
.DATA TASK=DSRDMP
.DATA UNITS=3
.DATA PRI=120
.DATA ASG=NL:3
.DATA //
.CLOSE
.WAIT MAC
TKB @'$D'DSRDMP.BLD
SRD '$D'DSRDMP.BLD/DE
SRD '$D'DSRDMP/PU
.IFF SRD REM SRD
.IFF MAC REM MAC
.IFF TKB REM TKB
