Macros versus provide -endprovide

Why do we use MACRO instead of provide- endprovide in HR sometimes ?
Is it that we have to use macro when we are using logical database for reporting of PD under HR.

I cannot tell in terms of HR but in a general sense, PROVIDE will work only with internal tables. It is a kind of outer join concept as it relates to database tables.
MACRO is just a name given to an executable piece of code. So I can define a macro GET_ME_SUM_OF that adds two numbers and puts it into a variable as follows.
DEFINE GET_ME_SUM_OF.
&3 = &1 + &2.
END-OF-DEFINITION.
Now in my program I can simply write get_me_sum_of 1 2 v_sum, which will get me the sum of 1 and 2 and puts 3 into the variable v_sum.
Srinivas

Similar Messages

PROVIDE - ENDPROVIDE in HR ABAP

Hi All,
I am trying to understand how the PROVIDE - ENDPROVIDE statement in HR ABAP works.
I have gone through many of the links discussion on this but is not very clear.
Can you please correct my understanding if it.
I was under impression that the provide statement in the below report ZTEST gets exectuted like the following LOOP ENDLOOP statement which is not correct. Can you please help me understand how it processes the provide statement and how different is the PROVIDE statement from the LOOP ENDLOOP statement.
 loop at p0002 where begda <= pn-begda
 and endda >= pn-endda.
 WRITE: / p0002-pernr.
 endloop.
REPORT ZTEST.
TABLES: pernr.
INFOTYPES: 0002. "Personal Data
SELECT-OPTIONS: language FOR p0002-sprsl.
**-- Selection screen
INITIALIZATION.
pnptimed = 'D'.
*-- Processing
START-OF-SELECTION.
GET pernr.
PROVIDE * FROM p0002 BETWEEN pn-begda AND
pn-endda.
CHECK language.
WRITE: / p0002-pernr,
sy-vline,
pernr-ename,
sy-vline,
p0002-sprsl,
sy-vline,
p0002-gbdat.
ENDPROVIDE.
Regards,
Sanjay.

Look at this documentation [Report Programming in HR|http://help.sap.com/printdocu/core/Print46c/en/data/pdf/PAXX/PYINT_PROGRAMM.pdf]
Processing All Infotype Records (PA-PAD)
After the GET PERNR event, the internal tables of the infotypes contain records and are ready for processing.
Internal tables are generally processed line-by-line using the LOOP statement.
The internal tables of infotypes have features which allow special processing.
These tables are defined for specific intervals. In HR, these are time intervals or validity periods.
Processing of infotype records is time-dependent; by this we mean dependent on the data selection period entered on the selection screen. The data of several infotypes can be processed
at the same time and made available for a specific partial period.
Internal infotype tables are processed with the PROVIDE statement.
The syntax is as follows:
PROVIDE * FROM Pnnnn BETWEEN PN-BEGDA AND PN-ENDDA.
WRITE: / Pnnnn-<field>.
ENDPROVIDE.
nnnn stands for the four-digit infotype number. The relationship between the infotype and the data selection period of the selection screen is established using the PN/BEGDA and PN/ENDDA variables.
In the PROVIDE loop, the data of an infotype record is available for processing in the Pnnnn
structure.
Regards

Query on reading infotype 0001 using the macro rp-provide from last p0001

Dear Friends,
        I have a question rgarding relating the infotype 0001 when we are using in the program the logical database PNP.
iam using rp-provide-from-last p0001 space sydatum sydatum
        if pnp-sw-found eq 1.
        append p0001 into i_p0001.
        endif.
iam getting a problem in production , in the selection screen iam passing for emloyee subgroup with multiple values option.
i have passed E,H,S -> where E means Executive , H means hourly and S means salaried employee...
one particular scneario is iam having an employee whose
employee subgroup is C (contactor) and on the selection screen if am passing this personnel no and on the selection screen iam only having in the multiple selection option only E,H,S but not C so this record should should fail but it is getting success and appending to internal table i_p0001
which is wrong
, i mean to say the macro is getting success
rp-provide-from-last p0001 space sydatum sydatum
this employee .
my question is will the macro will not check on the selection screen the employee gropu which we have passed and should i exclusively check
if p0001-persk in pnppersk ?? or please let me knwo how to check this wrong employee not getting appended to my internal table.
please let me know
regards
madhuri

Hi Madhuri
The macro rp-provide-from-last p0001 will not fetch data from the database, it simply extracts the last record from the available internal table P0001[] for the time frame provided(as 3rd and 4th parameters). You can check the definition of the macro from the database table TRMAC, it simply uses the LOOP....ENDLOOP and IF conditions to arrive at the last record and populates the fields pnp-sw-found, pnp-sw-tabix.
    And coming to your problem, please check all the IT0001 records of the EE concerned, it can happen that the EE is attached to different employee subgroups in different time frames and hence the LDB is fetching all the available records of the EE (even if the employee subgroup is not among the one's selected in the selection screen). If this is the case, I reckon, u've to perform manual check before appending to the internal table.
Note: The macro rp-provide-from-last p0001 space sydatum sydatum will only fetch the valid IT0001record as on date - sy-datum

Provide - Endprovide with SD n MM modules

Hi experts can any one tell me im learning ABAP-HR, in this im working with LDB, i have a doubt that can't we use Provide - Endprovide of LDB with SD and MM Modules .

Hi Madhu,
Please find the below program which displays the available user exits for the specified transaction code. Just you need to specify the transaction code it will display all the user exits of the transaction.
Use the following link for the above from ****************
http://****************/Tutorials/ExitsBADIs/FindUserExitswithTCode.htm
You can also find some scenarios in **************** for the user exits and Badis.
Explore the **************** site.
Thanks,
Naveen Kumar.

Error in the macro 'rp-provide-from-last'

Hi, experts!
Can anyone please help me address an error regarding the macro rp-provide-from last? During activation, this error is returned: "Unable to interpret SPACE. Possible causes: Incorrect spelling or comma error". The line in question is this: rp-provide-from-last p0000 SPACE pn-begda pn-endda This is the only error standing between me and activation. Please help
Thanks in advance.
Regards,
brent

HI Brent,
Use this sample example :
REPORT ZTEST_94TEST.
TABLES :pernr.
INFOTYPES :0000.
GET PERNR.
rp-provide-from-last p0000 SPACE pn-begda pn-endda.
No syntax errors and activated. hope it will be helpful.

Is PROVIDE-ENDPROVIDE statement obsolete ? Can I use it from now onwards?

Hello Techies..
I am working on HR ABAP, I have used PNP LDB extensively.
I came to know from SAP help that Provide-Endprovide statement has been obsolete in newer version of
SAP. I am aware that it is obsolete in ABAP OO context. But does that mean - we should not use provide - endprovide in our report(type 1 program).
I would be glad if you can focus some light on this point.
My second doubt:
I am using PNP LDB, can I replace PNP by PNPCE (since PNP is replaced by PNPCE in newer version).
If I do so my existing functionality will be affected.
Can you give me a brief of added features of PNPCE?
Points will be rewarded to satisfying answer !!
Regards,
Mihir.

>
Mihir Nagar wrote:
> I came to know from SAP help that Provide-Endprovide statement has been obsolete in newer version of SAP. I am aware that it is obsolete in ABAP OO context.
> Mihir.
Hello Mihir,
That is not correct. The syntax for PROVIDE statement has changed in the newer version as a result the old syntax has been declared obsolete by SAP but that is not to say that the PROVIDE statement itself has become obsolete, if I understand you correctly.
Here's the (old) syntax which has become obsolete:
PROVIDE {*|{comp1 comp2 ...}} FROM itab1
        {*|{comp1 comp2 ...}} FROM itab2
        BETWEEN extliml AND extlimu.
And here's the (new) syntax for the same PROVIDE statement which you should use in the newer SAP releases:
PROVIDE FIELDS {*|{comp1 comp2 ...}}
               FROM itab1 INTO wa1 VALID flag1
               BOUNDS intliml1 AND intlimu1
               [WHERE log_exp1]
        FIELDS {*|{comp1 comp2 ...}}
               FROM itab2 INTO wa2 VALID flag2
               BOUNDS intliml2 AND intlimu2
               [WHERE log_exp2]
        BETWEEN extliml AND extlimu
        [INCLUDING GAPS].
ENDPROVIDE.
Note the changes in the syntax. The new syntax can be used to evaluate and process records in an internal table the same way you used to with the old syntax depending on the options you are using from the new syntax. In summary, the new syntax is able to do exactly the same processing as the old but only difference in the new syntax is that the introduction of additional keywords like FIELDS, VALID and BOUNDS. You'll also notice that the new syntax requires a single workarea to read the record in the provide-endprovide loop unlike the old syntax where it did not require an explicit workarea.
>
Mihir Nagar wrote:
> My second doubt:
> I am using PNP LDB, can I replace PNP by PNPCE (since PNP is replaced by PNPCE in newer version). If I do so my
> existing functionality will be affected. Can you give me a brief
> of added features of PNPCE?
> Mihir.
It only makes sense to use PNPCE if your comany uses the SAP functionality of Concurrent Employment (CE) in HR - i.e. this feature is turned on (active) via the IMG. If CE is not active there's no problem continuing to use PNP as this is not declared obsolete or anything like that but SAP recommends that all new developments should use LDB PNPCE - I understand existing developements should be fine (as long they don't have to handle CE scenarios).
So let me know if CE is active and you need to replace all PNP reports with PNPCE and I'll be happy to send you an overview with code snippets etc.
Hope this helps and please don't forget to reward points.
Cheers,
Sougata.

Difference between Provide - Endprovide.

Hi experts can any one spot light on the significance of PROVIDE - ENDPROVIDE in LDB? and what is the difference between LOOP - ENDLOOP and
PROVIDE - ENDPROVIDE.
Thanks in advance.
vamsi.

Hi
You can go through help doc .
PROVIDE - ENDPROVIDE is similar like Loop
LOOP - ENDLOOP
[b]Reminder : Points should be given on answers.

Significance of Provide - endprovide in LDB

Hi experts can any one spot light on the significance of PROVIDE - ENDPROVIDE in LDB? and what is the difference between LOOP - ENDLOOP and
PROVIDE - ENDPROVIDE.
Thanks in advance.
vamsi.

1) Provide :
Its used to FETCH data from INTERNAL TABLE.
Its also used in logical databases like pnp,
where the actual data is retrived by
the logical database itself,
and our provide statement, JUST,
fetches from the internal table in ldb program.
2) Retrieves the contents of the specified fields from the internal tables and places them in the table header lines within the required range.
Provide is similar to outer join of tables.
3) Provide:
PROVIDE f1 f2 ... FROM itab1
g1 g2 ... FROM itab2
FROM itabi
BETWEEN f AND g.

