[0001] [0002] [0003] [0004] [0005] [0006] [0007] [0008] [0009] [0010] [0011] [0012] [0013] [0014] [0015] [0016] [0017] [0018] [0019] [0020] [0021] [0022] [0023] [0024] [0025] [0026] [0027] [0028] [0029] [0030] [0031] [0032] [0033] [0034]
$!----------------------------------------------------------------------------- $! 0.COM $! $! This procedure ensures the content of the directory contains only the $! most recent documentation by deleting anything older than the prescribed $! date. Once accomplished it deletes the README.TXT and itself. $! CGI wasDOC also looks for this file and provides an update message. $! (Messy - sure, but unforeseen wrinkle in the way wasDOC operates.) $! $! This procedure is stored as WASD_ROOT:[WASDOC]ZERO.COM and then copied to $! a [WASDOC] subdirectory as 0.COM when the document changes structure $! (i.e. *.wasdoc files or a major section are added or deleted). $! $! A README.TXT should also be created in that directory containing... $! $! "Execute @WASD_ROOT:[WASDOC]CHECK.COM to update this document." $! $ BEFORE = "01-JUL-2020" $! $! 08-JUL-2020 MGD initial $!----------------------------------------------------------------------------- $! $ set on $ procedure = f$environment("procedure") $ location = f$parse(procedure,,,"device") + f$parse(procedure,,,"directory") $!(avoid executing the original!) $ if f$edit(location,"upcase") .eqs. "WASD_ROOT:[WASDOC]" then exit $ delete = "delete/noconfirm" $ delete 'location'*.wasdoc;* /modified/before='BEFORE' $ delete 'location'*.html;* /modified/before='BEFORE' $ delete 'location'readme.txt;* $ delete 'location'0.com;* $! $!-----------------------------------------------------------------------------