SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Looking for a default text in programs, transactions, dict.



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP Dictionary
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1639

PostPosted: Sun Feb 03, 2008 2:05 am    Post subject: Looking for a default text in programs, transactions, dict. Reply with quote

Z9GPINFO - Looking for a default text in programs, transactions, dictionary-objects etc..

You can find the missing development objects with this report. It is a helpful program.

Gert Pruser make this examination available to us.

Code:

************************************************************************
*                      n o r d I T  G m b H                            *
************************************************************************
* PROGRAMMNAME:      Z9GP_INFO
* AUTOR:             Gert Pr№ser
* ERSTELLT AM:       05.07.2001                                        *
* ART DES PROGRAMMS: LISTE (X)   BATCH ( )  INCLUDE ( )                *
************************************************************************
* BESCHREIBUNG (ZUS─TZLICH ZUR DOKUMENTATION):                         *
* Der Report durchsucht zum gewфhlten Objekt die Tabellen mit den
* zugehЎrigen Beschreibungstexten, anhand des vom User angegebenen
* Textstrings.
*----------------------------------------------------------------------*
* ─NDERUNGEN / KORREKTUREN:                                            *
* DATUM-------NAME-------------ERL─UTERUNGEN---------------------------*
* 24.10.2002  Gert Pr№ser      Bei der Selektion von SAP-Tabellen wird
*                              nun auch der Tabellentyp mit angezeigt.
*                              TRANSP  = Transparente Tabelle
*                              INTTAB  = Struktur
*                              CLUSTER = Cluster-Tabelle
*                              POOL    = Pool-Tabelle
*                              VIEW    = gen. Viewstruktur
*                              APPEND  = Append-Struktur
************************************************************************

report z9gp_info
*                MESSAGE-ID  YY
                line-size  127
*                LINE-COUNT  65
                no standard page heading.
*----------------------------------------------------------------------*
*        T A B E L L E N                                               *
*----------------------------------------------------------------------*

tables: t002.

*************************** AB REL. 4.6 ********************************
*types: tp_dbtab type dbtab.

*----------------------------------------------------------------------*
*        T Y P E N                                                     *
*----------------------------------------------------------------------*

types:   tp_dd01t    type  dd01t,      "R/3-DD: Texte der Domфnen
         tp_dd02t    type  dd02t,      "R/3-DD: Texte zu SAP-Tabellen
         tp_dd04t    type  dd04t,      "R/3-DD: Texte der Dateneleme
         tp_dd25t    type  dd25t,      "Kurztexte zu Views
         tp_ddtypet  type  ddtypet,    "R/3-DD: Texte zu Typgruppen
         tp_tftit    type  tftit,      "Kurztext eines Funktionsbaustein
         tp_trdirt   type  trdirt,   "Titeltexte zu Programmen in TRDIR
         tp_tstct    type  tstct.      "Transaktionscode-Texte

types: begin of tp_tab,
          name(40) type c,              "Objektname
          text(74) type c,              "Beschreibungstext
          spras    like t002-spras,     "Sprachenschl№ssel
          aktiv    like dd01t-as4local, "AktivierungsKennzeichen
          vers     like dd01t-as4vers,  "Version v. SAP nicht benutzt
          class    like dd02l-tabclass, "Tabellenart
       end of tp_tab.

types: begin of tp_bdc.
        include structure bdcdata.
types: end of tp_bdc.

*----------------------------------------------------------------------*
*        I N T E R N E  D A T E N F E L D E R                          *
*----------------------------------------------------------------------*

* ................. Konstanten.........................................*

constants: con_anze(5)      type c                value '=ANZE',
           con_d            like dd01t-ddlanguage value 'D',
           con_error        type c                value 'E',
           con_execute(7)   type c                value 'EXECUTE',
           con_line(4)      type c                value 'LINE',
*           CON_OBJA(5)      TYPE C                VALUE '=OBJA',
           con_objlist(15)  type c              value '=WB_OBJECT_LIST',
           con_okcode(10)   type c                value 'BDC_OKCODE',
           con_otherobj(16) type c             value '=WB_OTHER_OBJECT',
           con_sa38(4)      type c                value 'SA38',
           con_se11(4)      type c                value 'SE11',
           con_se16(4)      type c                value 'SE16',
           con_se37(4)      type c                value 'SE37',
           con_se38(4)      type c                value 'SE38',
           con_se80(4)      type c                value 'SE80',
           con_se93(4)      type c                value 'SE93',
           con_shop(5)      type c                value '=SHOP',
           con_show(5)      type c                value '=SHOW',
           con_sort_up(7)   type c                value 'SORT_UP',
           con_sort_down(9) type c                value 'SORT_DOWN',
           con_x(1)         type c                value 'X'.

