Print smartform from background

Question

Dear Experts,
I have requirement to create delivery then create bill automatically so i open background job from program (A) and submit the creating program for bill (B) via this job what happened is the delivery creating is ok, the delivery printing is ok and the billing creation is ok but the billing printing program (C) is not ok where the spool is creating with status waiting so can any body help how to print from background job??
program (A) (Create backgroundjob and submit program via it)
FORM USEREXIT_SAVE_DOCUMENT.
DATA: jobcount TYPE tbtcjob-jobcount,
      new_time type TBTCJOB-SDLSTRTTM.
data : p_vbeln TYPE likp-vbeln.
DATA : v_JOB_WAS_RELEASED LIKE  BTCH0000-CHAR1.
break rurik.
if T180-TRTYP = 'H'
  and ( likp-lfart = 'ZDCF'
or    likp-lfart = 'ZDCI'
  or    likp-lfart = 'ZDCO'
  or    likp-lfart = 'ZDCP'
  or    likp-lfart = 'ZDCR'
  or    likp-lfart = 'ZDOB'
  or    likp-lfart = 'ZDOT'
  or    likp-lfart = 'ZDQT'
or    likp-lfart = 'ZDRE' - Ian
  or    likp-lfart = 'ZDSO').
CALL FUNCTION 'JOB_OPEN'
  EXPORTING
    jobname               = 'SD_AUTOMATION'
  SDLSTRTDT             = NO_DATE
  SDLSTRTTM             = NO_TIME
  JOBCLASS              =
IMPORTING
   JOBCOUNT               = jobcount
CHANGING
  RET                   =
EXCEPTIONS
   CANT_CREATE_JOB        = 1
   INVALID_JOB_DATA       = 2
   JOBNAME_MISSING        = 3
   OTHERS                 = 4.
SUBMIT zsd_create_billing_document
        with vbeln EQ LIKP-VBELN
        AND RETURN
        VIA JOB 'SD_AUTOMATION'
        NUMBER jobcount.
new_time = sy-uzeit + 10.  "short delay
CALL FUNCTION 'JOB_CLOSE'
  EXPORTING
    jobcount                         = jobcount
    jobname                          = 'SD_AUTOMATION'
   STRTIMMED                       = 'X'
    SDLSTRTDT                        = sy-datum
    SDLSTRTTM                        = new_time
IMPORTING
    JOB_WAS_RELEASED                 = v_JOB_WAS_RELEASED
EXCEPTIONS
   CANT_START_IMMEDIATE              = 1
   INVALID_STARTDATE                 = 2
   JOBNAME_MISSING                   = 3
   JOB_CLOSE_FAILED                  = 4
   JOB_NOSTEPS                       = 5
   JOB_NOTEX                         = 6
   LOCK_FAILED                       = 7
   INVALID_TARGET                    = 8
   OTHERS                            = 9
ENDIF.
ENDFORM.
Program B (Creat bill)
REPORT zsd_create_billing_document
       NO STANDARD PAGE HEADING LINE-SIZE 255.
TABLES: vbup, vbak, vbuk.
DATA:   bdcdata LIKE bdcdata    OCCURS 0 WITH HEADER LINE.
DATA done(1).
PARAMETERS vbeln TYPE likp-vbeln.
DATA  sal_vbeln TYPE vbeln..
DATA  messtab LIKE TABLE OF bdcmsgcoll WITH HEADER LINE.
DATA   billing_doc TYPE vbeln.
DATA  messagetext(200).
MESSAGE s002(zsd).
WRITE: / vbeln.
DATA :  v_print TYPE i.
CALL FUNCTION 'ENQUEUE_EVVBLKE'
EXPORTING
  MODE_LIKP            = 'E'
  MANDT                = SY-MANDT
   vbeln                = vbeln
  X_VBELN              = ' '
  _SCOPE               = '2'
    _wait                = 'X'
" _wait                 = space
  _COLLECT             = ' '
EXCEPTIONS
   foreign_lock         = 1
   system_failure       = 2
   OTHERS               = 3
MESSAGE s005(zsd).
*In case ZSOT automatic billing once we create delivery and post goods issue manual.
SELECT SINGLE vbelv
  FROM vbfa
  INTO sal_vbeln
  WHERE vbeln = vbeln
  AND   vbtyp_v = 'C'.
