
{ COMMON DECK BAHPADR }

{   The purpose of this request is to pad a record with a padding character.
{
{       BAP$PAD_RECORD (WORKING_STORAGE_AREA, PAD_LENGTH, PADDING_CHARACTER)
{
{ WORKING_STORAGE_AREA: (input)  This parameter specifies a pointer to the
{      area to be padded.
{
{ PAD_LENGTH: (input) This parameter specifies the length in bytes of data to
{      be padded.
{
{ PADDING_CHARACTER: (input) This parameter specifies the padding character.
{
