{
{   The purpose of this procedure is to provide a put next record}
{ level access to the record manager.}
{
{        BAP$PUT_NEXT (FILE_IDENTIFIER, CALL_BLOCK, FAP_LAYER_NUMBER, STATUS)}
{
{ FILE_IDENTIFIER: (input) This parameter specifies the file access}
{        identifier established when the file was opened.}
{
{ CALL_BLOCK: (input, output) This parameter specifies the call block}
{        used by the procedure.}
{
{ FAP_LAYER_NUMBER: (input) This parameter specifies the fap layer number.}
{
{ STATUS: (output) This parameter specifies the request status.}
{
