Pnp-begda pnbegda

Hi Experts could you tell me ,
what is diff between pnp-begda pnbegda

hiii....
pnpbegda/pnpendda is the name of the screen field in the selection screen of LDB.
pn-begda & pn-endda takes the value entered in the sel screen when executed.
eg.If Reporting Period is today, pnpbegda contains no value whereas pn-begda & pn-endda contains today's date.
This holds true for Reporting period values like All/Today/Current month etc...wherein you dont need to enter start date & end date.
In such cases pnpbegda & pnpendda returns null whereas pn-begda pn-endda returns correct value chosen in selection screen.
Its always better to use pn-begda & pn-endda for reporting .
Regards,
Vidya

Similar Messages

Cn anybody tell me the date concept in HR payroll

Hi experts....
Well i m currently wrking in HR payroll module ...nd its all abt infotypes and date concet
well if nybody have docs related to date concept cn u plz send me or tell me...suppose if i hv to choose date from 01-08-2009 to 31-08-2009 ...how to give where conditions for choosin employee between dis dates..
how to use begda and endda to choose emp between the dates..it may be ny month..
nd it shud be according to fiscal month
if any body have a report based on payroll..
thnxxx
WARNED:search before you post
Edited by: Suresh Datti on Aug 31, 2009 12:17 PM

Hi ,
Date Concepts /condions during reading data in HR :
1. Allways used the ENDDA = '99991231' to fetch active record.
2. For active records in entered period :
BEGDA lt PNP-ENDDA
ENDDA GT PNP-BEGDA.
3. Time constrants also effects teh data retrival form differnt infotype.......
Regards
Lakhan

HR Logical database PNP. OO to fill table dynamic table from PNP ?

Hi all
I want to get some stuff from the HR logical database into a dynamic table
Here's a real simple example that writes info out to a normal list.
(report is based on using Logical DB PNP)
tables: pernr.
INFOTYPES: 0001,                     "Organizational Assignment
           0002.                     "Personal Data
SELECT-OPTIONS: language FOR p0002-sprsl.
INITIALIZATION.
pnptimed = 'D'.
GET pernr.
PROVIDE * FROM p0002 BETWEEN pn-begda AND pn-endda.
    CHECK language.
    WRITE: / p0002-pernr,
             sy-vline,
             p0001-ename,
             sy-vline,
             p0002-sprsl,
             sy-vline,
             p0002-gbdat.
ENDPROVIDE.
endform.
Now what I want to do is replace the write stuff by appending the entries into a dynamic table which I will display as an ALV Grid.
so I add my structure in the data declarations
types: begin of s_elements,
   pernr type p0002-pernr,
   ename type p0001-ename,
   sprsl type p0002-sprsl,
   gbdat   type p0002-gbdat.
drop_down_handle type int4.
types: end of    s_elements.
include zz_jimbo_incl.
build the dynamic table
create data dref type s_elements.
assign dref->* to <fs>.
i_routine = 'POPULATE_DYNAMIC_ITAB'.*
i_names   = 'NAME_COLUMNS'.
i_gridtitle = 'HR TEST'.
invoker = sy-repid.
i_zebra = 'X '.
i_edit = ' '.
call function 'ZZ_CALL_SCREEN'
     exporting
          invoker     = invoker
          my_line     = <fs>
          i_gridtitle = i_gridtitle
          i_edit      = i_edit
          i_zebra     = i_zebra
          i_names     = i_names
          i_routine   = i_routine
     importing
          z_object    = z_object
          dy_table    = dy_table.
Now to populate the dynamic Itab the routine below is entered.
form populate_dynamic_itab changing dy_table.
assign dy_table->* to <dyn_table>.
create data dy_line like line of <dyn_table>.
assign dy_line->* to <dyn_wa>.
However I can't use GET / PROVIDE / ENDPROVIDE in a Form.
Anyway round this ---seems HR has an aversion to OO.
Cheers
jimbo

