topic Re: How to read existing ABAP code? in Application Development and Automation Discussions

How to read existing ABAP code?

Former Member — Tue, 20 Nov 2012 07:42:31 GMT

Hi all,

I have a new requirement which seems pretty complicated to me:

In SAP, there is a number of SAPScript forms. To each of these is assigned a specific print_program which essentially gets the data out of the DB_tables and puts it in the form.

Now, I don't want to rebuild any of the forms. They are a SAP thing all right. What I want is only the information which tables and fields a specific form is using. These I could collect simply by reading the print_program.

I wonder if there would be a possibility to dynamically read the code of a print_program and just single out the tables and fields used. Again, I am not interested in the form itself, the "where does this go" part, only in the underlying data.

Can anybody help me there, please?

Thanks a lot!

Best regards,

Sapperdapper

Re: How to read existing ABAP code?

vinoth_aruldass — Tue, 20 Nov 2012 08:29:36 GMT

hi,

go to nace transaction to see the output types .

Goto nace->outputtypes -> choose accoding to your requirement (ex : sales, Billing,etc)->

choose output types -> processing routines -> there you can find the form name and the driver program which is assigned for that perticular output. From the routine and the driver program you can find out from which tables data is fetching from.

Hope my answer will be helpful,

Thanks and regards,

Vinoth Aruldass.

Re: How to read existing ABAP code?

Venkat_Sesha — Tue, 20 Nov 2012 08:34:03 GMT

Check the below program and Keywords..

RPR_ABAP_SOURCE_SCAN

    Scan Abap-Source TB_INCLUDELINES Tokens Into TB_TOKENS
                                 With Includes
                                 Statements Into TB_STATEMENTS
                                 Keywords From TB_KEYWORDS.

Hope this helps

Re: How to read existing ABAP code?

Former Member — Tue, 20 Nov 2012 08:35:03 GMT

Hi vinoth,

I cannot say yet how far your answer will take me, but I am more than thankful for any help. I am trying to find something online - and I have found sth on executing ABAP code from a PC file, which might be helpful - but since there's a lot on the line for me and I am by no means an expert myself, any help is highly appreciated.

I will see.

Thanks!

Best regards,

Sapperdapper

Re: How to read existing ABAP code?

anup_deshmukh4 — Tue, 20 Nov 2012 08:40:27 GMT

Hello Friedrich,

Will Syntax
READ REPORT prog INTO itab [MAXIMUM WIDTH INTO wid].

help you ?

And then further you can parce it using Regular Expression / or Ucan use Function module to get the Local / Global Fields etc to carry on further processing

Hope this helps ..

Anup Deshmukh

Re: How to read existing ABAP code?

Former Member — Tue, 20 Nov 2012 08:41:01 GMT

Hi Venkat,

I repeat myself 😉 I cannot say yet, I am no expert myself, I have a huge task and there's a lot on the line, so any help is highly appreciated.

I guess from the wording of your sample code that the INCLUDE structures of a program can also be scanned. That is of course important as the use of INCLUDEs is just good programming and thus an omnipresent concept. Too bad the print_programs I need to scan also contain function calls. Well, taking one step at a time will be more likely to help than trying to take a big leap.

I will see.

Thanks!

Best regards,

Sapperdapper

Re: How to read existing ABAP code?

Former Member — Tue, 20 Nov 2012 08:48:42 GMT

Hi Anup,

Yes, I think that might actually help me. I can LOOP through that table then and when I meet something like "CALL FUNCTION" or so, I have to access that and do the same over.

Thanks a lot!

Best regards,

Sapperdapper

Re: How to read existing ABAP code?

Venkat_Sesha — Tue, 20 Nov 2012 08:54:08 GMT

Hi Friedrich.

Check the below code to scan all the things.. Includes and Functioncalls everything...

Remember Function Module is nothing but a Include Program..(You can check that in Func Grp/Main Program of that Function Module)

Just check the below code and see the result I have maximum logic you require.. Sorry,cannot copy paste the whole program here.. But this will help u...

Start-Of-Selection.

* From to Get the Data for Checking Hard Codes
Perform GET_DATA.

