{
{    The purpose of this procedure is to receive a segment sent by the
{ dfp$send_client_rpc_segment request.  If no segment has been sent then an
{ error status is returned.  This procedure must be called from the users
{ procedure on the server mainframe that was called as a result of the client
{ call dfp$send_remote_procedure_call.  The segment must be freed explictly
{ by the DFP$DELETE_CLIENT_RPC_SEGMENT.
{
{    It is the responsibility of the caller of DFP$RECEIVE_CLIENT_RPC_SEGMENT
{ to use the parameter area of dfp$send_remote_procedure_call to provide any
{ information required to read this transient segment.
{
{       DFP$RECEIVE_CLIENT_RPC_SEGMENT (P_SEQ, STATUS)
{
{ P_SEQ: (output)  This parameter returns the pointer to the transient segment.
{       This segment is a copy of the segment specified with
{       dfp$send_client_rpc_request.  The size of the sequence is the highest
{       offset sent from the client.
{
{ STATUS: (output) This parameter returns the request status.
{       CONDITIONS:
{             dfe$no_segment_reserved
{
