1 /*  BEGIN INCLUDE FILE  xforum_answers.incl.pl1                        */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(87-04-13,LJAdams), approve(87-04-30,MCR7684),
 6      audit(87-07-30,Blair), install(87-08-06,MR12.1-1065):
 7      Created.
 8                                                    END HISTORY COMMENTS */
 9 
10 dcl  1 answer_array,
11        2 N                                     fixed bin,   /* Number of acceptable answers; 0 = all          */
12        2 max_length                            fixed bin,   /* max length user reply can be                   */
13        2 answer (10)                           char (80) varying;
14 
15 
16 dcl  ZERO                                      fixed bin internal static options (constant) init (0),
17      ONE                                       fixed bin internal static options (constant) init (1),
18      FOUR                                      fixed bin internal static options (constant) init (4);
19 
20 
21 /*  END INCLUDE FILE  xforum_answers .incl.pl1                         */