Skip to Content
0
May 19, 2016 at 06:15 AM

Increase Infopackage Data Packet Size

66 Views

Hi All,

I am getting records in two data packets in PSA. Due to this, i am not able delete duplicate records.

Could anyone advise how to bring all records in one single data packet. in Production system?

Is it possible to increase the data packet size only relevant data source?

or any other solution?

Start Routine Program as follows:

DATA: MONTH(2) TYPE N, YEAR(4) TYPE N , FLAG TYPE I , CALMONTH TYPE

_ty_s_SC_1-CALMONTH.

FIELD-SYMBOLS : <FS_TEMP> TYPE _ty_s_SC_1.

BREAK-POINT.

IT_TEMP = SOURCE_PACKAGE.

*SORT IT_TEMP BY FISYEAR PERNR REVIEW_CODE AEDTM DESCENDING.

*DELETE ADJACENT DUPLICATES FROM IT_TEMP COMPARING FISYEAR PERNR

*REVIEW_CODE.

SORT IT_TEMP BY FISYEAR.

DELETE ADJACENT DUPLICATES FROM IT_TEMP COMPARING FISYEAR.

SELECT * FROM /BIC/TYA_RATING INTO TABLE IT_RATING.

IF SY-SUBRC = 0.

SORT IT_RATING BY TXTMD.

ENDIF.

LOOP AT IT_TEMP ASSIGNING <SOURCE_FIELDS>.

FLAG = 0.

MONTH = 04.

YEAR = <SOURCE_FIELDS>-FISYEAR.

YEAR = YEAR - 1.

CLEAR IT_TEMP1.

IT_TEMP1 = SOURCE_PACKAGE.

DELETE IT_TEMP1 WHERE FISYEAR <> <SOURCE_FIELDS>-FISYEAR.

SORT IT_TEMP1 BY PERNR REVIEW_CODE SEQNR DESCENDING.

DELETE ADJACENT DUPLICATES FROM IT_TEMP1 COMPARING PERNR

REVIEW_CODE.

* DELETE IT_TEMP1 WHERE FISYEAR <> <SOURCE_FIELDS>-FISYEAR.

IF IT_RATING IS NOT INITIAL.

LOOP AT IT_TEMP1 ASSIGNING <FS_TEMP>.

RATING1 = <FS_TEMP>-RATING.

TRANSLATE RATING1 TO UPPER CASE.

READ TABLE IT_RATING INTO WA_RATING WITH KEY TXTMD = RATING1 BINARY

SEARCH.

IF SY-SUBRC = 0.

<FS_TEMP>-RATING = WA_RATING-/BIC/YA_RATING.

ELSEIF

RATING1 = '1'.

<FS_TEMP>-RATING = '42'.

ELSEIF RATING1 = '2'.

<FS_TEMP>-RATING = '32'.

ELSEIF RATING1 = '3'.

<FS_TEMP>-RATING = '27'.

ELSEIF RATING1 = '4'.

<FS_TEMP>-RATING = '14'.

ELSEIF RATING1 = '5'.

<FS_TEMP>-RATING = '12'.

ENDIF.

ENDLOOP.

ENDIF.

WHILE FLAG <> 1.

CONCATENATE YEAR MONTH INTO CALMONTH.

WA_TEMP-CALMONTH = CALMONTH.

MODIFY IT_TEMP1 FROM WA_TEMP TRANSPORTING CALMONTH WHERE FISYEAR =

<SOURCE_FIELDS>-FISYEAR.

APPEND LINES OF IT_TEMP1 TO IT_TEMP2.

MONTH = MONTH + 1.

IF MONTH = 13.

YEAR = <SOURCE_FIELDS>-FISYEAR.

MONTH = 01.

ELSEIF MONTH = 04.

FLAG = 1.

ENDIF.

ENDWHILE.

ENDLOOP.

BREAK-POINT.

CLEAR SOURCE_PACKAGE.

SOURCE_PACKAGE[] = IT_TEMP2[].

Rgds,

Rathinakumar