FORM FRM_DISPLAY .
DATA: WS_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
WS_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: NN TYPE I VALUE 0.
DEFINE HOUT.
NN = NN + 1.
WS_FIELDCAT-TABNAME = 'IT_PICKLIST'.
WS_FIELDCAT-FIELDNAME = &1.
WS_FIELDCAT-SELTEXT_M = &2.
WS_FIELDCAT-COL_POS = NN.
WS_FIELDCAT-OUTPUTLEN = &3.
WS_FIELDCAT-LZERO = 'X'.
WS_FIELDCAT-CHECKBOX = &4.
WS_FIELDCAT-EDIT = &5.
WS_FIELDCAT-DATATYPE = &6.
WS_FIELDCAT-INTTYPE = &7.
APPEND WS_FIELDCAT.
CLEAR WS_FIELDCAT.
END-OF-DEFINITION.
HOUT 'BDMNG' '需求數量' 18 '' '' '' ''.
HOUT 'SJMNG' '實揀數量' 18 '' 'X' 'QUAN' 'C'.
HOUT 'MEINS' '單位' 3 '' '' '' ''.
WS_LAYOUT-WINDOW_TITLEBAR = TEXT-006.
WS_LAYOUT-GET_SELINFOS = ''.
WS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
WS_LAYOUT-DETAIL_POPUP = 'X'.
WS_LAYOUT-NO_KEYFIX = 'X'.
WS_LAYOUT-BOX_FIELDNAME = 'BOX'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'FRM_MENU_SET'
IS_LAYOUT = WS_LAYOUT
I_CALLBACK_USER_COMMAND = 'FRM_USER_COMMAND'
IT_FIELDCAT = WS_FIELDCAT[]
I_SAVE = 'X'
TABLES
T_OUTTAB = IT_PICKLIST[].
ENDFORM. " FRM_DISPLAY