; THIS PERFORMS MAINTENANCE ON YOUR UIC'S
; NOTE: NO "SAV" FILES WILL BE ALTERED
.ASKS GP SPECIFY UIC GROUP
.ASKS ON SPECIFY UIC OWNER
.ASKS DSK SPECIFY DRIVE TYPE AS DP, DL, ETC.
.ASKS DRV SPECIFY DRIVE AS 0,1,2
.ASK OBJ DELETE ALL OBJ FILES
.IFT OBJ .ASK PURGE PURGE OTHER TYPES
.IFF OBJ .ASK PURGE PURGE ALL TYPES
.SETS TYPE "*"
.IFF PURGE .ASKS TYPE SPECIFY TYPE
.ASK REN RENAME FILES TO VERSION 1
;
; SYSTEM WILL AUTOMATICALLY HAVE READ-WRITE-EXTEND PRIVILIGES.
; YOU MUST INDICATE IF IT IS TO HAVE DELETE PRIVILIGES.
.SETS SYS "RWE"
.ASK RW GIVE SYSTEM DELETE PRIVILIGES
.IFT RW .SETS SYS "RWED"
.ASKS OWN SPECIFY OWNER PROTECTION
.ASKS GRP SPECIFY GROUP PROTECTION
.ASKS WLD SPECIFY WORLD PROTECTION
.ASK LIST LISTING WANTED
.SETF COPY
.IFT LIST .ASK COPY ON LINE PRINTER
.IFT COPY .SETS DEV "LP:"
.IFF COPY .SETS DEV "TI:"
.SETF FULL
.ASK FULL FULL LISTING
.SETS KIND "LI"
.IFT FULL .SETS KIND "FU:1"
.ENABLE SUBSTITUTION
PIP 'DSK''DRV':['GP','ON']*.'TYPE';*/PR/SY:RWED
PIP 'DSK''DRV':['GP','ON']*.SAV;*/PR/SY:R
.IFT PURGE PIP 'DSK''DRV':['GP','ON']*.*/PU
.IFF PURGE PIP 'DSK''DRV':['GP','ON']*.'TYPE'/PU
.IFT REN PIP 'DSK''DRV':['GP','ON']*.'TYPE';1/RE='DSK''DRV':['GP','ON']*.'TYPE';*
PIP 'DSK''DRV':['GP','ON']*.*;*/PR/SY:'SYS'/OW:'OWN'/GR:'GRP'/WO:'WLD'
.IFT LIST PIP 'DEV'='DSK''DRV':['GP','ON']/'KIND'