* ................. Globale Variablen..................................*
data: gv_count      type i,
      gv_dynpro     like bdcdata-dynpro,
      gv_field(15)  type c,
      gv_buttonname like bdcdata-fnam,
      gv_fnam       like bdcdata-fnam,
      gv_fval       like bdcdata-fval,
      gv_letter(1)  type c,
      gv_line1(45)  type c,
      gv_line2(45)  type c,
      gv_object(20) type c,
      gv_objname    like tadir-obj_name,
      gv_program    like bdcdata-program,
      gv_titel(20)  type c.

* ................. Ranges f. Selektion(en)............................*

*RANGES ra_sel FOR f.

*----------------------------------------------------------------------*
*        I N T E R N E  T A B E L L E N                                *
*----------------------------------------------------------------------*

* ................. Globale Tabellen...................................*
data: it_bdc      type table of tp_bdc,
      it_tab      type table of tp_tab.


*----------------------------------------------------------------------*
*        F E L D L E I S T E N                                         *
*----------------------------------------------------------------------*

* ................. Globale Strukturen.................................*
data: wa_bdc      type tp_bdc,
      wa_tab      type tp_tab.

*----------------------------------------------------------------------*
*        F E L D - S Y M B O L E                                       *
*----------------------------------------------------------------------*

*FIELD-SYMBOLS: <FS_XXXXX>.               "Doku...

*----------------------------------------------------------------------*
*        A U S W A H L K R I T E R I E N  SELEKTIONSBILD FESTLEGEN     *
*----------------------------------------------------------------------*
selection-screen skip 1.

selection-screen begin of block search with frame title text-s01.
parameters: p_text  like dd01t-ddtext obligatory. "CHAR(60)
select-options: so_spras for t002-spras default con_d
                                        memory id spr. "L─NGE(1)
selection-screen end of block search.

selection-screen skip 1.

selection-screen begin of block ddic with frame title text-s02.
parameters:   p_elemen  radiobutton group obj,
              p_domain  radiobutton group obj,
              p_fb      radiobutton group obj default 'X',
              p_report  radiobutton group obj,
              p_saptab  radiobutton group obj,
              p_tcode   radiobutton group obj,
*              P_TYPGRP  RADIOBUTTON GROUP OBJ,
              p_view    radiobutton group obj.
selection-screen end of block ddic.

selection-screen skip 1.

selection-screen begin of block line with frame title text-s03.
parameters: p_line as checkbox default 'X'.
selection-screen end of block line.
*----------------------------------------------------------------------*
*        V O R S C H L A G S W E R T E    INITIALISIEREN               *
*----------------------------------------------------------------------*

initialization.

  clear:   gv_count,
           gv_dynpro,
           gv_field,
           gv_fnam,
           gv_fval,
           gv_letter,
           gv_line1,
           gv_line2,
           gv_object,
           gv_objname,
           gv_program,
           gv_titel,
           wa_bdc.

  clear:   wa_tab.
  refresh: it_bdc.

*----------------------------------------------------------------------*
*        S E L E K T I O N S B I L D      VERARBEITEN (PBO)            *
*----------------------------------------------------------------------*

*at selection-screen output.


*----------------------------------------------------------------------*
*       S E L E K T I O N S B I L D      VERARBEITEN (PAI)            *
*----------------------------------------------------------------------*

* ................. Verarbeitung gesamt ...............................*
*at selection-screen.

* ................. Verarbeitung fuer Feld <f> ........................*
*AT SELECTION-SCREEN ON f.


*----------------------------------------------------------------------*
*        V E R A R B E I T U N G                                       *
*----------------------------------------------------------------------*
start-of-selection.

*-Setzen des Titels
  set titlebar 'Z01'.

*-Datenbeschaffung
  perform get_data.

*-Ausgabe der Daten
  perform display_data.

*----------------------------------------------------------------------*
*        E N D - V E R A R B E I T U N G                               *
*----------------------------------------------------------------------*

end-of-selection.


*----------------------------------------------------------------------*
*        L I S T - U E B E R S C H R I F T ( E N )                     *
*----------------------------------------------------------------------*

* ................. Ueberschrift Grundliste ...........................*

top-of-page.
  perform top_of_page.

* ................. Ueberschrift Verzweigungsliste(n)..................*

*TOP-OF-PAGE DURING LINE-SELECTION.

*----------------------------------------------------------------------*
*        I N T E R A K T I V E  E R E I G N I S S E                    *
*----------------------------------------------------------------------*

* ................. Funktion 'Pick-Up' (F2)............................*

at line-selection.
  clear:   wa_bdc.
  refresh: it_bdc.
*-Name des DDIC-Objektes abgreifen.
  perform get_cursor_objname.
*-Welches Schweinderl hфtten┤s denn gern?
  case gv_object.
    when text-t01.                     "Datenelemente
*-----SET/GET-Parameter setzen
      set parameter id 'DTYP' field gv_objname.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPMSRD0'     '0102'.    "DYNPRO
      perform bdc_field  using 'RSRD1-DDTYPE' con_x.     "Radiobutton
      perform bdc_field  using con_okcode     con_show.  "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se11 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.

    when text-t11.                     "Domainen