Hi,
well, GET_PERNR is a so called event_statement. It has nothing to do with ABAP 00.
Normally it will be like this:
START-OF-SELECTION.
GET_PERNR.
PROVIDE ....
END-OF-SELECTION.
-> and here the CALL SCREEN NNNN for ALV-Display.
Provide-statements you can use in forms of course, and as many times you want during GET and END-OF-SELECTION.
But as I understood : you just want to save the write-statements?
I always develop a DDIC-Structure, declarate the data objects in the programm, read the data via Provide into the infotypes, and then make a move-corresponding to my structure. and display it.
Normally no problem.
kind regards
maik

Need help with provide statement in pnp progrm

hi experts,
i need to select all the records that :
1. pa00014-sunty in so_subty.
base on the records that he found' i need to select from pa0001:
p0014-endda = > p0001-begda and
p0014-begda = < p0001-endda and
p0001-persk ne so_persk.
what i did:
provide * from p0001
from p0014
between pn-begda and pn-endda
where p0014-subty = so_subty and
p0014-endda = > p0001-begda and
p0014-begda = < p0001-endda and
p0001-persk ne so_persk.
check p0001_valid = 'X'.
endprovide.
i got 2 problems:
1. i not recognize the syntax: check p0001_valid = 'X'.
2. the syntax for the provide is not good.
i new in pnp thing.
i hope i was clear.
thanks in advanced,
Michal.

Hi,
   May be this code will help you.
infotypes: 0001,0002,0008,0000,1000,0021,0041,0587 .
PROVIDE ename BTRTL PLANS STELL ORGEH ABKRS FROM P0001 BETWEEN PN-BEGDA AND PN-ENDDA .
if p0001-begda = '20070801' .
      IT_FINAL-ORGEH = P0001-ORGEH .
      IT_FINAL-STELL = P0001-STELL .                            "   JOB
      IT_FINAL-PLANS = P0001-PLANS .                            "   POSITION
      IT_FINAL-ename = P0001-ename .                            "   personnel name
      IT_FINAL-BTRTL = P0001-BTRTL .                            "   DEPARTMENT
      IT_FINAL-ABKRS = P0001-ABKRS .                            "   PAYROLL AREA
      APPEND IT_FINAL .
endif .
ENDPROVIDE.
PROVIDE GBDAT GESCH FROM P0002 BETWEEN PN-BEGDA AND PN-ENDDA .
       IT_FINAL-GBDAT = P0002-GBDAT .                            "   DOB
       IT_FINAL-GESCH = P0002-GESCH .                            "   ***
     IF IT_FINAL-GESCH = 1   .
       IT_FINAL-GTXT = 'M' .
     ELSE.
       IT_FINAL-GTXT = 'F' .
     ENDIF .
       APPEND IT_FINAL .
ENDPROVIDE .
PROVIDE TRFST FROM P0008 BETWEEN PN-BEGDA AND PN-ENDDA.
        IT_FINAL-TRFST = P0008-TRFST .                          "   personnel level
        APPEND IT_FINAL .
ENDPROVIDE.
PROVIDE FAVOR FANAM FROM P0021 BETWEEN PN-BEGDA AND PN-ENDDA where P0021-pernr = pernr-pernr
and p0021-SUBTY = '11' .
       IT_FINAL-FAVOR = P0021-FAVOR .                          "   FATHER'S NAME
       IT_FINAL-FANAM = P0021-FANAM .
       CONCATENATE IT_FINAL-FAVOR IT_FINAL-FANAM INTO IT_FINAL-FNAME .
       APPEND IT_FINAL .
ENDPROVIDE.
Regards,
Himanshu

Logical Database PNP couldn't work

Hi all, I have the following code but it didn't work.
TABLES: pernr.
INFOTYPES: 0002. "Personal Data
data i_personaldata like p0002 OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS: language FOR p0002-sprsl.
*-- Selection screen
*-- Processing
GET PERNR.
rp_provide_from_last p0002 space pn-begda pn-endda.
IF pnp-sw-found EQ 0.
    WRITE: 'no record found'.
ELSE.
    CHECK language.
    WRITE: / p0002-pernr,
    sy-vline,
    pernr-ename,
    sy-vline,
    p0002-sprsl,
    sy-vline,
    p0002-gbdat.