In the Get Data Routine

   *Read Includes of the program need to be searched
Perform SCANFORINCLUDEPROGRAMS Using PPROG
                                       PRECI
                                       PINC"C_X
                                       TB_PROGRAM.

   *----------------------------------------------------------------------
* scanForIncludePrograms... Search each program for include programs
*----------------------------------------------------------------------
FORM SCANFORINCLUDEPROGRAMS Using Value(PROGRAMNAME)
                                  Value(RECURSIVEINCLUDES)
                                  Value(CUSTOMERONLY)
                                  TB_LOCINCLUDES Like TB_PROGRAM.

* Local Declarations
Data: TB_INCLUDELINES Type Standard Table OF TEXT200 With Header Line,
        TB_TOKENS       Type Standard Table OF STOKEN With Header Line,
        TB_KEYWORDS     Type Standard Table OF TEXT20 With Header Line,
        TB_STATEMENTS   Type Standard Table OF SSTMNT With Header Line.

Data: WATOKENS        Type STOKEN,
        WAINCLUDE       Type T_PROGRAM,
        WAINCLUDEEXISTS Type T_PROGRAM,
        MAXLINES        Type I,
        NEXTLINE        Type I,
        CASTPROGRAMNAME Type PROGRAM.

* Read the program code from the textpool.
CASTPROGRAMNAME = PROGRAMNAME.
".
Read Report CASTPROGRAMNAME Into TB_INCLUDELINES.

Append 'INCLUDE' To TB_KEYWORDS.

Scan Abap-Source TB_INCLUDELINES Tokens Into TB_TOKENS
                                 With Includes
                                 Statements Into TB_STATEMENTS
                                 Keywords From TB_KEYWORDS.
".
Scan Abap-Source TB_INCLUDELINES Tokens Into TB_TOKENS
                                 With Includes
                                 Statements Into TB_STATEMENTS
                                 Keywords From TB_KEYWORDS.

Clear TB_INCLUDELINES[].

Describe Table TB_TOKENS Lines MAXLINES.

Loop At TB_TOKENS Where STR = 'INCLUDE' And TYPE = 'I'.

    NEXTLINE = SY-TABIX + 1.

    If NEXTLINE <= MAXLINES.

      Read Table TB_TOKENS Index NEXTLINE Into WATOKENS.

* Are we only to find customer includes?
      ".
      If Not CUSTOMERONLY Is Initial.--------------------------> When Customer Includes only need to
        If WATOKENS-STR+0(1) = 'Y'                                be searched...
        OR WATOKENS-STR+0(1) = 'Z'
        OR WATOKENS-STR+0(2) = 'MZ'
        OR WATOKENS-STR+0(2) = 'MY'.
        Else.
* Continue to the Next Iteration
          Continue.
        Endif.
      Endif.

      WAINCLUDE-PGNAME = WATOKENS-STR.

* Don't append the include if we already have it listed
      ".
      Read Table TB_LOCINCLUDES Into WAINCLUDEEXISTS
                 With Key PGNAME = WAINCLUDE-PGNAME.

      IF Sy-Subrc <> 0.

        Append WAINCLUDE TO TB_LOCINCLUDES.

        If Not RECURSIVEINCLUDES Is Initial And
           Not WAINCLUDE Eq 'STRUCTURE'.
* Do a recursive search for other includes
          ".
          Perform SCANFORINCLUDEPROGRAMS Using WAINCLUDE-PGNAME
                                               RECURSIVEINCLUDES
                                               CUSTOMERONLY
                                               TB_LOCINCLUDES[].
        Endif.
      Endif.
    Endif.
Endloop.
ENDFORM.    "scanForIncludePrograms

In Top Include

Parameters: PPROG Type TRDIR-NAME.

Selection-Screen Begin Of Line.
Selection-Screen Comment 1(22) TEXT-007.
Parameters: PINC As Checkbox Default 'X' Memory Id MINC.
Selection-Screen Comment 35(20) TEXT-008.
Parameters: PRECI As Checkbox Default 'X' Memory ID mreci.
Selection-Screen End OF Line.

Re: How to read existing ABAP code?

