Security Management Guide (G06.24+, H06.03+)

TACL Macros
Security Management Guide—522283-008
C-2
Example 2. Snapshotcheck Routine
== Now display it:
#outputv /hold, width 25, justify left / :^fullnam
#output /hold, width 1/
#outputv /hold, width 5, justify right / :^code
#output /hold, width 1/
#outputv /hold, width 8, justify right / :^eof
#output /hold, width 1/
#outputv /hold, width 2, justify right / :^licensed
#output /hold, width 1/
#outputv /hold, width 11, justify right / :^modification
#output /hold, width 1/
#outputv /hold, width 7, justify right / :^owner
#output /hold, width 1/
#outputv /hold, width 2, justify right / :^progid
#output /hold, width 1/
#outputv /hold, width 6, justify right / :^security
#output
#unframe
]
== end of subroutine
#push :^outfilename
#if [#argument /value :^outfilename/ filename/syntax/]
== first argument is the output filename
#push #out
#set #out [:^outfilename]
== redirect output to that file
fapply :^snapshotter [#rest]
== and run FAPPLY for all remaining arguments
#unframe
==
To invoke SNAPSHOT, enter a command using the following syntax:
1> SNAPSHOT snapshot-file [filename-template]...
SNAPSHOT scans the files specified by filename-template and for each file writes
a line containing the file's status parameters (such as those displayed when you enter
a FILEINFO command).
For example, to create a snapshot in file SNAPSYS of all files in the
$SYSTEM.SYSTEM subvolume:
1> SNAPSHOT SNAPSYS $SYSTEM.SYSTEM.*
Example 2. Snapshotcheck Routine
This routine compares the current state of the system with the values in the snapshot
file (generated by the snapshot routine) and produces a report of the differences:
?section snapshotcheck ROUTINE
#frame
[#push
:^fullname :^existence
:^code :^code2
:^eof :^eof2