write code for the following

[Former Member]

■ Create a work area of following fields-

o KNA1-KUNNR

o KNA1-LAND1

o KNA1-ORT01

o KNA1-SPRAS

o KNA1-REGIO

■ Create an internal table of the above structure

■ Fetch 10 rows of data from KNA1 table and populate the ITAB in step 2

■ Output the data from the ITAB

■ Using INSERT statement insert two records at index 2 and 9

■ Output the data from the ITAB

■ Using DELETE statement delete two records at index 5 and 12

■ Output the data from the ITAB

■ Using MODIFY statement modify record at index 1 by changing value of NAME1 to ‘High Noon Corp.’

■ Output the data from the ITAB

[S0025444845]

hI,

JUST COPY,PASTE N RUN.

&----

---

*& Report Z_KNA1

*&

&----

---

*&

*&

&----

---

REPORT z_kna1.

TYPES: BEGIN OF ty_kna1,

kunnr TYPE kna1-kunnr,

land1 TYPE kna1-land1,

ort01 TYPE kna1-ort01,

spras TYPE kna1-spras,

regio TYPE kna1-regio,

END OF ty_kna1.

DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1,

wa_kna1 TYPE ty_kna1.

SELECT kunnr land1 ort01 spras regio

FROM kna1 INTO TABLE it_kna1

UP TO 10 ROWS.

LOOP AT it_kna1 INTO wa_kna1.

WRITE:/ wa_kna1-kunnr,

wa_kna1-land1,

wa_kna1-ort01,

wa_kna1-spras,

wa_kna1-regio.

CLEAR: wa_kna1.

ENDLOOP.

wa_kna1-kunnr = 'CUSTOMER'.

wa_kna1-land1 = 'IN'.

wa_kna1-ort01 = 'HYD'.

wa_kna1-spras = 'EN'.

wa_kna1-regio = 'AB'.

INSERT WA_KNA1 INTO IT_KNA1 INDEX 2.

WRITE:/,/,/ 'AFTRE INSERTING'.

LOOP AT it_kna1 INTO wa_kna1.

WRITE:/ wa_kna1-kunnr,

wa_kna1-land1,

wa_kna1-ort01,

wa_kna1-spras,

wa_kna1-regio.

CLEAR: wa_kna1.

ENDLOOP.

dELETE IT_KNA1 INDEX 5.

WRITE:/,/,/ 'AFTER DELETING'.

LOOP AT it_kna1 INTO wa_kna1.

WRITE:/ wa_kna1-kunnr,

wa_kna1-land1,

wa_kna1-ort01,

wa_kna1-spras,

wa_kna1-regio.

CLEAR: wa_kna1.

ENDLOOP.

REGARDS,

SUDHA

[Former Member]

Hi,

please see this code.

DATA:BEGIN OF wa_itab,
     kunnr like KNA1-KUNNR,
     name1 like kna1-name1,
     land1 like KNA1-LAND1,
     ort01 like KNA1-ORT01,
     spras like KNA1-SPRAS,
     regio like KNA1-REGIO,
     END OF wa_itab.

DATA:itab like TABLE OF wa_itab.

select * from kna1 into CORRESPONDING FIELDS OF TABLE itab UP TO 10
rows.

LOOP AT itab into wa_itab.
  WRITE:/ wa_itab-kunnr,wa_itab-name1,wa_itab-land1,wa_itab-ort01,
          wa_itab-spras,wa_itab-regio.
ENDLOOP.

clear wa_itab.
wa_itab-kunnr = 'test1'.
INSERT wa_itab INTO itab INDEX 2.

clear wa_itab.
wa_itab-kunnr = 'test2'.
INSERT wa_itab INTO itab INDEX 9.

skip.

LOOP AT itab into wa_itab.
  WRITE:/ wa_itab-kunnr,wa_itab-name1,wa_itab-land1,wa_itab-ort01,
          wa_itab-spras,wa_itab-regio.
ENDLOOP.

delete itab index 5.
delete itab index 12.


skip.

LOOP AT itab into wa_itab.
  WRITE:/ wa_itab-kunnr,wa_itab-name1,wa_itab-land1,wa_itab-ort01,
          wa_itab-spras,wa_itab-regio.
ENDLOOP.

READ TABLE itab INTO wa_itab INDEX 1.
wa_itab-name1 = 'High Noon Corp.'.
MODIFY itab from wa_itab INDEX 1.

skip.

LOOP AT itab into wa_itab.
  WRITE:/ wa_itab-kunnr,wa_itab-name1,wa_itab-land1,wa_itab-ort01,
          wa_itab-spras,wa_itab-regio.
ENDLOOP.

rgds,

bharat.

[Former Member]

PLEASE CHECK THE FOLLOWING CODE.

• CREATING WORK AREA

data: begin of wa_itab,

KUNNR LIKE KNA1-KUNNR,

LAND1 LIKE KAN1-LAND1,

ORT01 LIKE KNA1-ORT01,

SPRAS LIKE KNA1-SPRAS,

REGIO LIKE KNA1-REGIO,

END OF WA_ITAB.

• CREATING INTERNAL TABLE USING WORK AREA WA_ITAB

DATA: ITAB LIKE WA_ITAB OCCURS 0 WITH HEADER LINE.

• FETCHING 10 RECORDS FROM KNA1

SELECT KUNNR

LAND1

ORT01

SPRAS

REGIO

FROM KNA1

INTO TABLE ITAB UPTO 10 ROWS.

*OUTPUT FROM INTERNAL TABLE

LOOP AT ITAB INTO ITAB.

WRITE: / ITAB-KUNNR,

ITAB-LAND1,

ITAB-ORT01,

ITAB-SPRAS,

ITAB-REGIO.

END LOOP.

*INSERTING RECORDS AT INDEX 2

CLEAR ITAB.

WA_KNA1-KUNNR = 'SAP'.

WA_KNA1-LAND1 = 'INDIA'.

WA_KNA1-ORT01 = 'HYDERABAD'.

WA_KNA1-SPRAS = 'EN'.

WA_KNA1-REGIO = 'AP'.

INSERT WA_ITAB INTO ITAB INDEX 2.

*INSERTING RECORDS AT INDEX 9

CLEAR ITAB.

WA_KNA1-KUNNR = 'ABAP'.

WA_KNA1-LAND1 = 'INDIA'.

WA_KNA1-ORT01 = 'SEC'BAD'.

WA_KNA1-SPRAS = 'EN'.

WA_KNA1-REGIO = 'AP'.

INSERT WA_ITAB INTO ITAB INDEX 9.

*OUT PUT AFTER INSERTING LINE AT INDEX 2 & 9

LOOP AT ITAB INTO ITAB.

WRITE: / 'AFTER INSERTING LINES AT INDEX 2 & 9.'

/ ITAB-KUNNR,

ITAB-LAND1,

ITAB-ORT01,

ITAB-SPRAS,

ITAB-REGIO.

END LOOP.

*DELETING RECORDS AT INDEX 5

DELETE ITAB INDEX 5.

DELETE ITAB INDEX 12.

*OUTPUT AFTER DELETING LINES 5 & 12.

LOOP AT ITAB INTO ITAB.

WRITE: / 'AFTER DELETING LINES AT INDEX 5 & 12.'

/ ITAB-KUNNR,

ITAB-LAND1,

ITAB-ORT01,

ITAB-SPRAS,

ITAB-REGIO.

END LOOP.