ENDIF.
When I try to compile the program, the program is syntatically correct and the selection screen of the logical database works. But when I press execute, the program won't generate any result and the screen won't change.
I tried to debug the program. But the program couldn't get into the Get PERNR event.
My friend tried to run this program in another system and it works.
Anybody knows what could be the problem?

The event sequence in your program is incorrect. The correct sequence is
INFOTYPES: ...
START-OF-SELECTION.
"processing before fetching data
GET PERNR.
"process fetched data
END-OF-SELECTION. " mandatory
"process all the fetched data and display

Standard PNP selection screen problem in reason for action type

Hi all,
We have used standard PNP in one of our report program.
The input for 'Reason for Action' (excluding a particular reason for action ) has no effect on the actual selection of data from the PNP. i.e. even if a particular reason for action is excluded in the selection, record pertaining to that action for reason is still picked in the PNP selection and passed on to the program through Get PERNR statement.
The above problem seems to affect all the standard and custom HR Reports as well.
Please advise on how exactly the excluding of a particular reason for action work in selection through PNP and is there anyway to solve the problem.
eagerly waiting for your response.
Thanking You,
Regards.
Deepak

Thanks for your response,
We tried but it did not work.
Our code is as follows,
INITIALIZATION.
W_REPID = SY-REPID.
PERFORM CREATE_RANGES.
START-OF-SELECTION.
GET PERNR.
RP-PROVIDE-FROM-LAST P0000 SPACE PN-BEGDA PN-ENDDA.
PERFORM GET_DATA.
END-OF-SELECTION
If you could give us your email id, we would email the screen shots of the selection screen and the output.
my email id - [email protected]
Thanking You,
Regards
Deepak

PNP logical database screen and provide statement.

hi all,
I have changed standard selection screen for PNP and now i dont have PERNR on it but it has only company code and one extra field added by me.
then after "GET PERNR."
Now if i execute statement "provide * from P0001 between pn-begda and pn-endda.", it gives me record for only pernr.
can someone explain me??
Reena..

As your report is tied to PNP, & you have only BUKRS as on the selection screen, the GET PERNR will be executed for all the PERNRs that belong to the Company Code input. You don't have to specify the Pernrs.. the LDB will select it for you..
~Suresh

How does works default parameters in a program with logical database PNP?

Hi Friends,
I have a basic program, i need to filter info with period parameters in a program that uses logical database PNP, but it doesn't work.
If i use "person selection period" that it's suposed to filter info according to infotype 0001 (as the sap help says), it doesn't work, i use: PNPBEGPS = today and PNPENDPS = today, and the result it's a lot of registers that doesn't meet that criteria.
Also i tried with: data selection period, today, up to day, current month. And the result it's with the same problem.
How does works period parameters in a program with logical database PNP?
This it's the program example, i use the default category.
REPORT ZRPHRTEST.
tables: pernr.
infotypes: 0001.
start-of-selection.
get pernr.
write: pernr-pernr, p0001-begda, p0001-endda.
end-of-selection.
write 'fin'.

Hi,
Define pernr table under tables statement then and use GET PERNR event.This get event is followed by End-Of-Selection.
Syntax: Tables pernr.
Get pernr.
Try, activate and test. This should solve your problem.
Regards,
Abhijeet

PNP - Selection scr een

Hi Friends,
I have one doubt on selection screen of logical database PNP.
I enter the date in selection screen as 01.06.2006 to 31.12.2006 for both data selection and person selection.
In the database table date(begda) is 01.01.2000.
When i use provide * from p0001 between pn-begda and pn-endda..endprovide,
it automatically changes the date in table to selection screen date, ie from 01.01.2000 to 01.01.2006. So brings all the data even though date in table exists only up to 01.01.2000. How can i solve this?
Thanks in advance.

No, i want all the records for a person during a particular period. All actions from pa0000. Now i validated the data selection between loop-endloop. But it does not validate the person selection. Any idea Please.
Thanks

HELP IN USE PNP LOGICAL DATABASE

