Open SQL Examples in ABAP - Part 1

 TABLES SCARR.

UPDATE SCARR.

SET CARRNAME = 'india' WHERE CARRID = 'MP'.

IF SY-SUBRC = 0.

MESSAGE 'record is updated successfully' TYPE I.

ELSE.

MESSAGE 'record is not updated' TYPE 'I'.

ENDIF.

TABLES SCARR.

DELETE FROM SCARR WHERE CARRID = 'UP'.

IF SY-SUBRC = 0.

MESSAGE 'record is DELETED successfully' TYPE 'I'.

ELSE.

MESSAGE 'record is not DELETED' TYPE 'I'.

ENDIF.
**--displaying records of MARA table

**with the help of explicit header line

DATA WA TYPE MARA.

**--database table loop

SELECT * FROM MARA INTO WA.

WRITE: / WA-MATNR,              "Material No.

WA-MBRSH,                 "Industry sector

WA-MTART,                   "Material type

WA-MEINS.                   "Unit of Measure

ENDSELECT.
**displaying records of MARA table

**with the help of Implicit header line

TABLES MARA.

**--database table loop

SELECT * FROM MARA.

WRITE: / MARA-MATNR,

MARA-MBRSH,

MARA-MTART,

MARA-MEINS.

ENDSELECT.
**--displaying raw material records only from MARA table

**with the help of Explicit header line.

DATA WA TYPE MARA.

**--WHERE clause is for filtering the records

SELECT * FROM MARA INTO WA WHERE MTART = 'ROH'.

WRITE: / WA-MATNR,

WA-MBRSH,

WA-MTART,

WA-MEINS.

ENDSELECT.
**displaying Raw Material records which are measured in KG

** only from MARA table.

DATA WA TYPE MARA.

**--Where clause is for filtering the Records

SELECT * FROM MARA INTO WA WHERE MTART = 'ROH' AND MEINS = 'KG'.

WRITE:/ WA-MATNR,

WA-MBRSH,

WA-MTART,

WA-MEINS.

ENDSELECT.

Comments

Post a Comment

Popular posts from this blog

Domains and Data Elements

  Domains A domain provided Technical attributes (type, length and possible values) for a field. The definition of domain in ABAP is same as that in Mathematics. In the world of Mathematics, a domain is defined as the set of input values that are valid for a given function. The same holds true for domains in ABAP. To understand this, let us first see what is the role of domains in ABAP data dictionary. Domains -> Data Elements -> (Structures, DB tables, program references etc.)
Read more

Sample ABAP program for Updating notepad file data to Internal table and Sending it to Application server

 *--Structure type TYPES: BEGIN OF TY_STD, RONO TYPE C LENGTH 4, NAME1 TYPE C LENGTH 20, GEN TYPE C LENGTH 6, FEES TYPE C LENGTH 10. END OF TY_STD. *--Header line and internal table DATA WKA TYPE TY_STD. DATA INT_TAB TYPE TABLE OF TY_STD. *--Application server files are known as "Datasets" *--here "fname" is the Dataset DATA FNAME TYPE C LENGTH 40 VALUE "StudentsInfo.txt". *--Convert notepad file data into internal table CALL FUNCTION 'GUI_UPLOAD' EXPORTING FILENAME = 'C:Documents and SettingsAdministratorDesktopstudents.txt' HAS FIELD_SEPARATOR = 'X' TABLES DATA_TAB = INT_TAB. *--Sending data to Application Server OPEN DATASET FNAME FOR OUTPUT IN TEXT MODE ENCODING DEFAULT. LOOP AT INT_TAB INTO WKA. TRANSFER WKA TO FNAME. ENDLOOP. CLOSE DATASET FNAME.
Read more

OPEN SQL EXAMPLES IN ABAP – PART 2

 ******************************************* **displaying Raw Materials and Finished products **only from MARA table. DATA WA TYPE MARA. * **--WHERE clause is for filtering the records SELECT * FROM MARA INTO WA WHERE MTART = 'ROH' OR MTART = 'FERT'. WRITE: / WA-MATNR, WA-MBRSH, WA-MTART, WA-MEINS. ENDSELECT. * **************************************************
Read more