programs

REPORT ZR_H107_MACRO

TABLES PERNR.
INFOTYPES 0001.
START-OF-SELECTION.
GET PERNR.

RP-PROVIDE-FROM-LAST P0001 SPACE PN-BEGDA PN-ENDDA.
IF PNP-SW-FOUND = 1.
WRITE: / PERNR-PERNR, P0001-BEGDA,
P0001-ENDDA, P0001-PERSK.
ENDIF.

input:

output:

REPORT ZR_H107_SUBTYPE.

TABLES PERNR.
INFOTYPEs: 0001.
DATA: VAR TYPE D.
START-OF-SELECTION.
GET PERNR.

VAR = PN-BEGDA - 30.

RP-PROVIDE-FROM-LAST P0001 SPACE VAR PN-ENDDA.
IF PNP-SW-FOUND = 1.
WRITE: / PERNR-PERNR, P0001-BEGDA,
P0001-ENDDA, P0001-PERSK.
ENDIF.

input:

output:

REPORT ZR_H107_SUBTYPE

TABLES PERNR.
INFOTYPEs 0006.
START-OF-SELECTION.
GET PERNR.

*---To print permanent address (sub type no.)
RP-PROVIDE-FROM-LAST P0006 1 PN-BEGDA PN-ENDDA.
IF PNP-SW-FOUND = 1.
WRITE: / P0006-PERNR, P0006-BEGDA,
P0006-STRAS, P0006-ORT01.
ENDIF.

*---To print home address
RP-PROVIDE-FROM-LAST P0006 3 PN-BEGDA PN-ENDDA.
IF PNP-SW-FOUND = 1.
WRITE: / P0006-PERNR, P0006-BEGDA,
P0006-STRAS, P0006-ORT01.
ENDIF.

input:

output:

REPORT ZR_H107_NFOTYPE.

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-LAST P0006 1 PN-BEGDA PN-ENDDA.
IF PNP-SW-FOUND = 1.
WRITE: / P0006-PERNR, P0006-BEGDA,
P0006-STRAS, P0006-ORT01.
ENDIF.

input:

output: