Listenansicht | Die Codezentrale

SAP ABAP Archive nach Kategorien "Listenansicht" (Seite 2)

[ABAP] Icons und Symbole darstellen

* Anzeige aller Symbole mit Report: SHOWSYMB

WRITE: / 'Telefon:', sym_phone AS SYMBOL.
WRITE: / 'Alarm:  ', icon_alarm AS ICON.

[ABAP] PopUp-Fenster für Datumsauswahl (Kalender) anzeigen

Variante 1 (Monatskalender, Monat und Jahr wählbar)

DATA: lv_dat TYPE sy-datum.
  
CALL FUNCTION 'F4_DATE'
  IMPORTING
    select_date                  = lv_dat
  EXCEPTIONS
    calendar_buffer_not_loadable = 1
    date_after_range             = 2
    date_before_range            = 3
    date_invalid                 = 4
    factory_calendar_not_found   = 5
    holiday_calendar_not_found   = 6
    parameter_conflict           = 7
    OTHERS                       = 8.

Variante 2 (Jahreskalender, scrollbar)

DATA: lv_dat TYPE sy-datum.
  
CALL FUNCTION 'POPUP_CALENDAR_SDB'
  EXPORTING
    sel_day    = abap_true
    focus_day  = sy-datum
  IMPORTING
    begin_date = lv_dat.

[ABAP] Text-Editor (Textanzeige, Texteingabe) als Popup-Fenster anzeigen

Variante 1 (führt Wordwrap bei Pos. 72 durch)

DATA: it_textlines TYPE STANDARD TABLE OF string.

...

CALL FUNCTION 'TERM_CONTROL_EDIT'
  EXPORTING
    titel          = 'Titel'
    langu          = sy-langu
  TABLES
    textlines      = it_textlines
  EXCEPTIONS
    user_cancelled = 1
    OTHERS         = 2.

IF sy-subrc = 0.

ENDIF.

Variante 2 (maximale Zeilenlänge sind 72 Zeichen)

DATA: it_text TYPE catsxt_longtext_itab.

...

CALL FUNCTION 'CATSXT_SIMPLE_TEXT_EDITOR'
  EXPORTING
    im_title        = 'Title'
    im_display_mode = ' ' " 'X' -> ReadOnly
    im_start_column = 10
    im_start_row    = 10
  CHANGING
    ch_text         = it_text.         " Tabelle mit Text

[ABAP] Eingabedialog für String-Werte (Property, Value) als PopUp-Fenster anzeigen

DATA: lv_changed TYPE as4flag.
DATA: lv_name TYPE string VALUE 'Horst'.

CALL FUNCTION 'CC_POPUP_STRING_INPUT'
  EXPORTING
    property_name = 'Namen eingeben:'
  IMPORTING
    value_changed = lv_changed
  CHANGING
    string_value  = lv_name.

IF lv_changed = abap_true.
  WRITE: / lv_name.
ENDIF.

[ABAP] Eingabedialog für Integer-Werte (Property, Value) als PopUp-Fenster anzeigen

DATA: lv_changed TYPE as4flag.
DATA: lv_value TYPE i VALUE 1.

CALL FUNCTION 'CC_POPUP_INT_INPUT'
  EXPORTING
    property_name = 'Wert eingeben:'
  IMPORTING
    value_changed = lv_changed
  CHANGING
    int_value     = lv_value.

IF lv_changed = abap_true.
  WRITE: / lv_value.
ENDIF.

[ABAP] Inhalt einer internen Tabelle in einem PopUp-Fenster anzeigen

Variante 1 (Rechtsklick im PopUp zeigt Funktionsmenü)

CALL FUNCTION 'POPUP_WITH_TABLE'
  EXPORTING
    endpos_col   = 160
    endpos_row   = 40
    startpos_col = 1
    startpos_row = 1
    titletext    = 'Titel'
*           IMPORTING
*             CHOICE       =
  TABLES
    valuetab     = itab " darf nur eine Spalte beinhalten 
  EXCEPTIONS
    break_off    = 1
    OTHERS       = 2.
IF sy-subrc = 0.

ENDIF.

Variante 2 (Darstellung max. 80 Zeichen breit)

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY_OK'
  EXPORTING
    endpos_col   = 160
    endpos_row   = 40
    startpos_col = 1
    startpos_row = 1
    titletext    = 'Titel'
  tables
    valuetab     = itab " darf nur eine Spalte beinhalten 
  EXCEPTIONS
    break_off    = 1
    OTHERS       = 2.
IF sy-subrc = 0.

ENDIF.

[ABAP] lokale IP-Adresse auslesen

WRITE: / cl_gui_frontend_services=>get_ip_address( ).

[ABAP] Umgebungsvariablen eines Servers auflisten

DATA: lv_env TYPE spfl_environment_list_t.
DATA: lv_ret TYPE i.

lv_ret = cl_spfl_environment=>get_list( IMPORTING env = lv_env ).

IF lv_rc = 0.
  LOOP AT lv_env INTO DATA(wa_env).
    WRITE: / wa_env-name, wa_env-value.
  ENDLOOP.
ENDIF.

[ABAP] Angemeldete Benutzer eines Application-Servers auflisten

DATA: it_uinfo TYPE TABLE OF uinfo.
DATA: it_usrinfo TYPE TABLE OF usrinfo.

CALL FUNCTION 'TH_USER_LIST'
  TABLES
    list = it_uinfo       " wenn auskommentiert, dann wird usrlist zurückgegeben, sonst nur list
    usrlist = it_usrinfo.

