DEFINE VERB  LAST

      IMAGE  SYS$LOGINX:[DECUS.LAST]LAST

      PARAMETER   P1
                  VALUE(TYPE = $FILE)

      QUALIFIER   ABOUT

      QUALIFIER   ACCOUNT_FIELD
                  NEGATABLE
!                  DEFAULT           ! take off ! in column 1 if using account
                                     ! field instead of owner field

      QUALIFIER   ALL_USERS

      QUALIFIER   BY_GROUP

      QUALIFIER   DAYS
                  VALUE(REQUIRED, TYPE = $NUMBER)

      QUALIFIER   FULL
!                  DEFAULT           ! take off ! in column 1 if using as
                                     ! default qualifier

      QUALIFIER   GROUP
                  VALUE(REQUIRED, TYPE = $FILE)

      QUALIFIER   HELP
                  VALUE(TYPE = $FILE, DEFAULT="DSK38:[SYSTEM_JB.DECUS.LAST]LAST.HLB")

      QUALIFIER   LIST
                  NEGATABLE
                  VALUE(TYPE = $FILE, DEFAULT="SYS$UTILITIESX:[LIST]PHONE.BOOK")
!                  DEFAULT           ! take off ! in column 1 if using as
                                     ! default qualifier

      QUALIFIER   OUTPUT
                  VALUE(REQUIRED, TYPE = $FILE)

      DISALLOW    ANY2 (ALL_USERS, BY_GROUP, GROUP, HELP, ABOUT)