Anzeige Shortdump

Code: Alles auswählen.

* Include MS380F10
top-of-page.

  case sy-pfkey.
    when 'SNAL'.
      perform page_top_snal.
    when 'STIT'.
*     no top of page
    when others.
* no top of page in case of no ST22 auth
      if authorization_st22 is initial. return. endif.
      perform page_top.
  endcase.

Code: Alles auswählen.

* INCLDUE MS380F10 FORM display_list
    authority-check object 'S_DEVELOP'
      id 'OBJTYPE'  field l_objtype
      id 'ACTVT'    field l_actvt
      id 'DEVCLASS' dummy
      id 'OBJNAME'  dummy
      id 'P_GROUP'  dummy.
    if sy-subrc = 0 and snap_sd ne 'X'.
      move-corresponding snap to l_snap_key.
      set parameter id 'RABAX_ID_IN_DEBUGGER' field l_snap_key.
      set pf-status 'RLST'.
    else.
      set pf-status 'RLST' excluding 'DEBU'.
    endif.

Code: Alles auswählen.

form display_user_expl_silent.

 data:
     l_snapt_key        type snapt-errid value 'GENERAL_SHORT_ONLINE_DISPLAY'.

  perform write_paragraph_header using 'Was ist passiert?'(201) 'Kap1' 0. "#EC NOTEXT
  perform read_snapt using l_snapt_key 'W'.

  if lines( text_out[] ) <= 0.
    clear text_out[].
    text_out-line = 'Programmabbruch'(x01).
    append text_out.
  endif.

  perform write_text_out.
  perform display_attr_silent.
  perform write_paragraph_end using 0.
endform.[/quote]

Und hier der Text dazu:
[attachment=0]01_24_12_49_29.jpg[/attachment]

Das scheint dann auch tatsächlich das Ganze Geheimnis zu sein:
[code]
*** sec-120
* if the current user is not authorized to call tx ST22,
* only display a brief notification
      authorization_st22 = cl_st22_tools=>check_user_authorization_st22( ).
      if authorization_st22 <> 'X'.
        if not rabax_active is initial.
          perform display_list_silent_live.
        else.
          perform display_list_silent.
        endif.