[FUNCTION] 파라메터 정보

Function Name : /SDF/GEN_FUNCS_FUNC_INFO_GET

 

[ Code ]              

FORM get_parameters  USING    pv_funcname

                     CHANGING pt_params  LIKE gt_func_params[]

                              pt_tables  LIKE gt_tables[].

 

  DATA : ls_params LIKE LINE OF pt_params.

  DATA : ls_tables LIKE LINE OF pt_tables.

 

  CALL FUNCTION '/SDF/GEN_FUNCS_FUNC_INFO_GET'            "#EC CI_SUBRC

    EXPORTING

      funcname               = pv_funcname

    TABLES

      pt_params              = pt_params[]

    EXCEPTIONS

      function_not_available = 1

      OTHERS                 = 2.

 

  CHECK pt_params[] IS NOT INITIAL.

  DELETE pt_params WHERE r3state NE 'A'.

 

  CLEAR : pt_tables[].

  LOOP AT pt_params INTO ls_params.

    CHECK ls_params-paramtype EQ 'T'.

    CHECK ls_params-structure NE 'ZCAT001'.

    ls_tables-structure = ls_params-structure.

    ls_tables-tabname   = ls_params-parameter.

    APPEND ls_tables TO pt_tables.

  ENDLOOP.

 

ENDFORM.