REPORT RSDEMO02. * demostrates the use of table controls * unsolved problems: attributes left_col and v_scroll do not work * correctly TABLES: SPFLI. "flight connections, flights DATA: FCODE2(4), FCODE(4). "ok-code CONTROLS: TC_SPFLI TYPE TABLEVIEW USING SCREEN 100, "flights TC_COLS TYPE TABLEVIEW USING SCREEN 100. "column props DATA: COL TYPE CXTAB_COLUMN. "column of table control TABLES: DEMO_CPROP, DEMO_TPROP. "structures for displaying * global and column specific props DATA: BEGIN OF IT_SPFLI OCCURS 20, "flight connections MARKED. "Check box INCLUDE STRUCTURE SPFLI. DATA: END OF IT_SPFLI. DATA LINNO TYPE I. "line number at cursor position DATA FLD(20). "field name at cursor position DATA OFF TYPE I. "offset of cursor position START-OF-SELECTION. * read flight connections SELECT * FROM SPFLI UP TO 100 ROWS. MOVE-CORRESPONDING SPFLI TO IT_SPFLI. APPEND IT_SPFLI. ENDSELECT. DESCRIBE TABLE IT_SPFLI LINES TC_SPFLI-LINES. TC_COLS-LINES = 6. * display flights with table control CALL SCREEN 100. *&---------------------------------------------------------------------* *& Module FCODE_100 INPUT *&---------------------------------------------------------------------* * handle user command * *----------------------------------------------------------------------* MODULE FCODE_100 INPUT. DATA: FLDNAME(100),FLDNAME2(100),FLDNAME3(100). * copy global property changes made by the user TC_SPFLI-FIXED_COLS = DEMO_TPROP-FIXED_COLS. TC_SPFLI-LINES = DEMO_TPROP-LINES. TC_SPFLI-LINE_SEL_MODE = DEMO_TPROP-LINE_SEL_M. TC_SPFLI-COL_SEL_MODE = DEMO_TPROP-COL_SEL_MO. TC_SPFLI-LINE_SELECTOR = DEMO_TPROP-LINE_SELEC. TC_SPFLI-V_SCROLL = DEMO_TPROP-V_SCROLL. TC_SPFLI-H_GRID = DEMO_TPROP-H_GRID. TC_SPFLI-V_GRID = DEMO_TPROP-V_GRID. FCODE2 = FCODE. CLEAR FCODE. * handle ok code CASE FCODE2. WHEN 'INFO'. "display online docu CALL FUNCTION 'RS_TOOL_ACCESS' EXPORTING OPERATION = 'DOCS' OBJECT_NAME = 'RSDEMO02' OBJECT_TYPE = 'PROG' * ENCLOSING_OBJECT = * position = '1 1' * DEVCLASS = * INCLUDE = * MONITOR_ACTIVATION = 'X' * IMPORTING * NEW_NAME = * TABLES * OBJLIST = EXCEPTIONS NOT_EXECUTED = 1 INVALID_OBJECT_TYPE = 2 OTHERS = 3. WHEN 'SORT'. DATA: FLD_LIST LIKE TC_SPFLI-COLS. * search for selected columns. REFRESH FLD_LIST. LOOP AT TC_SPFLI-COLS INTO COL. IF COL-SELECTED = 'X'. APPEND COL TO FLD_LIST. ENDIF. ENDLOOP. SORT FLD_LIST BY INDEX. CLEAR:FLDNAME, FLDNAME2, FLDNAME3. READ TABLE FLD_LIST INDEX 1 INTO COL. FLDNAME = COL-SCREEN-NAME+9. READ TABLE FLD_LIST INDEX 2 INTO COL. FLDNAME2 = COL-SCREEN-NAME+9. READ TABLE FLD_LIST INDEX 3 INTO COL. FLDNAME3 = COL-SCREEN-NAME+9. SORT IT_SPFLI BY (FLDNAME) (FLDNAME2) (FLDNAME3). WHEN 'BACK'. SET SCREEN 0. LEAVE SCREEN. WHEN 'DELL'. * remove marked lines LOOP AT IT_SPFLI WHERE MARKED = 'X'. DELETE IT_SPFLI. ENDLOOP. IF SY-SUBRC <> 0. GET CURSOR FIELD FLD LINE LINNO OFFSET OFF. SET CURSOR FIELD FLD LINE LINNO OFFSET OFF. IF FLD CP 'IT_SPFLI*' AND SY-SUBRC = 0. LINNO = LINNO + TC_SPFLI-TOP_LINE - 1. DELETE IT_SPFLI INDEX LINNO. TC_SPFLI-LINES = TC_SPFLI-LINES - 1. ENDIF. ENDIF. WHEN 'INSL'. * insert line above cursor position GET CURSOR FIELD FLD LINE LINNO OFFSET OFF. SET CURSOR FIELD FLD LINE LINNO OFFSET OFF. IF FLD CP 'IT_SPFLI*' AND SY-SUBRC = 0. IF LINNO >= 1. LINNO = LINNO + TC_SPFLI-TOP_LINE - 1. CLEAR IT_SPFLI. INSERT IT_SPFLI INDEX LINNO. TC_SPFLI-LINES = TC_SPFLI-LINES + 1. ELSE. CLEAR IT_SPFLI. APPEND IT_SPFLI. TC_SPFLI-LINES = TC_SPFLI-LINES + 1. ENDIF. ENDIF. ENDCASE. ENDMODULE. " FCODE_100 INPUT *&---------------------------------------------------------------------* *& Module INIT_100 OUTPUT *&---------------------------------------------------------------------* * * *----------------------------------------------------------------------* MODULE INIT_100 OUTPUT. SET PF-STATUS 'S100'. * make global props visible MOVE: TC_SPFLI-FIXED_COLS TO DEMO_TPROP-FIXED_COLS, TC_SPFLI-LINES TO DEMO_TPROP-LINES, TC_SPFLI-TOP_LINE TO DEMO_TPROP-TOP_LINE, TC_SPFLI-CURRENT_LINE TO DEMO_TPROP-CURRENT_LI, TC_SPFLI-LEFT_COL TO DEMO_TPROP-LEFT_COL, TC_SPFLI-LINE_SEL_MODE TO DEMO_TPROP-LINE_SEL_M, TC_SPFLI-COL_SEL_MODE TO DEMO_TPROP-COL_SEL_MO, TC_SPFLI-LINE_SELECTOR TO DEMO_TPROP-LINE_SELEC, TC_SPFLI-V_SCROLL TO DEMO_TPROP-V_SCROLL, TC_SPFLI-H_GRID TO DEMO_TPROP-H_GRID, TC_SPFLI-V_GRID TO DEMO_TPROP-V_GRID. ENDMODULE. " INIT_100 OUTPUT *&---------------------------------------------------------------------* *& Module MODIFY_IT_SPFLI INPUT *&---------------------------------------------------------------------* * transport changes to internal table * *----------------------------------------------------------------------* MODULE MODIFY_IT_SPFLI INPUT. MODIFY IT_SPFLI INDEX TC_SPFLI-CURRENT_LINE. ENDMODULE. " MODIFY_IT_SPFLI INPUT *&---------------------------------------------------------------------* *& Module READ_COLS OUTPUT *&---------------------------------------------------------------------* * Read according column property and make it visible * *----------------------------------------------------------------------* MODULE READ_COLS OUTPUT. READ TABLE TC_SPFLI-COLS INDEX TC_COLS-CURRENT_LINE INTO COL. IF SY-SUBRC <> 0. EXIT FROM STEP-LOOP. ENDIF. MOVE: COL-SCREEN-NAME TO DEMO_CPROP-NAME, COL-SCREEN-GROUP1 TO DEMO_CPROP-GROUP1, COL-SCREEN-GROUP2 TO DEMO_CPROP-GROUP2, COL-SCREEN-GROUP3 TO DEMO_CPROP-GROUP3, COL-SCREEN-GROUP4 TO DEMO_CPROP-GROUP4, COL-SCREEN-REQUIRED TO DEMO_CPROP-REQUIRED, COL-SCREEN-INPUT TO DEMO_CPROP-INPUT, COL-SCREEN-OUTPUT TO DEMO_CPROP-OUTPUT, COL-SCREEN-INTENSIFIED TO DEMO_CPROP-INTENS, COL-SCREEN-INVISIBLE TO DEMO_CPROP-INVISIBLEV, COL-SCREEN-LENGTH TO DEMO_CPROP-LENGTH, COL-SCREEN-ACTIVE TO DEMO_CPROP-ACTIVE, COL-INDEX TO DEMO_CPROP-INDEX, COL-SELECTED TO DEMO_CPROP-SELECTED, COL-VISLENGTH TO DEMO_CPROP-VISLENGTH, COL-INVISIBLE TO DEMO_CPROP-INVISIBLEC. ENDMODULE. " READ_COLS OUTPUT *&---------------------------------------------------------------------* *& Module MODIFY_COLS INPUT *&---------------------------------------------------------------------* * text * *----------------------------------------------------------------------* MODULE MODIFY_COLS INPUT. CLEAR COL. READ TABLE TC_SPFLI-COLS INDEX TC_COLS-CURRENT_LINE INTO COL. COL-SCREEN-GROUP1 = DEMO_CPROP-GROUP1. COL-SCREEN-GROUP2 = DEMO_CPROP-GROUP2. COL-SCREEN-GROUP3 = DEMO_CPROP-GROUP3. COL-SCREEN-GROUP4 = DEMO_CPROP-GROUP4. COL-SCREEN-REQUIRED = DEMO_CPROP-REQUIRED. COL-SCREEN-INPUT = DEMO_CPROP-INPUT. COL-SCREEN-OUTPUT = DEMO_CPROP-OUTPUT. COL-SCREEN-INTENSIFIED = DEMO_CPROP-INTENS. COL-SCREEN-INVISIBLE = DEMO_CPROP-INVISIBLEV. COL-SCREEN-LENGTH = DEMO_CPROP-LENGTH. COL-SCREEN-ACTIVE = DEMO_CPROP-ACTIVE. COL-INVISIBLE = DEMO_CPROP-INVISIBLEC. * update column specific property changes made by the user MODIFY TC_SPFLI-COLS INDEX TC_COLS-CURRENT_LINE FROM COL. ENDMODULE. " MODIFY_COLS INPUT