- 论坛徽章:
- 0
|
跳过SAP Access Key
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
本文来自ChinaUnix博客,如果查看原文请点:http://blog.chinaunix.net/u2/68743/showart_730042.html |
|