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

Find How Text in Stored to be Read by READ_TEXT



 
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: Wed Aug 20, 2008 10:00 am    Post subject: Find How Text in Stored to be Read by READ_TEXT Reply with quote

Code:
* Source Name is  ZFINDTXT
REPORT ZFINDTXT MESSAGE-ID Zfi001 NO STANDARD PAGE HEADING
                LINE-SIZE 132 LINE-COUNT 65.
**********************************************************************
*  Author: Joe Mason - SAP Chicago                                   *
*  Purpose: To Find TEXT Description Data is Stored within SAP       *
*           so that it is possible to read TEXT using                *
*           FUNCTION Module 'READ_TEXT'.                             *
*   To Start: Go into Functional Area of Interest  and Create text   *
*             (example - add Text to Material Master)                *
*             Save KEY of Record                                     *
*             (example - save Material Number)                       *
*             Execute this Program - Enter Key Data into Parameter   *
*                                    at Execution Time               *
*   What this Program Does:                                          *
*       Reads Table STXH, sees if Key (on Parameter) matches data    *
*       in Table STXH                                                *
*       - if it does - Prints Out Data Needed for Function READ_TEXT *
*       - executes a Test on READ_TEXT                               *
*         - if found -- Prints Out Data Found                        *
*         - if not found -  Reports Not FOUND                        *
*   On Screen at Execution Time ENTER - key of file where text was   *
*      stored - i.e. Customer Number, Material, Order Number, etc.   *
*   What do You DO:                                                  *
*       See if Text is FOUND & Matches TEXT you entered              *
*         If SO - you now know what to supply to READ_TEXT           *
**********************************************************************
TABLES: STXH.
DATA: BEGIN OF TAB,
      TDOBJECT  LIKE STXH-TDOBJECT,
      TDNAME    LIKE STXH-TDNAME,
      TDID      LIKE STXH-TDID,
      TDSPRAS   LIKE STXH-TDSPRAS,
      END OF TAB.
DATA: BEGIN OF LINES OCCURS 5.
        INCLUDE STRUCTURE TLINE.
DATA: END OF LINES.
DATA: LINES-COUNT TYPE P.
DATA: FOUND-COUNT TYPE P.

PARAMETERS: KEYDATA LIKE STXH-TDNAME DEFAULT '????'.
SET BLANK LINES ON.
SELECT * FROM STXH.
  IF STXH-TDNAME CS KEYDATA.
    ADD 1 TO FOUND-COUNT.
    WRITE: / 'Possible Hit'.
    WRITE: / '    Object =', STXH-TDOBJECT.
    WRITE: / '     Name  =', STXH-TDNAME.
    WRITE: / '   TextID  =', STXH-TDID.
    WRITE: / ' Language  =', STXH-TDSPRAS.
    WRITE: / '           '.
    WRITE: / '   Test of Call to READ_TEXT'.
    CLEAR TAB.
    MOVE-CORRESPONDING STXH TO TAB.
    CLEAR LINES-COUNT.
    REFRESH LINES.
    CALL FUNCTION 'READ_TEXT'
         EXPORTING
              CLIENT                  = SY-MANDT
              ID                      = TAB-TDID
              LANGUAGE                = TAB-TDSPRAS
              NAME                    = TAB-TDNAME
              OBJECT                  = TAB-TDOBJECT
*         ARCHIVE_HANDLE          = 0
*    IMPORTING
*         HEADER                  =
         TABLES
              LINES                   = LINES
         EXCEPTIONS
              ID                      = 1
              LANGUAGE                = 2
              NAME                    = 3
              NOT_FOUND               = 4
              OBJECT                  = 5
              REFERENCE_CHECK         = 6
              WRONG_ACCESS_TO_ARCHIVE = 7
              OTHERS                  = 8.
    DESCRIBE TABLE LINES LINES LINES-COUNT.
    IF LINES-COUNT EQ 0.
      WRITE: / '    STATUS - Match Not Found'.
    ELSE.
      LOOP AT LINES.
        WRITE: / '   Found =', LINES(72).
      ENDLOOP.
    ENDIF.
    WRITE: / '_________________________________________'.
  ENDIF.
ENDSELECT.

IF FOUND-COUNT EQ 0.
  WRITE: / 'DID NOT FIND ANY MATCHES USING', KEYDATA.
ENDIF.
INCLUDE ZCONINC3.


PS: search INCLUDE ZCONINC3 text on this site.
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.