

TYPES: BEGIN OF ty_s_flight.
INCLUDE TYPE sflight.
TYPES: color TYPE c LENGTH 4,
status TYPE c LENGTH 1,
fld_color TYPE lvc_t_scol, " ITab 필드 추가
changes_possible TYPE icon-id,
END OF ty_s_flight.
* ITab을 채우기 위한 Work Area 선언
DATA gs_fld_color TYPE LINE OF ty_s_flight-fld_color.
LOOP AT gt_flights INTO gs_flight.
IF gs_flight-fldate(6) EQ sy-datum(6).
gs_flight-color = 'C101'.
ENDIF.
IF gs_flight-planetype EQ '747-400'.
CLEAR gs_fld_color.
gs_fld_color-fname = 'PLANETYPE'.
gs_fld_color-color-col = 6. " 필드 별 색상 부여
gs_fld_color-color-int = 0. " 색상은 상단의 색상 표 사진 참고
gs_fld_color-color-inv = 0.
APPEND gs_fld_color TO gs_flight-fld_color.
ENDIF.
MODIFY gt_flights FROM gs_flight TRANSPORTING color fld_color.
ENDLOOP.
gs_layout-info_fname = 'COLOR'.
gs_layout-ctab_fname = 'FLD_COLOR'.
go_alv_grid->set_table_for_first_display(
EXPORTING
i_structure_name = 'SFLIGHT' " Internal Output Table Structure Name
is_layout = gs_layout
CHANGING
it_outtab = gt_flights " Output Table
).