【IT168 信息化】

    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