2010年5月11日 星期二

SAP Access Key

覺得Access Key很機車的人,試試看

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. <- Break Point
MOVE SPACE TO DUMMY_KEY.

RC = 0.
ENDFORM. " JUMP_THE_WALL

沒有留言: