*&---------------------------------------------------------------------*
*&  Include           ZEX_O01
*&---------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*&      Module  status_9001  OUTPUT
*&---------------------------------------------------------------------*
*       Screen 9001 PBO
*----------------------------------------------------------------------*
MODULE status_9001 OUTPUT.
  SET PF-STATUS 'MAIN9001'.
  SET TITLEBAR 'TITL9001' WITH '&'.
  PERFORM create_instances.
  PERFORM display_initial.
ENDMODULE.                 " status_9001  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  clear_ok_code  OUTPUT
*&---------------------------------------------------------------------*
MODULE clear_ok_code OUTPUT.
  CLEAR ok_code.
ENDMODULE.                 " clear_ok_code  OUTPUT
