西暦⇒和暦変換 abap FC 汎用モジュール

DATA:
RYAKU LIKE  LDERA-SHERA,
NENGO LIKE  LDERA-ERA,

NEN_TEXT  LIKE  LDSPT-LDYY,

TSUKI_TEXT  LIKE  LDSPT-LDMM,

HI_TEXT LIKE  LDSPT-LDDD,

NEN TYPE STRING,
TSUKI TYPE STRING,
HI TYPE STRING.

* 西暦⇒和暦変換
* HR-J: 評価用汎用モジュール
CALL FUNCTION 'RP_CONVERT_JAPAN_DATE_OUT'
  EXPORTING
    SEIREKI          = '19940301'
 IMPORTING
    RYAKU          = RYAKU
    NENGO          = NENGO
    NEN            = NEN
    NEN_TEXT       = NEN_TEXT
    TSUKI          = TSUKI
    TSUKI_TEXT     = TSUKI_TEXT
    HI             = HI
    HI_TEXT        = HI_TEXT .
WRITE RYAKU.
WRITE NENGO.
WRITE NEN.
WRITE NEN_TEXT.
WRITE TSUKI.
WRITE TSUKI_TEXT.
WRITE HI.
WRITE HI_TEXT.