former_member215575 — Tue, 20 Nov 2012 09:01:19 GMT

Hi,

A rough idea I have is as follows:

if you know the print program name, you can read that program code into an internal table of your new program using READ REPORT statement. On the internal table, you can use FIND ALL OCCURRENCES of SELECT keyword to get the select queries list. from that use SPLIT commands (might be other string operations) to get field names & table (after keyword FROM).

also check program RS_ABAP_SOURCE_SCAN.

Regards,

SG.

Re: How to read existing ABAP code?

Venkat_Sesha — Tue, 20 Nov 2012 09:11:33 GMT

Hi Sravan

I have a question.

Do we have this program in ECC / 4.6/7...

Re: How to read existing ABAP code?

Former Member — Tue, 20 Nov 2012 09:23:33 GMT

Hi Venkat,

I just saw you posted a page of code here. That's just great! I will see what that does and where it takes me.

Thanks a lot!

Best regards,

Sapperdapper

Re: How to read existing ABAP code?

former_member215575 — Tue, 20 Nov 2012 09:32:54 GMT

Yes, Venkat. we are on ECC 6.0 EHP5 and have this program. I remember using this program before upgrade to EHP5 also. I am not sure about 4.6/7.

I was late in replying previous thread, by the time I posted so many replies appeared (hence my reply became redundant). which version are you on?

Re: How to read existing ABAP code?

ThomasZloch — Tue, 20 Nov 2012 09:39:45 GMT

You could also try: SE38, enter print program name, choose Utilities -> Environment analysis, and check "database table".

Or try running an ST12 analysis for the print process, the "SQL summary" will give you all tables that were actually accessed.

Thomas

Re: How to read existing ABAP code?

Former Member — Tue, 20 Nov 2012 10:51:39 GMT

Hi,

@Venkat

I have the program RPR_ABAP_SOURCE_SCAN all right. I was sceptical about that because this system here is really outdated. That doesn't go quite in the same direction I need because it scans for a particular string (or set of strings) while I don't even know what those might be.

I'm just working through that code of yours. Am I right that in that GET_DATA routine I would have to fill in something and that other form is only to scan the INCLUDE structures too?

If so, I could combine that with what Anup and Sravan have said, that READ REPORT command. Putting it all into an internal table and parsing that for the kind of strings I'm looking seems a good idea, attractive to me because I've done that kind of thing before - in another, simpler language and scanning relatively well-structured ASCII files, but anyway.

Thanks a lot!

Regards,

Sapperdapper

Re: How to read existing ABAP code?

Venkat_Sesha — Tue, 20 Nov 2012 11:30:17 GMT

Actually Friedrich I provided two Checkboxes in the Selection Screen.

Customer Includes Only --- Which will search in Z/Y Programs

Recursive Includes --- Which will search in Recursive Includes (example Include A contains Include Top and Include Forms etc...)

First thing is you need to check both the checkboxes

second thing code part.. Coming to your question.

In GET_DATA You just need to fill TB_PROGRAM.. That means what are the programs(Include Programs or Modulepool or FM Includes) that you want to search the String you want.

Example Get NAME from TRDIR where NAME = XXX or wild search with Z/y etc...

Then remaining thing goes as usual.. In GET_DATA you will have

Perform SCANFORINCLUDEPROGRAMS Using PPROG
              PRECI--------> Recursive Includes Checkbox
              PINC"C_X----> Customer Includes Only Checkbox (Uncheck if u want to search SAP also)
              TB_PROGRAM.

Then Everything is same... Hope this helps

Re: How to read existing ABAP code?

Former Member — Tue, 20 Nov 2012 12:39:50 GMT

Hi Venkat,

I don't quite understand that TB_PROGRAM. The other parameters I have to pass to that subroutine I understand. What is TB_PROGRAM, though? Is that a fixed internal table? What fields does it need to have?

Thanks a lot!

Best regards,

Sapperdapper

Re: How to read existing ABAP code?

Venkat_Sesha — Tue, 20 Nov 2012 12:48:30 GMT

ok sorry .. forgot to tell you this..

here we go..

Types: Begin OF T_PROGRAM,
PGNAME Like TRDIR-NAME,
End OF T_PROGRAM.

