跳过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