PAP logical database

[Former Member]

Hi Gurus,

Can anyone send me the sample program for the PAP logical database?

Points will be awarded.

Regards

SC

[Former Member]

http://help.sap.com/saphelp_47x200/helpdata/en/d9/cffc3738bac002e10000009b38f842/content.htm

http://help.sap.com/saphelp_47x200/helpdata/en/22/9ffd370f8f275de10000009b38f842/content.htm

http://help.sap.com/saphelp_47x200/helpdata/en/22/9ffd370f8f275de10000009b38f842/content.htm

http://help.sap.com/saphelp_47x200/helpdata/en/5a/d35370544811d1895e0000e8323c4f/content.htm

[Former Member]

this link will give u a even better idea

http://help.sap.com/saphelp_47x200/helpdata/en/4f/d52822575e11d189270000e8322f96/content.htm

[Former Member]

Hi,

REPORT SAPDBPAP DEFINING DATABASE PAP MESSAGE-ID PA.

TYPE-POOLS: "XYVAHRK032845

HR. "XYVAHRK032845

INCLUDE DBPAPTOP. "Global Data

INCLUDE DBPAPF01. "Form routines (mainly PUT APPLICANT etc.)

INCLUDE DBPAPAUT. "Authorization checks "XYVAHRK033641

INCLUDE DBPAPO01. "Before output routines (selection-screen)

INCLUDE DBPAPI01. "After input routines (except PUT APPLICANT)

INCLUDE DBPAPE01. "Before/after special events

INCLUDE MPPAUT01. "form routines for authority checks

*INCLUDE RPUMKC00. "calling features

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

• !!! PLEASE DO NOT CHANGE MANUALLY (BEGIN OF BLOCK) !!!!!!!!!!!!!!! *

----

---

• Data structures for search pattern selection *

• !!! PLEASE DO NOT CHANGE MANUALLY (END OF BLOCK) !!!!!!!!!!!!!!!!! *

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

----

---

• BEFORE_EVENT will be called before event EVENT

• Possible values for EVENT: 'START-OF-SELECTION'

----

---

• FORM BEFORE_EVENT USING EVENT.

• CASE EVENT.

• WHEN 'START-OF-SELECTION'

*

• ENDCASE.

• ENDFORM. "BEFORE_EVENT

Regards

Deepak

Message was edited by:

Deepak Kumar

[Former Member]

Hi,

U have a number of standard programs where PAP LDB is being used. Here are some:

RHQINTE1.

RHQINTE1

RPAPDEL0

RPAPL001

RPAPL002

RPAPL003

RPAPL004

RPAPL005

RPAPRT01

RPAPRT02

RPAPRT04

RPAPRT05

RPAPRT07

RPAPRT08

Check out some simple sample code on this.

&----

---

*& Report ZLDB_DEMO1

*&

&----

---

*&

*&

&----

---

REPORT ZLDB_DEMO1.

TABLES: PERNR.

DATA:

W_SUBTXT LIKE T591S-STEXT.

INFOTYPES: 0021.

GET PERNR.

PROVIDE * FROM P0021 BETWEEN PN-BEGDA AND PN-ENDDA.

SELECT SINGLE STEXT

FROM T591S

INTO W_SUBTXT

WHERE SPRSL = 'EN'

AND INFTY = '0021'

AND SUBTY = P0021-SUBTY.

WRITE:/

P0021-PERNR,

P0021-BEGDA,

P0021-ENDDA,

P0021-SUBTY,

W_SUBTXT,

P0021-OBJPS.

ENDPROVIDE.