*&---------------------------------------------------------------------*
*& Report  ZCHECK_IT0014_AUS                        *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZCHECK_IT0014_AUS                                     .
* Eigenschaften: Logische Datenbank PNP!
INFOTYPES: 0000, 0001, 0014.

TABLES: PERNR.

DATA: HIREDATE LIKE RPTXXXXX-DATUM1,  
      FIREDATE LIKE RPTXXXXX-DATUM1. 
DATA: BEGIN OF PHIFI OCCURS 5.
        INCLUDE STRUCTURE PHIFI.
DATA: END OF PHIFI.

CONSTANTS: HIGHDATE LIKE RPTXXXXX-DATUM1 VALUE '99991231'.
SELECTION-SCREEN BEGIN OF BLOCK AUSN WITH FRAME TITLE TEXT-001.
* TEXT-001 = "Lohnartenselektion" 
SELECT-OPTIONS: LGA14 FOR P0014-LGART.
* LGA14 = "Lohnart"
SELECTION-SCREEN END OF BLOCK AUSN.

INITIALIZATION.

START-OF-SELECTION.

GET PERNR.

  PNP-SW-IGNORELOCKEDRECORDS = 'N'.

  PROVIDE * FROM P0000 BETWEEN PN-BEGDA AND PN-ENDDA.
  ENDPROVIDE.

  PROVIDE * FROM P0001 BETWEEN PN-BEGDA AND PN-ENDDA.
  ENDPROVIDE.

  CALL FUNCTION 'RP_HIRE_FIRE'
* EXPORTING
*   BEG             = '18000101'
*   END             = '99991231'
   IMPORTING
     FIRE_DATE       = FIREDATE
     HIRE_DATE       = HIREDATE
    TABLES
      PPHIFI          = PHIFI
      PP0000          = P0000
      PP0001          = P0001
            .

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

    IF FIREDATE IS INITIAL.
      FIREDATE = HIGHDATE.
    ENDIF.
    IF P0014-ENDDA GT FIREDATE.
      CHECK P0014-LGART IN LGA14.
      WRITE:/ PERNR-PERNR, ' Austritt: ', FIREDATE,
  ' IT0014 nach Austritt: ', P0014-BEGDA, '-', P0014-ENDDA,
  ', geändert von ', P0014-UNAME, ', Lohnart ', P0014-LGART, 'Betrag ',
 P0014-BETRG, ',gesperrt = ', P0014-SPRPS, '.'.
    ELSE.
    ENDIF.

  ENDPROVIDE.

END-OF-SELECTION.