LDB

[Former Member]

i am ne in logical database.can anyone plz give me some <b>sample code</b> of ldb.

give me the <b>step by step procedure</b> from the begining...that how to make and execute even a simple ldb program.

thanx in advance...

[Former Member]

Hi,

refer this thread:

http://help.sap.com/saphelp_erp2005/helpdata/en/9f/db9b5e35c111d1829f0000e829fbfe/frameset.htm

rgds,

latheesh

[Former Member]

Hi biswajit,

<b>Very Very simple LDB program.</b>

1. Create a new program.

2. In Attributes section,

enter PNP (in logical database field)

3. In source code, just enter,

REPORT ABC.

TABLES : PERNR.

get pernr.

write : pernr-pernr.

4. Run,

and u will get a listing of all employees.

regards,

amit m.

[dani_mn]

http://help.sap.com/saphelp_46c/helpdata/EN/c6/8a15381b80436ce10000009b38f8cf/content.htm

http://www.thespot4sap.com/Articles/SAP_ABAP_Queries_FunctionalAreas_LogicalDB.asp

http://www.sap-basis-abap.com/saptab.htm

Regards,

Wasim Ahmed

[Former Member]

Hi,

Logical Database - SE36

A logical database is a special ABAP/4 program which combines the contents of certain database tables. You can link a logical database to an ABAP/4 report program as an attribute. The logical database then supplies the report program with a set of hierarchically structured table lines which can be taken from different database tables.

Reading a SAP standard logical database (DB M - MRP Documents) in your ABAP/4 program.

start-of-selection.

• get is equal to select * from....

get mdkp.

check field-name.

get mdtb.

check field-name

end-of-selection.

rgds,

latheesh

[Former Member]

Some links to refer..

/people/alvaro.tejadagalindo/blog/2006/02/19/how-to-deal-with-hr-payroll-reports

http://sap.ittoolbox.com/groups/technical-functional/sap-r3-dev/893908#

A sample prog with LDB PNP

*&----

---

*

*& Report ZH_REPT_PAYMENT *

*& *

*&----

---

*

*& *

*& *

*&----

---

*

report zh_rept_payment line-size 80 no standard page

heading.

tables: pernr, " Standard Selections for HR Master Data Reporting

pcl1, " HR Cluster 1

pcl2, " HR Cluster 2

pa0009,

• PA9001,

• PA9006,

pa0002,

pc260 , " Cluster Directory for Payroll Results

bnka .

• Infotypes

infotypes: 0001. " Organizational Assignment

• Declaration of Internal Tables

data : bnka1 like bnka occurs 0 with header line .

*-

data: begin of t_int_rep occurs 100,

bankl like pc209-bankl, " Bank Number

zlsch like pc209-zlsch, " Payment method

pernr like pernr-pernr, " Employee Number

ename like pernr-ename, " Employee Name

bankn like pc209-bankn, " Bank Account Number

betrg like pc209-betrg, " Amount to be transfered

zweck like pa0009-zweck, " Purpose

end of t_int_rep.

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

data: begin of int_rep occurs 100,

bankl like pc209-bankl, " Bank Number

zlsch like pc209-zlsch, " Payment method

pernr like pernr-pernr, " Employee Number

ename like pernr-ename, " Employee Name

bankn like pc209-bankn, " Bank Account Number

betrg like pc209-betrg, " Amount to be transfered

zweck like pa0009-zweck, " Purpose

begda like pa0009-begda, "Begin date

end of int_rep.

• Declaration of Data Variables

data: ws_betrg like pc209-betrg, " BT Amount

w_val like spell occurs 0 with header line,

int_rep1(6), " TYPE I, " Employee Number

cnt type i value 0, " Counter

calcmolga like t500l-molga value '40', " Country Grouping

v_id(15),

calc_currency like t001-waers value 'INR'. " Currency

data : ctr type i,

dt_merge like pa0009-begda.

data: ws_totemp(6) type c,

ws_totamt(20) type c,

r_mth(9) type c,

ws_fpbeg(6) type c,

