
{ COMMON DECK CMDRESP }

  TYPE
    cmt$response_handler = ^procedure (pp_response_p: ^iot$pp_response;
      detailed_status_p: ^iot$detailed_status;
      pp_number: 1 .. ioc$pp_count;
      VAR status: syt$monitor_status);

?? PUSH (LISTEXT := ON) ??
*copyc IOT$PP_RESPONSE
*copyc IOT$PP_INTERFACE_TABLE
*copyc syt$monitor_status
?? POP ??
