分类: IT职场
2008-07-22 16:07:32
PROCESS BEFORE OUTPUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'ZTC'
MODULE ZTC_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE ZTC_CHANGE_COL_ATTR.
INTO GS_ZKEVIN
WITH CONTROL ZTC
CURSOR ZTC-CURRENT_LINE.
MODULE ZTC_GET_LINES.
*&SPWIZARD: MODULE ZTC_CHANGE_FIELD_ATTR
ENDLOOP.
MODULE STATUS_1000.
*
PROCESS AFTER INPUT.
*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'ZTC'
LOOP AT GT_ZKEVIN.
CHAIN.
FIELD GS_ZKEVIN-ID.
FIELD GS_ZKEVIN-NAME.
MODULE ZTC_MODIFY ON CHAIN-REQUEST.
endchain.
FIELD GS_ZKEVIN-LINE
MODULE ZTC_MARK ON REQUEST.
ENDLOOP.
MODULE ZTC_USER_COMMAND.
*&SPWIZARD: MODULE ZTC_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE ZTC_CHANGE_COL_ATTR.
MODULE USER_COMMAND_1000.