SHARE
TWEET

Contoh Period Modifying

a guest Jan 23rd, 2020 88 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DATA VAR_CAT_REF TYPE /CPMB/SLDCOIN.
  2. DATA VAR_CAT_TGT TYPE /CPMB/SLDCOIN.
  3. DATA VAR_YEAR_TGT TYPE STRING.
  4. DATA VAR_FISCPER_STR TYPE STRING.
  5. DATA VAR_FISCPER_TGT TYPE 0FISCPER.
  6. DATA VAR_FISCYEAR TYPE 0FISCYEAR.
  7. DATA VAR_FISCYEAR_TGT TYPE 0FISCYEAR.
  8.  
  9. DATA CHA_CATEGORY TYPE /CPMB/SLDCOIN.
  10. DATA CHA_FISCPER TYPE 0FISCPER.
  11. DATA CHA_FISCYEAR TYPE 0FISCYEAR.
  12. DATA CHA_FISCVARNT TYPE 0FISCVARNT.
  13.  
  14. CHA_FISCVARNT = 'K4'.
  15.  
  16. VAR_CAT_REF = VARV(ZVAR_CATEGORY_REF).
  17. VAR_CAT_TGT = VARV(ZVAR_CATEGORY_SRC).
  18.  
  19. VAR_FISCYEAR = SUBSTR(VAR_CAT_REF,5,4).
  20. VAR_FISCYEAR_TGT = SUBSTR(VAR_CAT_TGT,5,4).
  21.  
  22. FOREACH CHA_CATEGORY, CHA_FISCPER.
  23.   CHA_FISCYEAR = ATRV('0FISCYEAR',CHA_FISCPER, CHA_FISCVARNT).
  24.  
  25.   IF CHA_CATEGORY = VAR_CAT_REF AND CHA_FISCYEAR = VAR_FISCYEAR.
  26.     VAR_FISCPER_STR = SUBSTR(CHA_FISCPER,4,3).
  27.  
  28.     VAR_FISCPER_TGT = CONCAT(VAR_FISCYEAR_TGT,VAR_FISCPER_STR).
  29.  
  30.     {'/CPMB/LSDATA',CHA_CATEGORY,VAR_FISCPER_TGT,K4} = {'/CPMB/LSDATA',CHA_CATEGORY,CHA_FISCPER,K4}.
  31.   ENDIF.
  32. ENDFOR.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top