ABAP Programs: Inserting single entries in a database table

REPORT ZSOURCE1301.
* Work area
TABLES CUSTOMERS.
* Record used as alternative work area
DATA MY_CUSTOMER LIKE CUSTOMERS.
* Inserting one entry from the work area
CUSTOMERS-ID = ’12345678′.
CUSTOMERS-NAME = ‘Brown’.

INSERT CUSTOMERS.
IF SY-SUBRC <> 0.
WRITE: / ‘Entry already exists:’, CUSTOMERS-ID.
ENDIF.
* Inserting one entry from the record
MY_CUSTOMER-ID = ’11111111′.
MY_CUSTOMER-NAME = ‘Green’.
INSERT INTO CUSTOMERS VALUES MY_CUSTOMER.
IF SY-SUBRC <> 0.
WRITE: / ‘Entry already exists:’, MY_CUSTOMER-ID.
ENDIF.

———————
ABAPer, mail: abap.community@gmail.com http://www.erpdb.info

If you like this post, you may as well like these too:

1. ABAP Programs : Inserting multiple entries in a database table REPORT ZSOURCE1302.* Work areaTABLES CUSTOMERS.* Internal table for new entriesDATA ALL_CUSTOMERS LIKE CUSTOMERS OCCURS 100 WITH HEADER LINE.* Filling the internal tableALL_CUSTOMERS-ID = ’12345678′.ALL_CUSTOMERS-NAME = ‘Brown’.APPEND ALL_CUSTOMERS.ALL_CUSTOMERS-ID = ’11111111′.ALL_CUSTOMERS-NAME =...
2. ABAP Programs: Modifying single entries in a database table REPORT ZSOURCE1305.* Work areaTABLES CUSTOMERS.* Modifying an entryCUSTOMERS-ID = ’12345678′.CUSTOMERS-CITY = ‘Village’.MODIFY CUSTOMERS. ~ end of post ~ ———————ABAPer, mail: abap.community@gmail.com http://www.erpdb.info...
3. ABAP Programs: Updating single entries in a database table REPORT ZSOURCE1303.* Work areaTABLES CUSTOMERS.* Record used as alternative work areaDATA MY_CUSTOMER LIKE CUSTOMERS.* Updating one entry from the work areaCUSTOMERS-ID = ’12345678′.CUSTOMERS-CITY = ‘Village’.UPDATE CUSTOMERS.IF SY-SUBRC 0. WRITE: ‘Entry...
4. ABAP Programs: Deleting single entries from a database table REPORT ZSOURCE1307.* Work areaTABLES CUSTOMERS.* Deleting an entryCUSTOMERS-ID = ’12345678′.DELETE CUSTOMERS. ~ end of post ~ ———————ABAPer, mail: abap.community@gmail.com http://www.erpdb.info...
5. ABAP Programs: Updating multiple entries in a database table REPORT ZSOURCE1304.* Work areaTABLES CUSTOMERS.* Internal table for changed entriesDATA CHANGED_CUSTOMERS LIKE CUSTOMERS OCCURS 50 WITH HEADER LINE.* Filling the internal tableSELECT * FROM CUSTOMERS INTO TABLE CHANGED_CUSTOMERS WHERE CITY...
6. ABAP Programs: Modifying multiple entries in a database table REPORT ZSOURCE1306.* Work areaTABLES CUSTOMERS.* Internal table for changed entriesDATA ALL_CUSTOMERS LIKE CUSTOMERS OCCURS 50 WITH HEADER LINE.* Filling the internal tableSELECT * FROM CUSTOMERS INTO TABLE ALL_CUSTOMERS WHERE CITY...
7. ABAP Programs: Deleting multiple entries from a database table REPORT ZSOURCE1308.* Work areaTABLES CUSTOMERS.* Internal table for deleted entriesDATA ALL_CUSTOMERS LIKE CUSTOMERS OCCURS 50 WITH HEADER LINE.* Filling the internal tableSELECT * FROM CUSTOMERS INTO TABLE ALL_CUSTOMERS WHERE CITY...
8. ABAP Programs: Reading single entries REPORT ZSOURCE1105.* Work area for a database tableTABLES CUSTOMERS.* Reading a single entrySELECT SINGLE * FROM CUSTOMERS WHERE ID = ’87654321′.IF SY-SUBRC = 0. WRITE CUSTOMERS-NAME.ELSE. WRITE ‘Customer not found.’.ENDIF.~~~...
9. ABAP Programs: Filling an internal table from a database table REPORT ZSOURCE1203.* Work area for a database tableTABLES CUSTOMERS.* Defining an internal table with header lineDATA ALL_CUSTOMERS LIKE CUSTOMERS OCCURS 100 WITH HEADER LINE.* Filling the internal table (previous content...
10. ABAP Programs: Inserting lines at a specified position REPORT ZSOURCE1206.* Work area for a database tableTABLES CUSTOMERS.* Types for later useTYPES: BEGIN OF T_CUSTOMER_CITY, ID LIKE CUSTOMERS-ID, CITY LIKE CUSTOMERS-CITY, END OF T_CUSTOMER_CITY.* Internal table with two columnsDATA...
11. ABAP Programs: Appending single lines REPORT ZSOURCE1204.* Work area for a database tableTABLES CUSTOMERS.* Types for later useTYPES: BEGIN OF T_CUSTOMER_CITY, ID LIKE CUSTOMERS-ID, CITY LIKE CUSTOMERS-CITY, END OF T_CUSTOMER_CITY.* Internal table with two columnsDATA...
12. ABAP Programs: Selecting Single Fields REPORT ZSOURCE1106.* Work area for a database tableTABLES CUSTOMERS.* Selecting single fieldsDATA: CID LIKE CUSTOMERS-ID, CNAME LIKE CUSTOMERS-NAME.SELECT ID NAME INTO (CID,CNAME) FROM CUSTOMERS. WRITE: / CID, CNAME.ENDSELECT. ~~~ end...
13. ABAP Programs: Using a Logical Database REPORT ZSOURCE1502. * Work areas TABLES: CUSTOMERS, BOOKINGS. * Reading data GET CUSTOMERS. WRITE / CUSTOMERS-NAME. GET BOOKINGS. WRITE: AT /3 BOOKINGS-FLDATE....
14. ABAP Programs: Using a dynamic table name REPORT ZSOURCE1110.* Variables for later useDATA: TABLENAME(10), COUNT_ROWS TYPE I.* Setting the table name dynamicallyMOVE ‘CUSTOMERS’ TO TABLENAME.* Selecting dataSELECT COUNT( * ) FROM (TABLENAME) INTO COUNT_ROWS.WRITE: TABLENAME, COUNT_ROWS. ~...
15. ABAP Programs: Using table parameters REPORT ZSOURCE1006. * Work area of database table and internal table for later useTABLES CUSTOMERS.DATA ALL_CUSTOMERS LIKE CUSTOMERS OCCURS 50 WITH HEADER LINE.* Calling a form with a table parameterPERFORM...