Regarding Provide endprovide

Hi,
I am using PNP ldb as we know that we will get a standard selection screen by using pnp and I have to add 4 extra fields to the existing selection screen then I have created by using select-options in the program.
Now my question is .. Can we skip the standard selection screen .
I hope u got.
Regards
Anil

Hi
PROVIDE
PROVIDE FIELDS {*|{comp1 comp2 ...}}
 FROM itab1 INTO wa1 VALID flag1
 BOUNDS intliml1 AND intlimu1
 [WHERE log_exp1]
 FIELDS {*|{comp1 comp2 ...}}
 FROM itab2 INTO wa2 VALID flag2
 BOUNDS intliml2 AND intlimu2
 [WHERE log_exp2]
 BETWEEN extliml AND extlimu
 [INCLUDING GAPS].
ENDPROVIDE.
The statements PROVIDE and ENDPROVIDE define a loop through a statement block. In this loop, any number of internal tables itab1 itab2 ... are processed together. A single table can appear several times. For every table itab you must specify a FIELDS clause. After FIELDS you must specify the character * for all components or a list comp1 comp2 ... for specific components of the relevant table. The names of the components comp1 comp2 ... can only be specified directly.
To be able to process internal tables using PROVIDE, all tables itab1 itab2 ... must be fully typed index tables and contain two special columns that have the same data type (d, i, n, or t) for all relevant tables. For every table you must specify the names intliml1 intliml2 ... and intlimu1 intlimu2 ... of these columns using the addition BOUNDS.
The columns intliml1 intliml2 ... and intlimu1 intlimu2 ... in every row of the relevant internal tables must contain values that can be interpreted as limits of closed intervals. Within a table, the intervals specified in these columns must not overlap and must be sorted in ascending order. The intervals therefore make up a unique key for every row.
For every table you must specify a work area wa1 wa2 ... compatible with the row type and a variable flag1 flag2 ..., for which a character-type data type with length 1 is expected. In the PROVIDE loop, the components specified after FIELDS are filled with values in the relevant work areas wa1 wa2 ... for every specified internal table. The variables flag1 flag2 ... are also filled. A work area wa1 wa2 ... or a variable flag1 flag2 ... cannot be specified more than once.
With the BETWEEN addition you must specify an interval extliml, extlimu. It must be possible to convert the data objects extliml and extlimu into the data types of the respective columns intliml1 intliml2 ... and intlimu1 intlimu2 ... of the individual tables.
The interval limits intliml1 intliml2 ... and intlimu1 intlim2 for every row of all relevant internal tables itab1 itab2 ... that are within the closed interval made up by extliml and extlimu divide the latter into new intervals and every interval limit closes one interval in the original direction. If, within a relevant table, a lower interval limit follows an upper interval limit with no space or gap between them and the components of the corresponding rows specified after FIELDS have the same content, the two intervals are combined and the corresponding interval limits intliml1 intliml2 ... and intlimu1 intlimu2 ... are ignored for the new intervals.
For every interval that is created in such a way and overlaps with at least one of the intervals of a table involved, the PROVIDE loop is passed once. The components of every work area wa1 wa2 ... specified after FIELDS and the variables flag1 flag2 ... are filled with values as follows:
The components intliml1 intliml2 ... and intlimu1 intlimu2 ... of every work area wa1 wa2 ... are filled with the interval limits of the current interval.
If the current interval overlaps with one of the intervals of an involved table, the remaining components of the corresponding work area are assigned the contents of the relevant components of this table row and the variable flag1 flag2 ... is set to the value "X". Otherwise, the work area components and the variables flag1 flag2 ... are set to their Initial value.
Except for intliml1 intliml2 ... and intlimu1 intlimu2 ..., the components not specified after FIELDS are always set to their initial value. The components intliml1 intliml2 ... and intlimu1 intlimu2 ... are always assigned.
The ABAP runtime environment checks for every table involved, whether the condition of sorted and non-overlapping intervals is met within the interval made up by extliml and extlimu and, if necessary, triggers an exception that can be handled.
If the INCLUDING GAPS addition is specified, the system passes the PROVIDE loop for every interval, that is also when the current interval does not overlap with at least one of the intervals of an involved table. In the latter case, the variable flag is of initial value for every relevant table.
You can use the WHERE addition to specify a condition for every table itab1 itab2 ... involved. After WHERE, you can specify any logical expression log_exp1 log_exp2 ... ; the first operand of every comparison must be a component of the internal table. As such, all logical expressions except for IS ASSIGNED, IS REQUESTED, and IS SUPPLIED are possible. You can only specify components that are in the list after FIELDS. Here it is not possible to specify a component using character-type data objects in brackets. The table entries for which the condition is not met are ignored by the PROVIDE loop. You can leave the PROVIDE loop following the instructions in the section Leaving loops.
System fields
The system fields sy-subrc and sy-tabix are set to the value 0 before every loop pass and at ENDPROVIDE. Only if the loop is not passed once, is sy-subrc set to 4 at ENDPROVIDE.
The relevant internal tables should not be modified in the PROVIDE loop.
The WHERE condition can be used to remove overlaps between the tables involved or to ensure the sorting of the intervals.
In two tables itab1 and itab2, the respective columns col1 and col2 are interval limits of type i. The filling of the internal tables results in the following intervals (rows two and three):
The interval specified in the BETWEEN addition to the PROVIDE statement is shown in the fourth row. It serves as a basis for the five intervals in the fifth row represented by i1 to i5. These can be processed in the PROVIDE loop.
Because each of the five intervals overlaps with one of the intervals from rows two and three, the PROVIDE loop is passed five times.
Only the component col3 of wa1 is filled in the first pass, only the component col3 of wa2 in the third pass, and the components col3 of both work areas in the second and fourth passes. The fields valid1 and valid2 are set accordingly.
DATA: BEGIN OF wa1,
 col1 TYPE i,
 col2 TYPE i,
 col3 TYPE string,
 END OF wa1.
