Skip to Content
0
Former Member
Jul 10, 2007 at 04:17 AM

SECATT error

42 Views

Hi,

When i was doing SECATT for the transaction XK01 i am getting the below error

________

Internal error: syntax error in generated report of test environment

72 SYS$$ERROR$$ Comma without preceding colon (after TCD ?).

________

The code which i wrote in SECATT is given below..

ABAP.

DATA : TOT TYPE I VALUE 0,

FILE TYPE STRING,

field2 type string,

count type i.

  • ITAB TO HOLD TEST DATA FROM FILE

data: begin of i_xk01 occurs 0,

v_lifnr like rf02k-lifnr,

v_bukrs like rf02k-bukrs,

v_ekorg like rf02k-ekorg,

v_ktokk like rf02k-ktokk,

v_anred like LFA1-ANRED,

v_name1 like LFA1-NAME1,

v_sortl like LFA1-SORTL,

v_land1 like LFA1-LAND1,

v_akont like lfb1-akont,

v_fdgrv like lfb1-fdgrv,

  • zterm like lfb1-zterm,

v_waers like lfm1-waers,

end of i_xk01.

  • TO OPEN FILE DIALOG FOR TEST DATA FILE

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = SYST-CPROG

DYNPRO_NUMBER = SYST-DYNNR

FIELD_NAME = 'FILE'

IMPORTING

FILE_NAME = FILE.

*FILE = FILE_V-PATH.

  • LOADING DATA FROM THE FILE

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = FILE

HAS_FIELD_SEPARATOR = 'X'

TABLES

DATA_TAB = I_xk01.

  • GETTING NUMBER OF RECORDS IN THE TABLE

DESCRIBE TABLE I_xk01 LINES TOT.

  • STORING NUMBER OF RECORDS IN LOCAL VARIABLE

COUNT = TOT.

  • CLEARING INTERNAL TABLE

CLEAR I_xk01.

  • LOOPING THROUGH (COUNT) NUMBER OF RECORDS

DO 3 times.

  • 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,

int_loc type i.

  • count type i.

  • WORKAREA TO HOLD THE I_MARA DATA

DATA : WA LIKE I_xk01.

*FILE = FILE_V-PATH.

  • LOADING MASTER DATA FROM THE FILE

V_READINDX = INT_LOC.

  • READING I_MARA UGING ITS INDEX

READ TABLE I_xk01 INDEX V_READINDX INTO WA.

  • assigning work area values to the screen field values

V_LIFNR = WA-V_LIFNR. " Material Number

V_bukrs = WA-V_bukrs. " Industry Sector

V_ekorg = WA-V_ekorg. " Material Type

V_ktokk = WA-V_ktokk. " Material Description

V_anred = WA-V_anred. " Basic Unit of Measure

V_name1 = WA-V_name1. " Material Number

V_sortl = WA-V_sortl. " Industry Sector

V_land1 = WA-V_land1. " Material Type

V_akont = WA-V_akont. " Material Description

V_fdgrv = WA-V_fdgrv. " Basic Unit of Measure

V_waers = WA-V_waers. " Basic Unit of Measure

  • TCD Transaction /////////////////////

TCD ( XK01 , XK01_1 ).

  • move index position by one

INT_LOC = INT_LOC + 1.

ENDDO.

ENDABAP.

-


any help on this is highly appriciated

Regards

Jaya