Startseite Beiträge getaggt mit "progname"

Schlagwort: progname

[ABAP] Varianten eines Reports lesen 

* Suchhilfe PROGNAME einbinden
PARAMETERS: p_report TYPE varid-report MATCHCODE OBJECT progname DEFAULT sy-repid.
PARAMETERS: p_langu TYPE t002-spras DEFAULT sy-langu.

START-OF-SELECTION.

* Varianten des Reports in den Tabellen VARID (Variantenkatalog) und VARIT (Variantentexte) suchen
* die gefundenen Tabelleninhalte werden in der Ausgabetabelle it_variants als getrennte
* Strukturen V und VT gespeichert
  SELECT FROM varid AS v
    INNER JOIN varit AS vt ON ( v~report EQ vt~report AND v~variant EQ vt~variant )
    FIELDS v~*, vt~*
    WHERE v~mlangu = @p_langu
      AND vt~langu = @p_langu
      AND v~report = @p_report
    INTO TABLE @DATA(it_variants).

  IF sy-subrc = 0.
* Hier Objekte für die Ausgabe hinzufügen
    cl_demo_output=>write_data( it_variants ).

* HTML-Code vom Demo-Output holen
    DATA(lv_html) = cl_demo_output=>get( ).

* Daten im Inline-Browser im SAP-Fenster anzeigen
    cl_abap_browser=>show_html( EXPORTING title       = |Varianten des Reports { p_report }|
                                          html_string = lv_html
                                          container   = cl_gui_container=>default_screen ).

* cl_gui_container=>default_screen erzwingen
    WRITE: space.
  ELSE.
    WRITE: / |Keine Varianten zu Report { p_report } gefunden.|.
  ENDIF.

[ABAP] Job zu einem Report suchen 

* Tabelle TBTCP (Step-Uebersicht eines Batch-Jobs)

* Reportname
DATA(lv_progname) = VALUE tbtcp-progname( ).
* Einplanungsdatum
DATA(lv_date) = VALUE tbtcp-sdldate( ).
* Einplanungszeit
DATA(lv_time) = VALUE tbtcp-sdltime( ).

SELECT-OPTIONS: so_prog FOR lv_progname.
SELECT-OPTIONS: so_date FOR lv_date.
SELECT-OPTIONS: so_time FOR lv_time.

START-OF-SELECTION.

  SELECT *
    INTO TABLE @DATA(it_job)
    FROM tbtcp
    WHERE progname IN @so_prog
      AND sdldate IN @so_date
      AND sdltime IN @so_time.

* Hier Objekte für die Ausgabe hinzufügen
  cl_demo_output=>write_data( it_job ).

* HTML-Code vom Demo-Output holen
  DATA(lv_html) = cl_demo_output=>get( ).

* Daten im Inline-Browser im SAP-Fenster anzeigen
  cl_abap_browser=>show_html( EXPORTING
                                title        = 'Daten'
                                html_string  = lv_html
                                container    = cl_gui_container=>default_screen ).

* cl_gui_container=>default_screen erzwingen
  WRITE: space.