DATA: BEGIN OF wa2,
 col1 TYPE i,
 col2 TYPE i,
 col3 TYPE string,
 END OF wa2.
DATA: itab1 LIKE STANDARD TABLE OF wa1,
 itab2 LIKE STANDARD TABLE OF wa2.
DATA: flag1(1) TYPE c,
 flag2(1) TYPE c.
wa1-col1 = 1.
wa1-col2 = 6.
wa1-col3 = 'Itab1 Int1'.
APPEND wa1 TO itab1.
wa1-col1 = 9.
wa1-col2 = 12.
wa1-col3 = 'Itab1 Int2'.
APPEND wa1 TO itab1.
wa2-col1 = 4.
wa2-col2 = 11.
wa2-col3 = 'Itab2 Int1'.
PROVIDE FIELDS col3 FROM itab1 INTO wa1
 VALID flag1
 BOUNDS col1 AND col2
 FIELDS col3 FROM itab2 INTO wa2
 VALID flag2
 BOUNDS col1 AND col2
 BETWEEN 2 AND 14.
WRITE: / wa1-col1, wa1-col2, wa1-col3, flag1.
WRITE: / wa2-col1, wa2-col2, wa2-col3, flag2.
SKIP.
ENDPROVIDE.
The list output is as follows:
 2 3 Itab1 Int1 X
 2 3
 4 6 Itab1 Int1 X
 4 6 Itab2 Int1 X
 7 8
 7 8 Itab2 Int1 X
 9 11 Itab1 Int2 X
 9 11 Itab2 Int1 X
12 12 Itab1 Int2 X
12 12
REWARD IF USEFULL

Using Provide-endprovide copy internal table

Hi,
I have problem that is if i want to copy the data from infotype to internal table means
Provide * from p9012 between pn-begda and pn-endda.
if p9012-zz_client_c EQ itemp-z_client_c.
MOVE: p9012-begda TO it9012-begda,
           p9012-zz_dept_c TO it9012-z_dept_c,
           SORT IT9012 BY z_dept_c.
           append it9012.
endif.
endprovide.
this one not copying data from infotype to internaltable.
what i can do?
Thanks,
Regards,
Nandha

HI Use this code example..
plz reward poins if it helps you..
& Report ZSAPHR_PNP
Report ZSAPHR_PNP.
TABLES : PERNR.
*Infotype Declaration
INFOTYPES: 0002, "PERSONAL DATA
           0006, "ADDRESS
           0008, "
           0000, "
           0001. "ACTIONS
DATA : BEGIN OF ITAB OCCURS 10, "INTERNAL TABLE DECLARATION
       NACHN LIKE P0002-NACHN,
       VORNA LIKE P0002-VORNA,
       GESCH LIKE P0002-GESCH,
       GBDAT LIKE P0002-GBDAT,
       FAMST LIKE P0002-FAMST,
       HSNMR LIKE P0006-HSNMR,
       STRAS LIKE P0006-STRAS,
       LOCAT LIKE P0006-LOCAT,
       PSTLZ LIKE P0006-PSTLZ,
       LAND1 LIKE P0006-LAND1,
       PLANS LIKE P0001-PLANS,
       ORGEH LIKE P0001-ORGEH,
       BET01 LIKE P0008-BET01,
       WAERS LIKE P0008-WAERS,
       PERNR LIKE P0000-PERNR,
       END OF ITAB.
DATA: G_REPID LIKE SY-REPID."Report name
INITIALIZATION.
G_REPID = SY-REPID.
PNPTIMED = 'D'.
**********************************************START OF
SELECTION*****************************************
START-OF-SELECTION.
GET PERNR.
PROVIDE * FROM P0002 BETWEEN PN-BEGDA AND PN-ENDDA.
    ITAB-PERNR = P0000-PERNR.
    ITAB-NACHN = P0002-NACHN.
    ITAB-VORNA = P0002-VORNA.
    IF P0002-FAMST = '0'.
      ITAB-FAMST = 'S'.
    ELSE.
      ITAB-FAMST = 'M'.
    ENDIF.
    ITAB-FAMST = P0002-FAMST.
    IF P0002-GESCH = '1'.
      ITAB-GESCH = 'M'.
    ELSE.
      ITAB-GESCH = 'F'.
    ENDIF.
    ITAB-GBDAT = P0002-GBDAT.
    ITAB-HSNMR = P0006-HSNMR.
    ITAB-STRAS = P0006-STRAS.
    ITAB-LOCAT = P0006-LOCAT.
    ITAB-PSTLZ = P0006-PSTLZ.
    ITAB-LAND1 = P0006-LAND1.
    ITAB-ORGEH = P0001-ORGEH.
    ITAB-PLANS = P0001-PLANS.
    ITAB-BET01 = P0008-BET01.
    ITAB-WAERS = P0008-WAERS.
    APPEND ITAB.
ENDPROVIDE.
END-OF-SELECTION.

Provide, endprovide and protect

what is the difference between provide..endprovide and protect...endprotect statements
Title edited by: Alvaro Tejada Galindo on Jun 12, 2008 6:51 AM

Hi Sudheer,
Processing All Infotype Records (PA-PAD)
After the GET PERNR event, the internal tables of the infotypes contain records and are ready for processing.
Internal tables are generally processed line-by-line using the LOOP statement.
The internal tables of infotypes have features which allow special processing.
These tables are defined for specific intervals. In HR, these are time intervals or validity periods.
Processing of infotype records is time-dependent; by this we mean dependent on the data selection period entered on the selection screen. The data of several infotypes can be processed
at the same time and made available for a specific partial period.
Internal infotype tables are processed with the PROVIDE statement.
The syntax is as follows:
PROVIDE * FROM Pnnnn BETWEEN PN-BEGDA AND PN-ENDDA.
WRITE: / Pnnnn-<field>.
ENDPROVIDE.
nnnn stands for the four-digit infotype number. The relationship between the infotype and the data selection period of the selection screen is established using the PN/BEGDA and PN/ENDDA variables.
In the PROVIDE loop, the data of an infotype record is available for processing in the Pnnnn
structure.
Preventing Page Breaks: PROTECT
You can specify, either in the style or in the form, that a particular paragraph should not be split in two by a page break. If this page protect attribute is set, then the complete paragraph is always printed on one page. This property applies only to that particular paragraph.
This attribute is not intended to be used to protect all paragraphs against a page break. The point is that a page break is by its very nature a dynamic event and the exact point at which it occurs depends on the current state (length and contents) of the preceding text. It is also possible that you may want to protect only certain parts of a paragraph against a page break. One way to achieve this is to use the NEW-PAGE command immediately before the text concerned starts. Explicitly beginning a new page at this point should ensure that a further page break does not occur within the text. However, this technique is not change-friendly. For example, you format your text with the help of the NEW-PAGE command so that no page breaks occur where they should not. At a later time, you insert or delete some lines. These changes cause all the subsequent text to be moved relative to the printed page, and you must check each NEW-PAGE command you previously inserted to see if it is still in the correct place.
To allow you to define the areas to be protected against a page break on an individual basis, SAPscript provides the PROTECT.. ENDPROTECT command pair. If you enclose the text to be protected in these commands, then SAPscript will ensure that each line of this text is printed together on the same page. If the complete text fits in the space remaining on the current page, then it is printed on this page just as it would be if no PROTECT command had been used. If, however, the remaining space is not sufficient for the text, then the PROTECT command has the same effect as a NEW-PAGE command and text is printed on a new page.
Thus the PROTECT/ENDPROTECT commands may be regarded as a kind of conditional NEW-PAGE command, the condition being whether or not the lines enclosed between the two commands fit in the space remaining in the current main window.
Syntax:
/: PROTECT
/: ENDPROTECT
The text lines to be protected are enclosed between the two commands.
o An ENDPROTECT command without a preceding PROTECT command has no effect.
o If the terminating ENDPROTECT is missing, SAPscript assumes it at the end of the text.
o PROTECT.. ENDPROTECT command pairs cannot be nested. If a second PROTECT command occurs before the first one has been terminated by an ENDPROTECT, it is ignored.
o If the text enclosed by a PROTECT.. ENDPROTECT pair is itself too long for a single page, then a page break is generated immediately before the text and the text is printed in the normal way. It is then unavoidable that a page break will occur at some point within the text.
<REMOVED BY MODERATOR>
Regards,
Nitin.
Edited by: Alvaro Tejada Galindo on Jun 12, 2008 6:51 AM

