Lock ABAP program.

1. Dialog / Background 모두 가능.

FUNCTION zlock_program.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(IV_PROG) TYPE  CSEQUENCE
*"     REFERENCE(IV_LOCK) TYPE  BOOLE_D DEFAULT ' '
*"  EXPORTING
*"     REFERENCE(EV_SUBRC) TYPE  SY-SUBRC
*"----------------------------------------------------------------------

  DATA : lv_name TYPE indx-srtfd,
         lv_text TYPE char100.

  lv_name = iv_prog.

  CASE iv_lock.
    WHEN 'X'.
      CALL FUNCTION 'ENQUEUE_ESINDX'
        EXPORTING
          mode_indx      = 'E'
          mandt          = sy-mandt
          relid          = 'ZZ'
          srtfd          = lv_name
        EXCEPTIONS
          foreign_lock   = 1
          system_failure = 2
          OTHERS         = 3.

      ev_subrc = sy-subrc.
      IF sy-subrc <> 0.
        CONCATENATE lv_name 'is currently running by' sy-msgv1
               INTO lv_text
          SEPARATED BY space.

        IF sy-batch IS NOT INITIAL.
          WRITE /: lv_text.
        ENDIF.
        MESSAGE lv_text TYPE 'E'.
      ENDIF.
    WHEN OTHERS.
  ENDCASE.


ENDFUNCTION.