ws_fpend(6) type c,

ws_mthyr(6) type c,

ws_mthyr_r(14) type c,

r_mth_t(3) type c,

ws_amt(8) type c,

ws_bankl(14) type c,

ws_date(6) type c,

amount_word(500),

total_page type i,

pages type i,

remain type i.

data begin of i_spell.

include structure spell .

data end of i_spell .

data : c_molga type t500l-molga value '40',

c_banks type bnka-banks value 'IN'.

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

• Standard Includes

include rpc2cd09. "Cluster CD data definition

include pc2rxin0.

include rpc2rx09.

include rpppxd00. " Data Definition buffer PCL1/PCL2

include rpppxd10. " Common Part buffer PCL1/PCL2

include rpppxm00. " Buffer Handling RoutinePCL1/PCL2

include zrpc2rox2. " Data Definition POCLSTERS (not J,K,U)

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

• Selection Screen

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

selection-screen begin of block b1 with frame title text-001.

parameter: pa_mth(2) type c default sy-datum+4(2) obligatory,

pa_year(4) type c default sy-datum(4) obligatory,

p_bankl like pc209-bankl, " Bank Number

p_zlsch like pc209-zlsch. " Payment method

selection-screen end of block b1.

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

save_calc_currency = calc_currency.

count_top = 0.

get_pernr_flag = 0.

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

• Top-Of-Page

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

top-of-page.

perform convert_month using pa_mth(2) r_mth.

ws_mthyr_r = r_mth.

concatenate ws_mthyr_r pa_year into ws_mthyr_r separated by space.

• SKIP 5.

• skip 1.

skip 4.

if int_rep-bankl eq ' '.

if int_rep-zlsch eq 'C' or int_rep-zlsch eq 'E' or

int_rep-zlsch eq ' '.

write: /1(85) 'CHEQUE PAYMENT STATEMENT'(047) centered.

elseif int_rep-zlsch eq 'L'.

write: /1(85) 'DEMAND DRAFT STATEMENT'(047) centered.

endif.

else.

write: /1(85) 'BANK TRANSFER STATEMENT'(002) centered.

endif.

skip.

write: /34 ws_mthyr_r,

62 'Page :'(008),69(2) sy-pagno intensified off,

' Of ',78(2) pages intensified off.

clear pages.

read table bnka1 with key bankl = int_rep-bankl .

if sy-subrc = 0.

if int_rep-zlsch eq 'T'.

write:/03(10) 'Bank Name : ', bnka1-banka.

write:/03(10) 'Branch : ', bnka1-brnch.

write:/03(10) 'Address : ', bnka1-stras.

endif.

endif.

skip.

write:/1(80) sy-uline.

write: /1 sy-vline, 2(5) 'Sl.No'(002),

7 sy-vline, 8(8) 'Emp.No.'(003),

16 sy-vline,17(35) 'Employee Name'(004).

*--added for Demand Draft

if ( int_rep-zlsch = 'l' or int_rep-zlsch = 'L' ).

write : 47 sy-vline, 48(15) 'Payable at'(005).

else.

*---

write : 47 sy-vline,48(15) 'Account No.'(005).

endif.

write: 63 sy-vline,64(16) 'Amount'(006),

80 sy-vline.

write:/1(80) sy-uline.

end-of-page.

write:/1(80) sy-uline.

write:/2 'Printed on ', sy-datum.

*

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

• Start-of-selection.

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

start-of-selection.

*perform h_headr.

ctr = 0.

set margin 5.

call function 'RP_GET_CURRENCY'

exporting

molga = calcmolga

importing

waers = calc_currency

exceptions

others.

if sy-subrc ne 0.

• calc_currency = 'DEM'.

calc_currency = save_calc_currency.

endif.

get pernr.

cd-key-pernr = pernr-pernr.

perform import_cluster.

get_pernr_flag = 1.

check : ocd-version-molga eq calcmolga.

• The table 'tabpernr' is filled with the personnel numbers

• and is used after selection is finished.

move-corresponding pernr to tabpernr.

append tabpernr.