DATA : TB_PROGRAM Type Table OF T_PROGRAM.

*Put a Parameter or Select-Option like this

Parameters: PPROG Type TRDIR-NAME. You can enter the programs you want to search..

Append PPROG to TB_PROGRAM..

Hope this clears..

Re: How to read existing ABAP code?

Former Member — Tue, 20 Nov 2012 12:58:13 GMT

Hi Venkat,

yes, this certainly clears up that question. I'm sure I will be back in a short while with the next question 😉 I hope I won't end up annoying you too much.

So I can pass that code the name of an ABAP program I want to search. That's a good start. I'm sure there is a table that I can use to map the corresp. ABAP program to any form. Well, first things first. I'll start by giving the name of one program I know and if I can automatically read that and its INCLUDEs, so much the better.

Thanks a lot!

Best regards,

Sapperdapper

P.S.: Ok, I think it's making progress. I go stepwise, always activating just a piece of the code up to a point, then putting in a BREAK-POINT and deactivating the rest - ABAP has an annoying habit of stopping because of syntax errors in the parts after the BREAK-POINT which I'm not interested in for the moment...

Anyway, I can read the code into that internal table now. There isn't much to see, there are only INCLUDEs on the top-level, just as it should be actually, but I guess that is what the rest of the code is about. Here we go...

P.P.S.: Immediately following the line >> Append 'INCLUDE' To TB_KEYWORDS. << you have the same SCAN command twice. Was that on purpose or just a copy-paste-error?

Re: How to read existing ABAP code?

Venkat_Sesha — Tue, 20 Nov 2012 13:33:50 GMT

No Friedrich.. It is for Scaning recursive includes. Here we go I shortened the code without any syntax error or anything. One thing I need to tell is.. In the Selection Screen Enter the program name as SAPMV45A which is a Sales order program name (Just for test) and execute. inthe TB_OUT_TMP you will see the result of all hardcoded values in the program and its respective includes..

REPORT YCR_HARD_CODE_TEMP.
*&---------------------------------------------------------------------*
*& Report     : YCR_HARD_CODE
*& Author     : Venkat Sesha, MYLAVABH, 01/18/2011
*& Descrption : This Report will give the detailed comments
*&              on the Hardcoded Values in a Program Including
*&              the Includes of that particular Program.
*& Note       : Please do not Pretty Print the Program
*&---------------------------------------------------------------------*
Type-Pools: SLIS, ICON.
Tables : TRDIR.
* Include program names
Types: Begin OF T_PROGRAM,
         PGNAME Like TRDIR-NAME,
       End OF T_PROGRAM.
Types: Begin Of T_OUT_TMP,
        PGType       Type C, "A: Program B: Includes used for sorting
        PGNAME       Like TRDIR-NAME,
        HDCDEXIST    Type C,
        TIMES        Type I,
        LINENO       Type I,
        PGLINE       Type TEXT200,
       End OF T_OUT_TMP.
Data: X_OUT_TMP      Type T_OUT_TMP,
      X_PROGRAM      Type T_PROGRAM.
Data: TB_OUT_TMP     Type Table OF T_OUT_TMP,
      TB_PROGRAM     Type Table OF T_PROGRAM.
* Declarations for Obsolete & Unicode Check search
Data : TB_RODIR   Type Table Of RODIR,
        X_RODIR   Type RODIR.
Constants: C_YES(1)         Value 'Y',
            C_NO(1)          Value 'N',
            C_ASTERIX(1)     Value '*',
            C_DQUOTATION(2) Value '"',
            C_X              Value 'X',
            C_A              Value 'A',
            C_B              Value 'B',
            C_S              Value 'S',
            C_Q              Value ''''''.

