SE38 LSKEYF00 找到
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S52 { color: #0000FF; } SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S31 { font-style. italic; color: #808080; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } 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

ITPub博客

跳过SAP Access Key

最新文章