*&---------------------------------------------------------------------*
*& Report  Z_TEST_COME_ONEINSTANCE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_TEST_COME_ONEINSTANCE.



*--- processing ------------------------------------------------------*
START-OF-SELECTION.
* only one instance of this report is allowed at one time
  CALL METHOD cl_swf_utl_report_singleton=>enqueue_report
    EXPORTING
       im_report = SYST-CPROG
    EXCEPTIONS
      OTHERS    = 1.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    LEAVE PROGRAM.
  ENDIF.

 Write :/01 'OK'.