SELECT SINGLE *
  FROM vbak
  WHERE vbeln = sal_vbeln.
import v_print to v_print FROM MEMORY id 'PRINTFLAG'.
IF vbak-auart EQ 'ZSOT'.
IF v_print eq '1'.
    PERFORM create_document USING vbeln
                          CHANGING sy-subrc.
ENDIF.
ELSE.
*Other than ZSOT Post Goods issue from ZPGI2 and from there automatic billing.
ENDIF.
*&      Form  CREATE_DOCUMENT
      text
     -->P_VBELN    text
FORM create_document USING p_vbeln
                     CHANGING sysubrc.
  PERFORM bdc_dynpro      USING 'SAPMV60A' '0102'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'KOMFK-VBELN(01)'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '/00'.
  PERFORM bdc_field       USING 'KOMFK-VBELN(01)'
                                p_vbeln."'1130010202'.
  PERFORM bdc_dynpro      USING 'SAPMV60A' '0104'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'VBRK-FKART'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=SICH'.
  CALL FUNCTION 'DEQUEUE_EVVBLKE'
   EXPORTING
      MODE_LIKP       = 'E'
      MANDT           = SY-MANDT
        vbeln           = vbeln
      X_VBELN         = ' '
      _SCOPE          = '3'
      _SYNCHRON       = ' '
      _COLLECT        = ' '
  CALL TRANSACTION 'VF01' USING bdcdata
                   MODE   'N'
                   UPDATE 'S'
                   MESSAGES INTO messtab.
  READ TABLE messtab WITH KEY msgtyp = 'E'.
  IF sy-subrc EQ 0.
    sysubrc = 4.
  ELSE.
    sysubrc = 0.
  ENDIF.
  LOOP AT messtab.
    sy-msgty = messtab-msgtyp.
    sy-msgid = messtab-msgid.
    sy-msgno = messtab-msgnr.
    sy-msgv1 = messtab-msgv1.
    sy-msgv2 = messtab-msgv2.
    sy-msgv3 = messtab-msgv3.
    sy-msgv4 = messtab-msgv4.
    CALL FUNCTION '/SAPTRX/GET_MESSAGE_TEXT'
      EXPORTING
        msgid                = sy-msgid
        msgno                = sy-msgno
        msgv1                = sy-msgv1
        msgv2                = sy-msgv2
        msgv3                = sy-msgv3
        msgv4                = sy-msgv4
      IMPORTING
        messagetext          = messagetext
      EXCEPTIONS
        no_message_retrieved = 1
        OTHERS               = 2.
    WRITE: / messagetext.
    CLEAR messagetext.
  ENDLOOP.
*... refresh tables
  REFRESH: messtab, bdcdata.
ENDFORM.                    "CREATE_DOCUMENT
*&      Form  BDC_DYNPRO
      text
     -->PROGRAM    text
     -->DYNPRO     text
FORM bdc_dynpro USING program dynpro.
  CLEAR bdcdata.
  bdcdata-program  = program.
  bdcdata-dynpro   = dynpro.
  bdcdata-dynbegin = 'X'.
  APPEND bdcdata.
ENDFORM.                    "BDC_DYNPRO
       Insert field                                                  *
FORM bdc_field USING fnam fval.
  CLEAR bdcdata.
  bdcdata-fnam = fnam.
  bdcdata-fval = fval.
  APPEND bdcdata.
ENDFORM.                    "BDC_FIELD
*&      Form  change_status
      text
-->  p1        text
<--  p2        text
FORM change_status .
*Change status if delivery and the billing document has been created
  SELECT  *
    FROM vbup
    WHERE vbeln = vbeln
    AND   fksta NE 'C'.
    vbup-fksta = 'C'.
   vbup-gbsta = 'C'.
    MODIFY vbup.
  ENDSELECT.
  UPDATE vbuk
  SET fkstk = 'C'
     gbstk = 'C'
  WHERE vbeln = vbeln.
