Anzeige der Programmdokumentation

Mit dem Baustein RS_TOOL_ACCESS oder DSYS_SHOW kann die Programmdokumentation angezeigt werden. Die erfolgt jedoch nur als „Liste“. Schöner ist es mit der folgenden Lösung, mit der eine Programmdokumenation gleich als Druckvorschau angezeigt wird

Beispiel

Eine Vorschau der Programmdokumentation

Info

Die Absatzformate werden grafisch ansprechend angezeigt. Fettschrift ist auch als solche zu erkennen. Auch die Überschriften U1 und U2 werden umgesetzt.

Coding

DATA lt_tlines TYPE STANDARD TABLE OF tline.
DATA ls_head TYPE thead.
DATA ls_opt TYPE itcpo.
DATA ls_dokil TYPE dokil.

*** Get index
CALL FUNCTION ‚DOCU_EXIST_CHECK‘
EXPORTING
    id         = ‚RE‘
    langu      = sy-langu
    object     = ‚ZZMYREPORT‘
    typ        = ‚ ‚
IMPORTING
    docu_index = ls_dokil
EXCEPTIONS
    OTHERS     = 5.

IF sy-subrc = 0.
*** Read docu lines
CALL FUNCTION ‚DOCU_READ‘
    EXPORTING
      id      = ls_dokil-id
      langu   = ls_dokil-langu
      object = ls_dokil-object
      typ     = ls_dokil-typ
      version = ls_dokil-version
    IMPORTING
      head    = ls_head
    TABLES
      line    = lt_tlines.

*** Read printer options
SELECT SINGLE spld FROM usr01 INTO ls_opt-tddest
WHERE bname = sy-uname.
IF ls_opt-tddest IS INITIAL.
ls_opt-tddest = ‚LOCL‘.
ENDIF.
ls_opt-tdprinter = ‚PRINTER‘.
ls_opt-tdnoprint = ‚X‘.
ls_opt-tdpreview = ‚X‘.

*** Call preview
CALL FUNCTION ‚PRINT_TEXT‘
    EXPORTING
      device = ‚PRINTER‘
      dialog = ‚ ‚
      header = ls_head
      OPTIONS = ls_opt
    TABLES
      lines   = lt_tlines
    EXCEPTIONS
      OTHERS = 11.

ENDIF.