*-----SET/GET-Parameter setzen
      set parameter id 'DOM' field gv_objname.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPMSRD0'   '0102'.     "DYNPRO
      perform bdc_field  using 'RSRD1-DOMA' con_x.      "Radiobutton
      perform bdc_field  using con_okcode   con_show.   "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se11 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.

    when text-t21.                     "Funktionsbausteine
*-----SET/GET-Parameter setzen
      set parameter id 'LIB' field gv_objname.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPMS38L'   '1009'.     "DYNPRO
      perform bdc_field  using con_okcode   con_show.   "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se37 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.

    when text-t31.                     "Reports
*-----SET/GET-Parameter setzen
      set parameter id 'RID' field gv_objname.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPLWBABAP'      '0100'.   "DYNPRO
      perform bdc_field  using 'RS38M-FUNC_EDIT' con_x.    "Radiobutton
      perform bdc_field  using con_okcode        con_shop. "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se38 using it_bdc mode con_error.
                                       "messages

*    when text-t41.                       "SAP-Objekte

    when text-t51.                     "SAP-Tabellen
*-----SET/GET-Parameter setzen
      set parameter id 'DTB' field gv_objname.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPMSRD0'   '0102'.     "DYNPRO
      perform bdc_field  using 'RSRD1-TBMA' con_x.      "Radiobutton
      perform bdc_field  using con_okcode   con_show.   "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se11 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.

*    when text-t61.                       "SQL-Tabellen

    when text-t71.                     "Transaktionscodes
*-----SET/GET-Parameter setzen
      set parameter id 'TCD' field gv_objname.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPLSEUK'  '0390'.   "DYNPRO
      perform bdc_field  using con_okcode  con_show. "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se93 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.

*    WHEN TEXT-T81.                     "Typgruppen
**-----SET/GET-Parameter setzen
*      SET PARAMETER ID 'DOB' FIELD gv_OBJNAME.
**-----F№llen der BDC-itab
*      PERFORM BDC_DYNPRO USING 'SAPMSRD0'   '0102'.       "DYNPRO
*      PERFORM BDC_FIELD  USING 'RSRD1-TYMA' CON_X.        "Radiobutton
*      PERFORM BDC_FIELD  USING CON_OKCODE   CON_SHOW.     "Aktion
**-----Aufruf der Transaktion mit Parameter№bergabe
*      CALL TRANSACTION CON_SE11 USING IT_BDC MODE CON_ERROR.
*                                       "messages
*      SY-LSIND = 0.

    when text-t91.                     "Views
*-----SET/GET-Parameter setzen
      set parameter id 'DVI' field gv_objname.
*--F№llen der BDC-itab
      perform bdc_dynpro using 'SAPMSRD0'   '0102'.       "DYNPRO
      perform bdc_field  using 'RSRD1-VIMA' con_x.        "Radiobutton
      perform bdc_field  using con_okcode   con_show.     "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se11 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.
    when others.
  endcase.
* ................. Funktionstasten ...................................*

at user-command.
  clear:   wa_bdc.
  refresh: it_bdc.
*-Cursorposition ermitteln
  perform get_cursor_objname.
*-Welches Schweinderl hфtten┤s denn gern?
  case sy-ucomm.
*---Sortieren der Liste nach Userwunsch
    when con_sort_up or con_sort_down.      "Entscheidung, ob auf- oder
      get cursor field gv_field.           "abwфrts, fфllt in der
      if gv_field+7(5) = 'SPRAS'.          "Form-Routine
        perform sort_tab tables it_tab using gv_field+7(5).
      else.
        perform sort_tab tables it_tab using gv_field+7(5).
      endif.
      perform top_of_page.
      perform display_data.
      sy-lsind = 0.

    when con_sa38.                     "ABAP-Programmausf№hrung
*-----SET/GET-Parameter setzen
      set parameter id 'RID' field gv_objname.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPMS38M'   '0101'.     "DYNPRO
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_sa38 using it_bdc mode con_error.
                                       "messages

    when con_se11.                     "Data Dictionary
*-----Variablenvorbelegung f№r den jeweils zu setzenden Radiobutton
      perform set_buttonname_parameter.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPMSRD0'     '0102'.     "DYNPRO
      perform bdc_field  using gv_buttonname con_x.      "Radiobutton
      perform bdc_field  using con_okcode     con_show.   "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se11 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.

    when con_se16.                     "Data Browser
*-----SET/GET-Parameter setzen
      set parameter id 'DTB' field gv_objname.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPLSETB'  '0230'.     "DYNPRO
      perform bdc_field  using con_okcode  con_anze.   "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se16 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.

    when con_se37.                     "Function Builder
*-----SET/GET-Parameter setzen
      set parameter id 'LIB' field gv_objname.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPMS38L'   '1009'.     "DYNPRO
      perform bdc_field  using con_okcode   con_show.   "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se37 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.

    when con_se38.                     "ABAP-Editor
