FUNCTION z_remittance_2050_title.
*"--------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_REGUH) LIKE  REGUH STRUCTURE  REGUH
*"     VALUE(I_GJAHR) LIKE  REGUD-GJAHR
*"     VALUE(I_NACHA) LIKE  FINAA-NACHA
*"     VALUE(I_AFORN) LIKE  T042B-AFORN
*"  CHANGING
*"     VALUE(C_ITCPO) LIKE  ITCPO STRUCTURE  ITCPO
*"     VALUE(C_ARCHIVE_INDEX) LIKE  TOA_DARA STRUCTURE  TOA_DARA
*"         DEFAULT SPACE
*"     VALUE(C_ARCHIVE_PARAMS) LIKE  ARC_PARAMS STRUCTURE  ARC_PARAMS
*"         DEFAULT SPACE
*"--------------------------------------------------------------------
  DATA: lv_title     TYPE string VALUE 'Payment Advice Note for',
        lv_from      TYPE string VALUE '-',
        lv_nacha     TYPE c      VALUE 'I',
        lv_title_adj TYPE string.

  IF i_nacha = lv_nacha.

    CONCATENATE lv_title i_reguh-znme1 lv_from i_reguh-laufd INTO lv_title_adj SEPARATED BY ' '.
    c_itcpo-tdtitle = lv_title_adj.

  ENDIF.
ENDFUNCTION.