CASE RF_UCOMM.
WHEN '&IC1'.
READ TABLE GT_SO INTO GS_SO INDEX RS_SELFIELD-TABINDEX.
CASE RS_SELFIELD-FIELDNAME.
WHEN 'VBELN'.
SET PARAMETER ID 'AUN' FIELD GS_SO-VBELN.
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN .
ENDCASE.
转载于:https://www.cnblogs.com/aurora-cj/p/11480848.html