INTERNAL TABLE

FIRST SYNTEX FOR INTERNAL TABLE
=====================================
REPORT Z_ITABLE_FIRST .
*FIRST SYNTAX FOR INTERNALE TABLE

*-------------------------------------
*DATA : BEGIN OF EMP OCCURS 10,
* ENO(6) TYPE N,
* ENAME(25) TYPE C,
* EADDR(30) TYPE C,
* END OF EMP.

DATA : BEGIN OF CUSTOMER OCCURS 10,
CUSTOMER_ID(4) TYPE N,
CUSTOMER_NAME(35) TYPE C,
CUSTOMER_ADDRESS(35) TYPE C,
END OF CUSTOMER.

CUSTOMER-CUSTOMER_ID = 1001.
CUSTOMER-CUSTOMER_NAME = 'NIKI B. VASHI'.
CUSTOMER-CUSTOMER_ADDRESS = 'PLOT:->438/2,SECOTR:',&
'->30'GADNHINAGAR-382030',
APPEND CUSTOMER.

CUSTOMER-CUSTOMER_ID = 1002.
CUSTOMER-CUSTOMER_NAME = 'KINJAL N. VASHI'.
CUSTOMER-CUSTOMER_ADDRESS = 'PLOT:--> 438/2,SECOTR:-->30'.
*GADNHINAGAR-382030',
APPEND CUSTOMER.

CUSTOMER-CUSTOMER_ID = 1002.
CUSTOMER-CUSTOMER_NAME = 'KINJAL N. VASHI'.
CUSTOMER-CUSTOMER_ADDRESS = 'PLOT:--> 438/2,SECOTR:-->30'.
*GADNHINAGAR-382030',
APPEND CUSTOMER.

LOOP AT CUSTOMER.
WRITE :/ CUSTOMER-CUSTOMER_ID ,CUSTOMER-CUSTOMER_NAME .
* *CUSTOMER-CUSTOMER_ADDRESS.
ENDLOOP.



FOR SQL COMMANDS (INSERT,UPDATE,DELETE)
============================================
REPORT Z_ITABLE_SQL_COMM .
*--------------------------------------------------------------
* THIS PROGRAME IS FOR INSERT,UPDATE,DELETE RECORD IN THE DATABAE
*--------------------------------------------------------------

*----------------OPEN TABLE------
TABLES : ZTBL_CUSTOMER.
*--------------------------------
*SKIP. " FOR SKIP OF LINE
*ULINE. " UNDER LINE.
*SKIP.
*
*WRITE: 'CUST. CODE', 15 'CUST. NAME' , 45 'ADDRESS' , 68 'OP. BAL',
* 80'CLBAL'.
*SKIP.
*ULINE.
*SKIP.



INSERT SINGLE RECORD IN THE DATABASE TABLE
**----------------------------------------------------------------------
* ZTBL_CUSTOMER-CODE = 1.
* ZTBL_CUSTOMER-NAME = 'NIKI B.VASHI'.
* ZTBL_CUSTOMER-ADDRESS1 = 'PLOT:--> 438/2,'.
* ZTBL_CUSTOMER-ADDRESS2 = 'SECTOR :--> 30,'.
* ZTBL_CUSTOMER-ADDRESS3 = 'GANDHIANGAR-382030'.
* ZTBL_CUSTOMER-OPENING_BAL = 50000.
* ZTBL_CUSTOMER-CLOSING_BAL = 20000.
* INSERT ZTBL_CUSTOMER.
*
*SELECT * FROM ZTBL_CUSTOMER.
* WRITE : / ZTBL_CUSTOMER-CODE,15 ZTBL_CUSTOMER-NAME,
* 45 ZTBL_CUSTOMER-ADDRESS1,/45 ZTBL_CUSTOMER-ADDRESS2,
* /45 ZTBL_CUSTOMER-ADDRESS3 ,65 ZTBL_CUSTOMER-OPENING_BAL,
* 80 ZTBL_CUSTOMER-CLOSING_BAL.
*ENDSELECT.



INSERT MULTIPAL RECORD IN THE DATABASE TABLE
*-----------------------CERATE INTERNALE TABLE USEING A DATABAE TABLE
DATA CUST LIKE ZTBL_CUSTOMER OCCURS 0 WITH HEADER LINE.

* FROM THIS STATMENT ALL DATA IS IN THE INTERNALE TABLE
*SELECT * FROM ZTBL_CUSTOMER INTO TABLE CUST.
CUST-CODE = 2.
CUST-NAME = 'KINJAL N.VASHI'.
CUST-ADDRESS1 = 'PLOT:--> 438/2,'.
CUST-ADDRESS2 = 'SECTOR :--> 30,'.
CUST-ADDRESS3 = 'GANDHIANGAR-382030'.
CUST-OPENING_BAL = 70000.
CUST-CLOSING_BAL = 80000.
APPEND CUST.
CUST-CODE = 3.
CUST-NAME = 'BHAUMIK N. GANDHI'.
CUST-ADDRESS1 = 'PLOT:--> 4442,'.
CUST-ADDRESS2 = 'C.G.ROAD OPP. TELEPHONE EXHANGE.,'.
CUST-ADDRESS3 = 'AHMEDABAD'.
CUST-OPENING_BAL = 15000.
CUST-CLOSING_BAL = 25000.
APPEND CUST.
INSERT ZTBL_CUSTOMER FROM TABLE CUST.
SELECT * FROM ZTBL_CUSTOMER.
WRITE : / ZTBL_CUSTOMER-CODE,15 ZTBL_CUSTOMER-NAME,
45 ZTBL_CUSTOMER-ADDRESS1,/45 ZTBL_CUSTOMER-ADDRESS2,
/45 ZTBL_CUSTOMER-ADDRESS3 ,65 ZTBL_CUSTOMER-OPENING_BAL,
80 ZTBL_CUSTOMER-CLOSING_BAL.
ENDSELECT.



DELETE DATA FROM TABLE
*DELETE FROM ZTBL_CUSTOMER WHERE CODE = '3'.
*ULINE.
*SKIP.
* SELECT * FROM ZTBL_CUSTOMER.
* WRITE : / ZTBL_CUSTOMER-CODE,15 ZTBL_CUSTOMER-NAME,
* 45 ZTBL_CUSTOMER-ADDRESS1,/45 ZTBL_CUSTOMER-ADDRESS2,
* /45 ZTBL_CUSTOMER-ADDRESS3 ,65 ZTBL_CUSTOMER-OPENING_BAL,
* 80 ZTBL_CUSTOMER-CLOSING_BAL.
*ENDSELECT.