topic ldb in Application Development and Automation Discussions

ldb

Former Member — Fri, 08 Feb 2008 08:04:29 GMT

Hi,

1) How u used logical database? How is data transferred to program? Corresponding statement in LDB.

2) How do u suppress fields on selection screen generated by LDB?

regards,

Re: ldb

Former Member — Fri, 08 Feb 2008 08:07:20 GMT

HI,

Hi,

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.

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

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

Reward if found helpfull,

Cheers,

Chaitanya.

Re: ldb

Former Member — Fri, 08 Feb 2008 08:11:34 GMT

check this code..

REPORT ZPROJPSJ MESSAGE-ID OK.

TABLES: PROJ,
PRPS_R,
AUFK,
ACT01,
DRAD,
DRAT,
ELM_PS,
RSTHIE,
CNDB.

INCLUDE MZNW2D01.

INITIALIZATION.
FREE MEMORY ID 'SAPDBPSJ999 AUFRUFE'.

GET RSTHIE.
CLEAR ITAB_HIERARCHY.
MOVE-CORRESPONDING RSTHIE TO ITAB_HIERARCHY.

GET PROJ FIELDS OBJNR PSPID POST1.

GET PRPS_R FIELDS OBJNR POSID POST1.

GET AUFK FIELDS OBJNR KTEXT.

GET ACT01 FIELDS OBJNR AUFPL APLZL VORNR UVORN LTXA1.

GET DRAD.
MOVE-CORRESPONDING DRAD TO ITAB_DOCUMENTS.
APPEND ITAB_DOCUMENTS.

GET ELM_PS.
ITAB_HIERARCHY-OBJNR = ELM_PS-OBJNR.
CASE ELM_PS-OBTYP.
WHEN 'PD'.
ITAB_HIERARCHY-PSPNR = ELM_PS-PROJ_INT.
WRITE ELM_PS-PROJ_EXT TO ITAB_HIERARCHY-NAME.
WHEN 'PR'.
ITAB_HIERARCHY-PSPNR = ELM_PS-PRPS_INT.
WRITE ELM_PS-PRPS_EXT TO ITAB_HIERARCHY-NAME.
WHEN 'NP'.
ITAB_HIERARCHY-AUFNR = ELM_PS-AUFNR.
WRITE ELM_PS-AUFNR TO ITAB_HIERARCHY-NAME.
WHEN 'NV'.
ITAB_HIERARCHY-VORNR = ELM_PS-VORNR.
WRITE ELM_PS-AUFNR TO ITAB_HIERARCHY-NAME.
IF ACT01-UVORN IS INITIAL.
CONCATENATE ITAB_HIERARCHY-NAME ACT01-VORNR
INTO ITAB_HIERARCHY-NAME SEPARATED BY ' / '.
ELSE.
CONCATENATE ITAB_HIERARCHY-NAME ACT01-VORNR ACT01-UVORN
INTO ITAB_HIERARCHY-NAME SEPARATED BY ' / '.
ENDIF.
ENDCASE.
IF ELM_PS-KTEXT IS INITIAL.
ITAB_HIERARCHY-DESC = ITAB_HIERARCHY-NAME.
ELSE.
ITAB_HIERARCHY-DESC = ELM_PS-KTEXT.
ENDIF.
ITAB_HIERARCHY-OBTYP = ELM_PS-OBTYP.
APPEND ITAB_HIERARCHY.
CLEAR ITAB_HIERARCHY.

END-OF-SELECTION.
PERFORM READ_DRAT.
PERFORM SAVE_PROJECT_HIERARCHY.


--------------------------------------------------------------------------------

FORM READ_DRAT *
--------------------------------------------------------------------------------
 
........ *
--------------------------------------------------------------------------------
 FORM READ_DRAT.
DATA: C TYPE CURSOR.
DATA: ITAB_DRAT LIKE DRAT.