ENDFORM.                    " change_status
Program C (Print Bill)
REPORT  z_sdps_invoice.
*&    <Module>:  SD Smart Forms.
*& Type       : Executable
*& Request No.:
*& Author/Co. : Ahmed Al Eryani
*& Created On : 26.02.2007
*& Finished   : 24.2007
*& Description:
*&                    MODIFICATION LOG
*& Modified by  :
*& Request No.  :
*& Dev. Class   :
*& Date Modified:
*& Description  :
TABLES: vbrk, kna1, vbrp, makt, konv, vbkd.
SELECTION-SCREEN BEGIN OF BLOCK a.
PARAMETER: p_vbeln LIKE vbrp-vbeln OBLIGATORY MATCHCODE OBJECT vmcf. "Billing document No
"SELECT-OPTIONS s_bukrs FOR bkpf-bukrs. "Company Code
SELECTION-SCREEN END OF BLOCK a.
*itab is object of our smart form structre
DATA: itab TYPE zsd_invoice OCCURS 0 WITH HEADER LINE.
DATA: wa_footer TYPE zsd_invv1.
DATA: t_items TYPE zsd_inv WITH HEADER LINE,
      w_items TYPE LINE OF zsd_inv,
      it_footer TYPE zsd_inv1,
      w_footer TYPE LINE OF zsd_inv1.
DATA: amountspell LIKE spell.
DATA: g_fm_name TYPE rs38l_fnam.
DATA: mnumvflag(10) TYPE c.
DATA: coun TYPE i,
      totalforitems TYPE kwert,
      lasttotal(8) TYPE p DECIMALS 2,
      lasttotalc(11) TYPE c,
      firstpart(11) TYPE c,
      secondpart(2) TYPE c.
DATA: currency TYPE waerk.
DATA: currtxet(50) TYPE c.
*Header internal table
DATA: BEGIN OF t_header OCCURS 0,
  vbeln LIKE vbrk-vbeln,"Document no
  name1 LIKE kna1-name1,"Customer Name
  adrnr LIKE kna1-adrnr,"Customer Address
  bstkd LIKE vbkd-bstkd,"
  kunnr LIKE kna1-kunnr,"Customer Account no
  waerk LIKE vbrk-waerk, "currency key
  aubel LIKE vbrp-aubel,
  kunrg LIKE vbrk-kunrg,
  street LIKE adrc-street,
  fkart LIKE vbrk-fkart,
  lgort LIKE lips-lgort,"Stord bin
  lgobe LIKE t001l-lgobe,
  ktokd LIKE kna1-ktokd,
  PSTYV LIKE vbrp-PSTYV,
  orgbil LIKE vbfa-vbelv,
END OF t_header.
*detail internal table
DATA: BEGIN OF t_items1 OCCURS 0,
  matnr LIKE vbrp-matnr,"Material Number
  posnr LIKE vbrp-posnr,
  vgpos LIKE vbrp-vgpos,
  maktx LIKE makt-maktx,"Material Description
  lgort LIKE vbrp-lgort,"Storage location
  fkimg LIKE vbrp-fkimg,"
  knumv LIKE vbrk-knumv,"
  unitprice LIKE konv-kawrt,
  total LIKE konv-kawrt,
  waers LIKE konv-waers,
  kkurs LIKE konv-kkurs,
  vgbel LIKE vbrp-vgbel,
  lgpbe LIKE lips-lgpbe,
  vgtyp LIKE vbrp-vgtyp,
END OF t_items1.
DATA: v_belnr TYPE belnr_d.
*Unit price internal table
DATA: BEGIN OF t_untprice OCCURS 0,
  kschl LIKE konv-kschl,"condition type
  kawrt LIKE konv-kawrt,"unit price
END OF t_untprice.
*Condition(spcial deduction)
DATA: BEGIN OF t_spcialcnd OCCURS 0,
  kschl LIKE konv-kschl,"condition type
  kwert LIKE konv-kwert,"Deduction value
END OF t_spcialcnd.
DATA: t_tax LIKE TABLE OF t_spcialcnd WITH HEADER LINE,
      v_tax LIKE konv-kwert.
DATA: BEGIN OF t_curtxt OCCURS 0,
  ltext LIKE tcurt-ltext,
END OF t_curtxt.
DATA :return_code TYPE i," VALUE 999,
      us_screen TYPE c. "VALUE 'X'.
