! this macro reads an SRD directory file and produces a command file to delete all files in the directory with a date earlier than today ! XAHKEBQAY ! Get file name from MUNG, open file, read a page ! 0UAS--S .UBS -C.UCQB,QCXB ! Find date in SRD heading, store in qB ! ! Kill out lines containing this date ! 0JK ! Kill SRD heading ! QAUL ! Count CR's, store in qL ! QL"EONOFILE' ! If no lines, output 'no files' comment ! BJQL ! Once per line, find version # and kill rest of line ! BJ ! Strip out any blanks in file name ! BJQL ! Once per line, create a delete command ! OEXIT !NOFILE!HK I; No files found to delete !EXIT!EX