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.

 

Enno Wulff

Leave a Comment