実行時データ型識別

実行時データ型識別、略語は RTTI です。プログラム実行時にデータ型を識別して処理を行う仕組みです。。

DESCRIBE FIELD命令を使用して、変数のデータタイプを取得することができます。

DESCRIBE FIELD obj TYPE typ.

• obj
  データ型を取得したいデータオブジェクト。通常の変数やフィールドシンポルなどを使用することができます。
• typ
  取得したデータ型が格納されるデータオブジェクト。

データ型は1 桁のIDで識別され、IDでは大文字と小文字が区別されます。

FORM PARSE_STRING_TO_STRUC   USING    U_STR TYPE STRING
                        CHANGING C_STRUC.
  CONSTANTS:
    CONST_DT_DATE TYPE C VALUE 'D',
    CONST_TAB            TYPE STRING VALUE CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.

  DATA:
   VL_STRINGS  TYPE STRING_TABLE, 
   VL_STR  TYPE STRING,
   VL_DATE TYPE D,
   VL_TYPE TYPE C.
  FIELD-SYMBOLS:
    <FS_WA>   TYPE ANY,
    <FS_COMP> TYPE ANY.


   SPLIT U_STR AT CONST_TAB INTO TABLE VL_STRINGS.

   ASSIGN C_STRUC TO <FS_WA>.

   TRY.

          LOOP AT TG_STRING INTO VG_STRING.
            ASSIGN COMPONENT SY-TABIX OF STRUCTURE <FS_WA> TO <FS_COMP>.

            DESCRIBE FIELD <FS_COMP> TYPE vl_type.

            IF vl_type = CONST_DT_DATE.    "日付型
               CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
                 EXPORTING
                   date_external            = VL_STR
                   accept_initial_date      = 'X'
                 IMPORTING
                   date_internal            = vl_date
                 EXCEPTIONS
                   date_external_is_invalid = 1
                 OTHERS                   = 2.

               IF sy-subrc = 0.
                 VL_STR = vl_date.
               ENDIF.
                ENDIF.
             ENDIF.

            MOVE VL_STR TO <FS_COMP>.

          ENDLOOP.

        CATCH CX_SY_CONVERSION_ERROR.
          CLEAR: EX_AFDATA.
      ENDTRY.
ENDFORM.

CL_ABAP_TYPEDESCR

|
|--CL_ABAP_DATADESCR
|     |
|     |--CL_ABAP_ELEMDESCR
|     |--CL_ABAP_REFDESCR
|     |--CL_ABAP_COMPLEXDESCR
|         |
|         |--CL_ABAP_STRUCTDESCR
|         |--CL_ABAP_TABLEDESCR
|
|--CL_ABAP_OBJECTDESCR
      |
      |--CL_ABAP_CLASSDESCR
       |--CL_ABAP_INTFDESCR

データ型を判定

型毎のメタ情報