1$! 2$! Delete various test results files. 3$! 4$ def_orig = f$environment( "default") 5$ proc = f$environment( "procedure") 6$ proc_dev_dir = f$parse( "A.;", proc) - "A.;" 7$! 8$ on control_c then goto tidy 9$ on error then goto tidy 10$! 11$ set default 'proc_dev_dir' 12$! 13$ files := *.cms;*, *.srl;*, *.ss;*, - 14 cms.err;*, cms.out;*, newreq.pem;*, - 15 p.txt-zlib-cipher;*, - 16 smtst.txt;*, testkey.pem;*, testreq.pem;*, - 17 test_*.err;*, test_*.out;*, - 18 .rnd;* 19$! 20$ delim = "," 21$ i = 0 22$ loop: 23$ file = f$edit( f$element( i, delim, files), "trim") 24$ if (file .eqs. delim) then goto loop_end 25$ if (f$search( file) .nes. "") then - 26 delete 'p1' 'file' 27$ i = i+ 1 28$ goto loop 29$ loop_end: 30$! 31$ tidy: 32$ 33$ if (f$type( def_orig) .nes. "") then - 34 set default 'def_orig' 35$! 36