How to make use of logical database in reports?

Question

hi,
I am working on a Cash Flow Forecast report, which requires the usage of 'PSJ' Logical Database for the selection screen with Profit Center(PRCTR) as one field and the other field being Period ( in MM/YYYY format).
I have not worked on Logical Database before. Since, its for the first time I am working on LDB, I require help on it.
How to proceed for this, can someone help me with it?
On receiving further inputs, I will proceed and might come up with some more queries.
Regards,
Ravi

Answer 1

Hi Hari,
Thanks a lot for being so patient. yeah, I will just send you a code snippet of mine. My code is of 3000 Lines. Hence, I will send few parts of it. Just go through and let me know if you need any further information from my side.
Here is the snippet:
*& TABLES
TABLES: PROJ,                              "Project definition.
        PRPS,                              "WBS Element Master Data
        COSP,                              "CO: External Table.
        COFP,                              "CO: External Table.
        SETLEAF,                       "Value in sets.
        FAGLFLEXT,                         "Profit Center.
        S031,                              "Statistics: Movements for Current Stocks.
        SETHEADERT,                        "short Description of Sets.
        AFVC,                              "Operation within an Order.
        AUFK,                              "Order master data.
        PRHI,                              "Work Breakdown Structure.
        AFKO,                              "Order header data PP orders.
        NRIV,                              "Number range Intervals.
        SKB1,                              "G/L Account Master (company code).
        FMCI.                              "Commitments Item master data.
Type Pool
TYPE-POOLS: SLIS.
FIELD-SYMBOLS: <DYN_TABLE> TYPE STANDARD TABLE,
               <DYN_WA>,
               <DYN_FIELD>.
DATA: COUNT TYPE I,
      D_PERIOL LIKE COFP-PERIO,
      D_PERIOH LIKE COFP-PERIO,
      D_GJAHRL LIKE COFP-GJAHR,
      D_GJAHRH LIKE COFP-GJAHR,
      D_GJAHR LIKE COFP-GJAHR,
      D_PERIO LIKE COFP-PERIO,
      OBJNR LIKE COSP-OBJNR,
      PKOKR LIKE PRPS-PKOKR,
      G_NRLEVEL LIKE NRIV-NRLEVEL,
      G_BELNR LIKE COFP-BELNR,
     I_OBJ-OBJNR LIKE COFP-OBJNR,
      G_OPNGBAL LIKE FAGLFLEXT-HSL01,
      G_PAYROLL LIKE COSP-WKG001,
      G_PYROL_TAX LIKE COFP-WKGBTR,
      G_PENSION LIKE COFP-WKGBTR,
      G_BTLDGR LIKE COFP-WKGBTR,
      G_REIMPYMT LIKE COFP-WKGBTR,
      G_INTCORCPT LIKE COFP-WKGBTR,
      G_CAPEXP LIKE COFP-WKGBTR,
      G_SLSLDGR LIKE COFP-WKGBTR,
      G_REIMRCPT LIKE COFP-WKGBTR,
      G_TOTPYMNTS LIKE COFP-WKGBTR VALUE 0,
      G_TOTRECPTS LIKE COFP-WKGBTR VALUE 0,
      G_MVMTFRMNTH LIKE COFP-WKGBTR VALUE 0,
      G_CLSGBAL LIKE COFP-WKGBTR VALUE 0.
DATA: LYEAR(4) TYPE N,
      LMONTH1(2) TYPE N,
      MON1(2) TYPE N.
DATA: HYEAR(4) TYPE N.
DATA: LMONTH(2) TYPE N.
DATA: HMONTH(2) TYPE N.
DATA: TOTAL(10) TYPE N.
DATA: SUM(10) TYPE N.
DATA: G_PSPID LIKE PROJ-PSPID.
DATA: TOTAL1 LIKE COFP-WKGBTR,
      TOTAL2 LIKE COFP-WKGBTR.
DATA: G_KOKRS LIKE COFP-KOKRS,
      G_FIPOS LIKE SKB1-FIPOS,
      G_POSIT LIKE COFP-POSIT,
      G_BUKRS LIKE COFP-BUKRS.
DATA: L_RACCT LIKE FAGLFLEXT-RACCT VALUE '0000220000',
      H_RACCT LIKE FAGLFLEXT-RACCT VALUE '0000227999'.
DATA: I TYPE I VALUE '74'.
DATA: P TYPE I VALUE '62'.
*& SELECT-OPTIONS
PARAMETERS : S_PRCTR LIKE PROJ-PRCTR.         "Profit Center
SELECT-OPTIONS: SL_SPMON FOR S031-SPMON OBLIGATORY.            "Period
*INITIALIZATION
INITIALIZATION.
  SL_SPMON-SIGN = C_IN.
  SL_SPMON-OPTION = C_BT.
  SL_SPMON-LOW = SL_SPMON.
  SL_SPMON-HIGH = SL_SPMON.
  APPEND SL_SPMON.
AT SELECTION-SCREEN
Event which occurs each time the user hits enter on the selection
Screen.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SL_SPMON-LOW.
  PERFORM MONAT_F4.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SL_SPMON-HIGH.
  PERFORM MONAT_F4.
  SELECT SINGLE * FROM PROJ WHERE PRCTR = S_PRCTR.
  IF SY-SUBRC <> 0 AND NOT ( S_PRCTR IS INITIAL ).
    MESSAGE E019.
  ENDIF.
ALL WBS ELEMENT SELECTION
  SELECT PSPID INTO TABLE I_PROJTAB FROM PROJ WHERE PRCTR = S_PRCTR.
  IF SY-SUBRC = 0.
    LOOP AT I_PROJTAB.
      CALL FUNCTION 'GET_TREE_FROM_PRHI'
        EXPORTING
          I_POSID                   = I_PROJTAB-PSPID
   I_PSPNR                   = 00000000
   NO_BUFFER                 = ' '
        TABLES
          PSP_TREE                  = I_PRHI
        EXCEPTIONS
          INPUT_ERROR               = 1
          PSP_HIERARCHY_ERROR       = 2
          PSP_NOT_FOUND             = 3
          OTHERS                    = 4
   ENDLOOP. " PROJTAB
  ENDIF.
  SELECT * FROM PRPS INTO TABLE I_PRPSVC FOR ALL ENTRIES IN I_PRHI
                  WHERE PSPNR = I_PRHI-POSNR.
  SELECT * FROM AFVC INTO TABLE I_AFVC FOR ALL ENTRIES IN I_PRPSVC
                  WHERE PROJN = I_PRPSVC-PSPNR.
  SELECT * FROM AUFK INTO TABLE I_AUFK FOR ALL ENTRIES IN I_PRPSVC
                  WHERE PSPEL = I_PRPSVC-PSPNR AND AUTYP NE C_TWENTY.
  SELECT OBJNR FROM PRPS INTO TABLE I_OBJ FOR ALL ENTRIES IN I_PRHI
                  WHERE PSPNR = I_PRHI-POSNR.
  IF SY-SUBRC <> 0.
    MESSAGE E010.
  ENDIF.
I hope that's of some use.
Thanks & Regards,
Ravi