Program : RPITUM00
Report RPITUM00 performs a reclassification according to period of
membership to a pay scale group or level (pay jump due to seniority),
even for a period outside the data selection period entered.
In the standard system, the report allows the compilation of a new
record for the day after the end date of the data selection period
entered. This is in keeping with the report standard and is consequently
not an error.
If you only want new records to be formed within the data selection
period you enter, you can modify the report standard as follows:
Insert all lines marked "insert" below in report RPITUM00 and
deactivate the lines marked "deactivate".
Excerpt from the source code of report RPITUM00:
...
*-----Reportspezifische Hilfsfelder
DATA: SEIT TYPE D, KEYDATE TYPE D, BIBEGDA TYPE D, GBDAT TYPE D,
KONV1(6), "insert
...
*-----Zugehörigkeitsdauer berechnen
DZ = KEYDATE - SEIT.
* DX = 1000 * DZ / 36525. "deactivate aussternen
DAUER = 1000000 * DZ / 36525. "insert
* DAUER = DX * 10. "deactivate
* UNPACK DAUER TO DJJMM. "deactivate
UNPACK DAUER TO KONV1. "insert
DAUER = DJJMM = KONV1. "insert
DAUERJJ = DJJMM(2). "konvertieren "JJMM".
* IF DAUERJJ LT 10. "deactivate
* MOVE '0' TO DAUERJJ(1). "deactivate
* ENDIF. "deactivate
* DAUERMM = DJJMM+2(2) * 12 / 100. "deactivate
DX = DJJMM+2(2) * 1200 / 100. "insert
UNPACK DX TO KONV1. "insert
MOVE KONV1+2(2) TO DAUERMM. "insert
* IF DAUERMM LT 12. "deactivate
* DAUERMM = DAUERMM. "deactivate
* IF DAUERMM LT 10. "deactivate
* MOVE DAUERMM(1) TO DAUERMM+1(1). "deactivate
* MOVE '0' TO DAUERMM(1). "deactivate
* ENDIF. "deactivate
* ELSE. "deactivate
* DAUERJJ = DAUERJJ + 1. "deactivate
* IF DAUERJJ LT 10. "deactivate
* MOVE '0' TO DAUERJJ(1). "deactivate
* ENDIF. "deactivate
* MOVE '00' TO DAUERMM. "deactivate
* ENDIF. "deactivate
PERFORM RE001. "XRKK11K068898
RP-READ-T001P P0001-WERKS P0001-BTRTL 'X'. "XRKK11K048234
...
End of the excerpt from the source code of report RPITUM00.
Examine the report for check errors and save the report.
Key word: RPITUM
No comments:
Post a Comment