RP_PROVIDE_FROM_LAST AND PROVIDE AND ENDPROVIDE

hi all,
When to use RP_PROVIDE_FROM_LAST and Provide and EndProvide?
which scenario we go for RP_PROVIDE_FROM_LAST and Provide?
both will do the same purpose?
RP_PROVIDE_FROM_LAST will read recent records.
Provide will read sequentially data.
other than this...difference
can anyone clear my doubt?

Hi,
For PROVIDE-ENDPROVIDE :
1) You can fetch individual fields of the infotypes.
2) You can also use the JOIN and PROJECTION of infotypes. Based on the criteria, datas can be fetched from two or more infotypes.
3) It is similar to the SELECT STATEMENT of normal ABAP.
4) You can do processing within the Block of PROVIDE - ENDPROVIDE
For RP_PROVIDE_FROM_LAST:
1) You fetch only the recent record of the Infotype.
2) This is a MACRO delivered by SAP and not a statement. You can also create something similar to this.
Regards,
Anirban

ABAP - HR : Need macro or FM to get record based on changed on date (AEDTM)

Hi,
I am having the requirement to get record which changed on yesterday (for sy-datum - 1). That means if record is updated today, by using rp_provide_from_last I will get today's record. But i should get yesterdays record.
we can get this by using select or loop or provide - endprovide. Taking performance issue in consideration, this statements are not allowed.
So please provide me any macro or function module which we can retrive the record based on AEDTM.
I am using PNPCE LDB and i need to extract data for PA infotypes.
Thanks in Advance,
Ravi Kumar

Hi Ravi,
There is no macro which can retrieve the record based on AEDTM. One more thing to say is statement provide ...endprovide statement can be used and there would be no performance issue if i am not wrong. Anyway try this code.
tables: pa0001, pernr.
infotypes : 0001.
data : begin of itab occurs 0,
       pernr like pa0001-pernr,
       aedtm like pa0001-aedtm,
       end of itab.
data : v_aedtm type pa0001-aedtm.
start-of-selection.
v_aedtm = sy-datum - 1.
get pernr.
provide * from p0001 between pn-begda and pn-endda.
if p0001-aedtm = v_aedtm.
move : p0001-pernr to itab-pernr,
       p0001-aedtm to itab-aedtm.
       append itab.
endif.
endprovide.
end-of-selection.
loop at itab.
write :/ itab-pernr, itab-aedtm.
endloop.
Regards,
Kranthi

Hr programming - logical database - macro

Hi everyone !
I use pnp logical database.
Now how the program familiar the macro RP-PROVIDE-FROM-FIRST
from table trmac ? ?
i know that macro can be familiar from the program between lines:
define .......
end-of-definition.
someone can explain to me ?

Hi
See this sample program for using the LDB PNP and the MAcros
report zporgr0030
 line-size 193
 line-count 60(1)
 no standard page heading
 message-id zndc.
Database Tables
tables: pernr, " Logical PNP
 t001p, " Personnel Subarea
 t005t, " Country Descriptions
 t500p, " Personnel Area
 t501, " Employee Group
 t503k, " Employee Subgroup
 csks, " Cost Centers
 cskt, " Cost Center Texts
 t513c, " Job (Previous) Texts
 t513s, " Job Titles
 t517t, " Edn Est.Text
 t518b, " Discipline Text
 t519t, " Certificate Text
 t528t, " Positions Texts
 t538t, " Unit Text
 pa0003. " Payroll Status
infotypes:
 0000, " Actions
 0001, " Organizational Assignment
 0002, " Personal Data
 0007, " Planned working time
 0008, " Payroll Data
 0022, " Education Data
 0023, " Previous Employer data
 0025, " Performance Appraisal Data
 0041, " Date Spcifications
 2001. " Absences
Declaration of Internal Tables
Internal Table for Personal Data
data: begin of pers_tab occurs 0,
 pernr like pa0001-pernr, " Personal Number
 ename like pa0001-ename, " Employee Name
 trfgr like pa0008-trfgr, " Grade
 natio like pa0002-natio, " Nationality
 hdate like pa0041-dat01, " Hire Date
 gbdat like pa0002-gbdat, " Birth Date
 plans like pa0001-plans, " Position
 werks like pa0001-werks, " Pers.Area
 kostl like pa0001-kostl, " Cost Center
 ctext(40), " Cost Center Text
 ptext(25), " Position Text
 ntext(15), " Nation Text
 name1(23), " Location
 end of pers_tab.
Internal Table for Payroll Data
data: begin of pay_tab occurs 0,
 pernr like pa0008-pernr, " Personal Number
 waers like pbwla-waers, " Grade
 basic like pa0008-bet01, " Basic Pay
 hra_allow like pa0008-bet01, " Housing Allowance
 sup_allow like pa0008-bet01, " Supp. Allowance
 soc_allow like pa0008-bet01, " Social Allowance
 chl_allow like pa0008-bet01, " Child Allowance
 fix_allow like pa0008-bet01, " Fixed Overtime
 ra_allow like pa0008-bet01, " RA Allowance
 per_allow like pa0008-bet01, " Perform. Allowance
 pen_allow like pa0008-bet01, " Pension Allowance
 oth_allow like pa0008-bet01, " Other Allowances
 tot_allow like pa0008-bet01, " Total Allowances
 end of pay_tab.
Internal Table for Educational Data
data: begin of edn_tab occurs 0,
 pernr like pa0022-pernr, " Personal Number
 ausbi like pa0022-ausbi, " Discipline Name
 slart like pa0022-slart, " Edn Establishment
 insti like pa0022-insti, " Institute
 sland like pa0022-sland, " Country
 slabs like pa0022-slabs, " Certificate
 anzkl like pa0022-anzkl, " Duration
 anzeh like pa0022-anzeh, " Unit for Duration
 atext like t518b-atext, " Discipline Text
 stext like t517t-stext, " Edn Est.Text
 landx like t005t-landx, " Country Text
 ctext like t519t-stext, " Certificate Text
 etext like t538t-etext, " Unit Text
 end of edn_tab.
Internal Table for Previous Employment Data
data: begin of pemp_tab occurs 0,
 pernr like pa0023-pernr, " Personal Number
 arbgb like pa0023-arbgb, " Previous Employer
 begda like pa0023-begda, " Start Date
 endda like pa0023-endda, " End Date
 taete like pa0023-taete, " Last Position
 land1 like pa0023-land1, " Country
 stltx like t513s-stltx, " Position Text
 landx like t005t-landx, " Country Text
 end of pemp_tab.
Internal Table for Job History Data
data: begin of job_tab occurs 0,
 pernr like pa0001-pernr, " Personal Number
 begda like pa0001-begda, " Promotion Date
 plans like pa0001-plans, " Position
 stell like pa0001-stell, " Job Key
 stltx like t513s-stltx, " Job Text
 ptext like t528t-plstx, " Position Text
 end of job_tab.
Internal Table for Performance Appraisal Data
data: begin of app_tab occurs 0,
 pernr like pa0001-pernr, " Personal Number
 year(4) type c, " Current Year
 appr(35) type c, " C Y Appraisal
 year1(4) type c, " Last Year
 appr1(35) type c, " Last Year Appraisal
 year2(4) type c,
 appr2(35) type c,
 year3(4) type c,
 appr3(35) type c,
 year4(4) type c,
 appr4(35) type c,
 end of app_tab.
Internal Table for Performance Appraisal Data
data: begin of app1_tab occurs 0,
 year(4) type c, " Year
 appr(35) type c, " Appraisal
 end of app1_tab.