*-----SET/GET-Parameter setzen
      set parameter id 'RID' field gv_objname.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPLWBABAP'        '0100'.   "DYNPRO
      perform bdc_field  using 'RS38M-FUNC_EDIT' con_x.    "Radiobutton
      perform bdc_field  using con_okcode        con_shop. "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se38 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.

    when con_se80.                     "Object Navigator
*-----SET/GET-Parameter setzen
      set parameter id 'RID' field gv_objname.
**-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPLWB_INITIAL_TOOL' '0100'.  "DYNPRO
      perform bdc_field  using con_okcode con_otherobj.       "Aktion
*      PERFORM BDC_DYNPRO USING 'SAPLSEWB'  '0500'.            "DYNPRO
      perform bdc_dynpro using 'SAPLSEWB_CONTROL'  '0520'.    "DYNPRO
      perform bdc_field  using 'RSEUX-RID'  con_x.          "Radiobutton
      perform bdc_field  using 'RSEUX-EP_VALUE' gv_objname. "Feldinhalt
      perform bdc_field  using con_okcode   con_show.          "Aktion
      perform bdc_field  using con_okcode   con_objlist.       "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se80 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.

    when con_se93.                     "Transaktionspflege
*-----SET/GET-Parameter setzen
      set parameter id 'TCD' field gv_objname.
*-----F№llen der BDC-itab
      perform bdc_dynpro using 'SAPLSEUK'  '0390'.   "DYNPRO
      perform bdc_field  using con_okcode  con_show. "Aktion
*-----Aufruf der Transaktion mit Parameter№bergabe
      call transaction con_se93 using it_bdc mode con_error.
                                       "messages
      sy-lsind = 0.

    when con_execute.                   "Ausf№hren
      call transaction gv_objname.

    when con_line.                      "Trennlinien ein/aus
      if p_line = space.
        p_line = con_x.
       else.
        p_line = space.
      endif.
      perform top_of_page.
      perform display_data.
      sy-lsind = 0.

    when others.                       "Der Rest der Welt

  endcase.

* ================= Ende Source =======================================*
*&---------------------------------------------------------------------*
*&      Form  POPUP_MELDUNG
*&---------------------------------------------------------------------*
*       Popup f№r Fehlermeldung
*----------------------------------------------------------------------*
*      -->P_gv_TITEL  text                                            *
*      -->P_gv_LINE1  text                                            *
*      -->P_gv_LINE2  text                                            *
*----------------------------------------------------------------------*
form popup_meldung using titel
                         line1
                         line2.

  call function 'POPUP_TO_DISPLAY_TEXT'
       exporting
            titel        = titel
            textline1    = line1
            textline2    = line2
            start_column = 5
            start_row    = 6
       exceptions
            others       = 1.
  if sy-subrc <> 0.
    leave program.
  endif.
endform.                               " POPUP_MELDUNG
*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       Datenbeschaffung
*----------------------------------------------------------------------*
form get_data .

*-Konvertieren der Usereingabe in GROSSBUCHSTABEN
  translate p_text to upper case.

*-Welches Schweinderl hфtten┤s denn gern?
  case con_x.
    when p_elemen.                     "Datenelement
      perform get_element.
      set pf-status 'SE11'.
    when p_domain.                     "Domфne
      perform get_domain.
      set pf-status 'SE11'.
    when p_fb.                         "Funktionsbaustein
      perform get_fb.
      set pf-status 'SE37'.
    when p_report.                     "Report
      perform get_report.
      set pf-status 'SA38_SE38_80'.
    when p_saptab.                     "SAP-Tabelle
      perform get_saptab.
      set pf-status 'SE11_16'.
    when p_tcode.                      "Transaktionscode
      perform get_tcode.
      set pf-status 'SE93'.
*    WHEN P_TYPGRP.                     "Typgruppe
*      PERFORM GET_TYPGRP.
*      SET PF-STATUS 'SE11'.
    when p_view.                       "View
      perform get_view.
      set pf-status 'SE11'.
    when others.
      "Lesen Sie die Dokumentation oder fragen Sie Ihren
                                       "Berater und Entwickler.
  endcase.

*-Ermitteln der Anzahl der Datensфtze in der internen Tabelle
  describe table it_tab lines gv_count.
*-1. Sortierung der Daten: Nach Beschreibungstext aufsteigend
  sort it_tab by text ascending.

endform.                               " GET_DATA

*&---------------------------------------------------------------------*
*&      Form  GET_ELEMENT
*&---------------------------------------------------------------------*
*       Verarbeitung Datenelement
*----------------------------------------------------------------------*
form get_element.

*-Selektion der Datensфtze
  perform select_element.

*-Setzen der Listen№berschrift f№r die Objektart
  sy-tvar0 = text-t01.

*-Sichern der verarbeiteten Objektart
  gv_object = text-t01.

endform.                               " GET_ELEMENT
*&---------------------------------------------------------------------*
*&      Form  GET_DOMAIN
*&---------------------------------------------------------------------*
*       Verarbeitung Domфne
*----------------------------------------------------------------------*
form get_domain.

