.; .; 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 "--" 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 = 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:''.=[1,54]/STB,MM:/PCB/ACT .; .; Clean-up from command file. .; UNL MM: REM CDA