topic Re: Building internal table in Application Development and Automation Discussions

Building internal table

Former Member — Wed, 13 Nov 2013 18:16:02 GMT

Hello Experts,

I need to Build an internal table based on the Below two values.

a) lv_installements = 8.

b) License Fee = 1033.00 .

With the above two values, i need to build an internal table with 8 entries Equally Dividing the License fee.

1033/8 = 129.125 .

first 7 entries should have integer values 129 , the Decimal values should be adjusted in the last entry , I.E last entry should have 130.

WIth the above 2 values a) and b) , i want the internal table in the following way.

A B

1 129

2 129

3 129

4 129

5 129

6 129

7 129

8 130

Can any one suggest me how to do this efficiently. ?

Thanks and Regards,

Kaushik M

Re: Building internal table

Pavan_Golesar — Wed, 13 Nov 2013 18:59:39 GMT

Hey,

Kaushik M wrote:
Hello Experts, 
  I need to Build an internal table based on the Below two values. 
a) lv_installements = 8. 
b) License Fee      = 1033.00 .
With the above two values, i need to build an internal table with 8 entries Equally Dividing the License fee.  
1033/8 = 129.125 .
first 7 entries should have integer values 129  , the Decimal values should be adjusted in the last entry , I.E last entry should have 130. 
WIth the above 2 values a) and b) , i want the internal table in the following way. 
A    B
1    129
2    129
3    129
4    129
5    129
6    129
7    129
8    130
Can any one suggest me how to do this efficiently. ? 
Thanks and Regards,
Kaushik M

its quite simple, just do the following:

Firstly,Once you create a internal table with the fields L_INSTALLMENT & LICENSE_FEE.

,then fill this table till no. of installments(Do this by simply).

Take Two dummy variables(mean while Var1 & Var2),

one for storing value without round-up (IE. VAR1)and second variable for storing rounded-up value IE.VAR 2(If in case needed like in your explained example is 130).

Now Simply use Var1 for first 7 entries and Var2 for reamaing.

now loop it on internal table so your internal table is ready to be used later.:-)

That's up to best of my knowledge the efficient and the simplest one as we want it could be efficiently done.

Thanks.

Regards : Pavan Golesar.

http://scn.sap.com/people/pavangolesar

Re: Building internal table

Former Member — Wed, 13 Nov 2013 19:39:00 GMT

I guess I'd write something like:

Rate = fee / installments

m_rate = floor( rate )

e_rate = ceil( rate )

count = 1

do while count < installments

itab-count = count

itab-rate = m_rate

append itab

count = count + 1

enddo

itab-count = count

itab-rate = e_rate

append itab

Neal

Re: Building internal table

Former Member — Wed, 13 Nov 2013 19:39:44 GMT

Now whether that's efficient or not, I don't know...

Re: Building internal table

Pavan_Golesar — Wed, 13 Nov 2013 19:45:25 GMT

Great job ..

AWESOME.. Thank You Neal.

Regards: Pavan Golesar

Message was edited by: Pavan Golesar

Re: Building internal table

Former Member — Thu, 14 Nov 2013 03:30:35 GMT

I checked the issue and started writing some code, later i saw my logic and logic given by you(pavan) and Neal, all are same. .. Good work Neal and Pavan.

Re: Building internal table

former_member209120 — Thu, 14 Nov 2013 04:08:44 GMT

Hi Kaushik M

You can try like this

TYPES : BEGIN OF ty_final,
           lv_installements TYPE i,
           license_fee      TYPE p DECIMALS 2,
          END OF ty_final.

DATA : it_final TYPE TABLE OF ty_final,
         wa_final TYPE ty_final.

DATA : var TYPE i,
        cnt TYPE i,
        tot TYPE i,
        dif TYPE p DECIMALS 2.

PARAMETER : p_inst TYPE i,
              p_fee TYPE P DECIMALS 2.

DO p_inst TIMES.

    var = p_fee / p_inst.
    cnt = cnt + 1.
    tot = tot + var.

    IF cnt < p_inst.
      wa_final-lv_installements = cnt.
      wa_final-license_fee      = var.
      APPEND wa_final TO it_final.
      CLEAR wa_final.
    ELSE.
      dif = p_fee - tot.
      wa_final-lv_installements = cnt.
      wa_final-license_fee      = ( var + dif ).
      APPEND wa_final TO it_final.
      CLEAR wa_final.
    ENDIF.
enddo.

    LOOP AT it_final INTO wa_final.
      WRITE: / wa_final-lv_installements,
               wa_final-license_fee.
    ENDLOOP.

Re: Building internal table