And I have 2 problem the first is that I have error that I dont now how to solve like
.In Unicode programs, the "-" character cannot appear in names, as it1
does here in the name "PNP-SW-IGNORELOCKEDRECORDS".
2.In Unicode programs, the "-" character cannot appear in names, as it          does here in the name "PNP-SW-ENQUEUEPERNR".
In Unicode programs, the "-" character cannot appear in names, as it3.
does here in the name "PNP-SW-AUTH-SKIPPED-RECORD".
In my program I do
START-OF-SELECTION.
GET peras.
END-OF-SELECTION.
Data
TABLES: pernr.
NODES: peras.
INFOTYPES: 0000 NAME t_0000,
           0002 NAME t_0002.
What im doing wrong
The second problem in my program I call to function before I use the pnpce I use
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
SELECT-OPTIONS so_date FOR sy-datum OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
CALL FUNCTION 'YHR_GET_EMP_COURSE_SINGLE'
EXPORTING
    begda          = so_date-low
    endda          = so_date-high
    uname          = uname
    z_course_table = z_course_table
    switch_history = switch_history
TABLES
    itab_final     = itab_final
    it_final       = it_final.
And for that I call the function with so_date-low and high what I have to write begda and endda if I use pnpce
Thanke for your time

Refer my demo code for PNP database.
also pls ensure u have provided LDB name in the attributes of the program say PNP.
REPORT ZPPL_PREVEMPLOYERS   message-id rp
                             line-size 250
                             line-count 65.
*Program logic :- This Report is used to Download all the Previous
* Employer (IT0023) records of the employees
*eject
*& Tables and Infotypes                                                *
tables: pernr.
infotypes: 0000,
           0001,
           0002,
           0023.
*eject
*& Constants                                                           *
constants: c_1(1)       type c               value '1'   ,
           c_3(1)       type c               value '3'   ,
           c_i(1)       type c               value 'I'   ,
           c_x(1)       type c               value 'X'   ,
           c_eq(2)      type c               value 'EQ' ,
           c_pl03       like p0001-werks     value 'PL03'.
*eject
*& Selection-Screen                                                    *
parameters: p_file like rlgrap-filename default 'C:TempABC.xls',
            p_test as checkbox default c_x               .
*eject
*& Internal tables                                                     *
* Internal Table for Output
data: begin of t_output occurs 0    ,
       pernr like pernr-pernr       ,
       nachn like p0002-nachn       ,
       vorna like p0002-vorna       ,
       orgeh_stext like p1000-stext ,
       plans_stext like p1000-stext ,
       begda like p0023-begda       ,
       endda like p0023-endda       ,
       land1 like p0023-land1       ,
       arbgb like p0023-arbgb       ,
       ort01 like p0023-ort01   .
data: end of t_output           .
*eject
*& Variables                                                           *
data: o_stext like p1000-stext,
      p_stext like p1000-stext.
*eject
*& Initialization                                                      *
Initialization.
* Initialize Selection-Screen values
perform init_selction_screen.
*eject
*& AT Selection-screen                                                 *
at selection-screen .
* Check if Test run selected, download file name should be entered
if p_test is initial. "
    if p_file is initial.
      message e016 with 'Please enter file name'
                        'specifying complete path'.
    endif.
endif.
*eject
*& Start-of Selection                                                  *
Start-of-selection.
get pernr.
clear t_output.
* Read Infotype 0
rp-provide-from-last p0000 space pn-begda pn-endda.
check pnp-sw-found eq c_1.
* Check if employee is active
check p0000-stat2 in pnpstat2.      "pernr Active
* Read Infotype 1
rp-provide-from-last p0001 space pn-begda pn-endda.
check pnp-sw-found eq c_1.
* check if employee belongs to PL03
check p0001-werks in pnpwerks. "belongs to PL03
* Check if emp belongs to Active Group
check p0001-persg in pnppersg.
* Read Infotype 2
rp-provide-from-last p0002 space pn-begda pn-endda.
check pnp-sw-found eq c_1.
* Read Org Unit Text.
CALL FUNCTION 'HR_READ_FOREIGN_OBJECT_TEXT'
     EXPORTING
          OTYPE                   = 'O'
          objid                   = p0001-orgeh
          begda                   = p0001-begda
          endda                   = p0001-endda
          reference_date          = p0001-begda
     IMPORTING
          object_text             = o_stext
      EXCEPTIONS
          nothing_found           = 1
          wrong_objecttype        = 2
          missing_costcenter_data = 3
          missing_object_id       = 4
          OTHERS                  = 5.
