{    The purpose of this procedure is to gather data on one mainframe.  The
{ data will be returned via remote procedure call to the caller of the
{ JMP$CLUSTER_GET_LEVELING_DATA request on another mainframe.  This procedure
{ is available as a site hook.
{
{       JMP$MAINFRAME_GET_LEVELING_DATA (SEND_DATA_P, WORK_AREA_P, STATUS);
{
{ SEND_DATA_P: (input)  This parameter is a pointer to a sequence containing
{       data that has been sent from the originating mainframe.  A value of NIL
{       for this parameter indicates that no data was sent.
{
{ WORK_AREA_P: (input, output)  This parameter specifies a pointer to a
{       sequence containing the data to be returned to the originating
{       mainframe.
{
{ STATUS: (output) This is the status of the request.
{    CONDITIONS:
{        None
