ESRDIRE - Lock Object for ABAP/4 programs

*Lock the program
CALL FUNCTION 'ENQUEUE_ESRDIRE'
EXPORTING
name = 'PT_AR_Interface'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE e009 WITH 'Failed to lock program.'.
ENDIF.