Parameters: PPROG Type TRDIR-NAME Obligatory.
Selection-Screen Begin Of Line.
Selection-Screen Comment 1(22) TEXT-007.
Parameters: PINC As Checkbox Default 'X' Memory Id MINC.
Selection-Screen Comment 35(20) TEXT-008.
Parameters: PRECI As Checkbox Default 'X' Memory ID mreci.
Selection-Screen End OF Line.
*----------------------------------------------------------------------*
*             S T A R T    O F    S E L E C T I O N                    *
*----------------------------------------------------------------------*
Start-Of-Selection.
* From to Get the Data for Checking Hard Codes
Perform GET_DATA.
*&---------------------------------------------------------------------*
*&      Form GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM get_data .
* Local Declarations
Data: L_PRELEN     Type I,
        L_PRESTRING Type TEXT200,
        L_LINE_NO    Type I,
        L_TMP_RCD    Type TEXT200,
        LX_LINES     Type TEXT200,
        LTB_LINES    Type Standard Table Of TEXT200,
        LTB_TMP_RCD Type Standard Table Of TEXT200,
        LX_DDO7V     Type DD07V,
        LTB_DD07V    Type Table Of DD07V,
        LTB_SPLIT    Type Table Of TEXT200,
        LX_SPLIT     Like Line Of LTB_SPLIT,
        A            Type Char2.
* Append the Program Name
Append PPROG To TB_PROGRAM.
*Read Includes of the program need to be searched
Perform SCANFORINCLUDEPROGRAMS Using PPROG
                                       PRECI
                                       PINC"C_X
                                       TB_PROGRAM.
* Process the Program lines
Loop At TB_PROGRAM Into X_PROGRAM.
*Read program codes into an internal table
    Read Report X_PROGRAM-PGNAME Into LTB_LINES.
* If Found.
    If Sy-Subrc = 0.
* Process the data
      Loop At LTB_LINES Into LX_LINES.
* Capture the Table Index
        L_LINE_NO = SY-TABIX.
        Condense LX_LINES.
***Omit comment lines and blank lines.
        If LX_LINES+0(1) = C_ASTERIX Or LX_LINES = SPACE.
          Continue.
        Endif.
        "LOOP AT TB_yerphardcode INTO X_yerphardcode.
        Search LX_LINES For C_Q.
        IF Sy-Subrc EQ 0.
*Omit the comments beginning with double qutation
          Clear: L_PRELEN, L_PRESTRING.
          L_PRELEN = SY-FDPOS.
          If L_PRELEN Ne 0.
            L_PRESTRING = LX_LINES+0(L_PRELEN).
            Search L_PRESTRING For C_DQUOTATION.
* If Found
            If Sy-Subrc = 0.
              Continue.
            Endif.
          Endif.
*Get the values for the output list
          "MOVE-CORRESPONDING X_yerphardcode TO X_out_tmp.
          If X_PROGRAM-PGNAME = PPROG. "used for sorting of list
            X_OUT_TMP-PGTYPE    = C_A.
          Else.
            X_OUT_TMP-PGTYPE    = C_B.
          Endif.
          X_OUT_TMP-PGNAME    = X_PROGRAM-PGNAME.
          X_OUT_TMP-HDCDEXIST = C_YES.
          X_OUT_TMP-TIMES     = 1.
          X_OUT_TMP-LINENO    = L_LINE_NO.
          X_OUT_TMP-PGLINE    = LX_LINES.
          Append X_OUT_TMP To TB_OUT_TMP.
          Clear X_OUT_TMP.
        ENDIF.
        "ENDLOOP.
      Endloop.
    Endif.
    Sort TB_OUT_TMP By PGTYPE PGNAME." zfarea zcode.
Endloop.
".
*If no data found,leave to selection screen.
Read Table TB_OUT_TMP Transporting No Fields
                       With Key HDCDEXIST = 'Y'.
* If Not Found
If Sy-Subrc NE 0.
* Status Message
    Message 'No data found' Type C_S.
* leave the program
    Leave List-Processing.
Endif.
ENDFORM.                    " GET_DATA
*----------------------------------------------------------------------
* scanForIncludePrograms... Search each program for include programs
*----------------------------------------------------------------------
FORM SCANFORINCLUDEPROGRAMS Using Value(PROGRAMNAME)
                                  Value(RECURSIVEINCLUDES)
                                  Value(CUSTOMERONLY)
                                  TB_LOCINCLUDES Like TB_PROGRAM.

* Local Declarations
Data: TB_INCLUDELINES Type Standard Table OF TEXT200 With Header Line,
        TB_TOKENS       Type Standard Table OF STOKEN With Header Line,
        TB_KEYWORDS     Type Standard Table OF TEXT20 With Header Line,
        TB_STATEMENTS   Type Standard Table OF SSTMNT With Header Line.

Data: WATOKENS        Type STOKEN,
        WAINCLUDE       Type T_PROGRAM,
        WAINCLUDEEXISTS Type T_PROGRAM,
        MAXLINES        Type I,
        NEXTLINE        Type I,
        CASTPROGRAMNAME Type PROGRAM.

* Read the program code from the textpool.
CASTPROGRAMNAME = PROGRAMNAME.
".
Read Report CASTPROGRAMNAME Into TB_INCLUDELINES.

Append 'INCLUDE' To TB_KEYWORDS.

Scan Abap-Source TB_INCLUDELINES Tokens Into TB_TOKENS
                                 With Includes
                                 Statements Into TB_STATEMENTS
                                 Keywords From TB_KEYWORDS.
".
Scan Abap-Source TB_INCLUDELINES Tokens Into TB_TOKENS
                                 With Includes
                                 Statements Into TB_STATEMENTS
                                 Keywords From TB_KEYWORDS.

Clear TB_INCLUDELINES[].

Describe Table TB_TOKENS Lines MAXLINES.

Loop At TB_TOKENS Where STR = 'INCLUDE' And TYPE = 'I'.

    NEXTLINE = SY-TABIX + 1.

    If NEXTLINE <= MAXLINES.

      Read Table TB_TOKENS Index NEXTLINE Into WATOKENS.

* Are we only to find customer includes?
      ".
      If Not CUSTOMERONLY Is Initial.
        If WATOKENS-STR+0(1) = 'Y'
        OR WATOKENS-STR+0(1) = 'Z'
        OR WATOKENS-STR+0(2) = 'MZ'
        OR WATOKENS-STR+0(2) = 'MY'.
        Else.
* Continue to the Next Iteration
          Continue.
        Endif.
      Endif.

      WAINCLUDE-PGNAME = WATOKENS-STR.

* Don't append the include if we already have it listed
      ".
      Read Table TB_LOCINCLUDES Into WAINCLUDEEXISTS
                 With Key PGNAME = WAINCLUDE-PGNAME.

      IF Sy-Subrc <> 0.

        Append WAINCLUDE TO TB_LOCINCLUDES.

        If Not RECURSIVEINCLUDES Is Initial And
           Not WAINCLUDE Eq 'STRUCTURE'.
* Do a recursive search for other includes
          ".
          Perform SCANFORINCLUDEPROGRAMS Using WAINCLUDE-PGNAME
                                               RECURSIVEINCLUDES
                                               CUSTOMERONLY
                                               TB_LOCINCLUDES[].
        Endif.
      Endif.
    Endif.
Endloop.
ENDFORM.    "scanForIncludePrograms

where ever you find code "Search LX_LINES For C_Q." in the place or C_Q('''') you need to enter a string or something what you want to search.. in the End-of-selection event Write : TB_OUT_TMP.

Hope this Solves...

Re: How to read existing ABAP code?

Former Member — Tue, 20 Nov 2012 13:44:11 GMT

Thanks a lot!

I will try it immediately.

P.S.: Okay, it executes error-free. Only, it does not find any data yet although that program (SAPMV45A) is there all right and it has a number of INCLUDEs. I must be getting it wrong with what I have to replace for C_Q. I am trying to understand just what your code is doing. Maybe it will become clearer. Maybe you could help me there?

Thanks a lot indeed!

Best regards,

Sapperdapper

P.P.S.: Okay - when I deselect the checkbox for "customer-INCLUDEs only" - I want to search SAP's own code - then the code does return data. It's not quite right yet, but I guess it's working, only I haven't yet figured out how to use it.

P.P.P.S.: I guess inputting 'vbak' for that C_Q was not the best idea as I want that to be generic, but at least it's returning data. The interesting part seems to be in the field PGLINE. That's the one I will have to work on using some REGEX to single out the tables and fields.