topic Re: Internal table in Application Development and Automation Discussions

Internal table

Former Member — Thu, 14 Sep 2006 08:57:45 GMT

Hi Friends,

I have an internal table with the columns : Material, Apr, May, Jun, Jul, Aug ..... Mar.

Based on some condition, i am updating this table.

I have also an input field which accepts the month. If my input month is Sep'06, then the data in the internal table for the columns Apr to Aug should become 0.

Could any guide me how to do this in a simple way.

TIA.

Regards,

Mark K

Re: Internal table

Former Member — Thu, 14 Sep 2006 09:09:15 GMT

Hi Mark

You can use the below for the startup and improvise

basing on your requirement.

FIELD-SYMBOLS: <WA_TAB>, <TEMP>.
DATA: L_KEY TYPE I,
      L_NUM TYPE I.

CASE P_INPUT.
WHEN 'APR'.
   L_KEY = 2.
WHEN 'MAY'.
   L_KEY = 3.
WHEN 'JUN'.
   L_KEY = 4.
WHEN 'JUL'.
   L_KEY = 5.
WHEN 'AUG'.
   L_KEY = 6.
WHEN 'SEP'.
   L_KEY = 7.
WHEN 'OCT'.
   L_KEY = 8.
WHEN 'NOV'.
   L_KEY = 9.
WHEN 'DEC'.
   L_KEY = 10.
WHEN 'JAN'.
   L_KEY = 11.
WHEN 'FEB'.
   L_KEY = 12.
WHEN 'MAR'.
   L_KEY = 13.
ENDCASE.

LOOP AT IT_TAB ASSIGNING <WA_TAB>.
  L_NUM = 2.
  DO.
   ASSIGN COMPONENT L_NUM OF STRUCTURE <WA_TAB> TO <TEMP>.
   IF SY-SUBRC EQ 0.
      IF L_NUM < L_KEY.
         CLEAR: <TEMP>.
      ENDIF.
   L_NUM = L_NUM + 1.
   ELSE.
   EXIT.
   ENDIF.
 ENDDO.
ENDLOOP.

Kindly note that L_KEY and L_NUM denotes the column

positions to identify.

Kind Regards

Eswar

Message was edited by: Eswar Rao Boddeti

Re: Internal table

Former Member — Thu, 14 Sep 2006 09:09:50 GMT

Hi,

wa-may = 0.

...

wa-aug = 0.

MODIFY ITab FROM Wa TRANSPORTING apr may jun jul aug.

Regards,

bala

Message was edited by: krithika balamurughan

Re: Internal table

Former Member — Thu, 14 Sep 2006 09:24:05 GMT

The logic can be as follows...

pmonth <= your input field.

lmon = pmonth(3). "ie. SEP

Select mnr into lper from t247

where spras = sy-langu and ktx = lmon.

if lper <> 0.

loop at itab.

lper = lper + 1.

do lper times.

assign component of structure itab to <f>.

if sy-subrc = 0.

check sy-index <> 1.

<f> = 0.

modify itab.

else.

exit.

endif.

enddo.

endloop.

Re: Internal table

Former Member — Thu, 14 Sep 2006 12:32:51 GMT

Thanks a lot.

Regards,

Mark K