*----------------------------------------------------------------------*
*  MODULE set_title_9000 OUTPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
module set_title_9000 output.
  set titlebar 'TI_9000'.
endmodule.                 " SET_TITLE_9000  OUTPUT

module set_status_9000 output.
    set pf-status 'ST9000'.
endmodule.                 " SET_TITLE_9000  OUTPUT
