Getting the variant name when the report program is run in background

Question

Hi All,
How to get the variant name for the report program when run in background? My requirement is to create an email attachement with the name 'variant.XLS', where variant = selection screen variant, when the report program is run in background. The system field SY-SLSET holds the variant name only when run online.
Any pointers to this will be highly appreciated.
Thanks and regards,
Nilesh.

Answer 1

Hello Nilesh,
Please find the algo:
1. Call the FM: GET_JOB_RUNTIME_INFO to get the background job details.
2. Select data from TBTCP using these details:
DATA:
FP_EVENTID   TYPE BTCEVENTID
FP_EVTPARM   TYPE BTCEVTPARM
FP_ACTIVE    TYPE BTCXPGFLAG
FP_JOBCNT    TYPE BTCJOBCNT
FP_JOBNM     TYPE BTCJOB
FP_STEPCNT   TYPE BTCSTEPCNT.
  CALL FUNCTION 'GET_JOB_RUNTIME_INFO'
    IMPORTING
      EVENTID                 = FP_EVENTID
      EVENTPARM               = FP_EVTPARM
      EXTERNAL_PROGRAM_ACTIVE = FP_ACTIVE
      JOBCOUNT                = FP_JOBCNT
      JOBNAME                 = FP_JOBNM
      STEPCOUNT               = FP_STEPCNT
    EXCEPTIONS
      NO_RUNTIME_INFO         = 1
      OTHERS                  = 2.
  IF SY-SUBRC <> 0.
*   Error calling FM: GET_JOB_RUNTIME_INFO
  ENDIF.
DATA: FP_VARIANT TYPE BTCVARIANT.
  SELECT JOBNAME JOBCOUNT STEPCOUNT VARIANT
  FROM   TBTCP
  INTO TABLE L_IT_TBTCP
  WHERE  JOBNAME   = FP_JOBNM
  AND    JOBCOUNT  = FP_JOBCNT
  AND    STEPCOUNT = FP_STEPCNT.
  IF SY-SUBRC = 0.
    SORT L_IT_TBTCP BY JOBNM JOBCNT STEPCNT.
    READ TABLE L_IT_TBTCP INTO L_WA_TBTCP INDEX 1.
    IF SY-SUBRC = 0.
      FP_VARIANT = L_WA_TBTCP-VARIANT.
    ENDIF.
  ENDIF.
Hope this helps.
BR,
Suhas