*&---------------------------------------------------------------------*
*& Report ZTESTGAETAN
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTESTGAETAN.

DATA: it_table TYPE table of ZGAETAN_TEST,
      wa_table TYPE ZGAETAN_TEST.

DATA :it_0002 type table of P0002,
      wa_0002 type p0002,
      it_0006 type table of P0006,
      wa_0006 type p0006,
      it_0001 type table of p0001,
      wa_0001 type p0001,
      it_0007 type table of P0007,
      wa_0007 type P0007.

select  * from PA0002 into CORRESPONDING FIELDS OF table it_0002 WHERE begda <= sy-datum and ENDDA >= sy-datum.

  LOOP AT it_0002 INTO wa_0002.

      move wa_0002-pernr to wa_table-zmatricule.
      move wa_0002-NACHN to wa_table-ZLASTNAME.
      move wa_0002-VORNA to wa_table-ZFIRSTNAME.
      move wa_0002-GBDAT to wa_table-ZBIRTHDAY_DATE.
      move wa_0002-GBORT to wa_table-ZBIRTHPLACE.

      select single natio from t005t into wa_table-znationalite_txt where land1 = wa_0002-natio and spras = 'FR'.

        move wa_0002-NATIO to wa_table-ZNATIONALITE_TXT.

      select single * from pa0006 into CORRESPONDING FIELDS OF wa_0006 where pernr = wa_table-zmatricule and begda <= sy-datum and endda >= sy-datum.

        move wa_0006-stras to wa_table-zstreetandhouse.
        move wa_0006-HSNMR to wa_table-ZHOUSENUMBER.
        move wa_0006-PSTLZ to wa_table-ZPOSTALCODE.
        move wa_0006-PSTLZ to wa_table-ZPOSTALCODE_TEXT.
        move wa_0006-POSTA to wa_table-ZBOITE.
        move wa_0006-ORT01 to wa_table-ZCITY.

      select single * from pa0001 into CORRESPONDING FIELDS OF wa_0001 where pernr = wa_table-zmatricule and begda <= sy-datum and endda >= sy-datum.


        move wa_0001-PERSG to wa_table-ZCATEGORIEEMPLOYEES.
        move wa_0001-PERSK to wa_table-ZEMPLOYMENTSTATUS.
        move wa_0001-werks to wa_table-ZDOMAIN.
        select single NAME1 from T500p into wa_table-ZDOMAINTEXT where persa = wa_0001-werks.
        move wa_0001-BTRTL to wa_table-ZSSDOMAIN.
        select single BTEXT from T001P into wa_table-ZSSDOMAIN_TEXT where BTRTL = wa_0001-BTRTL.
        move wa_0001-plans to wa_table-ZPOSTE.

      select single * from pa0007 into CORRESPONDING FIELDS OF wa_0007 where pernr = wa_table-zmatricule and begda <= sy-datum and endda >= sy-datum.
        move wa_0007-SCHKZ to wa_table-ZWORKSCHEDULE.
        move wa_0007-ARBST to wa_table-ZHOURS.
        move wa_0007-BEGDA to wa_table-ZBEGINDATE.
  ENDLOOP.