Urgent! runtime error in CAT2

[Former Member]

Hello All,

When i try to release some time entries via cat2, a short dump will be caused. Below is the details:

Runtime Errors MESSAGE_TYPE_X

Short text of error message:

Internal error occurred

7 FORM FREE_ONE_CELL USING U_NUMBER

8 U_WORKDATE LIKE CATSDB-WORKDATE.

9

10 * assign the correct fields

11 PERFORM ASSIGN_FIELDS_IN_ICATSD USING U_NUMBER.

12 IF <STATUS> = STATUS-LOCK OR <STATUS> = STATUS-REJE.

13 * count records

14 TOTAL_RECORDS = TOTAL_RECORDS + 1.

15 * date in the future ?

16 IF TCATS-FUTURE IS INITIAL.

17 IF U_WORKDATE > SY-DATLO.

18 FUTURE_RECORDS = FUTURE_RECORDS + 1.

19 MESSAGE S024 WITH FUTURE_RECORDS TOTAL_RECORDS.

20 EXIT.

21 ENDIF.

22 ENDIF.

23 READ TABLE ICATSDB WITH KEY MANDT = SY-MANDT

24 WORKDATE = U_WORKDATE

25 COUNTER = <COUNTER>

26 BINARY SEARCH.

27 IF SY-SUBRC = 0.

28 ICATSDB-STATUS = STATUS-FREE.

29 IF ICATSDB-ACTION IS INITIAL.

30 ICATSDB-ACTION = ACTION-UPDATE.

31 ENDIF.

32 MODIFY ICATSDB INDEX SY-TABIX.

33 <STATUS> = STATUS-FREE.

34 * set global marker that data have been unlocked

35 FREE_DATA = YX.

36 ELSE.

>>>>> MESSAGE X030.

38 ENDIF.

39 ENDIF.

40 ENDFORM.

Need your helps. Thanks, point will be rewarded.

regards,

Alex M

[Former Member]

The problem has been resolved.

[Former Member]

I find the problem is caused by read statement. with addtion binary search the statement required the internal table should be sorted by search keys. The other statements in the custom exit has changed the way by which icatsdb is sorted, so it is the source of the problem.

thanks.

Alex M

[Former Member]

I advise you to post the same in the ABAP forum. Once they identify the problem post it here & we can solve it.