*--Selektion der Datensфtze
  perform select_domain.

*-Setzen der Listen№berschrift f№r die Objektart
  sy-tvar0 = text-t11.

*-Sichern der verarbeiteten Objektart
  gv_object = text-t11.

endform.                               " GET_DOMAIN
*&---------------------------------------------------------------------*
*&      Form  GET_FB
*&---------------------------------------------------------------------*
*       Verarbeitung Funktionsbaustein
*----------------------------------------------------------------------*
form get_fb.

*-Selektion der Datensфtze
  perform select_fb.

*-Setzen der Listen№berschrift f№r die Objektart
  sy-tvar0 = text-t21.

*-Sichern der verarbeiteten Objektart
  gv_object = text-t21.

endform.                               " GET_FB
*&---------------------------------------------------------------------*
*&      Form  GET_REPORT
*&---------------------------------------------------------------------*
*       Verarbeitung Report
*----------------------------------------------------------------------*
form get_report.

*-Selektion der Datensфtze
  perform select_report.

*-Setzen der Listen№berschrift f№r die Objektart
  sy-tvar0 = text-t31.

*-Sichern der verarbeiteten Objektart
  gv_object = text-t31.

endform.                               " GET_REPORT
*&---------------------------------------------------------------------*
*&      Form  GET_SAPTAB
*&---------------------------------------------------------------------*
*       Verarbeitung SAP-Tabellen
*----------------------------------------------------------------------*
form get_saptab.

*-Selektion der Datensфtze
  perform select_saptab.

*-Setzen der Listen№berschrift f№r die Objektart
  sy-tvar0 = text-t51.

*-Sichern der verarbeiteten Objektart
  gv_object = text-t51.

endform.                               " GET_SAPTAB
*&---------------------------------------------------------------------*
*&      Form  GET_TCODE
*&---------------------------------------------------------------------*
*       Verarbeitung Transaktionen
*----------------------------------------------------------------------*
form get_tcode.

*-Selektion der Datensфtze
  perform select_tcode.

*-Setzen der Listen№berschrift f№r die Objektart
  sy-tvar0 = text-t71.

*-Sichern der verarbeiteten Objektart
  gv_object = text-t71.

endform.                               " GET_TCODE
*&---------------------------------------------------------------------*
*&      Form  GET_TYPGRP
*&---------------------------------------------------------------------*
*       Verarbeitung Typgruppen
*----------------------------------------------------------------------*
*FORM GET_TYPGRP.
*
**-Selektion der Datensфtze
*  PERFORM SELECT_TYPGRP.
*
**-Setzen der Listen№berschrift f№r die Objektart
*  SY-TVAR0 = TEXT-T81.
*
**-Sichern der verarbeiteten Objektart
*  gv_OBJECT = TEXT-T81.
*
*ENDFORM.                               " GET_TYPGRP
*&---------------------------------------------------------------------*
*&      Form  GET_VIEW
*&---------------------------------------------------------------------*
*       Verarbeitung Views und Sperrobjekten
*----------------------------------------------------------------------*
form get_view.

*-Selektion der Datensфtze
  perform select_view.

*-Setzen der Listen№berschrift f№r die Objektart
  sy-tvar0 = text-t91.

*-Sichern der verarbeiteten Objektart
  gv_object = text-t91.

endform.                               " GET_VIEW
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_DATA
*&---------------------------------------------------------------------*
*       Ausgabe der Liste
*----------------------------------------------------------------------*
form display_data.
  format reset.
  write:/1(125) sy-uline.
  skip to line 8.
  loop at it_tab into wa_tab.
*---Beim Wechsel des Anfangsbuchstabens eine Trennlinie ausgeben.
    if p_line = con_x.
      if sy-tabix > 1.                "Nicht vor dem 1. Satz
        if gv_letter <> wa_tab-text(1).
          write:/1(125) sy-uline.
          gv_letter = wa_tab-text(1).
        endif.
      endif.
    endif.

*Beginn der ─nderung: GPr№ser 24.10.2002
*   Wenn SAP-Tabellen gesucht werden, dann wird auch die Tabellenklasse
*   angezeigt
    if p_saptab = con_x.
      write:/1(1)   sy-vline no-gap.
      write: 2(74)  wa_tab-text,
            75(1)   sy-vline no-gap,
            76(29)  wa_tab-name,
            105(1)  sy-vline no-gap,
            106(11) wa_tab-class,
            117(1)  sy-vline no-gap,
            120(7)  wa_tab-spras,
            125(1)  sy-vline no-gap.
      else.
       write:/1(1)  sy-vline no-gap.
       write: 2(74) wa_tab-text,
          75(1)  sy-vline no-gap,
          76(40) wa_tab-name,
          117(1) sy-vline no-gap,
          120(7) wa_tab-spras,
          125(1) sy-vline no-gap.
    endif.