declaration of data
INCLUDE rlb_invoice_data_declare.
definition of forms
INCLUDE rlb_invoice_form01.
INCLUDE rlb_print_forms.
START-OF-SELECTION.
  "IF p_vbeln IS NOT INITIAL.
    PERFORM entry USING return_code us_screen.
  "ENDIF.
      FORM ENTRY
FORM entry USING return_code us_screen.
  DATA: lf_retcode TYPE sy-subrc.
  CLEAR retcode.
  xscreen = us_screen.
perform processing using us_screen
                    changing lf_retcode.
if lf_retcode ne 0.
   return_code = 1.
else.
   return_code = 0.
endif.
  IF p_vbeln IS INITIAL.
    p_vbeln = nast-objky.
  ENDIF.
  "get header data
  SELECT SINGLE vbrk~vbeln vbrk~waerk vbrp~aubel vbrk~kunrg vbrk~fkart vbrp~lgort vbrp~PSTYV
  INTO (t_header-vbeln, t_header-waerk, t_header-aubel, t_header-kunrg, t_header-fkart,
    t_header-lgort, t_header-PSTYV)
  FROM vbrk JOIN vbrp ON vbrp~vbeln = vbrk~vbeln
            JOIN kna1 ON vbrk~kunrg = kna1~kunnr
  WHERE vbrk~vbeln = p_vbeln.
  IF t_header-PSTYV = 'ZREN'.
    SELECT SINGLE VBELV
      INTO t_header-orgbil
      FROM vbfa
      WHERE vbeln = p_vbeln
      and VBTYP_V = 'M'.
  ENDIF.
  SELECT SINGLE t001l~lgobe
    INTO t_header-lgobe
    FROM t001l
    WHERE t001l~lgort = t_header-lgort.
  SELECT SINGLE kna1~name1 kna1~adrnr kna1~kunnr kna1~ktokd
    INTO (t_header-name1, t_header-adrnr, t_header-kunnr, t_header-ktokd)
  FROM  kna1 "ON vbrk~kunrg = kna1~kunnr
  WHERE kna1~kunnr = t_header-kunrg
    AND spras = 'AR'.
  IF t_header-name1 IS INITIAL.
    SELECT SINGLE kna1~name1 kna1~adrnr kna1~kunnr kna1~ktokd
      INTO (t_header-name1, t_header-adrnr, t_header-kunnr, t_header-ktokd)
    FROM  kna1 "ON vbrk~kunrg = kna1~kunnr
    WHERE kna1~kunnr = t_header-kunrg
      AND spras = 'EN'.
  ENDIF.
  IF t_header-ktokd = 'ZONE'.
    SELECT SINGLE belnr
      INTO v_belnr
    FROM bkpf
    WHERE xblnr = p_vbeln.
    SELECT SINGLE name1
    INTO t_header-name1
    FROM bsec
    WHERE belnr = v_belnr.
  ENDIF.
  SELECT SINGLE adrc~street
    INTO t_header-street
    FROM adrc
    WHERE addrnumber = t_header-adrnr
    AND langu = 'AR'.
  IF t_header-street IS INITIAL.
    SELECT SINGLE adrc~street
      INTO t_header-street
      FROM adrc
      WHERE addrnumber = t_header-adrnr
      AND langu = 'EN'.
  ENDIF.
  "get details data
  SELECT vbrp~matnr vbrp~posnr vbrp~vgpos vbrp~fkimg
         vbrk~knumv vbrp~matnr vbrp~vgbel vbrp~vgtyp"makt~maktx
  INTO CORRESPONDING FIELDS OF TABLE t_items1
  FROM vbrp "JOIN makt ON vbrp~matnr = makt~matnr
            JOIN vbrk ON vbrp~vbeln = vbrk~vbeln
            "join konv on vbrk~knumv = konv~knumv
  WHERE vbrp~vbeln = p_vbeln
    AND vbrp~fkimg NE '0.000'.
  "AND makt~spras = 'E'.
  break arasmy.
  LOOP AT t_items1.
    SELECT SINGLE lips~lgpbe
      INTO t_items1-lgpbe
      FROM lips
      WHERE vbeln = t_items1-vgbel
      AND posnr = t_items1-vgpos.
    SELECT SINGLE makt~maktx
    INTO  t_items1-maktx
    FROM  makt
    WHERE matnr = t_items1-matnr
    AND   makt~spras = 'EN'.
    SELECT SINGLE konv~kbetr konv~kwert konv~waers konv~kkurs
      INTO (t_items1-unitprice, t_items1-total, t_items1-waers,
      t_items1-kkurs)
    FROM konv
    WHERE konv~kschl = 'NETW'"'ZSPC'                               "'ZSP1'
    AND   konv~knumv = t_items1-knumv
    AND   kposn      = t_items1-posnr.
    t_items1-unitprice = ( t_items1-total / t_items1-fkimg ) * t_items1-kkurs.
    MODIFY t_items1.
    mnumvflag = t_items1-knumv."Number of the document condition
  ENDLOOP.
