[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;*
$!
$!-----------------------------------------------------------------------------