1 /* Begin include file edit_proj_keywords_.incl.pl1 BIM 1984-08-27 */
  2 /* format: style3 */
  3 
  4 dcl       PROJ_KEY_NAMES      (57) char (32) aligned int static options (constant) init (
  5                                                             /** names of keywords */
  6                               "title",                      /* 1 */
  7                               "investigator",               /* 2 */
  8                               "investigator_address",       /* 3 */
  9                               "supervisor",                 /* 4 */
 10                               "supervisor_address",         /* 5 */
 11                               "supervisor_phone",           /* 6 */
 12                               "account",                    /* 7 */
 13                               "requisition",                /* 8 */
 14                               "requisition_amount",         /* 9 */
 15                               "cutoff_date",                /* 10 */
 16                               "billing_name",               /* 11 */
 17                               "billing_address",            /* 12 */
 18                               "group",                      /* 13 */
 19                               "attributes",                 /* 14 */
 20                               "grace",                      /* 15 */
 21                               "administrator",              /* 16 */
 22                               "quota",                      /* 17 */
 23                               "alias",                      /* 18 */
 24                               "groups",                     /* 19 */
 25                               "min_ring",                   /* 20 */
 26                               "max_ring",                   /* 21 */
 27                               "pdir_quota",                 /* 22 */
 28                               "max_foreground",             /* 23 */
 29                               "max_background",             /* 24 */
 30                               "abs_foreground_cpu_limit",   /* 25 */
 31                               "rate_structure",             /* 26 */
 32                               "dir_quota",                  /* 27 */
 33                               "authorization",              /* 28 */
 34                               "audit",                      /* 29 */
 35                                                             /* Short names start here */
 36                               "t",                          /* 1 */
 37                               "inv",                        /* 2 */
 38                               "inv_addr",                   /* 3 */
 39                               "sup",                        /* 4 */
 40                               "sup_addr",                   /* 5 */
 41                               "sup_phone",                  /* 6 */
 42                               "acct",                       /* 7 */
 43                               "req",                        /* 8 */
 44                               "amt",                        /* 9 */
 45                               "cutoff",                     /* 10 */
 46                               "billto",                     /* 11 */
 47                               "billat",                     /* 12 */
 48                               "grp",                        /* 13 */
 49                               "attr",                       /* 14 */
 50                               "gr",                         /* 15 */
 51                               "admin",                      /* 16 */
 52                               "q",                          /* 17 */
 53                               "aka",                        /* 18 */
 54                               "grps",                       /* 19 */
 55                               "min",                        /* 20 */
 56                               "max",                        /* 21 */
 57                               "pdq",                        /* 22 */
 58                               "maxfg",                      /* 23 */
 59                               "maxbg",                      /* 24 */
 60                               "absfgcpulim",                /* 25 */
 61                               "rs",                         /* 26 */
 62                               "dq",                         /* 27 */
 63                               "auth");                      /* 28 */
 64 
 65 /* Note -- no short name for audit */
 66 
 67 
 68 dcl       PROJ_KEY_VALUES     (57) fixed bin int static options (constant)
 69                               init (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
 70                               25, 26, 27, 28, 29,           /* long names */
 71                               1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25,
 72                               26, 27, 28);                  /* short names */
 73 
 74 dcl       PROJ_KEY_ALL_ORDER  (29) fixed bin int static options (constant) init (
 75                                                             /** order to query when querying all */
 76                               1,                            /* title */
 77                               2,                            /* inv */
 78                               3,                            /* inv_addr */
 79                               4,                            /* sup */
 80                               5,                            /* sup_addr */
 81                               6,                            /* sup_phone */
 82                               7,                            /* account */
 83                               8,                            /* req */
 84                               9,                            /* req_amt */
 85                               10,                           /* cutoff */
 86                               11,                           /* billing name */
 87                               12,                           /* billing_addr */
 88                               18,                           /* alias */
 89                               16,                           /* administrator */
 90                               25,                           /* abs-max-fg-cpu */
 91                               28,                           /* auth */
 92                               29,                           /* audit */
 93                               17,                           /* quota */
 94                               27,                           /* dir_quota */
 95                               26,                           /* rate str */
 96                               13,                           /* group */
 97                               19,                           /* groups */
 98                               14,                           /* attributes */
 99                               15,                           /* grace */
100                               20,                           /* min ring */
101                               21,                           /* max_ring */
102                               22,                           /* pdir_quota */
103                               23,                           /* max_fg */
104                               24 /* max_bg */);
105 
106 declare   PROJ_KEYS_MATCH     (2) fixed bin int static options (constant) init (
107      /*** These can take the syntax:
108        edit_proj Project KEY OLD_VALUE NEW_VALUE
109        To match and replace OLD_VALUE ***/
110                               16,                           /** admin */
111                               19                            /** groups */
112                               );
113 
114 /* End include file edit_proj_keywords_.incl.pl1 */