1 /* Begin include file packed_pointer.incl.pl1 BIM 830510 */
2 
3 declare packed_pointer_ptr pointer;
4 declare 1 packed_pointer aligned based (packed_pointer_ptr),
5           2 bitno fixed bin (6) unsigned unaligned,
6           2 segno fixed bin (12) unsigned unaligned,
7           2 wordno fixed bin (18) unsigned unaligned;
8 
9 /* End include file packed_pointer.incl.pl1 */