FORM GET_TEMAIL                                 
     TABLES gt_par_tab STRUCTURE objec
            gt_vdtab STRUCTURE ppvardat
     USING  value(gt_langu) LIKE thead-tdspras
            gt_subrc        LIKE sy-subrc.
DATA:
  tln    LIKE objec,
  datum  LIKE plog-begda,
  hsubrc LIKE sy-subrc,
  email  LIKE pa0105-USRID_LONG,
  setnr  TYPE i VALUE 1.
  CLEAR gt_vdtab-data.
  IF $kurs IS INITIAL.
    PERFORM init_$const USING
            hsubrc.
  ENDIF.
  PERFORM init_parttypes
          TABLES allpart
                 exttypes
                 multipart
          USING hsubrc.
  datum = Sy-datum.  "email-Adresse required for current day, not day the training starts
 
* find delegate in GT_PAR_TAB 
  LOOP AT gt_par_tab WHERE
          otype NE $kurs AND
          otype NE $kurst.
    MOVE-CORRESPONDING gt_par_tab TO tln.
    EXIT.
  ENDLOOP.
  gt_subrc = sy-subrc.
  IF gt_subrc = 0.
    subty = '0010'. "Email Address
    gt_vdtab-dataset = setnr.
    PERFORM find_email USING
            tln       email
            subty     datum
            gt_subrc.
    IF gt_subrc = 0.
      gt_vdtab-data = email.
    ENDIF.
  ENDIF.
  APPEND gt_vdtab.
ENDFORM.                      " GET_TEMAIL