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

Currency Conversion from Local Currency to USD in BW

Image
 While loading the data from source to SAP BW system, the amount can be in local currency. If the user wants to see those amounts in USD in the BI reports, you can do the currency conversion either in the BI query designer or while loading the data to the cube. Steps for currency conversion in the data load- There is amount field in the source which is Amount type key figure and there is 0LOC_CURRCY field in source which holds the unit of this amount key figure like EUR or INR etc. Define a target info object say ZAMNT_LC for this field in the BW system with amount type key figure and unit as local currency- Map these objects as one to one from the source Define a new key figure in the target to hold the amounts in USD. Say for example, ZAMNT_USD. Go to tcode RSCUR and create a currency translation type say ZAM_USD- Give a description, go to the Exchange rate tab and give the exchange rate type. ( Exchange rate types are standard exchange rates available in the SAP system. You can ...
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