*----------------------------------------------------------------------*
***INCLUDE ZMMI_CRIA_CONFE_STATUS_0001O01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0001 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0001 OUTPUT.
  IF og_principal IS NOT BOUND.
    CREATE OBJECT og_principal.
  ENDIF.

  SET PF-STATUS 'MENU1'.
* SET TITLEBAR 'xxx'.
ENDMODULE.