former_member209120 — Thu, 14 Nov 2013 04:32:53 GMT

Good Logic...but in this case your logic fails i think.... if i am wrong correct me...

TYPES : BEGIN OF ty_final,
          lv_installements TYPE i,
          license_fee      TYPE i,
         END OF ty_final.

DATA : it_final TYPE TABLE OF ty_final,
        wa_final TYPE ty_final.

DATA : var TYPE p DECIMALS 2,
        m_rate TYPE p DECIMALS 2,
        e_rate TYPE p DECIMALS 2,
        count TYPE i.

PARAMETER : p_inst TYPE i,
             p_fee TYPE p DECIMALS 2.

var = p_fee / p_inst.
m_rate = FLOOR( var ).
e_rate = CEIL( var ).

Write : / m_rate,
         / e_rate.

last value should be 130.90 or 131 but result 130.00 is correct?

Re: Building internal table

former_member220538 — Thu, 14 Nov 2013 05:50:33 GMT

Hi Kaushik,

Try this here x_itab is a structure contain only two fields A and B and t_itab is the internal table.

DATA val TYPE i.

PARAMETERS :p_no TYPE i DEFAULT 1033,
                           p_div TYPE i DEFAULT 8.

val = floor( p_no / p_div ).

DO p_div TIMES.

IF p_div EQ sy-index.
    val = val + p_no MOD p_div.
ENDIF.

x_itab-a = sy-index.
x_itab-b = val.
APPEND x_itab TO t_itab.

WRITE :/, AT 10 x_itab-a,
            AT 20 x_itab-b.

ENDDO.

Regards,

Jeffin

Re: Building internal table

former_member209120 — Thu, 14 Nov 2013 06:07:43 GMT

Hi Jeffin George

In this case your logic fails....

Re: Building internal table

Former Member — Thu, 14 Nov 2013 06:26:37 GMT

Hello Ramesh T,

Thanks alot for your help. It works for all cases.

I will mark it as correct answer.

There is two more field also.

Start date and End date.

Start Date:			01.01.2013
End Date:			01.08.2013

Number of installments: 8

Licence Fee : 8000

Now the Duration is 8 months from 01.01.2013 to 01.08.2013 . now i need to divide 8 months into 8 installments.

Can you tel me how to convert these dates into days and then divide and finaly need to show the dates . I am trying to get the out put in the following way.

Once again thanks alot for your correct solution,

Date of instalment instalment no Licence fee

01.01.2013 1 1000

01.02.2013 2 1000

01.03.2013 3 1000

01.04.2013 4 1000

01.05.2013 5 1000

01.06.2013 6 1000

01.07.2013 7 1000

01.08.2013 8 1000

Thanks and Regards,

Kaushik M

Re: Building internal table

former_member220538 — Thu, 14 Nov 2013 06:28:03 GMT

Hi Ramesh,

Try this

Change the statment val = val + p_no MOD p_div to

val = val + floor( p_no MOD p_div ).

IF p_div EQ sy-index.

val = val + floor( p_no MOD p_div ).

ENDIF.

Re: Building internal table

Former Member — Thu, 14 Nov 2013 06:29:55 GMT

In case of

a) lv_installements = 8.

b) License Fee = 1038.00 .

Then the installment will be 129.75

Then the result should be

A B

1 129

2 129

3 129

4 129

5 129

6 129

7 129

8 130 0r 135.

Explain it so that In this u have to collect the remaining amt for last month as 129 + .75 * 8 = 135.

Re: Building internal table

Former Member — Thu, 14 Nov 2013 06:50:48 GMT

Hi,

Go through the following code :

TYPES : BEGIN OF TY_ITAB,

INST TYPE I,

AMOUNT TYPE I,

END OF TY_ITAB.

DATA : TEMP TYPE I,

LAST TYPE P LENGTH 15 DECIMALS 4,

TEMP2 TYPE P LENGTH 15 DECIMALS 4,

COUNT TYPE I,

ITAB TYPE TABLE OF TY_ITAB,

WA_ITAB TYPE TY_ITAB.

PARAMETERS : PA_INSTL TYPE I,

PA_AMT TYPE P LENGTH 15 DECIMALS 4.

TEMP2 = PA_AMT / PA_INSTL. "calculate installment amount with decimals

TEMP = TEMP2. "round off installment amount to remove decimals

LAST = ( TEMP2 - TEMP ) * ( PA_INSTL ). "calculate total of removed decimal values

DO PA_INSTL TIMES.

WA_ITAB-INST = SY-INDEX. "installment number to work area

WA_ITAB-AMOUNT = TEMP. "installment amount to work area