*Ende der ─nderung: GPr№ser 24.10.2002

  endloop.

  write:/1(125) sy-uline.

endform.                               " DISPLAY_DATA
*&---------------------------------------------------------------------*
*&      Form  TOP_OF_PAGE
*&---------------------------------------------------------------------*
*       Seitenkopf
*----------------------------------------------------------------------*
form top_of_page.
*de Kopftexte
*e  header
  format reset.
  write:/ text-t06    intensified off color col_heading,
          31 sy-tvar0 intensified off color off,
        / text-t02    intensified off color col_heading,
          31 p_text   intensified off color off,
        / text-t04    intensified off color col_heading,
          gv_count   left-justified intensified off color off.

  skip 1.

*de Spalten№berschriften
*e  column header
*Beginn der ─nderung: GPr№ser 24.10.2002
* Unterschiedliches Layout bei der Selektion von SAP-Tabellen, da hier
* jetzt auch die Tabellenklasse ausgegeben wird.
  if sy-tvar0 = text-t51.           "Tabelle
    format intensified on color col_heading.
    write: /1(125) sy-uline.
    write: /1(1)   sy-vline no-gap,
            2(74)  text-t03 color col_heading,
           75(1)   sy-vline no-gap,
           76(29)  sy-tvar0   color col_heading,
           105(1)  sy-vline no-gap,
           106(11) text-t52   color col_heading,
           117(1)  sy-vline no-gap,
           118(7)  text-t05 color col_heading,
           125(1)  sy-vline no-gap.
   else.
    format intensified on color col_heading.
    write: /1(125) sy-uline.
    write: /1(1)   sy-vline no-gap,
            2(74)  text-t03 color col_heading,
           75(1)   sy-vline no-gap,
           76(40)  sy-tvar0   color col_heading,
           117(1)  sy-vline no-gap,
           118(7)  text-t05 color col_heading,
           125(1)  sy-vline no-gap.

  endif.
*Ende der ─nderung: GPr№ser 24.10.2002


endform.                               " TOP_OF_PAGE
*&---------------------------------------------------------------------*
*&      Form  GET_CURSOR_OBJNAME
*&---------------------------------------------------------------------*
*       Cursorposition mit Objektnamen ermitteln
*----------------------------------------------------------------------*
form get_cursor_objname.

*-Wenn der Cursor oberhalb der Liste positioniert wurde UND etwas
*-anderes als Trennlinie gewфhlt wurde -> Fehlermeldung ausgeben.
  if sy-lilli < 8 and sy-ucomm <> con_line.
    gv_titel = text-p01.
    gv_line1 = text-e03.
    gv_line2 = space.
    perform popup_meldung using gv_titel
                                gv_line1
                                gv_line2.
  endif.

  gv_objname = sy-lisel+75(29).

endform.                               " GET_CURSOR_OBJNAME
*&---------------------------------------------------------------------*
*&      Form  BDC_DYNPRO
*&---------------------------------------------------------------------*
*       F№llen der Batch-Input-Tabelle mit Dynprodaten der Transaktion
*----------------------------------------------------------------------*
*      -->gv_PROGRAM                                                  *
*      -->gv_DYNPRO                                                   *
*----------------------------------------------------------------------*
form bdc_dynpro using program
                      dynpro.
  wa_bdc-program  = program.
  wa_bdc-dynpro   = dynpro.
  wa_bdc-dynbegin = con_x.
  append wa_bdc to it_bdc.

endform.                               " BDC_DYNPRO
*&---------------------------------------------------------------------*
*&      Form  BDC_FIELD
*&---------------------------------------------------------------------*
*       F№llen der Batch-Input-Tabelle mit Felddaten der Transaktion
*----------------------------------------------------------------------*
*      -->P_gv_FNAM  text                                             *
*      -->P_gv_FVAL  text                                             *
*----------------------------------------------------------------------*
form bdc_field using fnam
                     fval.
  if fval is initial. exit. endif.
  wa_bdc-fnam = fnam.
  wa_bdc-fval = fval.
  append wa_bdc to it_bdc.

endform.                               " BDC_FIELD
*&---------------------------------------------------------------------*
*&      Form  SELECT_ELEMENT
*&---------------------------------------------------------------------*
*       Selektion der Datensфtze "Datenelement" und F№llen der itab.
*----------------------------------------------------------------------*
form select_element.
  select  rollname ddlanguage as4local as4vers ddtext
    into  (wa_tab-name, wa_tab-spras, wa_tab-aktiv, wa_tab-vers,
           wa_tab-text)
    from  dd04t
    where not rollname is null
      and ddlanguage in so_spras
      and not as4local is null
      and not as4vers  is null.

    if wa_tab-text cs p_text.
      translate wa_tab-text(1) to upper case.
      append wa_tab to it_tab.
    endif.
  endselect.

  if sy-subrc ne 0.                    "Fehler-POPUP ausgebenen
    gv_titel = text-p01.
    gv_line1 = text-e01.
    gv_line2 = text-e02.
    perform popup_meldung using gv_titel
                                gv_line1
                                gv_line2.
    call selection-screen '1000'.
  endif.

