{}
{ COMMON DECK BAH$BLOCK_MANAGEMENT_FUNCTIONS}
{}
{    These inline procedures are for use with  faps which process blocked files.
{ The procedures do generalized functions for basic blocking.
{}
{}
