..3 Printing program

Create a report Z_ICONTABLE_2 and paste below code into it:


REPORT  z_icontable_2.

* declare the context
DATA gt_context  TYPE treemictab .

* fill the context
SELECT *
  INTO TABLE gt_context
  FROM icon
 UP TO 100 ROWS
 WHERE oleng EQ 2 .

* call the form
CALL FUNCTION 'ZXLWB_CALLFORM'
  EXPORTING
    iv_formname        = 'ICONTABLE_2'
    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 .


 



Result of the printing program execution: