Preffered Answer:
Repetitive structure is same sequence for fields varying by numeric digits. We do have repetitive structure in IT 8 [Basic Pay] and IT 41[Date Specifications].
To retrieve the data from repetitive structures we use DO… VARYING command as below
DATA: BEGIN OF WAGETYPES,
LGA LIKE P0008-LGA01,
BET LIKE P0008-BET01,
ANZ LIKE P0008-ANZ01,
EIN LIKE P0008-EIN01,
OPK LIKE P0008-OPK01,
END OF WAGETYPES.
GET PERNR.
RP_PROVIDE_FROM_LAST P0008 SPACE PN-BEGDA PN-ENDDA.
DO 20 TIMES VARYING WAGETYPES
FROM P0008-LGA01
NEXT P0008-LGA02.
IF WAGETYPES-LGA IS INITIAL.
EXIT.
ELSE.
WRITE: / WAGETYPES-LGA, WAGETYPES-BET.
ENDIF.
ENDDO
Repetitive structure is same sequence for fields varying by numeric digits. We do have repetitive structure in IT 8 [Basic Pay] and IT 41[Date Specifications].
To retrieve the data from repetitive structures we use DO… VARYING command as below
DATA: BEGIN OF WAGETYPES,
LGA LIKE P0008-LGA01,
BET LIKE P0008-BET01,
ANZ LIKE P0008-ANZ01,
EIN LIKE P0008-EIN01,
OPK LIKE P0008-OPK01,
END OF WAGETYPES.
GET PERNR.
RP_PROVIDE_FROM_LAST P0008 SPACE PN-BEGDA PN-ENDDA.
DO 20 TIMES VARYING WAGETYPES
FROM P0008-LGA01
NEXT P0008-LGA02.
IF WAGETYPES-LGA IS INITIAL.
EXIT.
ELSE.
WRITE: / WAGETYPES-LGA, WAGETYPES-BET.
ENDIF.
ENDDO
Write Your Comments or Explanations to Help Others