*get the deduction value for the document condiotion no
  SELECT konvkschl konvkwert
  INTO CORRESPONDING FIELDS OF TABLE t_spcialcnd
  FROM konv
  WHERE konv~kschl IN ('ZSSD', 'ZSCD', 'ZSDD', 'ZSPD', 'ZSWD', 'ZMW1', 'ZSGS', 'ZMW2')
  AND  konv~knumv = mnumvflag.
Get tax 10%
    SELECT konvkschl konvkwert
    APPENDING CORRESPONDING FIELDS OF TABLE t_tax
    FROM konv
    WHERE konv~kschl = 'MWST'
    AND  konv~knumv = mnumvflag.
  itab-invn  = t_header-vbeln.
  itab-orgbil  = t_header-orgbil.
  itab-cusna = t_header-name1.
  itab-addr  = t_header-street.
  itab-custn = t_header-kunrg.
  itab-sord  = t_header-aubel.
  itab-fkart = t_header-fkart.
  itab-lgort = t_header-lgort.
  itab-lgobe = t_header-lgobe.
  itab-PSTYV = t_header-PSTYV.
  currency   = t_header-waerk.
  LOOP AT t_items1.
    w_items-matn   = t_items1-matnr.
    w_items-matdes = t_items1-maktx.
    w_items-stloc  = t_items1-lgpbe."lgort.
    w_items-qunt   = t_items1-fkimg.
    w_items-total  = t_items1-total.
    totalforitems  = totalforitems + w_items-total.
    COLLECT w_items INTO t_items.
  endloop.
  LOOP AT t_items1.
    LOOP AT t_items WHERE matn = t_items1-matnr.
      t_items-prc = t_items1-unitprice.
      MODIFY t_items.
    ENDLOOP.
  ENDLOOP.
  LOOP AT t_items.
      coun = coun + 1.
      t_items-itmn = coun.
      MODIFY t_items.
  ENDLOOP.
    w_footer-totalforitems = totalforitems.
    LOOP  AT t_spcialcnd.
      CASE t_spcialcnd-kschl.
        WHEN 'ZSSD'.
          w_footer-spdisc    = w_footer-spdisc      + t_spcialcnd-kwert.
        WHEN 'ZSCD'.
          w_footer-comdisc   = w_footer-comdisc     + t_spcialcnd-kwert.
        WHEN 'ZSDD'.
          w_footer-DIFMAT    = w_footer-DIFMAT      + t_spcialcnd-kwert.
        when 'ZSPD'.
          w_footer-trgtdisc  = w_footer-trgtdisc    + t_spcialcnd-kwert.
        WHEN 'ZMW2'.
          w_footer-comindisc = w_footer-comindisc   + t_spcialcnd-kwert.
        WHEN 'ZSWD'.
          w_footer-cshdisc   = w_footer-cshdisc     + t_spcialcnd-kwert.
        WHEN 'ZSGS'.
          w_footer-stampsdisc = w_footer-stampsdisc + t_spcialcnd-kwert.
      ENDCASE.
      w_footer-ttldisc = w_footer-spdisc + w_footer-comdisc + w_footer-trgtdisc
                       + w_footer-cshdisc + w_footer-DIFMAT + w_footer-stampsdisc.
    ENDLOOP.
    w_footer-aftrdiscnts = w_footer-totalforitems + w_footer-ttldisc.
    LOOP AT t_tax WHERE kwert NE '0.00'.
      w_footer-saltax = w_footer-saltax + t_tax-kwert.
    ENDLOOP.
    w_footer-totalaftrtax = w_footer-aftrdiscnts + w_footer-saltax.
    w_footer-total = w_footer-totalaftrtax + w_footer-comindisc.
    lasttotal = w_footer-total.
  APPEND w_footer TO it_footer.
  SELECT tcurt~ltext
  INTO CORRESPONDING FIELDS OF TABLE t_curtxt
  FROM   tcurt
  WHERE tcurt~spras = 'AR'
  AND   tcurt~waers = currency.
  LOOP AT  t_curtxt.
    currtxet = t_curtxt-ltext.
  ENDLOOP.
  itab[] = t_header[].
  lasttotalc = lasttotal.
  SPLIT lasttotalc AT '.' INTO firstpart secondpart.
  lasttotal = firstpart / 100.
  CALL FUNCTION 'SPELL_AMOUNT'
    EXPORTING
      amount    = lasttotal
      currency  = ''"CURRENCY
      filler    = space
      language  = 'A'
    IMPORTING
      in_words  = amountspell
    EXCEPTIONS
      not_found = 1
      too_large = 2
      OTHERS    = 3.
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
--split amount--
BREAK radha.
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
  EXPORTING
    formname                 = 'Z_INVOICE_PARTS2'
