1 /*        BEGIN INCLUDE FILE memo_info.incl.pl1             */
 2 
 3 dcl  memo_info_ptr pointer;
 4 
 5 dcl 1 memo_info aligned based (memo_info_ptr),              /* information about a single memo */
 6     2 version fixed bin,                                    /* version number of this structure */
 7     2 flags aligned like memo_segment_entry.flags,          /* various flags, identical to those in the memo segment */
 8     2 maturity_time fixed bin (71),                         /* maturity time */
 9     2 repeat_count fixed bin,
10     2 data_string aligned,                                  /* information about the string */
11       3 ptr pointer unaligned,                              /* a pointer to it (see based dcls below) */
12       3 lth fixed bin (21),                                 /* and its length */
13     2 repeat_string aligned,                                /* information about the repeat string, as above */
14       3 ptr pointer unaligned,
15       3 lth fixed bin (21),
16     2 expiration_string aligned,                            /* information about the expiration delta string, as above */
17       3 ptr pointer unaligned,
18       3 lth fixed bin (21),
19     2 class_name aligned,                                   /* information about the class name string, as above */
20       3 ptr pointer unaligned,
21       3 lth fixed bin (21);
22 
23 /*        A handful of declarations for accessing the based strings described in memo_info */
24 
25 dcl  memo_data_string char (memo_info.data_string.lth) based (memo_info.data_string.ptr);
26 dcl  memo_repeat_string char (memo_info.repeat_string.lth) based (memo_info.repeat_string.ptr);
27 dcl  memo_expiration_string char (memo_info.expiration_string.lth) based (memo_info.expiration_string.ptr);
28 dcl  memo_class_name char (memo_info.class_name.lth) based (memo_info.class_name.ptr);
29 
30 dcl  MEMO_INFO_VERSION_1 fixed bin internal static options (constant) init (1);
31 dcl  MEMO_INFO_VERSION fixed bin internal static options (constant) init (1);
32 
33 /*        END INCLUDE FILE memo_info.incl.pl1               */