ABAP红绿灯

INCLUDE <ICON>.

...

WRITE: ICON_GREEN_LIGHT AS ICON.
WRITE: ICON_YELLOW_LIGHT AS ICON.

WRITE: ICON_RED_LIGHT AS ICON.

LOOP AT GI_INDEX_ROWS_100 INTO G_SELECTED_ROW_100.
   READ TABLE I_OUT2 INTO I_OUT1 INDEX G_SELECTED_ROW_100.
     ICON_NAME = 'ICON_RED_LIGHT'.
*    LOOP AT I_OUT2 INTO I_OUT1.
     CALL FUNCTION 'ICON_CREATE'
        EXPORTING
          NAME                        = ICON_NAME
          ADD_STDINF                  = 'X'
        IMPORTING
          RESULT                      = I_OUT1-MAKTX
       EXCEPTIONS
         ICON_NOT_FOUND              = 1
         OUTPUTFIELD_TOO_SHORT       = 2
         OTHERS                      = 3
                .
     MODIFY I_OUT2 FROM I_OUT1 INDEX SY-TABIX.
 ENDLOOP.
*READ LINE SY-CUROW FIELD VALUE I_OUT2-MATNR.
ENDFORM.