Contoh Period Modifying

DATA VAR_CAT_REF TYPE /CPMB/SLDCOIN.
DATA VAR_CAT_TGT TYPE /CPMB/SLDCOIN.
DATA VAR_YEAR_TGT TYPE STRING.
DATA VAR_FISCPER_STR TYPE STRING.
DATA VAR_FISCPER_TGT TYPE 0FISCPER.
DATA VAR_FISCYEAR TYPE 0FISCYEAR.
DATA VAR_FISCYEAR_TGT TYPE 0FISCYEAR.

DATA CHA_CATEGORY TYPE /CPMB/SLDCOIN.
DATA CHA_FISCPER TYPE 0FISCPER.
DATA CHA_FISCYEAR TYPE 0FISCYEAR.
DATA CHA_FISCVARNT TYPE 0FISCVARNT.

CHA_FISCVARNT = 'K4'.

VAR_CAT_REF = VARV(ZVAR_CATEGORY_REF).
VAR_CAT_TGT = VARV(ZVAR_CATEGORY_SRC).

VAR_FISCYEAR = SUBSTR(VAR_CAT_REF,5,4).
VAR_FISCYEAR_TGT = SUBSTR(VAR_CAT_TGT,5,4).

FOREACH CHA_CATEGORY, CHA_FISCPER.
  CHA_FISCYEAR = ATRV('0FISCYEAR',CHA_FISCPER, CHA_FISCVARNT).

  IF CHA_CATEGORY = VAR_CAT_REF AND CHA_FISCYEAR = VAR_FISCYEAR.
    VAR_FISCPER_STR = SUBSTR(CHA_FISCPER,4,3).

    VAR_FISCPER_TGT = CONCAT(VAR_FISCYEAR_TGT,VAR_FISCPER_STR).

    {'/CPMB/LSDATA',CHA_CATEGORY,VAR_FISCPER_TGT,K4} = {'/CPMB/LSDATA',CHA_CATEGORY,CHA_FISCPER,K4}.
  ENDIF.
ENDFOR.