• The table 'tab_rgdir' is filled

loop at rgdir.

rx-key-pernr = pernr-pernr.

unpack rgdir-seqnr to rx-key-seqno.

perform int_tab. "fill tab_rgdir

perform import_bt.

perform validate.

endloop.

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

• End of Selection

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

end-of-selection.

*perform h_headr.

perform convert_date_a using pa_mth r_mth_t.

sort int_rep by bankl zlsch pernr betrg descending.

delete adjacent duplicates from int_rep

comparing bankl zlsch pernr .

sort int_rep by bankl zlsch bankn . "PERNR.

loop at int_rep.

at new bankl.

select single * into bnka1 from bnka

where banks = c_banks and

bankl = int_rep-bankl .

append bnka1.

clear bnka1.

endat.

endloop.

*- for Demand Draft - purpose added

loop at int_rep.

concatenate pa_year(4) pa_mth(2) '01' into dt_merge.

select single * "zweck into int_rep-zweck

from pa0009 where

pernr = int_rep-pernr and

bankl = int_rep-bankl and

zlsch = int_rep-zlsch

and begda <= dt_merge and

endda >= dt_merge .

if sy-subrc = 0.

int_rep-zweck = pa0009-zweck.

modify int_rep.

endif.

endloop.

*-for DD and Chq sorted by PAyable at and EMPNO wise

if p_zlsch = 'T' .

sort int_rep by bankl zlsch bankn . "PERNR.

• else. "added for "payable at" for DD/Chq

else.

sort int_rep by zweck pernr . "PERNR.

endif.

*delete adjacent duplicates from int_rep.

t_int_rep[] = int_rep[].

loop at int_rep.

*-for page of page no.

total_page = 0.

loop at t_int_rep where bankl = int_rep-bankl

and zlsch = int_rep-zlsch.

total_page = total_page + 1.

endloop.

pages = total_page div 25.

remain = total_page mod 25.

• comment bcoz its adding one extra page no.

• done as on 29/11/2004

if remain > 0.

pages = pages + 1.

endif.

**-end

*-

at new bankl.

ctr = 0 .

new-page.

endat.

at new zlsch.

ctr = 0 .

new-page.

endat.

clear v_id.

select single natio

into pa0002-natio

from pa0002

where pernr eq int_rep-pernr.

*-testing......for soma

if ctr > 24.

ctr = 0 .

write:/1(80) sy-uline.

new-page .

endif.

ctr = ctr + 1 .

cnt = cnt + 1.

pack int_rep-pernr to int_rep1.

write:/1 sy-vline, 2(3) cnt intensified off,

7 sy-vline, 9(6) int_rep1 intensified off,

16 sy-vline,17(35) int_rep-ename intensified off .

if ( int_rep-zlsch = 'l' or int_rep-zlsch = 'L' ).

write : 47 sy-vline,48(15) int_rep-zweck intensified off.

else.

write:

47 sy-vline,48(15) int_rep-bankn intensified off .

endif.

write: 63 sy-vline,64(16) int_rep-betrg

intensified off currency 'INR',

80 sy-vline.

ws_betrg = ws_betrg + int_rep-betrg.

*-testing......for soma

• skip.

write :

/1 sy-vline, 7 sy-vline ,16 sy-vline ,47 sy-vline,63 sy-vline,80

sy-vline .

*-end testing......for soma

at end of zlsch.

if int_rep-bankl = ' '.

call function 'HR_IN_CHG_INR_WRDS'

exporting

amt_in_num = ws_betrg

importing

amt_in_words = amount_word

• EXCEPTIONS

• DATA_TYPE_MISMATCH = 1

• OTHERS = 2

.

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

w_val-word = amount_word.

concatenate 'INR.' w_val-word into w_val-word

separated by space.

write:/1(80) sy-uline.

write: /1 sy-vline, 7 'Total transfer:'(009),

64(16) ws_betrg intensified off currency 'INR',

80 sy-vline.

write:/1(80) sy-uline.

write: /1 sy-vline, 3 w_val-word+0(76) intensified off,