endform.                               " SELECT_ELEMENT
*&---------------------------------------------------------------------*
*&      Form  SELECT_DOMAIN
*&---------------------------------------------------------------------*
*       Selektion der Datensфtze "Domфne" und F№llen der itab.
*----------------------------------------------------------------------*
form select_domain.

  select  domname ddlanguage as4local as4vers ddtext
    into  (wa_tab-name, wa_tab-spras, wa_tab-aktiv, wa_tab-vers,
           wa_tab-text)
    from  dd01t
    where not domname is null
      and ddlanguage in so_spras
      and not as4local is null
      and not as4vers  is null.

    if wa_tab-text cs p_text.
      translate wa_tab-text(1) to upper case.
      append wa_tab to it_tab.
    endif.
  endselect.

  if sy-subrc ne 0.                    "Fehler-POPUP ausgeben
    gv_titel = text-p01.
    gv_line1 = text-e01.
    gv_line2 = text-e11.
    perform popup_meldung using gv_titel
                                gv_line1
                                gv_line2.
    call selection-screen '1000'.
  endif.

endform.                               " SELECT_DOMAIN
*&---------------------------------------------------------------------*
*&      Form  SELECT_FB
*&---------------------------------------------------------------------*
*       Selektion der Datensфtze "Funktionsbaustein" und F№llen der itab
*----------------------------------------------------------------------*
form select_fb.

  select  spras funcname stext
    into  (wa_tab-spras, wa_tab-name, wa_tab-text)
    from  tftit
    where spras in so_spras
      and not funcname is null.

    if wa_tab-text cs p_text.
     translate wa_tab-text(1) to upper case.
      append wa_tab to it_tab.
    endif.
  endselect.

  if sy-subrc ne 0.                    "Fehler-POPUP ausgeben
    gv_titel = text-p01.
    gv_line1 = text-e01.
    gv_line2 = text-e21.
    perform popup_meldung using gv_titel
                                gv_line1
                                gv_line2.
    call selection-screen '1000'.
  endif.

endform.                               " SELECT_FB
*&---------------------------------------------------------------------*
*&      Form  SELECT_REPORT
*&---------------------------------------------------------------------*
*       Selektion der Datensфtze "Report" und F№llen der itab.
*----------------------------------------------------------------------*
form select_report.

  select  sprsl name text
    into  (wa_tab-spras, wa_tab-name, wa_tab-text)
    from  trdirt
    where sprsl in so_spras
      and not name is null.

    if wa_tab-text cs p_text.
       translate wa_tab-text(1) to upper case.
      append wa_tab to it_tab.
    endif.
  endselect.

  if sy-subrc ne 0.                    "Fehler-POPUP ausgeben
    gv_titel = text-p01.
    gv_line1 = text-e01.
    gv_line2 = text-e31.
    perform popup_meldung using gv_titel
                                gv_line1
                                gv_line2.
    call selection-screen '1000'.
  endif.

endform.                               " SELECT_REPORT
*&---------------------------------------------------------------------*
*&      Form  SELECT_SAPTAB
*&---------------------------------------------------------------------*
*       Selektion der Datensфtze "SAP-Tabelle" und F№llen der itab.
*----------------------------------------------------------------------*
form select_saptab.

  select  tabname ddlanguage as4local as4vers ddtext
    into  (wa_tab-name, wa_tab-spras, wa_tab-aktiv, wa_tab-vers,
           wa_tab-text)
    from  dd02t
    where not tabname is null
      and ddlanguage in so_spras
      and not as4local is null
      and not as4vers is null.

    if wa_tab-text cs p_text.
       translate wa_tab-text(1) to upper case.
      append wa_tab to it_tab.
    endif.
  endselect.

  if sy-subrc ne 0.                    "Fehler-POPUP ausgeben
    gv_titel = text-p01.
    gv_line1 = text-e01.
    gv_line2 = text-e51.
    perform popup_meldung using gv_titel
                                gv_line1
                                gv_line2.
    call selection-screen '1000'.
  endif.

*Beginn der ─nderung: GPr№ser 24.10.2002
* Hier wird die Tabellenart gelesen. (TRANSP, INTTAB, CLUSTER, POOL,
*                                     VIEW oder APPEND)
  loop at it_tab into wa_tab.
    select single tabclass
      into  wa_tab-class
      from  dd02l
      where tabname = wa_tab-name
        and not as4local is null
        and not as4vers  is null.

    modify it_tab from wa_tab transporting class.
  endloop.
*Ende der ─nderung: GPr№ser 24.10.2002

