행복한 우리가족 이야기

FUNCTION Z_FS_ASSIGN.
*"--------------------------------------------------------------------
*"*"로컬인터페이스:
*"  IMPORTING
*"     VALUE(TABNM) TYPE  ZOEFAXT_MNGJOB-TABL
*"     VALUE(LAYNM) TYPE  ZOEFAXT_MNGJOB-LAYO
*"  EXPORTING
*"     VALUE(GR_DBSTR) TYPE REF TO DATA
*"     VALUE(GR_DBTAB) TYPE REF TO DATA
*"     VALUE(GR_FLSTR) TYPE REF TO DATA
*"     VALUE(ERR_MSG) TYPE  STRING
*"--------------------------------------------------------------------

  FIELD-SYMBOLS: <DBTAB> TYPE STANDARD TABLE,
                 <DBSTR> TYPE ANY,
                 <FLSTR> TYPE ANY.

  DATA: RESULT TYPE P DECIMALS 2,
        OREF TYPE REF TO CX_ROOT,
        TEXT TYPE STRING.

  TRY.
*"    db table : body
      CREATE DATA GR_DBTAB TYPE STANDARD TABLE OF (TABNM).

*"    db structure : header
      CREATE DATA GR_DBSTR TYPE (TABNM).

*"    file structure : if str
      CREATE DATA GR_FLSTR TYPE (LAYNM).

    CATCH CX_SY_CREATE_DATA_ERROR INTO OREF.
      TEXT = OREF->GET_TEXT( ).
  ENDTRY.

  ERR_MSG = TEXT.

ENDFUNCTION.

  DATA: l_fname TYPE filenam255,
        l_path  TYPE filenam255,
        l_fullname TYPE filenam255.

  l_fullname = p_path.
  CALL FUNCTION 'ISH_BASENAME'
    EXPORTING
      i_fullname = l_fullname
    IMPORTING
      e_filename = l_fname
      e_path     = l_path.