80 sy-vline.

write :/1 sy-vline, 10 w_val-word+76(70) intensified off,

80 sy-vline.

write:/1(80) sy-uline.

clear: ws_betrg,cnt.

skip 2.

write: /2 'Prepared by :'(010), '_______________'(013),

45 'Checked by :'(011),'_______________'(013).

skip 2.

write: /2 'Printed On ', sy-datum,

45 'Approved by :'(012),'_______________'(013).

clear sy-pagno.

endif.

endat.

at end of bankl.

if int_rep-bankl <> ' '.

call function 'HR_IN_CHG_INR_WRDS'

exporting

amt_in_num = ws_betrg

importing

amt_in_words = amount_word

• EXCEPTIONS

• DATA_TYPE_MISMATCH = 1

• OTHERS = 2

.

w_val-word = amount_word.

concatenate 'INR.' w_val-word into w_val-word

separated by space.

write:/1(80) sy-uline.

write: /1 sy-vline, 7 'Total transfer:'(009),

64(16) ws_betrg intensified off currency 'INR',

80 sy-vline.

write:/1(80) sy-uline.

write: /1 sy-vline, 3 w_val-word+0(76) intensified off,

80 sy-vline.

write :/1 sy-vline, 10 w_val-word+76(70) intensified off,

80 sy-vline.

write:/1(80) sy-uline.

clear: ws_betrg,cnt.

skip 2.

write: /2 'Prepared by :'(010), '_______________'(013),

45 'Checked by :'(011),'_______________'(013).

skip 2.

write: /2 'Printed on ', sy-datum,

45 'Approved by :'(012),'_______________'(013).

clear sy-pagno.

• NEW-PAGE.

endif.

endat.

endloop.

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

• End of Page

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

end-of-page.

write: /2 'Prepared by :'(010), '_______________',

45 'Checked by :'(011),'_______________'.

*&----

---

*

*& Form IMPORT_CLUSTER

*&----

---

*

• Importing Data from Cluster *

*----

---

*

form import_cluster.

sy-subrc = 0.

rp-imp-c2-cd.

if sy-subrc eq 0.

if cd-version-number ne ocd-version-number.

endif.

endif. " SY-SUBRC EQ 0

endform. " IMPORT_CLUSTER

*&----

---

*

*& Form INT_TAB

*&----

---

*

• Filling internal table tab_rgdir

*----

---

*

form int_tab.

*Fill internal table tab_rgdir.

move-corresponding rgdir to tab_rgdir.

tab_rgdir-pernr = pernr-pernr.

append tab_rgdir.

endform. " INT_TAB

*&----

---

*

*& Form IMPORT_bt

*&----

---

*

• Import Values from Bank Transactions Table (BT)

*----

---

*

form import_bt.

rp-init-buffer.

• RP-IMP-C2-RX.

rp-imp-c2-in.

if rp-imp-in-subrc eq 0.

if in-version-number ne oin-version-number.

write: / 'Schlüssel des Clusters RX:'(015),

rx-key-pernr, rx-key-seqno.

write: / 'The imported version of the cluster'(016), 'RX',

'is not current'(017).

write: / 'Imported version :'(018),

oin-version-number.

write: / 'Current version of cluster :'(019),

in-version-number.

stop.

else.

sy-subrc = 0.

endif.

else.

sy-subrc = 8.

write: /

'Inconsistencies between cluster directory and directory for'(020).

write: /

'No payroll results found for data in cluster directory'(021).

write : /

'Please contact hotline to solve the current problem'(022).

endif.

ws_fpbeg(2) = versc-fpbeg+4(2).

ws_fpbeg+2(4) = versc-fpbeg(4).

ws_fpend(2) = versc-fpend+4(2).

ws_fpend+2(4) = versc-fpend(4).

ws_mthyr(2) = pa_mth.

ws_mthyr+2(4) = pa_year.

check ws_mthyr = ws_fpbeg.

check ws_mthyr = ws_fpend.

loop at bt. "from pc209

int_rep-pernr = pernr-pernr.