Internal Table to get the Payroll Amounts
data wage_tab like pbwla occurs 0 with header line.
Internal table for retreiving Employee Appraisals
data app_in_tab like hrsobid occurs 0 with header line .
data app_out_tab like hrpe_profa occurs 0 with header line .
Declaration of Variables
data : v_year(4) type c,
 v_ayear(4) type c,
 v_cyear(4) type c,
 v_year1(4) type c,
 v_year2(4) type c,
 v_year3(4) type c,
 v_year4(4) type c,
 v_year5(4) type c,
 v_year6(4) type c,
 v_mon(2) type c,
 v_date2 like sy-datum,
 v_date3 like sy-datum,
 v_date like sy-datum,
 v_date1 like sy-datum.
Declaration of Constants
constants : c_x type c value 'X', " Sign
 c_pernr(8) type n value '00000000', " Pernr
 c_p like hrp1007-otype value 'P', " Object Type
 c_01 like hrp1001-plvar value '01', " Version
 c_val1(2) type c value '31', " Date Type
 c_val2(2) type c value '12', " Date Type
 c_val like p0041-dar01 value '01', " Date Type
 c_1 like pernr-persg value '1', " Emp Group
 c_type like hrp1001-otype value 'S', " Object Type
 c_date1 like sy-datum value '18000101', " Date
 c_date2 like sy-datum value '99991231', " Date
 c_lga01 like pa0008-lga01 value '0101', " Wage Type
 c_lga02 like pa0008-lga01 value '0102', " Wage Type
 c_lga03 like pa0008-lga01 value '0103', " Wage Type
 c_lga04 like pa0008-lga01 value '0105', " Wage Type
 c_lga05 like pa0008-lga01 value '0109', " Wage Type
 c_lga06 like pa0008-lga01 value '0110', " Wage Type
 c_lga07 like pa0008-lga01 value '0114', " Wage Type
 c_lga08 like pa0008-lga01 value '0116', " Wage Type
 c_lga09 like pa0008-lga01 value '0267', " Wage Type
 c_kokrs like cskt-kokrs value '1000'. " Controlling Area
Selection Screen
selection-screen begin of block b1 with frame title text-003.
selection-screen begin of line.
selection-screen comment 1(33) text-060.
parameters: r_all radiobutton group rb1.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(33) text-020.
parameters: r_per radiobutton group rb1.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(33) text-021.
parameters: r_pay radiobutton group rb1.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(33) text-022.
parameters: r_edn radiobutton group rb1.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(33) text-023.
parameters: r_pemp radiobutton group rb1.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(33) text-024.
parameters: r_job radiobutton group rb1.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(33) text-025.
parameters: r_app radiobutton group rb1.
selection-screen end of line.
selection-screen end of block b1.
At selection-screen
at selection-screen.
Validate the Selection Screen fields
perform validate_screen.
Start-of-Selection
start-of-selection.
Selection of Period
perform get_period.
Get PERNR from LDB
get pernr.
if pernr-persg eq c_1 or pernr-pernr ne c_pernr.
 if r_all eq c_x.
Get the Personal data from PA0001,PA0002, PA0008, PA0041
 perform get_pers_data.
Get the Payroll data from PA0008
 perform get_pay_data.
Get the Education data from PA0022
 perform get_edn_data.
Get the Previous Employment data from PA0023
 perform get_pemp_data.
Get the Job History data
 perform get_job_data.
Get the Performance Appraisal data
 perform get_app_data.
 elseif r_per eq c_x.
Get the Personal data from PA0001,PA0002, PA0008, PA0041
 perform get_pers_data.
 elseif r_pay eq c_x.
Get the Payroll data from PA0008
 perform get_pay_data.
 elseif r_edn eq c_x.
Get the Education data from PA0022
 perform get_edn_data.
 elseif r_pemp eq c_x.
Get the Previous Employment data from PA0023
 perform get_pemp_data.
 elseif r_job eq c_x.
Get the Job History data
 perform get_job_data.
 elseif r_app eq c_x.
Get the Performance Appraisal data
 perform get_app_data.
 endif.
endif.
Top-of-page
top-of-page.
Write the Report and Column Headings
perform top_of_page.
End-of-Page
end-of-page.
perform end_of_page.
End-of-Selection
end-of-selection.
Display the Output Report.
perform display_report.
Form-Routines
*& Form validate_screen
Validation of selection Screen fields
form validate_screen.
Validation of Personnel Number
clear pa0003.
if not pnppernr[] is initial.
 select pernr
 from pa0003 up to 1 rows
 into pa0003-pernr
 where pernr in pnppernr.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personnel Number Entered'(001).
 endif.
endif.
Validation of Cost Center
clear csks.
if not pnpkostl[] is initial.
 select single kostl
 into csks-kostl
 from csks
 where kostl in pnpkostl.
 if sy-subrc <> 0.
 message e999 with 'Invalid Cost Center'(002).
 endif.
endif.
Validation of Personnel Area
clear t500p.
if not pnpwerks[] is initial.
 select persa
 from t500p up to 1 rows
 into t500p-persa
 where persa in pnpwerks.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personnel Area Entered'(004).
 endif.
endif.
Validation of Personnel Sub Area
clear t001p.
if not pnpbtrtl[] is initial.
 select btrtl
 from t001p up to 1 rows
 into t001p-btrtl
 where btrtl in pnpbtrtl.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Personnel Sub Area Entered'(005).
 endif.
endif.
Validation of Employee Group
clear t501.
if not pnppersg[] is initial.
 select persg
 from t501 up to 1 rows
 into t501-persg
 where persg in pnppersg.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Employee Group Entered'(006).
 endif.
endif.
Validation of Employee Sub Group
clear t503k.
if not pnppersk[] is initial.
 select persk
 from t503k up to 1 rows
 into t503k-persk
 where persk in pnppersk.
 endselect.
 if sy-subrc <> 0.
 message e999 with 'Incorrect Employee Sub Group Entered'(007).
 endif.
endif.
endform. "validate_screen
*& Form get_period
Get the Correct Period based on Selection screen selection
form get_period.
clear: v_year,v_mon, v_date, v_date1.
v_year = sy-datum+0(4).
v_mon = sy-datum+4(2).
if pnptimr1 = c_x. " Current Date
 pnpbegda = sy-datum.
 pnpendda = sy-datum.
elseif pnptimr2 = c_x. " Current Month
 concatenate v_year v_mon c_val into v_date.
 concatenate v_year v_mon c_val1 into v_date1.
 pnpbegda = v_date.
 pnpendda = v_date1.
elseif pnptimr3 = c_x. " Current Year
 concatenate v_year c_val c_val into v_date.
 concatenate v_year c_val2 c_val1 into v_date1.
 pnpbegda = v_date.
 pnpendda = v_date1.
elseif pnptimr4 = c_x. " Upto Today
 pnpbegda = c_date1.
 pnpendda = sy-datum.
elseif pnptimr5 = c_x. " From Today
 pnpbegda = sy-datum.
 pnpendda = c_date2.
else.
 if ( pnpbegda is initial and pnpendda is initial ).
 pnpbegda = c_date1.
 pnpendda = c_date2.
 elseif pnpbegda is initial and not pnpendda is initial.
 pnpbegda = c_date1.
 pnpendda = pnpendda.
 elseif not ( pnpbegda is initial and pnpendda is initial ).
 pnpbegda = pnpbegda.
 pnpendda = pnpendda.
 endif.
endif.
endform. "get_period
*& Form get_pers_data
Get the Personal Data from PA0001,PA0002,PA0008, PA0041
form get_pers_data.
Get data from Respective Infotypes
rp_provide_from_last p0001 space pnpbegda pnpendda.
rp_provide_from_last p0002 space pnpbegda pnpendda.
rp_provide_from_last p0008 space pnpbegda pnpendda.
rp_provide_from_last p0041 space pnpbegda pnpendda.
pers_tab-pernr = p0001-pernr.
pers_tab-ename = p0001-ename.
pers_tab-werks = p0001-werks.
pers_tab-plans = p0001-plans.
pers_tab-kostl = p0001-kostl.
pers_tab-gbdat = p0002-gbdat.
pers_tab-trfgr = p0008-trfgr.
Get the Engaged Date
read table p0041 with key dar01 = c_val.
if sy-subrc = 0.
 pers_tab-hdate = p0041-dat01.
endif.
Get the Cost Center Text
clear cskt-ltext.
select single ltext into cskt-ltext from cskt
 where spras = sy-langu and
 kokrs = c_kokrs and
 kostl = p0001-kostl.
