OPEN SQL examples in ABAP - Part 3

 *===================================================

*Filtering the fields

*displaying 2 fields data from SCARR table (Airlines)

*with the help of two individual variables

*by declaring them with built-in-data types

*====================================================

DATA CIDN(3) TYPE C.

DATA CNAME(20) TYPE C.

SELECT CARRID

CARRNAME

INTO (CID, CNAME)

FROM SCARR.

WRITE:/ CID, CNAME.

ENDSELECT.
*******************************************************

*displaying 2 fields data from SCARR table (Airlines)

*with the help of two individual variables

*by declaring them with DB Table field References

DATA CIDN TYPE SCARR-CARRID.

DATA CNAME TYPE SCARR-CARRNAME.

SELECT CARRID

CARRNAME

INTO (CIDN, CNAME)

FROM SCARR.

WRITE:/ CIDN, CNAME.

ENDSELECT.



***********************************************
*****************

**creating Explicit header line with only two fields

** and displaying SCARR details

DATA: BEGIN OF WA,

CIDN (3) TYPE C,

CNAME(20) TYPE C,

END OF WA.

SELECT CARRID

CARRNAME

INTO WA

FROM SCARR.

WRITE:/ WA-CIDN,

WA-CNAME.

ENDSELECT.

***************************************************

**--creating Explicit header line with only two fields

** and displaying SCARR details

DATA: BEGIN OF WA,

CARRID TYPE SCARR-CARRID,

CARRNAME TYPE SCARR-CARRNAME,

END OF WA.

SELECT CARRID

CARRNAME

INTO WA

FROM SCARR.

WRITE: / WA-CARRID,

WA-CARRNAME.

ENDSELECT.
**=======================================================

**fetching only ONE record from DB table

**displaying description of material 100-100 in English from MAKT table

**========================================================

DATA: BEGIN OF WA,

MATNR1 TYPE MAKT-MATNR,

MAKTX1 TYPE MAKT-MAKTX,

END OF WA.

SELECT SINGLE MATNR

MAKTX

INTO WA

FROM MAKT

WHERE MATNR = '100-100' AND SPRAS = 'EN'.

IF SY-SUBRC = 0.

WRITE: / WA-MATNR1,

WA-MAKTX1.

ELSE.

WRITE: / 'Description not found'.

ENDIF.
*=========================================================

*Creating User-Defined Data Types

*Fetching only ONE record from DB table at a time

*displaying descriptions of three materials 100-100, 100-200, 100-300

*in english language only from MAKT table

*==========================================================

**Creating a structure type (User defined data type)

TYPES: BEGIN OF MATL,

MATNR1 TYPE MAKT-MATNR,

MAKTX1 TYPE MAKT-MAKTX,

END OF MATL.

**--Creating structures for holding data

DATA WA100 TYPE MATL.

DATA WA200 TYPE MATL.

DATA WA300 TYPE MATL.

SELECT SINGLE MATNR

MAKTX

INTO WA100 FROM MAKT

WHERE MATNR = '100-100' AND SPRAS = 'EN'.

SELECT SINGLE MATNR

MAKTX

INTO WA200 FROM MAKT WHERE MATNR = '100-200' AND SPRAS = 'EN'.

SELECT SINGLE MATNR

MAKTX INTO WA300 FROM MAKT

WHERE MATNR = '100-300' AND SPRAS = 'EN'.

WRITE: /

WA100-MATNR1, WA100-MAKTX.

WRITE: / WA200-MATNR1, WA200-MAKTX1.

WRITE:/ WA300-MATNR1, WA300-MAKTX1.
*********************************************************

*keeping structure type definition in type group and using the type group for current program

*--Attaching type group to current program

TYPE-POOLS ZDEL1.

*--Creating Structures for holding data

DATA WA100 TYPE ZDEL1-MAT.

DATA WA200 TYPE ZDEL1-MAT.

DATA WA300 TYPE ZDEL1-MAT.

SELECT SINGLE MATNR MAKTX INTO WA100 FROM MAKT

WHERE MATNR = '100-100' AND SPRAS = 'EN'.

SELECT SINGLE MATNR MAKTX INTO WA200 FROM MAKT

WHERE MATNR = '100-200' AND SPRAS = 'EN'.

SELECT SINGLE MATNR MAKTX INTO WA300 FROM MAKT

WHERE MATNR = '100-300' AND SPRAS = 'EN'.

WRITE: / WA100-MATNR1, WA100-MAKTX1.

WRITE:/ WA200-MATNR1, WA200-MAKTX1.

WRITE:/ WA300-MATNR1, WA300-MAKTX1.

****************************************************************

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

How to update exchange rates via process chain in BW

Image
 The exchange rate in the BW system may not be updated one. Also the business wants to see the amounts according to the exchange rates in the source. In such cases, you have to update the exchange rate in the BW system via process chain. Include the step ‘Execute ABAP Program’ in the process chain. Give the program name as ‘RSIMPCURR’. Create a variant for the program.
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