
{ COMMON DECK BAHPMPL }

{   The purpose of this request is to pad the current block from eoi up to
{ the minimum block length.  If the eoi is positioned past the minimum
{ block length for that block, nothing is done.  Otherwise, the block
{ padding character is written in the file up to the minimum block length.
{
{       BAP$PAD_TO_MINBL (FILE_INSTANCE)
{
{ FILE_INSTANCE: (input)  This parameter describes the task file table
{       entry for this instance of open.
{