if sy-subrc = 0.
 pers_tab-ctext = cskt-ltext.
endif.
Get the Position Text
clear t528t-plstx.
select single plstx into t528t-plstx from t528t
 where plans = p0001-plans and
 otype = c_type and
 sprsl = sy-langu.
if sy-subrc = 0.
 pers_tab-ptext = t528t-plstx.
endif.
Get the Nationality
clear t005t-natio.
select single natio into t005t-natio from t005t
 where spras = sy-langu and
 land1 = p0002-natio.
if sy-subrc = 0.
 pers_tab-ntext = t005t-natio.
endif.
Get the Location (Personal Area) Text
clear t500p-name1.
select single name1 into t500p-name1 from t500p
 where persa = p0001-werks.
if sy-subrc = 0.
 pers_tab-name1 = t500p-name1.
endif.
append pers_tab.
clear pers_tab.
sort pers_tab by pernr.
endform. "get_pers_data
*& Form get_pay_data
Get the Payroll Data from Infotype 0008
form get_pay_data.
Get the Payroll data from Respective Infotypes
rp_provide_from_last p0008 space pnpbegda pnpendda.
pay_tab-pernr = pernr-pernr.
call function 'RP_FILL_WAGE_TYPE_TABLE_EXT'
 exporting
 appli = 'E'
 begda = p0008-begda
 endda = p0008-endda
 infty = '0008'
 objps = ' '
 tclas = 'A'
 pernr = pernr-pernr
 seqnr = ' '
 subty = '0 '
 dlspl = 'X'
 msgflg = ''
 nordct = ''
 tables
 pp0001 = p0001
 pp0007 = p0007
 pp0008 = p0008
 ppbwla = wage_tab
PP0230 =
PP0014 =
PP0015 =
PP0052 =
EXCEPTIONS
ERROR_AT_INDIRECT_EVALUATION = 1
OTHERS = 2
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
loop at wage_tab.
 pay_tab-waers = wage_tab-waers.
 case wage_tab-lgart.
 when c_lga01.
 pay_tab-basic = wage_tab-betrg.
 when c_lga02.
 pay_tab-sup_allow = wage_tab-betrg.
 when c_lga03.
 pay_tab-hra_allow = wage_tab-betrg.
 when c_lga04.
 pay_tab-chl_allow = wage_tab-betrg.
 when c_lga05.
 pay_tab-soc_allow = wage_tab-betrg.
 when c_lga06.
 pay_tab-fix_allow = wage_tab-betrg.
 when c_lga07.
 pay_tab-ra_allow = wage_tab-betrg.
 when c_lga08.
 pay_tab-per_allow = wage_tab-betrg.
 when c_lga09.
 pay_tab-pen_allow = wage_tab-betrg.
 when others.
 pay_tab-oth_allow = pay_tab-oth_allow + wage_tab-betrg.
 endcase.
 pay_tab-tot_allow = pay_tab-basic + pay_tab-sup_allow +
 pay_tab-hra_allow + pay_tab-chl_allow +
 pay_tab-soc_allow + pay_tab-fix_allow +
 pay_tab-ra_allow + pay_tab-per_allow +
 pay_tab-oth_allow - pay_tab-pen_allow.
endloop.
append pay_tab.
clear pay_tab.
endform. "get_pay_data
*& Form get_edn_data
Get the Education Data from Infotype 0022
form get_edn_data.
Get the Education data from Respective Infotypes
loop at p0022 where pernr = pernr-pernr.
 edn_tab-pernr = pernr-pernr.
 edn_tab-ausbi = p0022-ausbi.
 edn_tab-slart = p0022-slart.
 edn_tab-insti = p0022-insti.
 edn_tab-sland = p0022-sland.
 edn_tab-slabs = p0022-slabs.
 edn_tab-anzkl = p0022-anzkl.
 edn_tab-anzeh = p0022-anzeh.
Get the Discipline Text
 clear t518b-atext.
 select single atext into t518b-atext from t518b
 where langu = sy-langu and
 ausbi = p0022-ausbi.
 if sy-subrc = 0.
 edn_tab-atext = t518b-atext.
 endif.
Get the Edn Establishment Text
 clear t517t-stext.
 select single stext into t517t-stext from t517t
 where slart = p0022-slart and
 sprsl = sy-langu.
 if sy-subrc = 0.
 edn_tab-stext = t517t-stext.
 endif.
Get the Certificate Text
 clear t519t-stext.
 select single stext into t519t-stext from t519t
 where slabs = p0022-slabs and
 sprsl = sy-langu.
 if sy-subrc = 0.
 edn_tab-ctext = t519t-stext.
 endif.
Get the Unit Text
 clear t538t-etext.
 select single etext into t538t-etext from t538t
 where zeinh = p0022-anzeh and
 sprsl = sy-langu.
 if sy-subrc = 0.
 edn_tab-etext = t538t-etext.
 endif.
Get the Country Description
 clear t005t-landx.
 select single landx into t005t-landx from t005t
 where spras = sy-langu and
 land1 = p0022-sland.
 if sy-subrc = 0.
 edn_tab-landx = t005t-landx.
 endif.
 append edn_tab.
 clear edn_tab.
endloop.
endform. "edn_data
*& Form get_pemp_data
Get the Previous Employment Data from Infotype 0023
form get_pemp_data.
Get the Previous Employment data from Respective Infotypes
loop at p0023 where pernr = pernr-pernr.
 pemp_tab-pernr = pernr-pernr.
 pemp_tab-arbgb = p0023-arbgb.
 pemp_tab-begda = p0023-begda.
 pemp_tab-endda = p0023-endda.
 pemp_tab-taete = p0023-taete.
 pemp_tab-land1 = p0023-land1.
Get the Last Job Text
 clear t513c-ltext.
 select single ltext into t513c-ltext from t513c
 where taete = pemp_tab-taete and
 spras = sy-langu.
 if sy-subrc = 0.
 pemp_tab-stltx = t513c-ltext.
 endif.
Get the Country Description
 clear t005t-landx.
 select single landx into t005t-landx from t005t
 where spras = sy-langu and
 land1 = pemp_tab-land1.
 if sy-subrc = 0.
 pemp_tab-landx = t005t-landx.
 endif.
 append pemp_tab.
 clear pemp_tab.
endloop.
sort pemp_tab by pernr.
endform. "pemp_data
*& Form get_job_data
Get the Job History Data from Infotype
form get_job_data.
Get the Job History data from Respective Infotypes
loop at p0001 where pernr = pernr-pernr.
 job_tab-pernr = pernr-pernr.
 job_tab-begda = p0001-begda.
 job_tab-plans = p0001-plans.
 job_tab-stell = p0001-stell.
Get the Last Job Text
 clear t513s-stltx.
 select single stltx into t513s-stltx from t513s
 where stell = job_tab-stell and
 sprsl = sy-langu.
 if sy-subrc = 0.
 job_tab-stltx = t513s-stltx.
 endif.
Get the Position Text
 clear t528t-plstx.
 select single plstx into t528t-plstx from t528t
 where plans = job_tab-plans and
 otype = c_type and
 sprsl = sy-langu.
 if sy-subrc = 0.
 job_tab-ptext = t528t-plstx.
 endif.
 append job_tab.
 clear job_tab.
endloop.
sort job_tab by pernr.
endform. "get_job_data
*& Form get_app_data
Get the Performance Appraisal Data from Infotype
form get_app_data.
clear: v_cyear, v_year1, v_year2, v_year3, v_year4,
 v_year5, v_year6, v_ayear, v_date2, v_date3.
v_cyear = sy-datum+0(4) - 1.
v_year1 = v_cyear - 1.
v_year2 = v_cyear - 2.
v_year3 = v_cyear - 3.
v_year4 = v_cyear - 4.
v_year5 = v_cyear - 5.
v_year6 = v_cyear - 6.
concatenate v_cyear c_date2+4(4) into v_date2.
concatenate v_year6 c_date1+4(4) into v_date3.
clear: app_in_tab, app_out_tab.
refresh: app_in_tab, app_out_tab.
app_in_tab-plvar = c_01.
app_in_tab-otype = c_p.
app_in_tab-sobid = pernr-pernr.
append app_in_tab.
Get Appraisals data from Respective Infotypes
call function 'RHPA_APPRAISEES_APP_READ'
 exporting
 begda = v_date3
 endda = v_date2