CHECK NOT ITAB_DOCUMENTS[] IS INITIAL.
SORT ITAB_DOCUMENTS BY DOKAR DOKNR DOKVR DOKTL.
OPEN CURSOR C FOR
SELECT * FROM DRAT
FOR ALL ENTRIES IN ITAB_DOCUMENTS
WHERE DOKAR = ITAB_DOCUMENTS-DOKAR
AND DOKNR = ITAB_DOCUMENTS-DOKNR
AND DOKVR = ITAB_DOCUMENTS-DOKVR
AND DOKTL = ITAB_DOCUMENTS-DOKTL
ORDER BY PRIMARY KEY.

DO.
FETCH NEXT CURSOR C INTO CORRESPONDING FIELDS OF ITAB_DRAT.
IF NOT SY-SUBRC IS INITIAL.
CLOSE CURSOR C.
EXIT.
ENDIF.
READ TABLE ITAB_DOCUMENTS WITH KEY DOKAR = ITAB_DRAT-DOKAR
DOKNR = ITAB_DRAT-DOKNR
DOKVR = ITAB_DRAT-DOKVR
DOKTL = ITAB_DRAT-DOKTL
BINARY SEARCH.
LOOP AT ITAB_DOCUMENTS FROM SY-TABIX.
IF ITAB_DOCUMENTS-DOKAR ITAB_DRAT-DOKAR OR
ITAB_DOCUMENTS-DOKNR ITAB_DRAT-DOKNR OR
ITAB_DOCUMENTS-DOKVR ITAB_DRAT-DOKVR OR
ITAB_DOCUMENTS-DOKTL ITAB_DRAT-DOKTL.
EXIT.
ENDIF.
IF ITAB_DOCUMENTS-DKTXT IS INITIAL OR
ITAB_DRAT-LANGU = SY-LANGU.
ITAB_DOCUMENTS-DKTXT = ITAB_DRAT-DKTXT.
ITAB_DOCUMENTS-LANGU = ITAB_DRAT-LANGU.
MODIFY ITAB_DOCUMENTS.
ENDIF.
ENDLOOP.
ENDDO.
SORT ITAB_DOCUMENTS BY OBJKY DOKAR DOKNR DOKVR DOKTL.
ENDFORM.


--------------------------------------------------------------------------------

FORM SAVE_PROJECT_HIERARCHY *


--------------------------------------------------------------------------------

........ *
--------------------------------------------------------------------------------
 FORM SAVE_PROJECT_HIERARCHY.
CALL FUNCTION 'ENQUEUE_EC_CNDB'
EXPORTING
RELID = '00'
SRTFD = 'SAP DIRECTORY'
_WAIT = 'X'
EXCEPTIONS
FOREIGN_LOCK = 1
SYSTEM_FAILURE = 2
OTHERS = 3.
IF NOT SY-SUBRC IS INITIAL.
IF SY-SUBRC = 1.
MESSAGE I501 WITH SY-MSGV1 RAISING DIR_ENTRY_NOT_SAVED.
ENDIF.
EXIT.
ENDIF.
IMPORT CNDBDIR TO ITAB_CNDBDIR
FROM DATABASE CNDB(00) ID 'SAP DIRECTORY'.
READ TABLE ITAB_HIERARCHY INDEX 1.
CLEAR CNDBDIR_TMP.
CNDBDIR_TMP-RELID = 'W2'.
CNDBDIR_TMP-SRTFD = ITAB_HIERARCHY-OBJNR.
CNDBDIR_TMP-DBPROG = 'SAPDBPSJ'.
CNDBDIR_TMP-REPORT = SY-CPROG.
CNDBDIR_TMP-DATUM = SY-DATUM.
CNDBDIR_TMP-DATLO = SY-DATLO.
CNDBDIR_TMP-TIMLO = SY-TIMLO.
SORT ITAB_CNDBDIR BY RELID SRTFD.
READ TABLE ITAB_CNDBDIR WITH KEY RELID = 'W2'
SRTFD = ITAB_HIERARCHY-OBJNR
BINARY SEARCH.
IF SY-SUBRC IS INITIAL.
DELETE ITAB_CNDBDIR INDEX SY-TABIX.
ENDIF.
ITAB_CNDBDIR = CNDBDIR_TMP.
INSERT ITAB_CNDBDIR INDEX SY-TABIX.
EXPORT CNDBDIR FROM ITAB_CNDBDIR
TO DATABASE CNDB(00) ID 'SAP DIRECTORY'.

CALL FUNCTION 'DEQUEUE_EC_CNDB'
EXPORTING
RELID = '00'
SRTFD = 'SAP DIRECTORY'.

EXPORT ITAB_HIERARCHY TO DATABASE CNDB(W2) ID ITAB_CNDBDIR-SRTFD.
EXPORT ITAB_DOCUMENTS TO DATABASE CNDB(W3) ID ITAB_CNDBDIR-SRTFD.
ENDFORM.[/code]

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

*--LDB PNP -- give it in attributes

tables pernr.
infotypes 0002.
data: begin of itab occurs 0,
vorna like pa0002-vorna,
end of itab.
data wa like line of itab.
*write 'abc'.

get pernr.

provide * from p0002
BETWEEN PNPbegda AND PNPENDDA.
move p0002-vorna to itab-vorna.
append itab.
clear itab.
endprovide.

end-of-selection.

loop at itab.

write:/ itab-vorna.
endloop.

Re: ldb

Former Member — Fri, 08 Feb 2008 08:12:21 GMT

Hi,

Logical database

A logical database is a special ABAP/4 program which combines the contents of certain database tables. Using logical databases facilitates the process of reading database tables.

HR Logical Database is PNP

Main Functions of the logical database PNP:

Standard Selection screen

Data Retrieval

Authorization check

To use logical database PNP in your program, specify in your program attributes.

Standard Selection Screen

Date selection

Date selection delimits the time period for which data is evaluated. GET PERNR retrieves all records of the relevant infotypes from the database. When you enter a date selection period, the PROVIDE loop retrieves the infotype records whose validity period overlaps with at least one day of this period.

Person selection

Person selection is the 'true' selection of choosing a group of employees for whom the report is to run.

Sorting Data

· The standard sort sequence lists personnel numbers in ascending order.

· SORT function allows you to sort the report data otherwise. All the sorting fields are from infotype 0001.

Report Class

· You can suppress input fields which are not used on the selection screen by assigning a report class to your program.

· If SAP standard delivered report classes do not satisfy your requirements, you can create your own report class through the IMG.

Data Retrieval from LDB

1. Create data structures for infotypes.

INFOTYPES: 0001, "ORG ASSIGNMENT

0002, "PERSONAL DATA

0008. "BASIC PAY

2. Fill data structures with the infotype records.

Start-of-selection.

GET PERNR.

End-0f-selection.

Read Master Data

Infotype structures (after GET PERNR) are internal tables loaded with data.

The infotype records (selected within the period) are processed sequentially by the PROVIDE - ENDPROVIDE loop.

GET PERNR.

PROVIDE * FROM Pnnnn BETWEEN PN/BEGDA AND PN/ENDDA

If Pnnnn-XXXX = ' '. write:/ Pnnnn-XXXX. endif.

ENDPROVIDE.

Period-Related Data

All infotype records are time stamped.

IT0006 (Address infotype)

01/01/1990 12/31/9999 present

Which record to be read depends on the date selection period specified on the

selection screen. PN/BEGDA PN/ENDDA.

Current Data

IT0006 Address - 01/01/1990 12/31/9999 present

RP-PROVIDE-FROM-LAST retrieves the record which is valid in the data selection period.

For example, pn/begda = '19990931' pn/endda = '99991231'

IT0006 subtype 1 is resident address

RP-PROVIDE-FROM-LAST P0006 1 PN/BEGDA PN/ENDDA.

Tables used LDB are in hierarchial structure.

Mainly we used LDBs in HR Abap Programming.

Where all tables are highly inter related so LDBs can optimize the performance there.

Check this Document. All abt LDB's

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.highlightedcontent?documenturi=%2flibrary%2fabap%2fabap-code-samples%2fldb+browser.doc

