1 /*  BEGIN INCLUDE FILE:  forum_user_trans.incl.pl1  */
 2 
 3 dcl alloc_text_length fixed bin (21);                       /* length of text area to allocate */
 4 dcl alloc_subject_length fixed bin (21);                              /* length of subject area to allocate */
 5 dcl forum_user_trans_ptr ptr;                               /* pointer to below structure */
 6 
 7 dcl 1 forum_user_trans based (forum_user_trans_ptr) aligned,
 8     2 type fixed bin,                                       /* type of transaction */
 9     2 person_id char (22),                                  /* person_id of author of this transaction */
10     2 project_id char (9),                                  /* project_id of author of this transaction */
11     2 time fixed bin (71),                                  /* time transaction was entered */
12     2 trans_no fixed bin,                                   /* number of this transaction */
13     2 next_trans_ptr ptr,                                   /* pointer (in user ring) of next transaction */
14     2 prev_trans_ptr ptr,                                   /* pointer (in user ring) of previous transaction */
15     2 subject_length fixed bin (21),                        /* length of subject field of transaction */
16     2 text_length fixed bin (21),                                     /* length of text field of transaction */
17     2 unfilled bit (1) aligned,                             /* set if transaction is NOT stored filled */
18     2 subject char (alloc_subject_length refer (forum_user_trans.subject_length)) unaligned,     /* subject of transaction */
19     2 text char (alloc_text_length refer (forum_user_trans.text_length)) unaligned;    /* text of transaction */
20 
21 declare user_trans_type fixed bin static options (constant) initial (1);
22 declare message_type fixed bin static options (constant) initial (2);
23 
24 declare   (ONLY_UNDELETED               init (0),
25           INCLUDE_DELETED               init (1),
26           ONLY_DELETED                  init (2))
27                                         fixed bin static options (constant);
28 
29 /* END INCLUDE FILE:  forum_user_trans.incl.pl1 */