Multiple Line items

Question

hi all SAP gurus,
Iam trying to upload excel file(test data file) to va21 and va22 transcation using a chain script where iam calling these individual scripts by using REF command in eCATT editor.The issue iam facing is i have done TCD recording for va21.I have declared IT_linedata as export parameter of the type VBAP.From the test file iam capturing the line items corresponding to various quotations in this it_linedatatable.This internal table has to be exported to va21 script where i have declared this as import parameter.The problem is how to assign this itab values containing material and quantity to the command interface parameters .
'S'     'BDC_CURSOR'     'RV45A-KWMENG'     
'S'     'RV45A-MABNR(01)'     V_MATNR     
'S'     'RV45A-KWMENG(01)'     V_KWMENG     
something like above.
i need to automatically increment this command interface parameters using inline ABAP code according to items given in the test file.
I would highy appreciate if anyone can get back to me with the inline ABAP code.
I know how to do this in bdc but as iam currently working on this scenario would appreciate ur help.
thanks and regards,
parvez
ABAP consultant

Answer 1

Hello Parvez,
The dynamic assigment of values in TCD is possible. Copy your excel file in a text file and save it as .txt file on your desk. The sample code is as given below.
There are some points need to be followed for the errofree execution in such dynamic assignment-
1. Open the TCD command interface in the structure editor and display the field list of the screen (Dynpro) whose fields will be modified later dynamically.
2. Sort the field list by moving all entries with MODE  ‘I’ or ‘O’ to the end of the list, so that these fields get higher indices than the fields with MODE  ‘S’, ‘C’ or ‘G’, which are used at the TCD execution.
3. Now you can modify the fields by using the correct indices, because the indices are not affected by the deletion of the field entries with higher index.
SAMPLE CODE WRITTEN IN Test Script Editor FOR TCD -
ABAP.
Internal table with the strcuture of file on desk
TYPES: BEGIN OF IS_TAB,
         FNAME(10),
         LNAME(10),
         SNAME1(10),
         SNAME2(10),
         DOB(4),
       END    OF IS_TAB.
DATA   IN_TAB TYPE TABLE OF IS_TAB.
Upload the file into internal table
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_UPLOAD
  EXPORTING
    FILENAME                =  'C:\Documents and Settings\720783\Desktop\TEST.xls'
    FILETYPE                = 'ASC'
    HAS_FIELD_SEPARATOR     = 'X'
  CHANGING
    DATA_TAB                =  IN_TAB
  EXCEPTIONS
    FILE_OPEN_ERROR         = 1
    FILE_READ_ERROR         = 2
    NO_BATCH                = 3
    GUI_REFUSE_FILETRANSFER = 4
    INVALID_TYPE            = 5
    NO_AUTHORITY            = 6
    UNKNOWN_ERROR           = 7
    BAD_DATA_FORMAT         = 8
    HEADER_NOT_ALLOWED      = 9
    SEPARATOR_NOT_ALLOWED   = 10
    HEADER_TOO_LONG         = 11
    UNKNOWN_DP_ERROR        = 12
    ACCESS_DENIED           = 13
    DP_OUT_OF_MEMORY        = 14
    DISK_FULL               = 15
    DP_TIMEOUT              = 16
    NOT_SUPPORTED_BY_GUI    = 17
    ERROR_NO_GUI            = 18
    others                  = 19.
IF SY-SUBRC <> 0.
  LOOP AT IN_TAB INTO IS_TAB.
  Pass the value from the internal table to recroding
    AS01_1-DYNPRO[2]-FIELD[18]-VALIN = IS_TAB-FNAME.
    TCD ( AS01 , AS01_1 ).
    CLEAR IS_TAB.
  ENDLOOP.
ENDIF.
ENDABAP.
PS: If the answer solves your query, reward the points.
Regards