1 /* BEGIN mdbm_arg_list.incl.pl1 -- jaw 5/31/78 */
 2 /* the duplicate mrds_arg_list.incl.pl1 was eliminated by Jim Gray, Nov. 1979 */
 3 
 4 /* layout of argument list for IDS and DBM entries with options (variable) */
 5 
 6 dcl 1 arg_list based (al_ptr),
 7     2 arg_count fixed bin (17) unal,                        /* 2 * no. of args. */
 8     2 code fixed bin (17) unal,                             /* 4 => normal, 8 => special */
 9     2 desc_count fixed bin (17) unal,                       /* 2 * no. of descriptors */
10     2 pad fixed bin (17) unal,                              /* must be 0 */
11     2 arg_des_ptr (num_ptrs) ptr;                           /* argument/descriptor pointer */
12 
13 dcl  al_ptr ptr;
14 dcl  num_ptrs fixed bin;
15 
16 /* END mdbm_arg_list.incl.pl1  */
17