1 /* --------------- BEGIN include file rcprm_action_codes.incl.pl1 --------------- */ 2 3 dcl (Register initial (1), /* Positive actions must be ODD */ 4 Deregister initial (2), /* Negative actions must be EVEN */ 5 Acquire initial (3), 6 Release initial (4), 7 Clear initial (6), 8 Set initial (7), 9 Status initial (8), 10 Reserve initial (9), 11 Cancel initial (10)) fixed bin static options (constant); 12 13 dcl Action_noun (10) char (12) static options (constant) initial 14 ("register", "deregister", "acquire", "release", "ERROR", "clear", "set", "status", "reserve", "cancel"); 15 16 17 /* ---------------- END include file rcprm_action_codes.incl.pl1 ---------------- */