TCD error in Secatt

Question

Hello Gurus,
Below given is my code in Ecatt.
I want to give TCD in loop.But it is not allowing me .Can any one help me in this??
Its urgent
ABAP.
*DO COUNT TIMES.
*ABAP BLOCK TO GET THE NUMBER OF TEST CASES
*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_LOANFA OCCURS 0,
        PERNR LIKE PA0045-PERNR,
        BEGDA LIKE PA0045-BEGDA,
        ENDDA LIKE PA0045-ENDDA,
        EXTDL LIKE PA0045-EXTDL,
        DATBW LIKE PA0045-DATBW,
        DARBT LIKE PA0045-DARBT,
        TILBG LIKE PA0045-TILBG,
        TILBT LIKE PA0045-TILBT,
        ZAHLD LIKE PA0078-ZAHLD,
        ZAHLA LIKE PA0078-ZAHLA,
    BETRG LIKE PA0078-BETRG,
END OF I_LOANFA.
*WORK AREA TO HOLD I_LOANFA DATA
DATA:WA LIKE I_LOANFA.
V_FILE-PATH = 'C:\TEST.TXT'.
FILE = V_FILE-PATH.
*LOADING MASTER DATA FROM THE FILE
CALL FUNCTION 'GUI_UPLOAD'
   EXPORTING
     FILENAME                      = FILE
   FILETYPE                      = 'ASC'
    HAS_FIELD_SEPARATOR           = 'X'
   HEADER_LENGTH                 = 0
   READ_BY_LINE                  = 'X'
   DAT_MODE                      = ' '
   CODEPAGE                      = ' '
   IGNORE_CERR                   = ABAP_TRUE
   REPLACEMENT                   = '#'
   CHECK_BOM                     = ' '
   NO_AUTH_CHECK                 = ' '
IMPORTING
   FILELENGTH                    =
   HEADER                        =
   TABLES
     DATA_TAB                      = I_LOANFA
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
   OTHERS                        = 17
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
BREAK-POINT.
*GETTING NUMBER OF RECORDS IN THE TABLE
DESCRIBE TABLE I_LOANFA LINES TOT.
*STORING NUMBER OF RECORDS IN LOCAL VARIABLE
COUNT = TOT.
*CLEARING INTERNAL TABLE
CLEAR I_LOANFA.
V_READINDX : holds index number to read the internal table
FILE: holds file path of test file
DATA : V_READINDX TYPE I.
DO COUNT TIMES.
V_READINDX = INT_LOC.
READ TABLE I_LOANFA INDEX V_READINDX INTO WA.
*Assigning Work Area Values To The Screen Field Values
V_PERNR = WA-PERNR.
V_BEGDA = WA-BEGDA.
V_ENDDA = WA-ENDDA.
V_EXTDL = WA-EXTDL.
V_DATBW = WA-DATBW.
V_DARBT = WA-DARBT.
V_TILBG = WA-TILBG.
V_TILBT = WA-TILBT.
V_ZAHLD = WA-ZAHLD.
V_ZAHLA = WA-ZAHLA.
V_BETRG = WA-BETRG.
TCD(PA30,PA30_1).
INT_LOC = INT_LOC + 1.
ENDDO.
ENDABAP.
Thanx,
Deepak

Answer 1

Hello Deepak
I am not a business analyst so I do not really know when the confirmation screen is displayed. However, given your description I assume it is shown after the last order item.
If this assumption is correct then a pseudo-coding would look like:
IF ( n < max. number of items ).
  TCD(VA02,VA02_1).
ELSE.
  TCD(VA02,VA02_2).
ENDIF.
In this case I would call a function module to retrieve the sales order items, determine the number of items and then loop over the items:
" Example: n = 4   => ld_max
  ld_count = ld_max - 1.
  ld_idx = 0.
  DO ( ld_count ).
    ld_idx = ld_idx + 1.
    ABAP.
      READ TABLE lt_items INTO ls_item INDEX ld_idx.
    ENDABAP.
    TCD(VA02,VA02_1).  " transaction without confirmation
  ENDDO.
    ABAP.
      READ TABLE lt_items INTO ls_item INDEX ld_max.
    ENDABAP. 
    TCD(VA02,VA02_2).  " transaction with confirmation
Please note that your TCD recording should handle a <b>single item only</b>. Therefore you somehow need to take care of the selected item number within the transaction.
Regards,
  Uwe