This is an example of a GUARDFILE input request. The GUARDFILE utility is executed under the usercode STEWART.

% INPUT FOR TESTING DATA MANAGEMENT SECURITY FUNCTIONS

DEFAULT = NONE;   % WE WANT THIS TO BE A PRIVATE DATABASE -
                  % ONLY THOSE PROGRAMS AND USERCODES ACTUALLY
                  % IN THE GUARD FILE MAY ACCESS THE DATABASE

DEFINE OK = ALL EXCEPT (CLOSELOCK); 
                  % DON’T WANT TO OVER-WRITE D-BASE

PACKNAME = DMPACK; 
                  % ONLY PROGRAMS RUNNING FROM HERE 
                  % CAN ACCESS DATABASE

USERCODE STEWART=RW, DMVERBS=OK 
                  % UNLESS USING ONE OF THE FOLLOWING
    USING PROGRAM % PROGRAMS
       OBJECT/NOFIND   =RW, DMVERBS=ALL EXCEPT (FIND),
       OBJECT/NOLOCK   =RW, DMVERBS=ALL EXCEPT (LOCK),
       OBJECT/NOSECURE =RW, DMVERBS=ALL EXCEPT (SECURE);
PROGRAM TESTDEFINE ON TESTPACK = RW, DMVERBS=OK EXCEPT(GENERATE);

PROGRAM A, B, C = READ;

PROGRAM (USR)X/Z = NONE;    % DON’T LET HIM IN AT ALL

PROGRAM *A/B = READWRITE, DMVERBS = OK EXCEPT (INSERT);

PROGRAM "HYPHEN-ATED" = READ;

PROGRAM "USING" = READONLY USING USERCODE "USING" = READWRITE;

PROGRAM THIS/IS/A/NAME/WHICH/IS/TOO/BIG/TO/PRINT/
            ON/A/SINGLE/LINE = RW DMVERBS=ALL EXCEPT (REMOVE);