TABLES PERNR.
INFOTYPES 0006.
START-OF-SELECTION.
GET PERNR.
PROVIDE * FROM P0006 BETWEEN PN-BEGDA AND
PN-ENDDA.
WRITE:/ P0006-PERNR, P0006-BEGDA,
P0006-ENDDA, P0006-STRAS, P0006-ORT01.
ENDPROVIDE.
*---------------------------------------------*
*---------------------------------------------*
REPORT ZCLASS_H08 LINE-SIZE 200.
TABLES PERNR.
INFOTYPES 0006
MODE N.
START-OF-SELECTION.
GET PERNR.
RP-READ-INFOTYPE PERNR-PERNR 0006 P0006
PN-BEGDA PN-ENDDA.
* RP-PROVIDE-FROM-FRST P0006 SPACE '18000101'
'99991231'.
*
* WRITE:/ P0006-PERNR, P0006-SUBTY,
P0006-BEGDA, P0006-ENDDA, P0006-STRAS, P0006-ORT01.
LOOP AT P0006 WHERE SUBTY = 1.
WRITE:/ P0006-PERNR, P0006-SUBTY,
P0006-BEGDA, P0006-ENDDA, P0006-STRAS, P0006-ORT01.
ENDLOOP.
*---------------------------------------------*
*---------------------------------------------*
REPORT ZCLASS_H09.
TABLES PERNR.
INFOTYPES 0006.
START-OF-SELECTION.
GET PERNR.
RP-PROVIDE-FROM-LAST P0006 SPACE PN-BEGDA
PN-ENDDA.
IF PNP-SW-FOUND EQ 1.
WRITE:/ P0006-PERNR, P0006-BEGDA,
P0006-ENDDA, P0006-STRAS, P0006-ORT01.
ENDIF.