LOOP AT it_uinfo INTO DATA(wa_uinfo).
  WRITE: / wa_uinfo-tid,
          wa_uinfo-mandt,
          wa_uinfo-bname,
          wa_uinfo-tcode,
          wa_uinfo-term,
          wa_uinfo-zeit,
          wa_uinfo-master,
          wa_uinfo-hostadr,
          wa_uinfo-trace,
          wa_uinfo-extmodi,
          wa_uinfo-intmodi,
          wa_uinfo-type,
          wa_uinfo-stat,
          wa_uinfo-protocol,
          wa_uinfo-guiversion,
          wa_uinfo-rfc_type.
ENDLOOP.

LOOP AT it_usrinfo INTO DATA(wa_usrinfo).
  WRITE: / wa_usrinfo-tid,
          wa_usrinfo-mandt,
          wa_usrinfo-bname,
          wa_usrinfo-tcode,
          wa_usrinfo-term,
          wa_usrinfo-zeit,
          wa_usrinfo-master,
          wa_usrinfo-trace,
          wa_usrinfo-extmodi,
          wa_usrinfo-intmodi,
          wa_usrinfo-type,
          wa_usrinfo-stat,
          wa_usrinfo-protocol,
          wa_usrinfo-guiversion,
          wa_usrinfo-rfc_type,
          wa_usrinfo-hostaddr.
ENDLOOP.

[ABAP] Userinfo anzeigen

DATA: lv_hostaddr TYPE msxxlist-hostadr.
DATA: lv_terminal TYPE c.
DATA: lv_act_sessions TYPE sm04dic-counter.
DATA: lv_max_sessions TYPE sm04dic-counter.
DATA: lv_my_session TYPE sm04dic-counter.
DATA: lv_my_internal_session TYPE sm04dic-counter.
DATA: lv_task_state TYPE sm04dic-counter.
DATA: lv_update_rec_exist TYPE thfb_bool.
DATA: lv_tid TYPE sy-index.
DATA: lv_gui_check_failed TYPE sy-index.
DATA: lv_addrstr TYPE ni_nodeaddr.
DATA: lv_rc TYPE i.

CALL FUNCTION 'TH_USER_INFO'
  EXPORTING
    client              = sy-mandt
    user                = sy-uname
    check_gui           = 0
  IMPORTING
    hostaddr            = lv_hostaddr
    terminal            = lv_terminal
    act_sessions        = lv_act_sessions
    max_sessions        = lv_max_sessions
    my_session          = lv_my_session
    my_internal_session = lv_my_internal_session
    task_state          = lv_task_state
    update_rec_exist    = lv_update_rec_exist
    tid                 = lv_tid
    gui_check_failed    = lv_gui_check_failed
    addrstr             = lv_addrstr
    RC                  = lv_rc.

IF lv_rc = 0.
  WRITE: / 'Hostaddr', lv_hostaddr.
  WRITE: / 'Terminal', lv_terminal.
  WRITE: / 'Anzahl Sessions offen:', lv_act_sessions.
  WRITE: / 'Max. Anzahl Sessions:', lv_max_sessions.
  WRITE: / 'Akt. Session:', lv_my_session.
  WRITE: / 'My Internal Session', lv_my_internal_session.
  WRITE: / 'Task State', lv_task_state.
  WRITE: / 'Update Rec Exist', lv_update_rec_exist.
  WRITE: / 'TID', lv_tid.
  WRITE: / 'Gui Check Failed', lv_gui_check_failed.
  WRITE: / 'IP-Adresse: ', lv_addrstr.
ENDIF.

Kategorie: Listenansicht

[ABAP] Icons und Symbole darstellen

[ABAP] PopUp-Fenster für Datumsauswahl (Kalender) anzeigen

Variante 1 (Monatskalender, Monat und Jahr wählbar)

Variante 2 (Jahreskalender, scrollbar)

[ABAP] Text-Editor (Textanzeige, Texteingabe) als Popup-Fenster anzeigen

Variante 1 (führt Wordwrap bei Pos. 72 durch)

Variante 2 (maximale Zeilenlänge sind 72 Zeichen)

[ABAP] Eingabedialog für String-Werte (Property, Value) als PopUp-Fenster anzeigen

[ABAP] Eingabedialog für Integer-Werte (Property, Value) als PopUp-Fenster anzeigen

[ABAP] Inhalt einer internen Tabelle in einem PopUp-Fenster anzeigen

Variante 1 (Rechtsklick im PopUp zeigt Funktionsmenü)

Variante 2 (Darstellung max. 80 Zeichen breit)

[ABAP] lokale IP-Adresse auslesen

[ABAP] Umgebungsvariablen eines Servers auflisten

[ABAP] Angemeldete Benutzer eines Application-Servers auflisten

[ABAP] Userinfo anzeigen

Kategorien

Neueste Beiträge

Archiv

Meta

Variante 1 (Monatskalender, Monat und Jahr wählbar)

Variante 2 (Jahreskalender, scrollbar)

Variante 1 (führt Wordwrap bei Pos. 72 durch)

Variante 2 (maximale Zeilenlänge sind 72 Zeichen)

Variante 1 (Rechtsklick im PopUp zeigt Funktionsmenü)

Variante 2 (Darstellung max. 80 Zeichen breit)

Kategorien

Neueste Beiträge

Archiv

Meta

Related Posts

Tags