*Read Position Text.
CALL FUNCTION 'HR_READ_FOREIGN_OBJECT_TEXT'
     EXPORTING
          OTYPE                   = 'S'
          objid                   = p0001-plans
          begda                   = p0001-begda
          endda                   = p0001-endda
          reference_date          = p0001-begda
     IMPORTING
          object_text             = p_stext
     EXCEPTIONS
          nothing_found           = 1
          wrong_objecttype        = 2
          missing_costcenter_data = 3
          missing_object_id       = 4
          OTHERS                  = 5.
* Gather all the required information related to the emp
move: pernr-pernr to t_output-pernr,
        o_stext to t_output-orgeh_stext,
        p_stext to t_output-plans_stext,
        p0002-nachn to t_output-nachn,
        p0002-vorna to t_output-vorna.
* Gather previous Employee details
loop at p0023.
    move-corresponding p0023 to t_output.
    append t_output.
endloop.
*eject
*& End-of Selection                                                    *
end-of-selection.
perform print_report.
* Downlaod the file
if not t_output[] is initial.
    if p_test eq space.
      perform download_file.
    endif.
else.
    write: 'No records selected' color col_negative.
endif.
*eject
*& Top-of-page                                                         *
Top-of-page.
* Print Header
perform print_header.
*eject
*&      Form download_file
* Description :
FORM download_file .
DATA: full_file_name    TYPE string,
        z_akt_filesize    TYPE i     .
full_file_name = p_file.
* download table into file on presentation server
CALL METHOD cl_gui_frontend_services=>gui_download
    EXPORTING
      filename                = full_file_name
      filetype                = 'DAT'
      NO_AUTH_CHECK           = c_x
      codepage                = '1160'
    IMPORTING
      FILELENGTH              = z_akt_filesize
    CHANGING
      data_tab                = t_output[]
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6
      header_not_allowed      = 7
      separator_not_allowed   = 8
      filesize_not_allowed    = 9
      header_too_long         = 10
      dp_error_create         = 11
      dp_error_send           = 12
      dp_error_write          = 13
      unknown_dp_error        = 14
      access_denied           = 15
      dp_out_of_memory        = 16
      disk_full               = 17
      dp_timeout              = 18
      file_not_found          = 19
      dataprovider_exception = 20
      control_flush_error     = 21
      not_supported_by_gui    = 22
      error_no_gui            = 23
      OTHERS                  = 24.
IF sy-subrc               NE        0.
    MESSAGE e016 WITH 'Download-Error; RC:' sy-subrc.
ENDIF.
ENDFORM.                    " download_file
*eject
*&      Form print_report
*Description:
FORM print_report .
data: i       type i,
        w_count type i.
sort t_output.
* Print the report
loop at t_output.
    i = sy-tabix mod 2.
    if i eq 0.
      format color col_normal intensified on.
    else.
      format color col_normal intensified off.
    endif.
    write:/1     t_output-pernr          ,
           10     t_output-vorna(25)     ,
           35    t_output-nachn(25)      ,
           61   t_output-orgeh_stext     ,
           102 t_output-plans_stext     ,
           143 t_output-begda           ,
           154   t_output-endda          ,
           168   t_output-land1          ,
           178   t_output-arbgb(40)      ,
           219   t_output-ort01          ,
           249   space              .
endloop.
uline.
Describe table t_output lines w_count.
Skip 2.
Write:/ 'Total No of Records Downloaded: ' color col_total,
          w_count.
