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.