PROC doit_mock (
  this_mainframe_is, tmi    : key client, server, both, loop = loop
  connection_type, ct       : key mock, cdcnet = mock
   status                    : var of status = $optional
  )

  ELSEIF $string($value(connection_type)) = 'MOCK' THEN
    IF $string($value(this_mainframe_is)) <> 'LOOP' THEN
      EXIT_PROC WITH $status(false, 'GS', 01, 'LOOP REQUIRED WITH MOCK')
    IFEND
    define_client $name(clienta) 1 2 $value(mqe) $value(tqe) mock mock_driver
    define_server (testve608 testing) $name(servera) 1 2 $value(mqe) $value(tqe) mock ..
          mock_driver ..
          $value(ti) $value(mrtc) $value(mrc)
    disv ' Activation of client and server required '
    initiate_test_driver
    set_queue_location mock, mock_driver 1
COLLECT_TEXT, mock_driver
    task,mock_driver
      execute_task sp=dfp$initiate_test_driver p='c=on'
    taskend
**
    disv ' Include_file mock_driver '
  ELSE " CDCNET "
    " Get the file server applications registered with cdcnet "
    IF $job(user) = '$SYSTEM' THEN
      MANAGE_NETWORK_APPLICATIONS
        IF ($string($value(this_mainframe_is)) = 'CLIENT') THEN
          client_title = 'DF_CLIENT_1'
        ELSEIF ($string($value(this_mainframe_is)) = 'SERVER') THEN
          server_title = 'DF_SERVER_1'
        ELSE " LOOP "
          client_title = 'DF_CLIENT_1'
          server_title = 'DF_SERVER_1'
        IFEND

        create_variable server_title_status status
        IF ($string($value(this_mainframe_is)) = 'LOOP') OR ..
              ($string($value(this_mainframe_is)) = 'SERVER') THEN
          display_server_status $name(server_title) status=server_title_status
          IF server_title_status.normal THEN
            disv 'server already registered '//server_title
          ELSE
            DEFINE_SERVER $name(server_title) protocol=cdna_session ..
                  nam_initiated=false
              add_title $name(server_title)
              change_accept_connection true
            QUIT
            activate_server $name(server_title)
            display_server_status
          IFEND
        IFEND

        IF ($string($value(this_mainframe_is)) = 'LOOP') OR ..
              ($string($value(this_mainframe_is)) = 'CLIENT') THEN
          display_client_status $name(client_title) status=server_title_status
          IF server_title_status.normal THEN
            disv ' client already registered '//client_title
          ELSE
            DEFINE_CLIENT $name(client_title) protocol=cdna_session
            QUIT
            activate_client $name(client_title)
            display_client_status
          IFEND
        IFEND
      QUIT
    IFEND
    " Register the client/server with the file server "

COLLECT_TEXT, server_task sm='%'
  task,server
    exet sp=dftu
      define_client %clienta% 1 1 %$strrep($value(mqe))%  %$strrep($value(tqe))% cdcnet cdcnet_server
      execd
  taskend
**

COLLECT_TEXT, client_task sm='%'
  task,client
    exet sp=dftu
      define_server (testve608 testing) %servera% 1 1 %$strrep($value(mqe))% %$strrep($value(tqe))% ..
        cdcnet cdcnet_client ..
        $value(ti) $value(mrtc) $value(mrc)
      execd
  taskend
**

    IF $string($value(this_mainframe_is)) = 'CLIENT' THEN
      disv ' Include_file client_task '
    ELSEIF $string($value(this_mainframe_is)) = 'SERVER' THEN
      disv ' Include_file server_task '
    ELSE "LOOP "
      disv ' Include_file server_task '
      disv ' Include_file client_task '
    IFEND
  IFEND

 PROCEND doit_mock;
