1 /*     BEGIN INCLUDE FILE ... lock_array.incl.pl1 */
 2 /* modified BIM 2/82 to clean up */
 3 /* format: style3 */
 4 
 5 dcl       1 pds$lock_array    (0:19) external aligned like pds_entry;
 6 
 7 dcl       1 pds_entry         based,
 8             2 lock_ptr        pointer,
 9             2 event           bit (36) aligned,
10             2 flags           aligned,
11               3 dir_lock      bit (1) unaligned, /* This is a dir read lock */
12               3 one_word      bit (1) unaligned, /* lock$wait */
13               3 pad           bit (34) unaligned, /* else lock$lock_fast */
14             2 caller_ptr      pointer;
15 
16 
17 /*     END INCLUDE FILE ... lock_array.incl.pl1 */