ENDFORM.                    " print_report
*eject
*&      Form print_header
*Description:
FORM print_header .
skip 1.
Uline.
format Intensified on color col_heading.
write:/1   'Pers. #'        ,
         10   'Last Name'     ,
         35   'First Name'    ,
         61   'Org Unit'      ,
         102 'Position'      ,
         143 'Beg Date'      ,
        154   'End Date'      ,
        168   'Cntry Key'     ,
        178   'Prev Employer' ,
        219 'City'           ,
        249   space          .
format intensified off color off.
uline.
ENDFORM.                    " print_header
*eject
*&      Form init_selction_screen
*Description:
FORM init_selction_screen .
refresh: pnpwerks,
           pnppersg,
           pnpstat2.
clear:   pnpwerks,
           pnppersg,
           pnpstat2.
pnpwerks-sign   = c_i.
pnpwerks-option = c_EQ.
pnpwerks-low    = c_pl03.
append pnpwerks.
pnppersg-sign   = c_i.
pnppersg-option = c_EQ.
pnppersg-low    = c_1.
append pnppersg.
pnpstat2-sign   = c_i.
pnpstat2-option = c_EQ.
pnpstat2-low    = c_3.
append pnpstat2.
ENDFORM.                    " init_selction_screen

Pn-begda and pn-endda

Hi all.
I am developing a hr report with logical database pnp and screen 900 i.e the payroll screen.
I wan to access the start date of payroll and hence m using pn-begda and pn-ennda but to my surprise both of them are null. i also tried payroll-evp-fpend and payroll-evp-fpbeg but they are also set to null.
can any one please explain y is it happening and what should i do to find out the start and end date?
thanks
HM

Dear Hitesh,
Get the payroll run from your HR Functional consultant first. Maybe then, you would get the values in Pn-begda and Pn-endda.
Reward points if answer is helpful.
Regards,
AXE

Report creation with PNP logical database

Hi All
Want to select data according to the begda and endda on the selection screen, if any body has the code will be of great help
rgds
aj

Hi,
In the attributes,give PNP as logical database.
Then in the program,paste the following coding.
tables pernr.
infotypes 0001.
start-of-selection.
get pernr.
provide * from p0001 between pn-begda and pn-endda.
write : / p0001-begda, p0001-endda.
endprovide.
end-of-selection.

How to get PNP Org Structure to reflect the org structure as of key date?

I created a custom program using the PNP logical database. I defined a custom report category indicating the selection period = employee selection period and allowing org.structure. Im also using the standard SAP PNP_DEFAULT selection view.
Inside my ABAP I initialize the pnpbegda and pnpbegps to reflect 20060930. Upon Execution the key date reflects 09/30/2006. I click on the org.structure button. The org.structure displayed reflects the one as of today rather than as of Sept-30.
During run debug I see that the RP_PNP_ORGSTRUCTURE program, LRPPNU11, calls function 'RH_TYPE_STRUC_HELP' to get the org.structure. The call to this function passes 09/30/2006 for the begda and endda, but it still returns the latest org.structure. I did some playing with this function and found that if I also pass the ACT_SEARCH_WEGID as ORGEH it works.
Any idea on how I can get the LRPPNU11 program to pass the ACT_SEARCH_WEGID or the subsequent called functions to process for ORGEH?

