cancel
Showing results for 
Search instead for 
Did you mean: 

Increase Infopackage Data Packet Size

former_member212786
Participant
0 Kudos

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

Accepted Solutions (1)

Accepted Solutions (1)

former_member186445
Active Contributor
0 Kudos

you need to use semantic grouping in your DTP. This way all records with the chosen semantic key will be in the same package.

M.

Answers (0)