Compile all files: try again

[Chris.Sharman@ccagroup.co.uk]

This message is in MIME format. Since your mail reader does not
understand this format, some or all of this message may not be legible.

It contains attachments for use on your PC/Mac. If you're reading
this in VMS mail, and want it on your PC, type 'move newmail' now
to move it back into your newmail folder, and then pick it up with
your PC mail in the usual way

--NextPart

I've been deluged with block messages, presumably because saf.com is perceived
as an executable by PC tools.

Here it is again, "Select all files", as a text file: use with VMS DCL by
renaming to saf.com - hopefully this will get through.

Example: @saf "quick auto='name' nolist" *.qks

Chris


-----------------------------------------------------------------------

Any views expressed in this message are those of the sender and not
necessarily those of CCA Group.  The unauthorized use, disclosure,
copying or alteration of this message is forbidden.  The contents of
this message may be confidential and/or privileged, copyright CCA Group
and are intended solely for the use of the individual or entity to whom
they are addressed.  Whilst this message has been scanned, CCA Group
cannot guarantee that it is virus free or compatible with your systems
and accepts no responsibility for any loss or damage arising from its
use. The recipient is advised to run their own anti-virus software. If
you receive this message in error please contact
postmaster@ccagroup.co.uk immediately, destroy any copies and delete it
from your computer systems.

--NextPart
Content-Type: text/plain; charset=us-ascii; name="Saf"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename="Saf.txt"

$ v = 'f$verify(0)'
$ if f$type(debug_saf).nes.""
$ then
$	sh sym/loc/all
$	x = f$verify(1)
$ endif
$! Select All Files
$! Author: John Devany, Editor of Global Pages - DECUS VMS SIG report
$! This procedure from Feb 1991 edition
$!
$! P1 = command line
$! P2 = wildcard spec
$! P3 = verify (default TRUE)
$!
$! Enhanced to handle list of files as produced by find
$!
$ set noon
$ saf_count = 0
$ if p3.eqs."" then $ p3 = 1
$ if p3 then $ p3 = 1
$ if .not.p3 then $ p3 = 0
$ if p2.eqs."" then $ p2 := *.*
$ on error then $ goto donelist
$ on control_y then $ goto donelist
$ if f$extract(0,1,p2).nes."@" then $ goto loop
$ p2 = p2 - "@"
$ open list 'p2'
$listloop:
$ read/end=donelist list file
$ if file.eqs."" then $ goto listloop
$ name := 'f$parse(file,,,"name")'
$ type := 'f$parse(file,,,"type")'
$ namty := 'name''type'
$ lonamty = f$edit(namty,"lowercase")
$ saf_count = 'saf_count' + 1
$ define/nolog/user sys$input sys$command
$ vx = f$verify(p3)
$ 'p1'
$ goto listloop	! 'f$verify(vx)'
$!
$loop:
$ on error then $ goto loop
$ file := 'f$search(p2,1)'
$ if file.eqs."" then $ goto doneloop
$ name := 'f$parse(file,,,"name")'
$ type := 'f$parse(file,,,"type")'
$ namty := 'name''type'
$ lonamty = f$edit(namty,"lowercase")
$ saf_count = saf_count + 1
$ define/nolog/user sys$input sys$command
$ vx = f$verify(p3)
$ 'p1'
$ goto loop ! 'f$verify(vx)'
$!
$donelist:! 'f$verify(0)'
$ if f$trnlnm("list").nes."" then $ close list
$doneloop: saf_count == 'saf_count'
$ exit 1+0*f$verify(v)

--NextPart--