endform.                               " SELECT_SAPTAB
*&---------------------------------------------------------------------*
*&      Form  SELECT_TCODE
*&---------------------------------------------------------------------*
*       Selektion der Datensфtze "Transaktionen" und F№llen der itab.
*----------------------------------------------------------------------*
form select_tcode.

  select  sprsl tcode ttext
    into  (wa_tab-spras, wa_tab-name, wa_tab-text)
    from  tstct
    where sprsl in so_spras
      and not tcode is null.

    if wa_tab-text cs p_text.
      translate wa_tab-text(1) to upper case.
      append wa_tab to it_tab.
    endif.
  endselect.

  if sy-subrc ne 0.                    "Fehler-POPUP ausgeben
    gv_titel = text-p01.
    gv_line1 = text-e01.
    gv_line2 = text-e71.
    perform popup_meldung using gv_titel
                                gv_line1
                                gv_line2.
    call selection-screen '1000'.
  endif.

endform.                               " SELECT_TCODE
*&---------------------------------------------------------------------*
*&      Form  SELECT_TYPGRP
*&---------------------------------------------------------------------*
*       Selektion der Datensфtze "Typgruppen" und F№llen der itab.
*----------------------------------------------------------------------*
*FORM SELECT_TYPGRP.
*
*  SELECT  TYPEGROUP DDLANGUAGE DDTEXT
*    INTO  (WA_TAB-NAME, WA_TAB-SPRAS, WA_TAB-TEXT)
*    FROM  DDTYPET
*    WHERE NOT TYPEGROUP IS NULL
*      AND DDLANGUAGE IN SO_SPRAS.
*
*    IF WA_TAB-TEXT CS P_TEXT.
*      APPEND WA_TAB TO IT_TAB.
*    ENDIF.
*  ENDSELECT.
*
*  IF SY-SUBRC NE 0.                    "Fehler-POPUP ausgeben
*    gv_TITEL = TEXT-P01.
*    gv_LINE1 = TEXT-E01.
*    gv_LINE2 = TEXT-E81.
*    PERFORM POPUP_MELDUNG USING gv_TITEL
*                                gv_LINE1
*                                gv_LINE2.
*    CALL SELECTION-SCREEN '1000'.
*  ENDIF.
*
*ENDFORM.                               " SELECT_TYPGRP
*&---------------------------------------------------------------------*
*&      Form  SELECT_VIEW
*&---------------------------------------------------------------------*
*       Selektion der Datensфtze "View" und F№llen der itab.
*----------------------------------------------------------------------*
form select_view.

  select  ddlanguage viewname as4local as4vers ddtext
    into  (wa_tab-spras, wa_tab-name, wa_tab-aktiv, wa_tab-vers,
           wa_tab-text)
    from  dd25t
    where ddlanguage in so_spras
      and not viewname is null
      and not as4local is null
      and not as4vers is null.

    if wa_tab-text cs p_text.
      translate wa_tab-text(1) to upper case.
      append wa_tab to it_tab.
    endif.
  endselect.

  if sy-subrc ne 0.                    "Fehler-POPUP ausgeben
    gv_titel = text-p01.
    gv_line1 = text-e01.
    gv_line2 = text-e91.
    perform popup_meldung using gv_titel
                                gv_line1
                                gv_line2.
    call selection-screen '1000'.
  endif.

endform.                               " SELECT_VIEW
*&---------------------------------------------------------------------*
*&      Form  SET_BUTTONNAME
*&---------------------------------------------------------------------*
*       Setzen der Dynprofeld-Bezeichnung
*----------------------------------------------------------------------*
form set_buttonname_parameter.
  case gv_object.
    when text-t01.                     "Datenelement
      gv_buttonname = 'RSRD1-DDTYPE'.
      set parameter id 'DTYP' field gv_objname.
    when text-t11.                     "Domфne
      gv_buttonname = 'RSRD1-DOMA'.
      set parameter id 'DOM' field gv_objname.
    when text-t51.                     "Tabelle
      gv_buttonname = 'RSRD1-TBMA'.
      set parameter id 'DTB' field gv_objname.
*    WHEN TEXT-T81.                     "Typgruppe
*      gv_BUTTONNAME = 'RSRD1-TYMA'.
    when text-t91.                     "View
      gv_buttonname = 'RSRD1-VIMA'.
      set parameter id 'DVI' field gv_objname.
  endcase.
endform.                               " SET_BUTTONNAME_PARAMETER
*&---------------------------------------------------------------------*
*&      Form  SORT_TAB
*&---------------------------------------------------------------------*
*       Sortieren des Ausgabeliste
*----------------------------------------------------------------------*
form sort_tab tables tab structure wa_tab
              using  field.
  case sy-ucomm.
    when con_sort_up.
      sort tab by (field) ascending.
    when con_sort_down.
      sort tab by (field) descending.
    when others.
      "Alles bleibt wie es war, alles klar, alles klar...
  endcase.

endform.                               " SORT_TAB



Z9GPINFO.zip
 Description:
Source Texts and Screens

Download
 Filename:  Z9GPINFO.zip
 Filesize:  15.47 KB
 Downloaded:  1696 Time(s)

Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP Dictionary All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.