跳過SAP Access Key

SE38 LSKEYF00 找到  

 

FORM JUMP_THE_WALL USING RC type sysubrc.

  RC = 1.
  CALL 'CHECK_TADIR_ACCESS_FREE'.
  CHECK SY-SUBRC NE 0.
  CHECK SY-BATCH EQ SPACE.
"設定斷點
  CALL 'GET_DEVELOPER_KEY' ID 'NAME'   FIELD 'ABCDEFGHIJKL'
                           ID 'CUSTID' FIELD '1234567890'
                           ID 'KEY'    FIELD DUMMY_KEY.

  CHECK SY-SUBRC EQ 2.                "customer system!
  MOVE SPACE TO DUMMY_KEY.

  RC = 0.
ENDFORM.  
然後執行去執行你需要修改的程式,
在AccessKey check程式LSKEYF00設定斷點.
  你找到.
 FORM JUMP_THE_WALL USING RC.
  RC = 1.
  CALL 'CHECK_TADIR_ACCESS_FREE'.
  CHECK SY-SUBRC NE 0.
  CHECK SY-BATCH EQ SPACE.

  CALL 'GET_DEVELOPER_KEY' ID 'NAME'   FIELD 'ABCDEFGHIJKL'
                           ID 'CUSTID' FIELD '1234567890'
                           ID 'KEY'    FIELD DUMMY_KEY.
-----------------------------------------------
  CHECK SY-SUBRC EQ 2.
***在此設定斷點然後將SY-SUBRC改成0跳過......
-----------------------------------------------        
  MOVE SPACE TO DUMMY_KEY.

  RC = 0.
ENDFORM.                               " JUMP_THE_WALL