.;
.; Command file to read crash dumps, name according to the
.; date and crash, and get initial CDA listing using the
.; options /ACT/PCB.
.;
.; The name is the form DDMMMYYX where 'X' is the crash
.; of the day (A for the first, B for the second, etc.)
.;
	SET /UIC=[1,17]
	.ENABLE SUBSTITUTION
.;
.; Get date and parse out day, month, year.
.;
	.PARSE	<DATE>	"--" DD MM YR
.;
.; Loop and find which crash sequence number to use.
.;
	.SETN	POS	0
	.SETS	SEQ	"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
.100:	.INC	POS
	.SETS	FILE	DD+MM+YR+SEQ[POS:POS]
	.TESTFILE	'FILE'.CDA
	.IF	<FILERR> = 1 .GOTO 100
.;
.; Install necessary tasks, load driver, and get dump.
.;
	.IFNINS ...LOA	INS $LOA
	.IFNINS ...UNL	INS $UNL
	.IFNINS ...CDA	INS $CDA
	.IFNLOA MM:	LOA MM:/HIGH/PAR=GEN
	CDA 'FILE'/-SP,'FILE'/MEMSIZ:'<MEMSIZ>'.=[1,54]/STB,MM:/PCB/ACT
.;
.; Clean-up from command file.
.;
	UNL MM:
	REM CDA