WITH_STEXT = 'X'
WITH_ADD_INFO = 'X'
 tables
 appraisees = app_in_tab
 appraisals = app_out_tab
 exceptions
 no_authority = 1
 undefined = 2
 others = 3
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
sort app_out_tab by sobid vbegd vendd appraisal_adate descending .
delete adjacent duplicates from app_out_tab
 comparing sobid vbegd vendd.
loop at app_out_tab where appraisal_histo = 'X' .
 condense app_out_tab-appraisal_result.
 app1_tab-year = app_out_tab-vendd+0(4).
 app1_tab-appr = app_out_tab-appraisal_result_text.
 append app1_tab.
 clear app1_tab.
endloop.
sort app1_tab by year descending.
loop at app1_tab.
 app_tab-pernr = pernr-pernr.
 move-corresponding app1_tab to app_tab.
 append app_tab.
 clear: app1_tab, app_tab.
endloop.
refresh app1_tab.
sort app_tab by pernr.
delete app_tab where year = ' ' and appr = ' ' .
endform. "get_app_data
*& Form top_of_page
Write the Report and Column Headings
form top_of_page.
skip.
format color col_heading on.
if r_all eq c_x.
 write: /1(193) 'NATIONAL DRILLING COMPANY'(009) centered,
 /1(193) 'Employee Details Report'(066) centered.
elseif r_per eq c_x.
 write: /1(193) 'NATIONAL DRILLING COMPANY'(009) centered,
 /1(193) 'Employee Details - Personal Data'(010)
 centered.
elseif r_pay eq c_x.
 write: /1(172) 'NATIONAL DRILLING COMPANY'(009) centered,
 /1(172) 'Employee Details - Payroll Data'(027)
 centered.
elseif r_edn eq c_x.
 write: /1(172) 'NATIONAL DRILLING COMPANY'(009) centered,
 /1(172) 'Employee Details - Education Data'(028)
 centered.
elseif r_pemp eq c_x.
 write: /1(97) 'NATIONAL DRILLING COMPANY'(009) centered,
 /1(97) 'Employee Details - Previous Employment Data'(029)
 centered.
elseif r_job eq c_x.
 write: /1(75) 'NATIONAL DRILLING COMPANY'(009) centered,
 /1(75) 'Employee Details - Job History Data'(030)
 centered.
elseif r_app eq c_x.
 write: /1(192) 'NATIONAL DRILLING COMPANY'(009) centered,
 /1(192) 'Employee Details - Performance Appraisal Data'(031)
 centered.
endif.
format color off.
if pnptimr1 = c_x. " Current Date
 write: /2 'Period From :'(008), sy-datum,
 'To:'(019), sy-datum.
elseif pnptimr2 = c_x. " Current Month
 write: /2 'Period From :'(008), v_date, 'To:'(019), v_date1.
elseif pnptimr3 = c_x. " Current Year
 write: /2 'Period From :'(008), v_date, 'To:'(019), v_date1.
elseif pnptimr4 = c_x. " Upto Today
 write: /2 'Period From :'(008), c_date1, 'To:'(019), sy-datum.
elseif pnptimr5 = c_x. " From Today
 write: /2 'Period From :'(008), sy-datum, 'To:'(019), c_date2.
else.
 if ( pnpbegda is initial and pnpendda is initial ).
 write: /2 'Period From :'(008), c_date1, 'To:'(019), c_date2.
 elseif pnpbegda is initial and not pnpendda is initial.
 write: /2 'Period From :'(008), c_date1, 'To:'(019), pnpendda.
 elseif not ( pnpbegda is initial and pnpendda is initial ).
 write: /2 'Period From :'(008), pnpbegda,
 'To:'(019), pnpendda.
 endif.
endif.
if not ( r_pemp eq c_x or r_job eq c_x ).
 write: 140 'Report Run Date:'(073), sy-datum.
 if not pnpkostl[] is initial.
 if pnpkostl-high is initial.
 write: /2 'Cost Center :'(074), pnpkostl-low,
 125 'Time :'(075), sy-uzeit.
 else.
 write: /2 'Cost Center From:'(076), pnpkostl-low+7(3),
 'To:'(019), pnpkostl-high,
 140 'Time :'(075), sy-uzeit.
 endif.
 else.
 write: /140 'Time :'(075), sy-uzeit.
 endif.
 if not pnppernr[] is initial.
 if pnppernr-high is initial.
 write: /2 'Personal Number :'(077), pnppernr-low,
 140 'User :'(078), sy-uname.
 else.
 write: /2 'Personal No.From:'(079), pnppernr-low,
 'To:'(019), pnppernr-high,
 140 'User :'(078), sy-uname.
 endif.
 else.
 write: /140 'User :'(078), sy-uname.
 endif.
 write: /140 'Page No :'(080), sy-pagno.
else.
 write: 48 'Report Run Date:'(073), sy-datum.
 if not pnpkostl[] is initial.
 if pnpkostl-high is initial.
 write: /2 'Cost Center :'(074), pnpkostl-low,
 48 'Time :'(075), sy-uzeit.
 else.
 write: /2 'Cost Center From:'(076), pnpkostl-low+7(3),
 'To:'(019), pnpkostl-high,
 48 'Time :'(075), sy-uzeit.
 endif.
 else.
 write: /48 'Time :'(075), sy-uzeit.
 endif.
 if not pnppernr[] is initial.
 if pnppernr-high is initial.
 write: /2 'Personal Number :'(077), pnppernr-low,
 48 'User :'(078), sy-uname.
 else.
 write: /2 'Personal No.From:'(079), pnppernr-low,
 'To:'(019), pnppernr-high,
 48 'User :'(078), sy-uname.
 endif.
 else.
 write: /48 'User :'(078), sy-uname.
 endif.
 write: /48 'Page No :'(080), sy-pagno.
endif.
skip.
if r_per eq c_x.
 write /1(193) sy-uline.
 format color col_heading on.
 write:/1 sy-vline, 2(10) 'Employee #'(011),
 12 sy-vline, 13(40) 'Name'(012) centered,
 53 sy-vline, 54(8) 'Grade'(013) centered,
 62 sy-vline, 63(15) 'Nationality'(017) centered,
 78 sy-vline, 79(10) 'Eng.Date'(014) centered,
 89 sy-vline, 90(10) 'Birth Date'(016) centered,
 100 sy-vline,101(25) 'Location'(026) centered,
 126 sy-vline,127(25) 'Position'(015) centered,
 152 sy-vline,153(40) 'Division'(018) centered,
 193 sy-vline.
 format color off.
 write /1(193) sy-uline.
elseif r_pay eq c_x.
 write /1(188) sy-uline.
 format color col_heading on.
 write:/1 sy-vline, 2(10) 'Employee #'(011),
 12 sy-vline, 13(15) 'Basic'(033) centered,
 28 sy-vline, 29(15) 'Housing Allow.'(034) centered,
 44 sy-vline, 45(15) 'Sup.Allow.'(035) centered,
 60 sy-vline, 61(15) 'Social Allow.'(036) centered,
 76 sy-vline, 77(15) 'Child Allow.'(037) centered,
 92 sy-vline, 93(15) 'Fixed Overtime'(038) centered,
 108 sy-vline,109(15) 'R.A.Allow.'(041) centered,
 124 sy-vline,125(15) 'Perform.Allow.'(039) centered,
 140 sy-vline,141(15) 'Pension.Allow.'(059) centered,
 156 sy-vline,157(15) 'Others'(040) centered,
 172 sy-vline,173(15) 'Total'(042) centered,
 188 sy-vline.
 format color off.
 write /1(188) sy-uline.
elseif r_edn eq c_x.
 write /1(172) sy-uline.
 format color col_heading on.
 write:/1 sy-vline, 2(10) 'Employee #'(011),
 12 sy-vline, 13(25) 'Discipline'(043) centered,
 38 sy-vline, 39(20) 'Edu.Establishment'(044) centered,
 59 sy-vline, 60(45) 'Institute'(045) centered,
 105 sy-vline,106(15) 'Country'(046) centered,
 121 sy-vline,122(30) 'Certificate'(047) centered,
 152 sy-vline,153(19) 'Duration of Course'(048) centered,
 172 sy-vline.
 format color off.
 write /1(172) sy-uline.
