{   The purpose of this request is to write an end of partition (EOP)
{ delimiter on a file opened with amc$variable record_type.
{
{       BAP$WRITE_END_PARTITION (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) This paramter specifies the call block
{        used by this request.
{
{ FAP_LAYER_NUMBER: (input) This parameter specifies the index into the
{        fap_control_information for this layer.
{
{ STATUS: (output) This parameter specifies the request status. THis is
{        the application's status variable.
{
