..3 Программа печати
Создайте отчет Z_DYNTABLE и скопируйте в него этот код:
REPORT z_dyntable .
* declare the context
DATA gt_context TYPE zcontext_dyntable .
* fill the context
PERFORM fill_context .
* call the form
CALL FUNCTION 'ZXLWB_CALLFORM'
EXPORTING
iv_formname = 'DYNTABLE'
iv_context_ref = gt_context
EXCEPTIONS
process_terminated = 1
OTHERS = 2.
IF sy-subrc NE 0 .
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
ENDIF .
*&---------------------------------------------------------------------*
*& Form fill_context
*&---------------------------------------------------------------------*
FORM fill_context .
DATA:
ls_row TYPE zcontext_dyntable_row ,
ls_cell TYPE zcontext_dyntable_cell ,
lv_rows_number TYPE i ,
lv_cols_number TYPE i ,
lv_index_row TYPE char10 ,
lv_index_col TYPE char10 .
CALL FUNCTION 'BKK_RANDOM'
EXPORTING
i_modulo = 100
IMPORTING
e_random_number = lv_rows_number.
CALL FUNCTION 'BKK_RANDOM'
EXPORTING
i_modulo = 100
IMPORTING
e_random_number = lv_cols_number.
DO lv_rows_number TIMES .
lv_index_row = sy-index .
CLEAR ls_row .
DO lv_cols_number TIMES .
lv_index_col = sy-index .
CLEAR ls_cell .
CONCATENATE 'Cell' lv_index_row
'/' lv_index_col
INTO ls_cell-value SEPARATED BY space .
CONDENSE ls_cell-value .
APPEND ls_cell TO ls_row-cells .
ENDDO .
APPEND ls_row TO gt_context .
ENDDO .
ENDFORM . "fill_context