We can load test data from file using the ABAP…ENDABAP [18] statements in eCATT. In this article I have given an example on transaction code MM01 with sample code. To upload the test data file follow the steps given,
- Record the transaction
Open eCATT tool. This can be done using ‘SECATT’ tcode.
Give the script name and version number example ‘ZTS_MM01’. Version number can be used to maintain different program constructs under same program name. And choose create 
Give description and component name as ‘BC-TWB-TST-ECA’.
Select editor tab panel. Then click on ‘pattern’ 
In that command dropdown box choose TDC (Record) option. Then press enter.
Enter the transaction name as ‘mm01’ then MM01_1 interface automatically created. Then press enter.
Then ‘Create Material: Initial screen’ will appear. Enter the necessary fields.
And be careful while recording, if not recording may fail. Note that while recording no error messages should pop up. If they happen restart the recording process. Here in this example I have considered a simple recording process. You can do any complex recording. If you have any doubts do feel free to mail me. I will reply to you.
After completing the recording process recording ended dialog will appear.
Choose ‘Yes’.
Then a TCD statement will appear in the editor area.
With this we have finished recording
Now let us see the variable declaration, assignment and programming part.
After developing as number of scripts I found one simple method to develop these test scripts. If you feel comfortable with this method you can also use it.
First note down the all screen fields in which you are entering values during recording process. Then create local variables in eCATT with the same name as the screen field technical name. (This method makes assignment easier).
Example:
In MM01 (material master) I have entered values for material, industry sector and material type. And their respective technical screen field values are,
RMMG1-MATNR
RMMG1-MBRSH
RMMG1-MTART
To find out technical value of the screen field select the field press F1, then clicks on technical information button.
And now create the local variable as
V_MATNR,
V_MBRSH,
V_MTART,
To create local variables first click 
After declaring the local variables we need to assign them to screen field values.
To do that again press 
To assign the screen field values double click on the ‘FIELD’.
Then replace the screen VALIN[112] values with the local variable names. After changing the values the interface look like this,
Repeat the above step with all the screen field values. With this we have finished the process of declaring and assigning variables. Now we will see how to program and run the script successfully. To write the program we need to follow two steps. They are,
- Get the number (count) of records in file.
- Loop through count number of times and load the data from the file pass to TCD through local variables of eCATT.
Let us see how to handle the things,
By using ABAP…ENDABAP statements we can do that.
Before we start writing the program we need to declare some local variables (to run he example program given) which help us to store values between two ABAP blocks.
Because in eCATT each ABAP…ENDABAP block creates different internal function module with different contexts. So we need to declare some intermediate variables they are,
COUNT[113] : Holds the number of records.
FILE_V[114] : Holds file path of the test data file.
INT_LOC[115] : Index to read next from the file.
I am giving sample code to get the number of records from file in eCATT. Use this code and try for MM01 for Basic view. It will work fine.
This is very simple ABAP code. For understanding purpose necessary comments are provided.
Step 1:
First ABAP…ENDABAP block, to get the number of records from the file and store the value in the COUNT local variable.
* ABAP BLOCK TO GET THE NUMBER OF TEST CASES
ABAP.[116]
* TOT : holds total number of records
* FILE: holds file path of test file
DATA : TOT TYPE I VALUE 0,
FILE TYPE STRING.
* ITAB TO HOLD TEST DATA FROM FILE
DATA : BEGIN OF I_MARA [117] OCCURS 0,
V_MATNR LIKE RMMG1-MATNR, " Material Number
V_MBRSH LIKE RMMG1-MBRSH, " Industry Sector
V_MTART LIKE RMMG1-MTART, " Material Type
* Basic View
V_MAKTX LIKE MAKT-MAKTX, " Material Description
V_MEINS LIKE MARA-MEINS, " Basic Unit of Measure
END OF I_MARA.
* TO OPEN FILE DIALOG FOR TEST DATA FILE
CALL FUNCTION 'F4_FILENAME[118] '
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = 'FILE'
IMPORTING
FILE_NAME = FILE_V-PATH.
FILE = FILE_V-PATH.
* LOADING DATA FROM THE FILE
CALL FUNCTION 'GUI_UPLOAD[119] '
EXPORTING
FILENAME = FILE
HAS_FIELD_SEPARATOR = 'X'
TABLES
DATA_TAB = I_MARA.
* GETTING NUMBER OF RECORDS IN THE TABLE
DESCRIBE TABLE I_MARA LINES TOT.
* STORING NUMBER OF RECORDS IN LOCAL VARIABLE
COUNT = TOT.[120]
* CLEARING INTERNAL TABLE
CLEAR I_MARA.
ENDABAP.
Step 2:
Looping through the records count number of times and reading from the internal table and passing them to the screen field values.
This sample code explains how to read, and pass values to the screen.
* LOOPING THROUGH (COUNT) NUMBER OF RECORDS
DO (COUNT[121] ).
ABAP.
* V_READINDX : holds index number to read the internal table
* FILE: holds file path of test file
DATA : V_READINDX TYPE I,
FILE TYPE STRING,
INDX TYPE I VALUE 0.
* ITAB TO HOLD TEST DATA FROM FILE
DATA : BEGIN OF I_MARA OCCURS 0,
V_MATNR LIKE RMMG1-MATNR, " Material Number
V_MBRSH LIKE RMMG1-MBRSH, " Industry Sector
V_MTART LIKE RMMG1-MTART, " Material Type
V_MAKTX LIKE MAKT-MAKTX, " Material Description
V_MEINS LIKE MARA-MEINS, " Basic Unit of Measure
END OF I_MARA.
* WORKAREA TO HOLD THE I_MARA DATA
DATA : WA LIKE I_MARA.
FILE = FILE_V-PATH.
* LOADING MASTER DATA FROM THE FILE
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = FILE
HAS_FIELD_SEPARATOR = 'X'
TABLES
DATA_TAB = I_MARA.
* INT_LOC : is a local variable hold the current index to read I_MARA
V_READINDX = INT_LOC.
* READING I_MARA UGING ITS INDEX
READ TABLE I_MARA INDEX V_READINDX INTO WA.
* assigning work area values to the screen field values
V_MATNR = WA-V_MATNR. " Material Number
V_MBRSH = WA-V_MBRSH. " Industry Sector
V_MTART = WA-V_MTART. " Material Type
V_MAKTX = WA-V_MAKTX. " Material Description
V_MEINS = WA-V_MEINS. " Basic Unit of Measure
ENDABAP.
* TCD Transaction /////////////////////
* move index position by one
INT_LOC = INT_LOC + 1.
ENDDO.
With this we have finished programming. Finally we need to prepare the test data file and execute the program either in Foreground or Background mode.
Please note that data in test file should resemble the order of the elements in the internal table. Other wise it won’t work.
To execute the given test script, follow the steps, copy the code given and declare the necessary variables.
No comments:
Post a Comment