IF SY-INDEX = PA_INSTL. "if last installment then add total of truncated decimals

WA_ITAB-AMOUNT = WA_ITAB-AMOUNT + LAST.

ENDIF.

APPEND WA_ITAB TO ITAB. "insert row to internal table

CLEAR WA_ITAB.

ENDDO.

LOOP AT ITAB INTO WA_ITAB. "display internal table

WRITE : / WA_ITAB-INST,

WA_ITAB-AMOUNT.

ENDLOOP.

OUTPUT :

1 129

2 129

3 129

4 129

5 129

6 129

7 129

8 130

regards,

Ashish Rawat

Re: Building internal table

Mujeeb — Thu, 14 Nov 2013 06:55:01 GMT

Hi Kaushik M,

This might help you.

TYPES: BEGIN OF ty_s_itab,

a TYPE decfloat34,

b TYPE decfloat34,

END OF ty_s_itab.

DATA x_itab TYPE ty_s_itab.

DATA count TYPE i.

DATA t_itab TYPE STANDARD TABLE OF ty_s_itab.

DATA val TYPE decfloat34.

PARAMETERS :p_no TYPE decfloat34,

p_div TYPE decfloat34.

val = 0.

count = 1.

WHILE p_no GE count.

x_itab-a = count.

x_itab-b = floor( p_div / p_no ).

val = val + p_div / p_no - floor( p_div / p_no ).

IF count EQ p_no.

x_itab-b = x_itab-b + val.

ENDIF.

APPEND x_itab TO t_itab.

CLEAR x_itab.

count = count + 1 .

ENDWHILE.

LOOP AT t_itab INTO x_itab.

WRITE:/ x_itab-a,' ', x_itab-b.

ENDLOOP.

Thanks and regards,

Mujeeb

Re: Building internal table

Former Member — Thu, 14 Nov 2013 06:58:28 GMT

TYPES : BEGIN OF ty_s,

a TYPE p DECIMALS 2,

b TYPE p DECIMALS 2,

        END OF ty_s.

DATA val TYPE p DECIMALS 2.

DATA : x_itab TYPE ty_s,

       t_itab TYPE TABLE OF ty_s.

PARAMETERS :p_no TYPE i DEFAULT 1038,

                           p_div TYPE i DEFAULT 8.

val = p_no DIV p_div .

DO p_div TIMES.

IF p_div EQ sy-index.

    val = val + p_no MOD p_div.

ENDIF.

x_itab-a = sy-index.

x_itab-b = val.

APPEND x_itab TO t_itab.

WRITE :/, AT 10 x_itab-a,

            AT 20 x_itab-b.

ENDDO. check this..

Re: Building internal table

Former Member — Thu, 14 Nov 2013 07:02:02 GMT

Hello,

There are two more field also.

Start date and End date.

Start Date:			01.01.2013
End Date:			01.08.2013

Number of installments: 8

Licence Fee : 8000

Now the Duration is 8 months from 01.01.2013 to 01.08.2013 . now i need to divide 8 months into 8 installments.

Can you tel me how to convert these dates into days and then divide and finaly need to show the dates . I am trying to get the out put in the following way.

Once again thanks alot for your correct solution,

Date of instalment instalment no Licence fee

01.01.2013 1 1000

01.02.2013 2 1000

01.03.2013 3 1000

01.04.2013 4 1000

01.05.2013 5 1000

01.06.2013 6 1000

01.07.2013 7 1000

01.08.2013 8 1000

Thanks and Regards,

Kaushik M

Re: Building internal table

Former Member — Thu, 14 Nov 2013 07:02:18 GMT

Hello,

There are two more field also.

Start date and End date.

Start Date:			01.01.2013
End Date:			01.08.2013

Number of installments: 8

Licence Fee : 8000

Now the Duration is 8 months from 01.01.2013 to 01.08.2013 . now i need to divide 8 months into 8 installments.

Can you tel me how to convert these dates into days and then divide and finaly need to show the dates . I am trying to get the out put in the following way.

Once again thanks alot for your correct solution,

Date of instalment instalment no Licence fee

01.01.2013 1 1000

01.02.2013 2 1000

01.03.2013 3 1000

01.04.2013 4 1000

01.05.2013 5 1000

01.06.2013 6 1000

01.07.2013 7 1000

01.08.2013 8 1000

Thanks and Regards,

Kaushik M

Re: Building internal table

Former Member — Thu, 14 Nov 2013 07:39:02 GMT

If the installments are going to be 1 per month then I don't think that end date is needed.

Refer to the following changed code :

TYPES : BEGIN OF TY_ITAB,

DATE TYPE SY-DATUM,

INST TYPE I,

