*COMDECK ZEXBIP 
_ 
     **** PAGE NUMBER AND ENTRY POINTS **** 
     **** FOR BIP PROCEDURES REQUIRING **** 
     **** TOP HATS                     **** 
? 
      K0PGBIP := /PGNUM (PBBLOCKTRANSPORT); 
