topic Re: ABAP Code for the SQL Query in Application Development and Automation Discussions

ABAP Code for the SQL Query

Former Member — Tue, 21 Aug 2007 11:38:45 GMT

Hi,

I am a BASIS person.

I need to create an ABAP program which willl return the count of rows returned by the following query.Pls help me in this

SELECT AGR_NAME FROM AGR_1250 where OBJECT IN (select OBJCT from

TOBJ where OCLSS IN ('RS','RSR','RSBC')) AND

AGR_NAME LIKE 'Z%'

Message was edited by:

Balaji R

Re: ABAP Code for the SQL Query

Former Member — Tue, 21 Aug 2007 11:40:37 GMT

use sy-dbcnt variable...

reward points to all helpful answers

kiran.M

Re: ABAP Code for the SQL Query

Former Member — Tue, 21 Aug 2007 11:44:11 GMT

Hi Balaji,

Use sy-dbcnt its used to get the total no of rows from the select query

Regards,

Azhar

Re: ABAP Code for the SQL Query

Former Member — Tue, 21 Aug 2007 11:44:49 GMT

In Abap

write like this

select OBJCT from

TOBJ into table itab1 where OCLSS IN ('RS','RSR','RSBC').

if itab1[] is not initial.

SELECT AGR_NAME FROM AGR_1250 into table itab2 for all entries in itab1 where object = itab1-object and AGR_NAME LIKE 'Z%'

endif.

describe table ITAB2 lines ld_lines.

now ld_lines contains count of records

reward points to all helpful answers

kiran.M

Re: ABAP Code for the SQL Query

Former Member — Tue, 21 Aug 2007 11:45:49 GMT

hi,

After this query use sy-dbcnt system variable which holds the number of rec/rows.

Reward points if useful

Cheers,

Chandra

Re: ABAP Code for the SQL Query

Former Member — Tue, 21 Aug 2007 11:53:27 GMT

since i am very new to ABAP , i wouldbe very thankful if you could send me the complete code for the same

Re: ABAP Code for the SQL Query

Former Member — Tue, 21 Aug 2007 11:58:37 GMT

hi, Balaji,

TABLES: ekpo, ekko.

DATA: BEGIN OF itab1 OCCURS 0,

ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

matnr LIKE ekpo-matnr,

END OF itab1.

DATA: BEGIN OF itab2 OCCURS 0,

ebeln LIKE ekko-ebeln,

lifnr LIKE ekko-lifnr,

bukrs LIKE ekko-ebeln,

END OF itab2.

DATA: count LIKE sy-dbcnt.

DATA: BEGIN OF itab3 OCCURS 0,

ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

matnr LIKE ekpo-matnr,

lifnr LIKE ekko-lifnr,

bukrs LIKE ekko-bukrs,

END OF itab3.

SELECT-OPTIONS: s_ebeln FOR ekpo-ebeln.

SELECT ebeln ebelp matnr INTO TABLE itab1 FROM ekpo

WHERE ebeln IN s_ebeln.

IF NOT itab1[] IS INITIAL.

SELECT ebeln lifnr bukrs INTO TABLE itab2 FROM ekko

FOR ALL ENTRIES IN itab1

WHERE ebeln = itab1-ebeln.

count = sy-dbcnt.

ENDIF.

LOOP AT itab1.

READ TABLE itab2 WITH KEY

ebeln = itab1-ebeln.

itab3-ebeln = itab1-ebeln.

itab3-ebelp = itab1-ebelp.

itab3-matnr = itab1-matnr.

itab3-lifnr = itab2-lifnr.

itab3-bukrs = itab2-bukrs.

APPEND itab3.

ENDLOOP.

LOOP AT itab3.

WRITE : / sy-vline,

itab3-ebeln, sy-vline,

itab3-ebelp, sy-vline,

itab3-matnr, sy-vline,

itab3-lifnr, sy-vline,

itab3-bukrs, sy-vline.

ENDLOOP.

write : count.

Regards,

Azhar

Re: ABAP Code for the SQL Query

Former Member — Tue, 21 Aug 2007 12:08:47 GMT

SELECT AGR_NAME FROM AGR_1250 where OBJECT IN (select OBJCT from

TOBJ where OCLSS IN ('RS','RSR','RSBC')) AND

AGR_NAME LIKE 'Z%'.

write: sy-dbcnt.