{}
{ COMMON DECK BAH$VARIABLE_BLOCK_PROCEDURES }
{}
{     These inline procedures are for use with variable record type, blocked faps.
{ These procedures perform generalized functions for blocking on variable records.
{}