thanks. but maybe I don't describe my problem well.
I use javascript to get some information such as position, sytle of each elements and then pass these to javafx. So the besides the dom tree, I can get more information about elements.
I need to pass them back to javafx.
if node support setUserData, I can associate them to each Node/Element. But webkit don't support this feature.
BTW, If javascript pass a object to javafx. it can only deal with primary types such as string, numeric. But I need pass back a complicated javascript object like:
{name:"parent", children:[{name:"child1"},{name:"child2"}]
I can use (String)JSObject.getMember("name"); and JSObject children=JSObject.getMember("children");
but I can't cast children to Object[] or JSObject[].
so I have to use some tricky to convert Javascript Object to json string and then in javafx convert it back to Object tree.
Edited by: user12956197 on 2013-3-11 上午4:27

Converting PNP related statement to simple ABAP

Hello,
i had a report which uses PNP logical database of HR module.
the code contains two specific lines to be used with it.
Get PERNR.
and
rp_provide_from_last p0000 space pn-begda pn-endda.
Now i want to do the same functionality using simple ABAP statements.
Could you please guide me. My requirement is that i had to fill a table, lets take Pa0000 internal table, so for that i could use a select statemnt instead of GET PERNR statement.
but didnt getting the conversion for the macro being used above. Also the PERNR field is not a mandatory one on the selection screen

hi check this program,
*& Report ZBEN
REPORT ZBEN.
tables:t591a,pa0021,pa0002.
DATA:BEGIN OF IT_PA0002 OCCURS 0,
     PERNR LIKE PA0002-PERNR,
     BEGDA LIKE PA0002-BEGDA,
     ENDDA LIKE PA0002-ENDDA,
     END OF IT_PA0002.
DATA:BEGIN OF IT_PA0021 OCCURS 0,
     PERNR LIKE PA0021-PERNR,
     subty like pa0021-subty,
     BEGDA LIKE PA0021-BEGDA,
     ENDDA LIKE PA0021-ENDDA,
     FAMSA LIKE PA0021-FAMSA,
     OBJPS LIKE PA0021-OBJPS,
     FAVOR LIKE PA0021-FAVOR,
     FANAM LIKE PA0021-FANAM,
     KDSVH LIKE PA0021-KDSVH,
     KDART LIKE PA0021-KDART,
     END OF IT_PA0021.
data:it_t591a type t591a occurs 0 with header line.
data:it_t591s type t591s occurs 0 with header line.
PARAMETERS:P_PERNR LIKE PA0021-PERNR.
START-OF-SELECTION.
SELECT PERNR
       BEGDA
       ENDDA
       FROM PA0021
       INTO TABLE IT_PA0002
       WHERE PERNR = P_PERNR.
       IF SY-SUBRC = 0.
       SELECT PERNR
              subty
              BEGDA
              ENDDA
              FAMSA
              FAVOR
              OBJPS
              FANAM
              KDSVH
              KDART
              FROM PA0021
              INTO CORRESPONDING FIELDS OF TABLE IT_PA0021
              FOR ALL ENTRIES IN IT_PA0002
              WHERE PERNR = IT_PA0002-PERNR.
              if sy-subrc = 0.
             SELECT * FROM T591A
                    INTO table it_t591a
                    for all entries in it_pa0021
                     where infty = '0021'
                     and subty = it_pa0021-subty.
               if sy-subrc = 0.
               select * from t591s into table it_t591s where sprsl = 'EN'
                                                       and infty = '0021'
                                                       and subty = it_t591a-subty.
              IF SY-SUBRC = 0.
              LOOP AT IT_PA0021.
              WRITE:/ IT_PA0021-PERNR, IT_PA0021-BEGDA, IT_PA0021-ENDDA, IT_PA0021-FAMSA, IT_PA0021-OBJPS,it_t591s-stext,IT_PA0021-FAVOR, IT_PA0021-FANAM, IT_PA0021-KDSVH, IT_PA0021-KDART.
              ENDLOOP.
              ENDIF.
           endif.
              ENDIF.
              endif.
reward points if useful,
venkat.
Edited by: venkat appikonda on Mar 5, 2008 12:11 PM

Warning message while working with LDB PNP

Hi experts,
I am writing the following code....and it is working fine.
TABLES : PERNR.
INFOTYPES : 0006.
GET PERNR.
RP_PROVIDE_FROM_LAST P0006 '1' PN-BEGDA PN-ENDDA.
IF PNP-SW-FOUND EQ '1'.
WRITE : P0006-PERNR,
          p0006-ort01,
          p0006-ort02.
ENDIF.
But during syntax check (Ctrl+F2) it is giving me the following Warning message.
Include DBPNPCOM     68     @09\QWarning@
In Unicode programs, the "-" character cannot appear in names, as it does here in the name "PNP-SW-FOUND".
Plz help to get that message removed.
Rewards gauranteed..........................

HI Akashdeep,
This is a part of the PNP LDB and can never be removed as its in the Standard code of SAP LDB... As its a warning message only, ignore this...

Pnp-begda pnbegda

Similar Messages

Maybe you are looking for