?? RIGHT := 110 ??
*copyc osd$default_pragmats
?? NEWTITLE := 'Module iim$st_clr_input_output_counts' ??
?? NEWTITLE := 'Global Declarations' ??
MODULE iim$st_clr_input_output_counts;
?? PUSH (LISTEXT := ON) ??
*copyc iit$connection_description
*copyc iiv$connection_desc_ptr
*copyc osc$timesharing_terminal_file
*copyc ost$status
?? POP ??

?? TITLE := '[XDCL] iip$st_clr_input_output_counts', EJECT ??

  PROCEDURE [XDCL, #GATE] iip$st_clr_input_output_counts
     (VAR status: ost$status);

    VAR
      connection_desc_ptr: ^iit$connection_description;

    status.normal := true;
    IF iiv$connection_desc_ptr = NIL THEN
      RETURN;
    ELSE
      connection_desc_ptr := iiv$connection_desc_ptr;
      WHILE connection_desc_ptr <> NIL DO
        IF connection_desc_ptr^.session_layer_file_name =
          osc$timesharing_terminal_file THEN
          connection_desc_ptr^.job_input_count := 0;
          connection_desc_ptr^.job_output_count := 0;
        IFEND;
        connection_desc_ptr := connection_desc_ptr^.next_connection_desc_ptr;
      WHILEND;
    IFEND;
  PROCEND iip$st_clr_input_output_counts;

MODEND iim$st_clr_input_output_counts;
