Joins and Projections in LDB Programs

TABLES: PERNR.
INFOTYPES: 0002,                       "Personal Data
           0007.                       "Planned Working Time

GET PERNR.
* provide * from p0007
  PROVIDE zterf FROM P0007
          NACHN VORNA FROM P0002 BETWEEN PN-BEGDA AND PN-ENDDA.
*         * from p0002 between pn-begda and pn-endda.
    IF P0007_VALID EQ 'X'.
      WRITE: / P0002-NACHN,
               P0007-BEGDA,
               P0007-ENDDA,
               p0007-zterf.
    ENDIF.
  ENDPROVIDE.