VARIANT                  = ' '
DIRECT_CALL              = ' '
   IMPORTING
     fm_name                  = g_fm_name
   EXCEPTIONS
     no_form                  = 1
     no_function_module       = 2
     OTHERS                   = 3
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  DATA : control_parameters    TYPE  ssfctrlop,
         print_options         TYPE  ssfcompop.
  DATA : document_output_info  TYPE  ssfcrespd,
         job_output_info       TYPE  ssfcrescl,
         job_output_options    TYPE  ssfcresop.
  DATA : count TYPE i.
  control_parameters-langu = 'AR'.
  control_parameters-no_dialog = 'X'."Don't show Dialog
print_options-tdarmod = '1'.
print_options-tdcopies = '001'.
print_options-tddest = 'LP02'.
print_options-tdprinter = 'ZARSWIN'.
   print_options-tdimmed = 'X'.
print_options-tddelete = 'X'.
print_options-tdlifetime = '8'.
   print_options-tddest = 'LP03'."nast-ldest.
  "print_options-tddest = nast-ldest.
  "print_options-tdcopies = pv_copies.
print_options-tddelete = 'X'.
  print_options-tdfinal = 'X'.
print_options-tdnewid = 'X'.
WHILE count ne 1.
   IF job_output_info-outputdone ne 'X'.
     CALL FUNCTION g_fm_name
      EXPORTING
    ARCHIVE_INDEX             =
    ARCHIVE_INDEX_TAB         =
    ARCHIVE_PARAMETERS        =
       control_parameters       = control_parameters
    MAIL_APPL_OBJ             =
    MAIL_RECIPIENT            =
    MAIL_SENDER               =
        output_options          = print_options
        user_settings           = space
        header                  = itab
        amountspell             = amountspell
        currtxt                 = currtxet
        secondpart              = secondpart
     wa_footer                = w_footer
   IMPORTING
     DOCUMENT_OUTPUT_INFO       = document_output_info
     JOB_OUTPUT_INFO            = job_output_info
     JOB_OUTPUT_OPTIONS         = job_output_options
      TABLES
        it_items                = t_items
        it_footer               = it_footer
   EXCEPTIONS
     formatting_error           = 1
     internal_error             = 2
     send_error                 = 3
     user_canceled              = 4
     OTHERS                     = 5
    IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDFORM.                    "ENTRY

Answer 1

Hi,
lw_control_param-device = 'PRINTER'.
lw_control_param-getotf = c_x.
lw_control_param-no_dialog = c_x.
lw_composer_param-tdnoprev = c_x.
<b>*lw_composer_param-tddest = 'LONSC0P310'.</b>
<b>lw_composer_param-tddest = 'XXXX'.</b> <b>"Four digits</b>
<i>lw_composer_param-tdnewid = c_x.
lw_composer_param-tdfinal = c_x.</i> --> Not required
In place of 'XXXX', replace it by a 4 digit value. It would be available in transaction SPAD->Output Devices->Double click your output device. On the right hand side there would be a field Short Name. Replace 'XXXX' with that value.
Best regards,
Prashant