*COMDECK IP 
*CALL PBBLOCKTR 
*CALL PBBPM 
*CALL PBDLTS
*CALL PBQUEMAIN 
*CALL PBULTS
*CALL PBACCOUNT 
*CALL PBLOST
