1 /* Begin include file as_user_message_add.incl.pl1 BIM 1985-01-12 */
 2 /* format: style4 */
 3 
 4 declare as_user_message_add_info_ptr pointer;
 5 declare 1 as_user_message_add_info aligned based (as_user_message_add_info_ptr),
 6         2 version char (8) aligned,
 7         2 message_info aligned,
 8           3 message_ptr pointer,
 9           3 message_length fixed bin (18),
10           3 pad bit (36) aligned,
11           3 message_access_class bit (72) aligned,
12           3 message_id bit (72) aligned, /* output */
13         2 destination_info aligned,
14           3 group_id char (32) unal, /* stars permitted */
15           3 process_id bit (36) aligned, /* (36)"1"b for ANY */
16           3 handle bit (72) aligned, /* may NOT be zero */
17           3 ring fixed bin (3),
18           3 reader_deletes bit (1) aligned;
19 
20 declare AS_USER_MESSAGE_ADD_INFO_VERSION_1
21         char (8) init ("auma0001") int static options (constant);
22 
23 /* End include file as_user_message_add.incl.pl1 */