GO THROUGH LINKS -

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

http://help.sap.com/saphelp_nw04/helpdata/en/9f/db9bfa35c111d1829f0000e829fbfe/content.htm

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

http://help.sap.com/saphelp_nw04/helpdata/en/c6/8a15381b80436ce10000009b38f8cf/frameset.htm

/people/srivijaya.gutala/blog/2007/03/05/why-not-logical-databases

www.sapbrain.com/FAQs/TECHNICAL/SAP_ABAP_Logical_Database_FAQ.html

www.sap-img.com/abap/abap-interview-question.htm

www.sap-img.com/abap/quick-note-on-design-of-secondary-database-indexes-and-logical-databases.htm

http://help.sap.com/saphelp_nw04/helpdata/en/9f/db9b5e35c111d1829f0000e829fbfe/content.htm

http://help.sap.com/saphelp_nw2004s/helpdata/en/9f/db9bb935c111d1829f0000e829fbfe/content.htm

Gothru the blog which provides info on LDB's:

/people/srivijaya.gutala/blog/2007/03/05/why-not-logical-databases

Sample code

TABLES: SPFLI,

SFLIGHT,

SBOOK,

SCARR.

START-OF-SELECTION.

GET SPFLI.

WRITE:/ ’SPFLI: ’, SPFLI-CARRID, SPFLI-CONNID,

SPFLI-AIRPFROM, SPFLI-AIRPTO.

GET SFLIGHT.

WRITE:/ ’ SFLIGHT: ’, SFLIGHT-CARRID, SFLIGHT-CONNID, SFLIGHT-FLDATE.

GET SBOOK.

WRITE:/ ’ SBOOK: ’, SBOOK-CARRID, SBOOK-CONNID,

SBOOK-FLDATE, SBOOK-BOOKID.

GET SFLIGHT LATE.

WRITE:/ ’ GET SFLIGHT LATE: ’, SFLIGHT-FLDATE.

Reward Points if found helpfull..

Cheers,

Chandra Sekhar.

Re: ldb

Former Member — Fri, 08 Feb 2008 08:21:07 GMT

hi.

Logical databases are special ABAP programs that retrieve data and make it available to application programs. Logical databases contain Open SQL statements that read data from the database. You do not therefore need to use SQL in your own programs. The logical database reads the program, stores them in the program if necessary, and then passes them line by line to the application program or the function module LDB_PROCESS.

Better then suppressing the field provided by LDB.. go for another Report Category or create a new Report category by going to the Attributes of the Program.

About Logical Databases.

help.sap.com/saphelp_46c/helpdata/en/9f/db9b5e35c111d1829f0000e829fbfe/content.htm - 7k

help.sap.com/saphelp_46c/helpdata/en/9f/db9be035c111d1829f0000e829fbfe/content.htm - 9k

Jayant Sahu

Re: ldb

Former Member — Fri, 08 Feb 2008 08:45:06 GMT

*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.

LDB offers an easy-to-use selection screens. You can modify the pre-generated selection screen to your needs. It offers check functions to check whether user input is complete, correct, and plausible. It offers reasonable data selections. It contains central authorization checks for data base accesses. Enhancements such as improved performance immediately apply to all report programs that use the logical database.

Less coding s required to retrieve data compared to normal internel tables.

Tables used LDB are in hierarchial structure.

Mainly we used LDBs in HR Abap Programming.

Where all tables are highly inter related so LDBs can optimize the performance there.

*events in LDB.*

get, -- starts executing from root node onwards.

get late -- starts executing subroot nodes first & later root node.

get late reject -- starts executing subroot nodes only.

get late reject table -- starts executing that particular Database tale only.

put --- it will write the data.

Check this link for Procedure for Creating a Logical Database

http://help.sap.com/saphelp_nw04/helpdata/en/9f/db9bfa35c111d1829f0000e829fbfe/content.htm

Re: ldb

Former Member — Wed, 14 Jan 2009 22:10:01 GMT

thanks