int_rep-ename = pernr-ename.

int_rep-bankl = bt-bankl.

int_rep-bankn = bt-bankn.

int_rep-betrg = bt-betrg.

int_rep-zlsch = bt-zlsch.

append int_rep.

endloop.

• IF P_BANKL <> ' ' AND P_ZLSCH <> ' '.

• DELETE INT_REP WHERE BANKL <> P_BANKL.

• ELSEIF P_BANKL = ' ' AND P_ZLSCH <> ' '.

• DELETE INT_REP WHERE ZLSCH <> P_ZLSCH.

• ELSEIF P_BANKL <> ' ' AND P_ZLSCH = ' '.

• DELETE INT_REP WHERE BANKL <> P_BANKL.

• ENDIF.

endform. " IMPORT_BT

*&----

---

*

*& Form CONVERT_MONTH

*&----

---

*

• Fetching Month Text

*----

---

*

form convert_month using mth t_mth.

case mth.

when '01'.

t_mth = 'January'(023).

when '02'.

t_mth = 'February'(024).

when '03'.

t_mth = 'March'(025).

when '04'.

t_mth = 'April'(026).

when '05'.

t_mth = 'May'(027).

when '06'.

t_mth = 'June'(028).

when '07'.

t_mth = 'July'(029).

when '08'.

t_mth = 'August'(030).

when '09'.

t_mth = 'September'(031).

when '10'.

t_mth = 'October'(032).

when '11'.

t_mth = 'November'(033).

when '12'.

t_mth = 'December'(034).

endcase.

endform. " CONVERT_MONTH

*&----

---

*

*& Form CONVERT_DATE_A

*&----

---

*

• Fetching Month Text *

*----

---

*

form convert_date_a using mth_t t_mth_t.

case mth_t.

when '01'.

t_mth_t = 'Jan.'(035).

when '02'.

t_mth_t = 'Feb.'(036).

when '03'.

t_mth_t = 'Mar.'(037).

when '04'.

t_mth_t = 'Apr.'(038).

when '05'.

t_mth_t = 'May.'(039).

when '06'.

t_mth_t = 'Jun.'(040).

when '07'.

t_mth_t = 'Jul.'(041).

when '08'.

t_mth_t = 'Aug.'(042).

when '09'.

t_mth_t = 'Sep.'(043).

when '10'.

t_mth_t = 'Oct.'(044).

when '11'.

t_mth_t = 'Nov.'(045).

when '12'.

t_mth_t = 'Dec.'(046).

endcase.

endform. " CONVERT_DATE_A

*&----

---

*

*& Form VALIDATE

*&----

---

*

• text

*----

---

*

• --> p1 text

• <-- p2 text

*----

---

*

form validate .

if p_bankl <> ' ' and p_zlsch <> ' '.

delete int_rep where bankl <> p_bankl.

elseif p_bankl = ' ' and p_zlsch <> ' '.

delete int_rep where zlsch <> p_zlsch.

elseif p_bankl <> ' ' and p_zlsch = ' '.

delete int_rep where bankl <> p_bankl.

endif.

endform. " VALIDATE

[Former Member]

thax all.....

can we create ur own logical database name instead of using standard one(like pnp)?? if yes then how to use that .....plz gv some simple example code for that...

thanx in advance....

[Former Member]

hi sravanti...

u hv nt given me the custom <b>include zrpc2rox2</b> code...

otherwise it is gven me the error that "include zrpc2rox2" not found.

[Former Member]

Hi again,

1 can we create ur own logical database name instead of using standard one(like pnp)??

Yes absolutely.

2. SLDB is the tcode.

3. Also read documentation on logical database,

to get an idea of the components involved in it.

regards,

amit m.

[Former Member]

Hi check this weblog.....

/people/dj.adams/blog/2003/11/13/food-for-thought-ldbs-and-abap-objects

Also , check the following link too.

http://www.datamanagementgroup.com/Resources/Articles/Article_1005_2.asp

Please reward if it helps.

Message was edited by: Prakhar Saxena