elseif r_pemp eq c_x.
 write /1(97) sy-uline.
 format color col_heading on.
 write:/1 sy-vline, 12 sy-vline,
 33 sy-vline, 34(21) 'Employment Period'(055) centered,
 55 sy-vline, 81 sy-vline,
 97 sy-vline.
 write:/1 sy-vline, 2(10) 'Employee #'(011),
 12 sy-vline, 13(20) 'Employer'(049) centered,
 33 sy-vline, 34(10) 'From'(050) centered,
 44 sy-vline, 45(10) 'To'(051) centered,
 55 sy-vline, 56(25) 'Last Position'(052) centered,
 81 sy-vline, 82(15) 'Country'(053) centered,
 97 sy-vline.
 format color off.
 write /1(97) sy-uline.
elseif r_job eq c_x.
 write /1(75) sy-uline.
 format color col_heading on.
 write:/1 sy-vline,
 12 sy-vline,13(10) 'Date of'(054) centered,
 23 sy-vline,49 sy-vline,
 75 sy-vline.
 write:/1 sy-vline,2(10) 'Employee #'(011),
 12 sy-vline,13(10) 'Upgrading/'(058) centered,
 23 sy-vline,24(25) 'Position'(015) centered,
 49 sy-vline,50(25) 'Job'(056) centered,
 75 sy-vline.
 write:/1 sy-vline, 12 sy-vline,
 13(10) 'Promotion'(057) centered,
 23 sy-vline, 49 sy-vline,
 75 sy-vline.
 format color off.
 write /1(75) sy-uline.
elseif r_app eq c_x.
 format color col_heading on.
 write: /1 sy-vline,2(56) sy-uline, 58 sy-vline,
 /1 sy-vline, 2(56) text-025 centered color 3, 58 sy-vline.
 write /1(58) sy-uline.
 format color col_heading on.
 write:/1 sy-vline, 2(10) 'Employee #'(011),
 12 sy-vline, 13(4) 'Year'(067),
 17 sy-vline, 18(40) 'Appraisal Text'(068) centered,
 58 sy-vline.
 format color off.
 write /1(58) sy-uline.
endif.
endform. "top_of_page
*& Form end_of_page
Write the Page footers
form end_of_page.
if r_per eq c_x.
 write : /(193) sy-uline.
elseif r_pay eq c_x.
 write : /(188) sy-uline.
elseif r_edn eq c_x.
 write : /(172) sy-uline.
elseif r_pemp eq c_x.
 write /1(97) sy-uline.
elseif r_job eq c_x.
 write /1(75) sy-uline.
elseif r_app eq c_x.
 write /1(217) sy-uline.
endif.
endform. "end_of_page
*& Form Display_report
Write the Report Output
form display_report.
if r_all eq c_x.
 if pers_tab[] is initial.
 message i999 with
 'No Personal Data found'(061).
 else.
 write: /1 sy-vline,2(51) sy-uline, 53 sy-vline,
 /1 sy-vline, 2(50) text-020 centered color 3, 53 sy-vline.
 write /1(193) sy-uline.
 format color col_heading on.
 write:/1 sy-vline, 2(10) 'Employee #'(011),
 12 sy-vline, 13(40) 'Name'(012) centered,
 53 sy-vline, 54(8) 'Grade'(013) centered,
 62 sy-vline, 63(15) 'Nationality'(017) centered,
 78 sy-vline, 79(10) 'Eng.Date'(014) centered,
 89 sy-vline, 90(10) 'Birth Date'(016) centered,
 100 sy-vline,101(25) 'Location'(026) centered,
 126 sy-vline,127(25) 'Position'(015) centered,
 152 sy-vline,153(40) 'Division'(018) centered,
 193 sy-vline.
 format color off.
 write /1(193) sy-uline.
 sort pers_tab by pernr.
 loop at pers_tab.
 format color col_normal.
 write:/1 sy-vline, 2(10) pers_tab-pernr,
 12 sy-vline, 13(40) pers_tab-ename,
 53 sy-vline, 56(6) pers_tab-trfgr,
 62 sy-vline, 63(15) pers_tab-ntext,
 78 sy-vline, 79(10) pers_tab-hdate,
 89 sy-vline, 90(10) pers_tab-gbdat,
 100 sy-vline,101(25) pers_tab-name1,
 126 sy-vline,127(25) pers_tab-ptext,
 152 sy-vline,153(40) pers_tab-ctext,
 193 sy-vline.
 endloop.
 write /1(193) sy-uline.
 endif.
 skip 3.
 if pay_tab[] is initial.
 message i999 with
 'No Standard Pay Data found'(062).
 else.
 write: /1 sy-vline,2(42) sy-uline, 44 sy-vline,
 /1 sy-vline, 2(42) text-021 centered color 3, 44 sy-vline.
 format color col_heading on.
 write /1(188) sy-uline.
 write:/1 sy-vline, 2(10) 'Employee #'(011),
 12 sy-vline, 13(15) 'Basic'(033) centered,
 28 sy-vline, 29(15) 'Housing Allow.'(034) centered,
 44 sy-vline, 45(15) 'Sup.Allow.'(035) centered,
 60 sy-vline, 61(15) 'Social Allow.'(036) centered,
 76 sy-vline, 77(15) 'Child Allow.'(037) centered,
 92 sy-vline, 93(15) 'Fixed Overtime'(038) centered,
 108 sy-vline,109(15) 'R.A.Allow.'(041) centered,
 124 sy-vline,125(15) 'Perform.Allow.'(039) centered,
 140 sy-vline,141(15) 'Pension.Allow.'(059) centered,
 156 sy-vline,157(15) 'Others'(040) centered,
 172 sy-vline,173(15) 'Total'(042) centered,
 188 sy-vline.
 format color off.
 write /1(188) sy-uline.
 sort pay_tab by pernr.
 loop at pay_tab.
 format color col_normal.
 write:/1 sy-vline, 2(10) pay_tab-pernr,
 12 sy-vline,
 13(15) pay_tab-basic currency pay_tab-waers no-zero,
 28 sy-vline,
 29(15) pay_tab-hra_allow currency pay_tab-waers no-zero,
 44 sy-vline,
 45(15) pay_tab-sup_allow currency pay_tab-waers no-zero,
 60 sy-vline,
 61(15) pay_tab-soc_allow currency pay_tab-waers no-zero,
 76 sy-vline,
 77(15) pay_tab-chl_allow currency pay_tab-waers no-zero,
 92 sy-vline,
 93(15) pay_tab-fix_allow currency pay_tab-waers no-zero,
 108 sy-vline,
 109(15) pay_tab-ra_allow currency pay_tab-waers no-zero,
 124 sy-vline,
 125(15) pay_tab-per_allow currency pay_tab-waers no-zero,
 140 sy-vline.
 pay_tab-pen_allow = pay_tab-pen_allow * -1.
 write: 141(15) pay_tab-pen_allow currency pay_tab-waers no-zero,
 156 sy-vline,
 157(15) pay_tab-oth_allow currency pay_tab-waers no-zero,
 172 sy-vline,
 173(15) pay_tab-tot_allow currency pay_tab-waers no-zero,
 188 sy-vline.
 endloop.
 write /1(188) sy-uline.
 endif.
 skip 3.
 if edn_tab[] is in

Macros in ABAP-HR

Hi
I Have worked some macros using PNP Logical database but Can i use macros in PCH logical database?? How can i do?
Some examples please.
Regards
Gregory

I do agree with Robert's statement but sometimes these are so easy that you write just one line and you get the data so nicely into your internal tables.
For example :
data : it_0002 type table of pa0002.
RP-READ-INFOTYPE pernr 0002 it_0002 begda enda returns all valid data for that employee into the table it_0002.This is very usually to find the presently active record when you give :
RP-READ-INFOTYPE pernr 0002 it_0002 sy-datum sy-datum.
Other commonly used macros are :
The macro RP-PROVIDE-FROM-LAST retrieves the last(latest) data record which is valid in the data selection period.
The macro RP-PROVIDE-FROM-FRST retrieves the first(start)data record which is valid in the data selection period.
Mathews

Macros versus provide -endprovide

Similar Messages

Maybe you are looking for