Figure 2-3. Deleting Files In A Subvolume - HP TACL Programming Manual

When you run checkfiles, the routine displays the following:
Where do you want to start (default = beginning of subvol)?
To start checking files in the middle of the subvolume, enter a text constant with the
desired starting characters. Checkfiles then performs the following steps for each
file past the specified starting point in the subvolume:
1. Checkfiles displays the file name and date of last alteration.
2. For an Edit file, checkfiles displays the first ten lines of the file; otherwise, it
displays "Not an Edit file; nothing to show you."
3. Checkfiles asks if you want to purge the file (Y or N). For files that are not Edit
files, checkfiles also asks if you want to empty the file (E).
Checkfiles stops at the end of the subvolume; to stop earlier, press BREAK.
Figure 2-3. Deleting Files in a Subvolume (Page 1 of 2)
?SECTION checkfiles ROUTINE
#FRAME
#PUSH filenm reply prompt volsubvol thisone temp resp
#SET thisone [#DEFAULTS/CURRENT/]
#SET volsubvol [thisone]
#SET prompt &
Enter the start file (default = beginning of subvol)?
== Read text from the terminal
#INPUTV filenm prompt
#SET filenm [#NEXTFILENAME [#SHIFTSTRING/UP/[filenm]] ]
[#SET volsubvol
[#FILEINFO/VOLUME/[filenm]].[#FILEINFO/SUBVOL/[filenm]]
]
== Loop within the same subvolume
[#LOOP |WHILE| ([_COMPAREV volsubvol thisone]) |DO|
== Display last-altered information
#SET temp [#CONTIME [#FILEINFO/MODIFICATION/ [filenm]]]
#OUTPUT
#OUTPUT [filenm] last altered [_CONTIME_TO_TEXT [temp]]
== Get the file code
[#CASE [#FILEINFO/CODE/ [filenm] ]
== If an edit file, list the first ten lines, then
== determine whether the user wants to purge the file
|101|
FUP COPY [filenm] , , COUNT 10
#SET prompt Do you want to purge [filenm] (y/n)?
#INPUTV reply prompt
107365 Tandem Computers Incorporated
Developing TACL Programs
Defining Program Structure
2–5