AMOUNT TYPE I,

END OF TY_ITAB.

DATA : TEMP TYPE I,

LAST TYPE P LENGTH 15 DECIMALS 4,

TEMP2 TYPE P LENGTH 15 DECIMALS 4,

COUNT TYPE I,

ITAB TYPE TABLE OF TY_ITAB,

WA_ITAB TYPE TY_ITAB,

DAT TYPE sy-datum. "temporary variable for date

PARAMETERS : PA_INSTL TYPE I,

PA_AMT TYPE P LENGTH 15 DECIMALS 4,

PA_DATE TYPE SY-DATUM.

TEMP2 = PA_AMT / PA_INSTL. "calculate installment amount with decimals

TEMP = TEMP2. "round off installment amount to remove decimals

LAST = ( TEMP2 - TEMP ) * ( PA_INSTL ). "calculate total of removed decimal values

DAT = PA_DATE. "assign date to date variable

DO PA_INSTL TIMES.

WA_ITAB-DATE = DAT. "assign date

WA_ITAB-INST = SY-INDEX. "installment number to work area

WA_ITAB-AMOUNT = TEMP. "installment amount to work area

IF SY-INDEX = PA_INSTL. "if last installment then add total of truncated decimals

WA_ITAB-AMOUNT = WA_ITAB-AMOUNT + LAST.

ENDIF.

APPEND WA_ITAB TO ITAB. "insert row to internal table

CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL' "increase date by 1 month

EXPORTING

DATE = dat

DAYS = 0

MONTHS = 1

* SIGNUM = '+'

YEARS = 0

IMPORTING

CALC_DATE = dat

CLEAR WA_ITAB.

ENDDO.

LOOP AT ITAB INTO WA_ITAB. "display internal table

WRITE : / WA_ITAB-DATE,

WA_ITAB-INST,

WA_ITAB-AMOUNT.

ENDLOOP.

OUTPUT :

01.01.2013 1 1,000

01.02.2013 2 1,000

01.03.2013 3 1,000

01.04.2013 4 1,000

01.05.2013 5 1,000

01.06.2013 6 1,000

01.07.2013 7 1,000

01.08.2013 8 1,000

Regards,

Ashish Rawat

Re: Building internal table

Mujeeb — Thu, 14 Nov 2013 07:46:11 GMT

Hi Kaushik M,

Please see below code, dynamically we are calculating the number of days between two date and dividing it by the installment count. Hope this will help you.

TYPES: BEGIN OF ty_s_itab,

date TYPE sy-datum,

a TYPE decfloat34,

b TYPE decfloat34,

END OF ty_s_itab.

DATA x_itab TYPE ty_s_itab.

DATA count TYPE i.

DATA count1 TYPE i.

DATA:lv_diff TYPE i.

DATA:lv_diff1 TYPE i.

DATA lv_date TYPE eeind.

DATA t_itab TYPE STANDARD TABLE OF ty_s_itab.

DATA val TYPE decfloat34.

PARAMETERS :p_no TYPE decfloat34,

p_div TYPE decfloat34,

p_date1 TYPE dats OBLIGATORY,

p_date2 TYPE dats OBLIGATORY.

* Calculate days between two date

CALL FUNCTION 'DAYS_BETWEEN_TWO_DATES'

EXPORTING

i_datum_bis = p_date1

i_datum_von = p_date2

IMPORTING

e_tage = lv_diff

EXCEPTIONS

days_method_not_defined = 1

OTHERS = 2.

IF sy-subrc <> 0.

WRITE:/ 'Error'.

ENDIF.

val = 0.

count = 1.

count1 = 0.

WHILE p_no GE count.

lv_diff1 = abs( count1 * ( lv_diff / p_no ) ).

count1 = count1 + 1.

* Conver the date in out format

CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT'

EXPORTING

input = p_date1

IMPORTING

output = lv_date.

* Calculate the date in future

CALL FUNCTION 'DATE_IN_FUTURE'

EXPORTING

anzahl_tage = lv_diff1

import_datum = lv_date

IMPORTING

export_datum_int_format = x_itab-date.

x_itab-a = count.

x_itab-b = floor( p_div / p_no ).

val = val + p_div / p_no - floor( p_div / p_no ).

IF count EQ p_no.

x_itab-b = x_itab-b + val.

ENDIF.

count = count + 1 .

APPEND x_itab TO t_itab.

CLEAR x_itab.

ENDWHILE.

LOOP AT t_itab INTO x_itab.

WRITE:/ x_itab-date, ' ',x_itab-a,' ', x_itab-b.

ENDLOOP.

Thanks and regards,

Mujeeb