Name of the PDF got as correspondence - LSO 600

Question

Hi Kris,
When the employee or manager receives the correspondence PDF, it always has the name  as 'No-title'. Any idea where i have to change the correct title.
Regards,
Sharadha

Answer 1

Please note that Badi LSO_CORRESPONDENCE43 does NOT work when attempting to change the email subject line.
Please read OSS note 1581012.  This will allow you to change the label of the PDF attachments.  You will need to create a user exit for the application form collection.  I will provide you an example of how to accomplish this:
   FORM USER_EXIT_ZLSO_SET_TITLE.
*& please use macro
*  mac_cancel sy-msgty sy-msgno sy-msgid sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*&  to raise errors
*** LEAVE THIS EMPTY _ JUST A PLACEHOLDER  ***
ENDFORM.    "USER_EXIT_ZLSO_SET_TITLE
*& User Exit USER_EXIT_SET_TITLE
*& for collections in transaction EFRM for those labelled ZLSO_PWB_COL*
*** Warning:  This is used with all Appl Form user exits but cannot be made
*     as an INCLUDE module
*     Use of INCLUDE module does not get generated as part of appl form code
*& you may interpret and change control variable "c"
*&**available macros
* mac_deactivate <name> <identification>.     "switches node off
*                                             "<identification> only relevant
*                                             "for application forms
* mac_activate <name> <identification>.       "switch node on, that has been
*                                             "switched off before with
*                                             "mac_deacticate
*  As per OSS note 1581012 - this replaces need for Badi
*  LSO_CORRESPONDENCE43 which does not work when appl form is a collection
FORM USER_EXIT_SET_TITLE using
      iv_name
      iv_id
      cv_title.
  TABLES: T77FLT.
  DATA: lr_reader  TYPE REF TO if_lso_crp_render_reader.
  DATA: lr_data    TYPE REF TO data.
  DATA: ls_fkk_key TYPE lso_crp_fkk_key.
  DATA: l_lfcod    TYPE t77flt-lfcod.
  DATA: l_action   TYPE CHAR_60.
  DATA: BEGIN OF ls_data,
    kdscr             TYPE lsoppvar-kdscr,       "Course Descr.
    PARTACTYTXT       TYPE lsoppvar-partactytxt, "Action Type
    partcanctxt       TYPE lsoppvar-partcanctxt, "Cancel Reason
    PARTPARTIC        TYPE lsoppvar-PARTPARTIC,  "participation
    dobyp             TYPE ppvar-kotyp,          "course type
    dobjd             TYPE ppvar-kobjd,          "course type id
    dstxt             TYPE ppvar-kstxt,          "course type text
    kobyp             TYPE ppvar-kotyp,
    kobjd             TYPE ppvar-kobjd,          "course
    kbgda             TYPE ppvar-kbgda,          "begin date
    kndda             TYPE ppvar-endda,          "end date
    kbtim             TYPE ppvar-kbtim,          "begin time first day
    ketim             TYPE ppvar-ketim,          "end time last day
    kstxt             TYPE ppvar-kstxt,          "training text
  END OF ls_data.
  FIELD-SYMBOLS: <fs_range1> LIKE LINE OF xt_ranges.
  FIELD-SYMBOLS: <fs_range2> LIKE LINE OF xt_ranges1.
  FIELD-SYMBOLS: <fs_objstat> LIKE LINE OF g_tab_objstat.
  READ TABLE xt_ranges  ASSIGNING <fs_range1> INDEX 1.
  CHECK sy-subrc IS INITIAL.
  READ TABLE xt_ranges1 ASSIGNING <fs_range2> INDEX 1.
  CHECK sy-subrc IS INITIAL.
  ls_fkk_key-cotyp = <fs_range1>-low.
  ls_fkk_key-cokey = <fs_range2>-low.
*  Only when we are at the same level where the email title is built
*  Do not want to affect the other attachments in this appl form
*  This g_tab_objstat table contains all the attachments.  For PDF attachments,
*    formclass is the name of application class of the PDF
  LOOP AT g_tab_objstat ASSIGNING <fs_objstat>
    WHERE formclass IS INITIAL.
    IF sy-tabix = 1.
      CHECK <fs_objstat>-name  EQ iv_name.
      EXIT.
    ELSE.
      RETURN.
    ENDIF.
  ENDLOOP.
  TRY.
      lr_reader = cl_lso_crp_render_reader=>get( fkk_key = ls_fkk_key ).
  ENDTRY.
* Extract values needed for building email subject line
  TRY.
      GET REFERENCE OF ls_data INTO lr_data.
      CALL METHOD lr_reader->read_value
        CHANGING
          value = lr_data.
    CATCH cx_root.
      EXIT.
  ENDTRY.
   * This table contains the text for the field PARTACTYTXT
  SELECT SINGLE * FROM T77FLT INTO T77FLT
       WHERE LFCODT = ls_data-PARTACTYTXT.
* * * blah blah ***
* enter your code here
ENDFORM.