Adding Field to the output of the Report

Hello experts
I have a program like following, I would like to add a field (Customer purchase order from order header)vbkd-bstkd to the output, I tried to add some code(check the highlightened portion) but it doesnt work(no values) can anyone help in correcting the code so that i can execute directly,
Iam not full time ABAPer so could you please highlight the code you corrected(added),
Thanks
SP
Global structure of list
TYPE-POOLS: slis.
TABLES: likp,
        lips,
        vbfa,
        kssk,
        klah,
        ausp,
        cabn,
        vbak,
        mara,
        vbrk,
        ser01,
        vbpa,
        vbrp,
        nast,
        zseri,
        ltap,
        pa0001,
        kna1,
        objk,
        viqmel,
        viqmma.
TYPES:  BEGIN OF i_delivery,
             vbeln LIKE likp-vbeln,
             posnr  LIKE lips-posnr,
             kunnr LIKE likp-kunnr,
             kunag LIKE likp-kunag,
             vkorg  LIKE vbak-vkorg,
             matnr  LIKE lips-matnr,
             lfart  LIKE likp-lfart,
             arktx  LIKE vbap-arktx,
             vgbel  LIKE lips-vgbel,
             vgpos  LIKE lips-vgpos,
             pstyv   LIKE lips-pstyv,
             wadat TYPE likp-wadat_ist,
             lfdat TYPE likp-lfdat,
             prodh TYPE lips-prodh,
             lfimg TYPE lips-lfimg,
             vkbur TYPE lips-vkbur,
             werks TYPE lips-werks,
             vkgrp TYPE lips-vkgrp,
             mvgr1 TYPE lips-mvgr1,
             sernr LIKE equi-sernr,
             sernp LIKE equi-sernr,
             equnr LIKE equi-equnr,
             kttxt LIKE qpct-kurztext,
             fkimg LIKE vbrp-fkimg,
             bstnk  LIKE vbak-bstnk,
             vbelv  LIKE lips-vgbel,
             posnv  LIKE lips-posnv,
             uecha  LIKE lips-uecha,
             ernam  LIKE vbak-ernam,
             erdat LIKE vbak-erdat,
             serail LIKE lips-serail,
             anzsn LIKE lips-anzsn,
             auart LIKE vbak-auart ,
             netwr LIKE vbap-netwr,
             fstno LIKE vbpa-pernr,
             fstnm LIKE pa0001-ename,
             ename LIKE pa0001-ename,
             qname LIKE ltap-qname,
             name1 LIKE kna1-name1,
             name3 LIKE kna1-name2,
             pernr LIKE vbpa-pernr,
             aufnr LIKE viqmel-aufnr,
             qmnum LIKE viqmel-qmnum,
             mngrp LIKE viqmma-mngrp,
             qmcod LIKE viqmel-qmcod,
             qmcol LIKE viqmma-mncod,
             cotxt(20),
             invvalue LIKE vbrp-netwr,
             posnn LIKE vbfa-posnn,
             bstkd LIKE vbkd-bstkd,
         END OF i_delivery.
Global structure of list
*/ Selection and Input Parameters
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-003.
SELECT-OPTIONS: s_vkorg FOR likp-vkorg NO INTERVALS.
SELECT-OPTIONS: s_vbeln  FOR likp-vbeln,
                s_lfart  FOR likp-lfart,
                s_kunnr  FOR likp-kunnr,
                s_erdat  FOR likp-erdat,
                s_wadat  FOR likp-wadat_ist,
                s_werks  FOR lips-werks,
                s_matnr  FOR lips-matnr,
                s_prodh  FOR lips-prodh,
                s_qmnum FOR viqmel-qmnum.
SELECTION-SCREEN END OF BLOCK block2.
SELECTION-SCREEN BEGIN OF BLOCK block4 WITH FRAME TITLE text-002.
SELECT-OPTIONS:  s_vbelv FOR vbak-vbeln,
                 s_auart FOR vbak-auart.
SELECTION-SCREEN END OF BLOCK block4.
PARAMETERS: p_vari LIKE disvariant-variant.
RANGES: r_vbeln FOR likp-vbeln.
DATA:   gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA:   gt_outtab TYPE i_delivery OCCURS 0 WITH HEADER LINE,
        rt_outtab1 TYPE i_delivery OCCURS 0 WITH HEADER LINE,
        i_nast TYPE nast OCCURS 0 WITH HEADER LINE,
        gt_list_top_of_page TYPE slis_t_listheader,
        gt_events   TYPE slis_t_event,
        gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA:   g_repid LIKE sy-repid,
         g_count LIKE sy-tabix.
DATA: BEGIN OF i_serial OCCURS 0,
        obknr TYPE ser01-obknr,
        lief_nr TYPE ser01-lief_nr,
        posnr TYPE ser01-posnr,
        anzsn TYPE ser01-anzsn,
      END OF i_serial.
DATA: BEGIN OF i_object_numbers OCCURS 0,
        obknr TYPE objk-obknr,
        obzae TYPE objk-obzae,
        sernr TYPE objk-sernr,
        equnr TYPE objk-equnr,
        matnr TYPE objk-matnr,
        taser TYPE objk-taser,
      END OF i_object_numbers.
DATA:   g_save(1) TYPE c,
       g_default(1) TYPE c,
        g_exit(1) TYPE c,
        gx_variant LIKE disvariant,
        g_variant LIKE disvariant.
DATA:  g_mnkat LIKE viqmma-mnkat,
       g_mngrp LIKE viqmma-mngrp,
       g_atinn LIKE ausp-atinn.
DATA: gt_vbkd TYPE TABLE OF vbkd WITH HEADER LINE.
Initialization fieldcatalog
INITIALIZATION.
  g_repid = sy-repid.
  PERFORM fieldcat_init USING gt_fieldcat[].
  MOVE: 'I' TO  s_vkorg-sign,
        'EQ' TO  s_vkorg-option,
        '5090' TO s_vkorg-low.
  APPEND  s_vkorg.
  MOVE: 'I' TO  s_lfart-sign,
       'EQ' TO s_lfart-option,
       'LF' TO s_lfart-low.
  APPEND  s_lfart.
  g_save = 'A'.
  PERFORM variant_init.
Get default variant
  gx_variant = g_variant.
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING
            i_save     = g_save
       CHANGING
            cs_variant = gx_variant
       EXCEPTIONS
            not_found  = 2.
  IF sy-subrc = 0.
    p_vari = gx_variant-variant.
  ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
  PERFORM f4_for_variant.
AT SELECTION-SCREEN.
  PERFORM pai_of_selection_screen.
Start of Selection
START-OF-SELECTION.
  PERFORM e03_eventtab_build USING gt_events[].
  PERFORM select_data TABLES gt_outtab.
Display list
END-OF-SELECTION.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_background_id         = 'ALV_BACKGROUND'
            i_callback_user_command = 'USER_COMMAND'
            is_variant              = g_variant
            i_save                  = g_save
            i_callback_program      = g_repid
            it_fieldcat             = gt_fieldcat[]
       TABLES
            t_outtab                = gt_outtab.
   Forms
Initialization fieldcatalog
FORM fieldcat_init
      USING rt_fieldcat TYPE slis_t_fieldcat_alv.
  DATA: ls_fieldcat TYPE slis_fieldcat_alv.
  DATA: pos TYPE i VALUE 1.
  CLEAR ls_fieldcat.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'VBELN'.
  ls_fieldcat-seltext_s     = 'Delivery'.
  ls_fieldcat-seltext_m     = 'Delivery'.
  ls_fieldcat-key           = 'X'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'BSTKD'.
  ls_fieldcat-seltext_s     = 'PO Number'.
  ls_fieldcat-seltext_m     = 'PO Number'.
  ls_fieldcat-key           = 'X'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'POSNR'.
  ls_fieldcat-key           = 'X'.
  ls_fieldcat-seltext_s     = 'Item'.
  ls_fieldcat-seltext_m     = 'Item'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'LFART'.
  ls_fieldcat-seltext_s     = 'Del Type'.
  ls_fieldcat-seltext_m     = 'Delivery Type'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'VGBEL'.
  ls_fieldcat-seltext_s     = 'Source Doc'.
  ls_fieldcat-seltext_m     = 'Source Doc'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'AUART'.
  ls_fieldcat-seltext_s     = 'Type'.
  ls_fieldcat-seltext_m     = 'Type'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'KUNNR'.
  ls_fieldcat-seltext_s     = 'Customer'.
  ls_fieldcat-seltext_m     = 'Customer'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'NAME1'.
  ls_fieldcat-seltext_s     = 'Name'.
  ls_fieldcat-seltext_m     = 'Name1'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'WERKS'.
  ls_fieldcat-seltext_s     = 'Plant'.
  ls_fieldcat-seltext_m     = 'Plant'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'MATNR'.
  ls_fieldcat-seltext_s     = 'Material'.
  ls_fieldcat-seltext_m     = 'Material'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'MVGR1'.
  ls_fieldcat-seltext_s     = 'Speciality'.
  ls_fieldcat-seltext_m     = 'Speciality'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'PRODH'.
  ls_fieldcat-seltext_s     = 'Hierarchy'.
  ls_fieldcat-seltext_m     = 'Prod Hierarchy'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'ARKTX'.
  ls_fieldcat-seltext_s     = 'Description'.
  ls_fieldcat-seltext_m     = 'Description'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'ERNAM'.
  ls_fieldcat-seltext_s     = 'Created By'.
  ls_fieldcat-seltext_m     = 'Created By'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'ERDAT'.
  ls_fieldcat-seltext_s     = 'Created On'.
  ls_fieldcat-seltext_m     = 'Created On'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'WADAT_IST'.
  ls_fieldcat-seltext_s     = 'GoodsMvt.Date'.
  ls_fieldcat-seltext_m     = 'Goods Mvt Date'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'SERNR'.
  ls_fieldcat-seltext_s     = 'Serial Shipped'.
  ls_fieldcat-seltext_m     = 'Serial Shipped'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'SERNP'.
  ls_fieldcat-seltext_s     = 'Old Serial'.
  ls_fieldcat-seltext_m     = 'Old Serial'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'VBELV'.
  ls_fieldcat-seltext_s     = 'Invoice'.
  ls_fieldcat-seltext_m     = 'Invoice'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'INVVALUE'.
  ls_fieldcat-seltext_s     = 'Invoice Amt'.
  ls_fieldcat-seltext_m     = 'Invoice Value'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'QMNUM'.
  ls_fieldcat-seltext_s     = 'Notification'.
  ls_fieldcat-seltext_m     = 'Notification'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'QMCOD'.
  ls_fieldcat-seltext_s     = 'Rep LevKST'.
  ls_fieldcat-seltext_m     = 'Repair Level KST'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'COTXT'.
  ls_fieldcat-seltext_s     = 'CdTXT KST'.
  ls_fieldcat-seltext_m     = 'Repair Level Text KST'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'QMCOL'.
  ls_fieldcat-seltext_s     = 'Rep LevKSE'.
  ls_fieldcat-seltext_m     = 'Repair Level KSE'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'KTTXT'.
  ls_fieldcat-seltext_s     = 'CdTXT KSE'.
  ls_fieldcat-seltext_m     = 'Repair Level Text KSE'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
ENDFORM.   "fieldcat_init
Data selection
FORM select_data TABLES rt_outtab LIKE gt_outtab[].
  CLEAR: r_vbeln[].
Read all Invoices for the Selection
  SELECT DISTINCT h~vbeln  h~kunnr h~kunag
                 d~posnr  d~matnr d~anzsn
                 d~serail d~vgbel d~vgpos
                 d~posnv  d~lfimg d~arktx
                 d~uecha  h~lfart h~erdat
                 h~ernam  h~lfdat d~prodh
                 h~vkorg  d~vkbur d~vkgrp
                 d~mvgr1  h~wadat_ist d~pstyv
                 d~werks
         INTO (rt_outtab-vbeln, rt_outtab-kunnr,
                rt_outtab-kunag, rt_outtab-posnr,
                rt_outtab-matnr, rt_outtab-anzsn,
                rt_outtab-serail, rt_outtab-vgbel,
                rt_outtab-vgpos,  rt_outtab-posnv,
                rt_outtab-lfimg,  rt_outtab-arktx,
                rt_outtab-uecha, rt_outtab-lfart,
                rt_outtab-erdat, rt_outtab-ernam,
                rt_outtab-lfdat, rt_outtab-prodh,
                rt_outtab-vkorg, rt_outtab-vkbur,
                rt_outtab-vkgrp, rt_outtab-mvgr1,
                rt_outtab-wadat, rt_outtab-pstyv,
                rt_outtab-werks)
        FROM likp AS h INNER JOIN lips AS d
                 ON h~vbeln = d~vbeln
                WHERE h~vbeln IN s_vbeln
                AND  h~vkorg IN s_vkorg
                AND  h~lfart IN s_lfart
                 AND  h~kunnr IN s_kunnr
                 AND  h~wadat IN s_wadat
                 AND  d~matnr IN s_matnr
                 AND  d~werks IN s_werks
                 AND  d~prodh IN s_prodh
                 AND  d~vgbel IN s_vbelv
                 AND  d~matnr LIKE 'S%'.
    SELECT SINGLE * FROM vbak WHERE vbeln = rt_outtab-vgbel.
    IF: sy-subrc EQ 0.
      MOVE vbak-vbeln TO rt_outtab-vgbel.
      MOVE vbak-auart TO rt_outtab-auart.
    ENDIF.
    SELECT SINGLE * FROM mara WHERE matnr = rt_outtab-matnr
                                AND  mtart EQ 'FERT'.
    CHECK sy-subrc EQ 0.
    IF NOT rt_outtab-posnv IS INITIAL.
      rt_outtab-vgpos = rt_outtab-posnv.
    ENDIF.
    CLEAR: vbfa.
    SELECT SINGLE vbeln posnn rfwrt INTO
    (rt_outtab-vbelv,  rt_outtab-posnn, rt_outtab-netwr)
    FROM vbfa  WHERE vbelv EQ rt_outtab-vbeln
                              AND   posnv EQ rt_outtab-posnr
                              AND   vbtyp_n EQ 'M'.
    CLEAR : rt_outtab-invvalue.
    SELECT SINGLE * FROM vbrp WHERE vbeln = rt_outtab-vbelv
      AND posnr = rt_outtab-posnn.
    rt_outtab-fkimg = vbrp-fkimg.
    IF rt_outtab-fkimg NE 0.
      rt_outtab-invvalue = rt_outtab-netwr / rt_outtab-fkimg.
    ENDIF.
    APPEND rt_outtab.
    IF NOT  r_vbeln-low IS INITIAL.
      IF r_vbeln-low GT rt_outtab-vbeln.
        r_vbeln-low =  rt_outtab-vbeln.
      ENDIF.
      IF r_vbeln-high LT rt_outtab-vbeln.
        r_vbeln-high =  rt_outtab-vbeln.
      ENDIF.
    ELSE.
      r_vbeln-low  =  rt_outtab-vbeln.
      r_vbeln-high =  rt_outtab-vbeln.
    ENDIF.
    CLEAR: rt_outtab.
  ENDSELECT.
IF NOT rt_outtab[] IS INITIAL.
   SELECT vbeln posnr bstkd INTO CORRESPONDING FIELDS OF TABLE gt_vbkd
   FROM vbkd
     FOR ALL ENTRIES IN rt_outtab
     WHERE vbeln = rt_outtab-vgbel
     AND posnr = rt_outtab-vgpos.
   IF NOT gt_vbkd[] IS INITIAL.
     SORT gt_vbkd BY vbeln posnr.
     LOOP AT rt_outtab.
       READ TABLE gt_vbkd WITH KEY vbeln = rt_outtab-vgbel
       posnr = rt_outtab-vgpos
       BINARY SEARCH.
       IF sy-subrc = 0.
         rt_outtab-bstkd = gt_vbkd-bstkd.
         MODIFY rt_outtab.
       ENDIF.
     ENDLOOP.
   ENDIF.
ENDIF.
*select bstkd INTO CORRESPONDING FIELDS OF TABLE gt_vbkd
   from vbkd   where vbeln = gt_outtab-vbeln
              and posnr = '000000'.
             rt_outtab-bstkd = vbkd-bstkd .
   <i><b> select single bstkd into gt_vbkd
    from vbkd  where vbeln = rt_outtab-vbeln
               and posnr = '000000'.
               rt_outtab-bstkd = gt_vbkd-bstkd.
              APPEND rt_outtab .</b></i>
  IF NOT r_vbeln IS INITIAL.
    MOVE: 'I' TO  r_vbeln-sign,
           'BT' TO  r_vbeln-option.
    APPEND r_vbeln.
    SELECT * INTO CORRESPONDING FIELDS OF TABLE i_serial
                              FROM   ser01 WHERE lief_nr IN r_vbeln.
  ENDIF.
  SORT i_serial.
  IF NOT i_serial[] IS INITIAL.
    SELECT * INTO CORRESPONDING FIELDS OF TABLE i_object_numbers
                               FROM   objk
                               FOR ALL ENTRIES IN i_serial
                               WHERE obknr EQ i_serial-obknr
                               AND  taser EQ 'SER01'.
  ENDIF.
  SORT i_object_numbers BY  obknr obzae.
  LOOP AT rt_outtab.
    CLEAR: rt_outtab-name1, rt_outtab-sernr, rt_outtab-lfimg,
     rt_outtab-sernp, rt_outtab-kttxt.
Read the Sold To Name
    SELECT SINGLE name1 INTO rt_outtab-name1
                      FROM kna1 WHERE kunnr EQ rt_outtab-kunnr.
Read Ship-to Customer
    CLEAR: objk.
    IF NOT rt_outtab-serail IS INITIAL.
      READ TABLE i_serial WITH KEY lief_nr = rt_outtab-vbeln
                                    posnr = rt_outtab-posnr.
      IF sy-subrc EQ 0.
        DO i_serial-anzsn TIMES.
          CLEAR: rt_outtab-sernr, rt_outtab-sernp.
          READ TABLE i_object_numbers  WITH KEY obknr = i_serial-obknr
                                                matnr = rt_outtab-matnr
                                            BINARY SEARCH.
          IF sy-subrc EQ 0.
            rt_outtab-sernr = i_object_numbers-sernr.
            DELETE i_object_numbers INDEX sy-tabix.
            MOVE '1'   TO rt_outtab-lfimg.
            CLEAR: rt_outtab-aufnr, rt_outtab-qmnum,
                     rt_outtab-equnr, rt_outtab-qmcod, g_mngrp, g_mnkat.
            SELECT SINGLE aufnr qmnum equnr qmcod qmgrp qmkat
                                 INTO (rt_outtab-aufnr, rt_outtab-qmnum,
                    rt_outtab-equnr, rt_outtab-qmcod, g_mngrp, g_mnkat)
                             FROM viqmel  WHERE matnr = rt_outtab-matnr
                                    AND serialnr = rt_outtab-sernr
                                    AND qmart  EQ 'S4'
                                    AND qmnum IN s_qmnum.
            CLEAR: rt_outtab-cotxt.
            SELECT SINGLE kurztext INTO rt_outtab-cotxt
                                  FROM qpct WHERE katalogart EQ g_mnkat
                                     AND codegruppe EQ  g_mngrp
                                     AND code EQ rt_outtab-qmcod
                                     AND sprache EQ sy-langu.
Read Serial Number from Name Plate Data.
            CLEAR: klah, kssk, ausp, cabn, g_atinn.
            SELECT SINGLE atinn INTO (g_atinn) FROM cabn
                                WHERE atnam = 'SBANK_SERIAL_NUMBER'.
            SELECT SINGLE  atwrt
                  INTO  (rt_outtab-sernp)
                  FROM  ( klah AS a INNER JOIN kssk AS k
                           ON aclint = kclint )
                      JOIN ausp AS p
                            ON kobjek = pobjek
                            AND p~atinn = g_atinn
                            AND pklart = aklart
                  WHERE a~klart = '002'
                   AND  a~class = 'KSE_SN_ENDOSCOPES'
                    AND  k~objek = rt_outtab-equnr.
*KSE Repair level (activity code text from KSE-SM07 code group)
            CLEAR: rt_outtab-qmcol, g_mngrp, g_mnkat.
            CLEAR: rt_outtab-qmcol.
            CLEAR:   g_mnkat, g_mngrp.
            SELECT SINGLE mnkat mngrp mncod INTO
                                (g_mnkat, g_mngrp, rt_outtab-qmcol)
                          FROM viqmma WHERE qmnum = rt_outtab-qmnum
                                AND  mngrp EQ 'KSE-SM07'
                                AND kzloesch EQ space.
            CLEAR: rt_outtab-kttxt.
            SELECT SINGLE kurztext INTO rt_outtab-kttxt
                         FROM qpct WHERE katalogart EQ g_mnkat
                                AND codegruppe EQ  g_mngrp
                                AND code EQ rt_outtab-qmcol
                                AND sprache EQ sy-langu.
            rt_outtab1 = rt_outtab.
            APPEND rt_outtab1.
          ENDIF.
        ENDDO.
      ENDIF.
    ENDIF.
  ENDLOOP.
  CLEAR: rt_outtab[].
  rt_outtab[] = rt_outtab1[].
  SORT rt_outtab BY vbeln posnr.
ENDFORM.
      FORM get_repname                                              *
-->  P_VBELN                                                       *
-->  P_POSNR                                                       *
-->  P_PERNR                                                       *
-->  P_ENAME                                                       *
FORM get_repname USING  p_vbeln
                          p_posnr
                 CHANGING  p_pernr
                          p_ename. "
  DATA: i_vbpa LIKE vbpa OCCURS 0 WITH HEADER LINE.
  CLEAR: i_vbpa[].
  CALL FUNCTION 'Z_DETERMINE_ACTIVE_SALES_REP'
       EXPORTING
            g_salesdocument = p_vbeln
            g_sales_item    = p_posnr
       TABLES
            st_vbpa         = i_vbpa.
  READ TABLE i_vbpa INDEX 1.
  IF sy-subrc = 0.
    p_pernr = i_vbpa-pernr.
    SELECT SINGLE ename INTO p_ename
      FROM pa0001
     WHERE pernr = i_vbpa-pernr.
  ENDIF.
ENDFORM.                    " get_repname
      FORM E03_EVENTTAB_BUILD                                       *
-->  E03_LT_EVENTS                                                 *
FORM e03_eventtab_build USING e03_lt_events TYPE slis_t_event.
  DATA: ls_event TYPE slis_alv_event.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            i_list_type = 0
       IMPORTING
            et_events   = e03_lt_events.
  READ TABLE e03_lt_events WITH KEY name =  slis_ev_top_of_page
                           INTO ls_event.
  IF sy-subrc = 0.
    MOVE gc_formname_top_of_page TO ls_event-form.
    APPEND ls_event TO e03_lt_events.
  ENDIF.
ENDFORM.
      FORM TOP_OF_PAGE                                              *
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            it_list_commentary = gt_list_top_of_page.
ENDFORM.
*&      Form  USER_COMMAND
FORM user_command  USING r_ucomm LIKE sy-ucomm
                         rs_selfield TYPE slis_selfield.
  CASE r_ucomm.
    WHEN '&IC1'.
      PERFORM display_delivery USING r_ucomm
                                    rs_selfield.
  ENDCASE.
ENDFORM.
*&      Form  display_delivery
FORM display_delivery
USING r_ucomm LIKE sy-ucomm
                             rs_selfield TYPE slis_selfield.
  CASE rs_selfield-sel_tab_field.
    WHEN '1-VBELN'.
      SET PARAMETER ID 'VL' FIELD rs_selfield-value.
      CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
    WHEN '1-VBELV'.
      SET PARAMETER ID 'VF' FIELD rs_selfield-value.
      CALL TRANSACTION 'VF03N' AND SKIP FIRST SCREEN.
  ENDCASE.
ENDFORM.
*&      Form  VARIANT_INIT
      text
-->  p1        text
<--  p2        text
FORM variant_init.
  CLEAR g_variant.
  g_variant-report = g_repid.
ENDFORM.                               " VARIANT_INIT
*&      Form  F4_FOR_VARIANT
      text
-->  p1        text
<--  p2        text
FORM f4_for_variant.
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
       EXPORTING
            is_variant          = g_variant
            i_save              = g_save
          it_default_fieldcat =
       IMPORTING
            e_exit              = g_exit
            es_variant          = gx_variant
       EXCEPTIONS
            not_found = 2.
  IF sy-subrc = 2.
    MESSAGE ID sy-msgid TYPE 'S'      NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    IF g_exit = space.
      p_vari = gx_variant-variant.
    ENDIF.
  ENDIF.
ENDFORM.
*&      Form  PAI_OF_SELECTION_SCREEN
      text
FORM pai_of_selection_screen.
  IF NOT p_vari IS INITIAL.
    MOVE g_variant TO gx_variant.
    MOVE p_vari TO gx_variant-variant.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
         EXPORTING
              i_save     = g_save
         CHANGING
              cs_variant = gx_variant.
    g_variant = gx_variant.
  ELSE.
    PERFORM variant_init.
  ENDIF.
ENDFORM.

naren this is the program
Global structure of list
TYPE-POOLS: slis.
TABLES: likp,
        lips,
        vbfa,
        kssk,
        klah,
        ausp,
        cabn,
        vbak,
        mara,
        vbrk,
        ser01,
        vbpa,
        vbrp,
        nast,
        zseri,
        ltap,
        pa0001,
        kna1,
        objk,
        viqmel,
        viqmma.
TYPES:  BEGIN OF i_delivery,
             vbeln LIKE likp-vbeln,
             posnr  LIKE lips-posnr,
             kunnr LIKE likp-kunnr,
             kunag LIKE likp-kunag,
             vkorg  LIKE vbak-vkorg,
             matnr  LIKE lips-matnr,
             lfart  LIKE likp-lfart,
             arktx  LIKE vbap-arktx,
             vgbel  LIKE lips-vgbel,
             vgpos  LIKE lips-vgpos,
             pstyv   LIKE lips-pstyv,
             wadat TYPE likp-wadat_ist,
             lfdat TYPE likp-lfdat,
             prodh TYPE lips-prodh,
             lfimg TYPE lips-lfimg,
             vkbur TYPE lips-vkbur,
             werks TYPE lips-werks,
             vkgrp TYPE lips-vkgrp,
             mvgr1 TYPE lips-mvgr1,
             sernr LIKE equi-sernr,
             sernp LIKE equi-sernr,
             equnr LIKE equi-equnr,
             kttxt LIKE qpct-kurztext,
             fkimg LIKE vbrp-fkimg,
             bstnk  LIKE vbak-bstnk,
             vbelv  LIKE lips-vgbel,
             posnv  LIKE lips-posnv,
             uecha  LIKE lips-uecha,
             ernam  LIKE vbak-ernam,
             erdat LIKE vbak-erdat,
             serail LIKE lips-serail,
             anzsn LIKE lips-anzsn,
             auart LIKE vbak-auart ,
             netwr LIKE vbap-netwr,
             fstno LIKE vbpa-pernr,
             fstnm LIKE pa0001-ename,
             ename LIKE pa0001-ename,
             qname LIKE ltap-qname,
             name1 LIKE kna1-name1,
             name3 LIKE kna1-name2,
             pernr LIKE vbpa-pernr,
             aufnr LIKE viqmel-aufnr,
             qmnum LIKE viqmel-qmnum,
             mngrp LIKE viqmma-mngrp,
             qmcod LIKE viqmel-qmcod,
             qmcol LIKE viqmma-mncod,
             cotxt(20),
             invvalue LIKE vbrp-netwr,
             posnn LIKE vbfa-posnn,
             bstkd LIKE vbkd-bstkd,
         END OF i_delivery.
Global structure of list
*/ Selection and Input Parameters
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-003.
SELECT-OPTIONS: s_vkorg FOR likp-vkorg NO INTERVALS.
SELECT-OPTIONS: s_vbeln  FOR likp-vbeln,
                s_lfart  FOR likp-lfart,
                s_kunnr  FOR likp-kunnr,
                s_erdat  FOR likp-erdat,
                s_wadat  FOR likp-wadat_ist,
                s_werks  FOR lips-werks,
                s_matnr  FOR lips-matnr,
                s_prodh  FOR lips-prodh,
                s_qmnum FOR viqmel-qmnum.
SELECTION-SCREEN END OF BLOCK block2.
SELECTION-SCREEN BEGIN OF BLOCK block4 WITH FRAME TITLE text-002.
SELECT-OPTIONS:  s_vbelv FOR vbak-vbeln,
                 s_auart FOR vbak-auart.
SELECTION-SCREEN END OF BLOCK block4.
PARAMETERS: p_vari LIKE disvariant-variant.
RANGES: r_vbeln FOR likp-vbeln.
DATA:   gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA:   gt_outtab TYPE i_delivery OCCURS 0 WITH HEADER LINE,
        rt_outtab1 TYPE i_delivery OCCURS 0 WITH HEADER LINE,
        i_nast TYPE nast OCCURS 0 WITH HEADER LINE,
        gt_list_top_of_page TYPE slis_t_listheader,
        gt_events   TYPE slis_t_event,
        gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA:   g_repid LIKE sy-repid,
         g_count LIKE sy-tabix.
DATA: BEGIN OF i_serial OCCURS 0,
        obknr TYPE ser01-obknr,
        lief_nr TYPE ser01-lief_nr,
        posnr TYPE ser01-posnr,
        anzsn TYPE ser01-anzsn,
      END OF i_serial.
DATA: BEGIN OF i_object_numbers OCCURS 0,
        obknr TYPE objk-obknr,
        obzae TYPE objk-obzae,
        sernr TYPE objk-sernr,
        equnr TYPE objk-equnr,
        matnr TYPE objk-matnr,
        taser TYPE objk-taser,
      END OF i_object_numbers.
DATA:   g_save(1) TYPE c,
       g_default(1) TYPE c,
        g_exit(1) TYPE c,
        gx_variant LIKE disvariant,
        g_variant LIKE disvariant.
DATA:  g_mnkat LIKE viqmma-mnkat,
       g_mngrp LIKE viqmma-mngrp,
       g_atinn LIKE ausp-atinn.
DATA: gt_vbkd TYPE TABLE OF vbkd WITH HEADER LINE.
Initialization fieldcatalog
INITIALIZATION.
  g_repid = sy-repid.
  PERFORM fieldcat_init USING gt_fieldcat[].
  MOVE: 'I' TO  s_vkorg-sign,
        'EQ' TO  s_vkorg-option,
        '5090' TO s_vkorg-low.
  APPEND  s_vkorg.
  MOVE: 'I' TO  s_lfart-sign,
       'EQ' TO s_lfart-option,
       'LF' TO s_lfart-low.
  APPEND  s_lfart.
  g_save = 'A'.
  PERFORM variant_init.
Get default variant
  gx_variant = g_variant.
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING
            i_save     = g_save
       CHANGING
            cs_variant = gx_variant
       EXCEPTIONS
            not_found  = 2.
  IF sy-subrc = 0.
    p_vari = gx_variant-variant.
  ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
  PERFORM f4_for_variant.
AT SELECTION-SCREEN.
  PERFORM pai_of_selection_screen.
Start of Selection
START-OF-SELECTION.
  PERFORM e03_eventtab_build USING gt_events[].
  PERFORM select_data TABLES gt_outtab.
Display list
END-OF-SELECTION.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_background_id         = 'ALV_BACKGROUND'
            i_callback_user_command = 'USER_COMMAND'
            is_variant              = g_variant
            i_save                  = g_save
            i_callback_program      = g_repid
            it_fieldcat             = gt_fieldcat[]
       TABLES
            t_outtab                = gt_outtab.
   Forms
Initialization fieldcatalog
FORM fieldcat_init
      USING rt_fieldcat TYPE slis_t_fieldcat_alv.
  DATA: ls_fieldcat TYPE slis_fieldcat_alv.
  DATA: pos TYPE i VALUE 1.
  CLEAR ls_fieldcat.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'VBELN'.
  ls_fieldcat-seltext_s     = 'Delivery'.
  ls_fieldcat-seltext_m     = 'Delivery'.
  ls_fieldcat-key           = 'X'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'BSTKD'.
  ls_fieldcat-seltext_s     = 'PO Number'.
  ls_fieldcat-seltext_m     = 'PO Number'.
  ls_fieldcat-key           = 'X'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'POSNR'.
  ls_fieldcat-key           = 'X'.
  ls_fieldcat-seltext_s     = 'Item'.
  ls_fieldcat-seltext_m     = 'Item'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'LFART'.
  ls_fieldcat-seltext_s     = 'Del Type'.
  ls_fieldcat-seltext_m     = 'Delivery Type'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'VGBEL'.
  ls_fieldcat-seltext_s     = 'Source Doc'.
  ls_fieldcat-seltext_m     = 'Source Doc'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'AUART'.
  ls_fieldcat-seltext_s     = 'Type'.
  ls_fieldcat-seltext_m     = 'Type'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'KUNNR'.
  ls_fieldcat-seltext_s     = 'Customer'.
  ls_fieldcat-seltext_m     = 'Customer'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'NAME1'.
  ls_fieldcat-seltext_s     = 'Name'.
  ls_fieldcat-seltext_m     = 'Name1'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'WERKS'.
  ls_fieldcat-seltext_s     = 'Plant'.
  ls_fieldcat-seltext_m     = 'Plant'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'MATNR'.
  ls_fieldcat-seltext_s     = 'Material'.
  ls_fieldcat-seltext_m     = 'Material'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'MVGR1'.
  ls_fieldcat-seltext_s     = 'Speciality'.
  ls_fieldcat-seltext_m     = 'Speciality'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'PRODH'.
  ls_fieldcat-seltext_s     = 'Hierarchy'.
  ls_fieldcat-seltext_m     = 'Prod Hierarchy'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'ARKTX'.
  ls_fieldcat-seltext_s     = 'Description'.
  ls_fieldcat-seltext_m     = 'Description'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'ERNAM'.
  ls_fieldcat-seltext_s     = 'Created By'.
  ls_fieldcat-seltext_m     = 'Created By'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'ERDAT'.
  ls_fieldcat-seltext_s     = 'Created On'.
  ls_fieldcat-seltext_m     = 'Created On'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'WADAT_IST'.
  ls_fieldcat-seltext_s     = 'GoodsMvt.Date'.
  ls_fieldcat-seltext_m     = 'Goods Mvt Date'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'SERNR'.
  ls_fieldcat-seltext_s     = 'Serial Shipped'.
  ls_fieldcat-seltext_m     = 'Serial Shipped'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'SERNP'.
  ls_fieldcat-seltext_s     = 'Old Serial'.
  ls_fieldcat-seltext_m     = 'Old Serial'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'VBELV'.
  ls_fieldcat-seltext_s     = 'Invoice'.
  ls_fieldcat-seltext_m     = 'Invoice'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'INVVALUE'.
  ls_fieldcat-seltext_s     = 'Invoice Amt'.
  ls_fieldcat-seltext_m     = 'Invoice Value'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'QMNUM'.
  ls_fieldcat-seltext_s     = 'Notification'.
  ls_fieldcat-seltext_m     = 'Notification'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'QMCOD'.
  ls_fieldcat-seltext_s     = 'Rep LevKST'.
  ls_fieldcat-seltext_m     = 'Repair Level KST'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'COTXT'.
  ls_fieldcat-seltext_s     = 'CdTXT KST'.
  ls_fieldcat-seltext_m     = 'Repair Level Text KST'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'QMCOL'.
  ls_fieldcat-seltext_s     = 'Rep LevKSE'.
  ls_fieldcat-seltext_m     = 'Repair Level KSE'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
  pos = pos + 1.
  ls_fieldcat-col_pos       =  pos.
  ls_fieldcat-fieldname     = 'KTTXT'.
  ls_fieldcat-seltext_s     = 'CdTXT KSE'.
  ls_fieldcat-seltext_m     = 'Repair Level Text KSE'.
  APPEND ls_fieldcat TO rt_fieldcat.
  CLEAR ls_fieldcat.
ENDFORM.   "fieldcat_init
Data selection
FORM select_data TABLES rt_outtab LIKE gt_outtab[].
  CLEAR: r_vbeln[].
Read all Invoices for the Selection
  SELECT DISTINCT h~vbeln  h~kunnr h~kunag
                 d~posnr  d~matnr d~anzsn
                 d~serail d~vgbel d~vgpos
                 d~posnv  d~lfimg d~arktx
                 d~uecha  h~lfart h~erdat
                 h~ernam  h~lfdat d~prodh
                 h~vkorg  d~vkbur d~vkgrp
                 d~mvgr1  h~wadat_ist d~pstyv
                 d~werks
         INTO (rt_outtab-vbeln, rt_outtab-kunnr,
                rt_outtab-kunag, rt_outtab-posnr,
                rt_outtab-matnr, rt_outtab-anzsn,
                rt_outtab-serail, rt_outtab-vgbel,
                rt_outtab-vgpos,  rt_outtab-posnv,
                rt_outtab-lfimg,  rt_outtab-arktx,
                rt_outtab-uecha, rt_outtab-lfart,
                rt_outtab-erdat, rt_outtab-ernam,
                rt_outtab-lfdat, rt_outtab-prodh,
                rt_outtab-vkorg, rt_outtab-vkbur,
                rt_outtab-vkgrp, rt_outtab-mvgr1,
                rt_outtab-wadat, rt_outtab-pstyv,
                rt_outtab-werks)
        FROM likp AS h INNER JOIN lips AS d
                 ON h~vbeln = d~vbeln
                WHERE h~vbeln IN s_vbeln
                AND  h~vkorg IN s_vkorg
                AND  h~lfart IN s_lfart
                 AND  h~kunnr IN s_kunnr
                 AND  h~wadat IN s_wadat
                 AND  d~matnr IN s_matnr
                 AND  d~werks IN s_werks
                 AND  d~prodh IN s_prodh
                 AND  d~vgbel IN s_vbelv
                 AND  d~matnr LIKE 'S%'.
    SELECT SINGLE * FROM vbak WHERE vbeln = rt_outtab-vgbel.
    IF: sy-subrc EQ 0.
      MOVE vbak-vbeln TO rt_outtab-vgbel.
      MOVE vbak-auart TO rt_outtab-auart.
    ENDIF.
    SELECT SINGLE * FROM mara WHERE matnr = rt_outtab-matnr
                                AND  mtart EQ 'FERT'.
    CHECK sy-subrc EQ 0.
    IF NOT rt_outtab-posnv IS INITIAL.
      rt_outtab-vgpos = rt_outtab-posnv.
    ENDIF.
    CLEAR: vbfa.
    SELECT SINGLE vbeln posnn rfwrt INTO
    (rt_outtab-vbelv,  rt_outtab-posnn, rt_outtab-netwr)
    FROM vbfa  WHERE vbelv EQ rt_outtab-vbeln
                              AND   posnv EQ rt_outtab-posnr
                              AND   vbtyp_n EQ 'M'.
    CLEAR : rt_outtab-invvalue.
    SELECT SINGLE * FROM vbrp WHERE vbeln = rt_outtab-vbelv
      AND posnr = rt_outtab-posnn.
    rt_outtab-fkimg = vbrp-fkimg.
    IF rt_outtab-fkimg NE 0.
      rt_outtab-invvalue = rt_outtab-netwr / rt_outtab-fkimg.
    ENDIF.
    APPEND rt_outtab.
    IF NOT  r_vbeln-low IS INITIAL.
      IF r_vbeln-low GT rt_outtab-vbeln.
        r_vbeln-low =  rt_outtab-vbeln.
      ENDIF.
      IF r_vbeln-high LT rt_outtab-vbeln.
        r_vbeln-high =  rt_outtab-vbeln.
      ENDIF.
    ELSE.
      r_vbeln-low  =  rt_outtab-vbeln.
      r_vbeln-high =  rt_outtab-vbeln.
    ENDIF.
    CLEAR: rt_outtab.
  ENDSELECT.
IF NOT rt_outtab[] IS INITIAL.
   SELECT vbeln posnr bstkd INTO CORRESPONDING FIELDS OF TABLE gt_vbkd
   FROM vbkd
     FOR ALL ENTRIES IN rt_outtab
     WHERE vbeln = rt_outtab-vgbel
     AND posnr = rt_outtab-vgpos.
   IF NOT gt_vbkd[] IS INITIAL.
     SORT gt_vbkd BY vbeln posnr.
     LOOP AT rt_outtab.
       READ TABLE gt_vbkd WITH KEY vbeln = rt_outtab-vgbel
       posnr = rt_outtab-vgpos
       BINARY SEARCH.
       IF sy-subrc = 0.
         rt_outtab-bstkd = gt_vbkd-bstkd.
         MODIFY rt_outtab.
       ENDIF.
     ENDLOOP.
   ENDIF.
ENDIF.
*select bstkd INTO CORRESPONDING FIELDS OF TABLE gt_vbkd
   from vbkd   where vbeln = gt_outtab-vbeln
              and posnr = '000000'.
             rt_outtab-bstkd = vbkd-bstkd .
  SELECT single bstkd INTO CORRESPONDING FIELDS OF gt_vbkd
  FROM vbkd WHERE vbeln = gt_vbkd-vbeln
  AND posnr = '000000'.
  rt_outtab-bstkd = gt_vbkd-bstkd.
  APPEND rt_outtab.
  IF NOT r_vbeln IS INITIAL.
    MOVE: 'I' TO  r_vbeln-sign,
           'BT' TO  r_vbeln-option.
    APPEND r_vbeln.
    SELECT * INTO CORRESPONDING FIELDS OF TABLE i_serial
                              FROM   ser01 WHERE lief_nr IN r_vbeln.
  ENDIF.
  SORT i_serial.
  IF NOT i_serial[] IS INITIAL.
    SELECT * INTO CORRESPONDING FIELDS OF TABLE i_object_numbers
                               FROM   objk
                               FOR ALL ENTRIES IN i_serial
                               WHERE obknr EQ i_serial-obknr
                               AND  taser EQ 'SER01'.
  ENDIF.
  SORT i_object_numbers BY  obknr obzae.
  LOOP AT rt_outtab.
    CLEAR: rt_outtab-name1, rt_outtab-sernr, rt_outtab-lfimg,
     rt_outtab-sernp, rt_outtab-kttxt.
Read the Sold To Name
    SELECT SINGLE name1 INTO rt_outtab-name1
                      FROM kna1 WHERE kunnr EQ rt_outtab-kunnr.
Read Ship-to Customer
    CLEAR: objk.
    IF NOT rt_outtab-serail IS INITIAL.
      READ TABLE i_serial WITH KEY lief_nr = rt_outtab-vbeln
                                    posnr = rt_outtab-posnr.
      IF sy-subrc EQ 0.
        DO i_serial-anzsn TIMES.
          CLEAR: rt_outtab-sernr, rt_outtab-sernp.
          READ TABLE i_object_numbers  WITH KEY obknr = i_serial-obknr
                                                matnr = rt_outtab-matnr
                                            BINARY SEARCH.
          IF sy-subrc EQ 0.
            rt_outtab-sernr = i_object_numbers-sernr.
            DELETE i_object_numbers INDEX sy-tabix.
            MOVE '1'   TO rt_outtab-lfimg.
            CLEAR: rt_outtab-aufnr, rt_outtab-qmnum,
                     rt_outtab-equnr, rt_outtab-qmcod, g_mngrp, g_mnkat.
            SELECT SINGLE aufnr qmnum equnr qmcod qmgrp qmkat
                                 INTO (rt_outtab-aufnr, rt_outtab-qmnum,
                    rt_outtab-equnr, rt_outtab-qmcod, g_mngrp, g_mnkat)
                             FROM viqmel  WHERE matnr = rt_outtab-matnr
                                    AND serialnr = rt_outtab-sernr
                                    AND qmart  EQ 'S4'
                                    AND qmnum IN s_qmnum.
            CLEAR: rt_outtab-cotxt.
            SELECT SINGLE kurztext INTO rt_outtab-cotxt
                                  FROM qpct WHERE katalogart EQ g_mnkat
                                     AND codegruppe EQ  g_mngrp
                                     AND code EQ rt_outtab-qmcod
                                     AND sprache EQ sy-langu.
Read Serial Number from Name Plate Data.
            CLEAR: klah, kssk, ausp, cabn, g_atinn.
            SELECT SINGLE atinn INTO (g_atinn) FROM cabn
                                WHERE atnam = 'SBANK_SERIAL_NUMBER'.
            SELECT SINGLE  atwrt
                  INTO  (rt_outtab-sernp)
                  FROM  ( klah AS a INNER JOIN kssk AS k
                           ON aclint = kclint )
                      JOIN ausp AS p
                            ON kobjek = pobjek
                            AND p~atinn = g_atinn
                            AND pklart = aklart
                  WHERE a~klart = '002'
                   AND  a~class = 'KSE_SN_ENDOSCOPES'
                    AND  k~objek = rt_outtab-equnr.
*KSE Repair level (activity code text from KSE-SM07 code group)
            CLEAR: rt_outtab-qmcol, g_mngrp, g_mnkat.
            CLEAR: rt_outtab-qmcol.
            CLEAR:   g_mnkat, g_mngrp.
            SELECT SINGLE mnkat mngrp mncod INTO
                                (g_mnkat, g_mngrp, rt_outtab-qmcol)
                          FROM viqmma WHERE qmnum = rt_outtab-qmnum
                                AND  mngrp EQ 'KSE-SM07'
                                AND kzloesch EQ space.
            CLEAR: rt_outtab-kttxt.
            SELECT SINGLE kurztext INTO rt_outtab-kttxt
                         FROM qpct WHERE katalogart EQ g_mnkat
                                AND codegruppe EQ  g_mngrp
                                AND code EQ rt_outtab-qmcol
                                AND sprache EQ sy-langu.
            rt_outtab1 = rt_outtab.
            APPEND rt_outtab1.
          ENDIF.
        ENDDO.
      ENDIF.
    ENDIF.
  ENDLOOP.
  CLEAR: rt_outtab[].
  rt_outtab[] = rt_outtab1[].
  SORT rt_outtab BY vbeln posnr.
ENDFORM.
      FORM get_repname                                              *
-->  P_VBELN                                                       *
-->  P_POSNR                                                       *
-->  P_PERNR                                                       *
-->  P_ENAME                                                       *
FORM get_repname USING  p_vbeln
                          p_posnr
                 CHANGING  p_pernr
                          p_ename. "
  DATA: i_vbpa LIKE vbpa OCCURS 0 WITH HEADER LINE.
  CLEAR: i_vbpa[].
  CALL FUNCTION 'Z_DETERMINE_ACTIVE_SALES_REP'
       EXPORTING
            g_salesdocument = p_vbeln
            g_sales_item    = p_posnr
       TABLES
            st_vbpa         = i_vbpa.
  READ TABLE i_vbpa INDEX 1.
  IF sy-subrc = 0.
    p_pernr = i_vbpa-pernr.
    SELECT SINGLE ename INTO p_ename
      FROM pa0001
     WHERE pernr = i_vbpa-pernr.
  ENDIF.
ENDFORM.                    " get_repname
      FORM E03_EVENTTAB_BUILD                                       *
-->  E03_LT_EVENTS                                                 *
FORM e03_eventtab_build USING e03_lt_events TYPE slis_t_event.
  DATA: ls_event TYPE slis_alv_event.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            i_list_type = 0
       IMPORTING
            et_events   = e03_lt_events.
  READ TABLE e03_lt_events WITH KEY name =  slis_ev_top_of_page
                           INTO ls_event.
  IF sy-subrc = 0.
    MOVE gc_formname_top_of_page TO ls_event-form.
    APPEND ls_event TO e03_lt_events.
  ENDIF.
ENDFORM.
      FORM TOP_OF_PAGE                                              *
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            it_list_commentary = gt_list_top_of_page.
ENDFORM.
*&      Form  USER_COMMAND
FORM user_command  USING r_ucomm LIKE sy-ucomm
                         rs_selfield TYPE slis_selfield.
  CASE r_ucomm.
    WHEN '&IC1'.
      PERFORM display_delivery USING r_ucomm
                                    rs_selfield.
  ENDCASE.
ENDFORM.
*&      Form  display_delivery
FORM display_delivery
USING r_ucomm LIKE sy-ucomm
                             rs_selfield TYPE slis_selfield.
  CASE rs_selfield-sel_tab_field.
    WHEN '1-VBELN'.
      SET PARAMETER ID 'VL' FIELD rs_selfield-value.
      CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
    WHEN '1-VBELV'.
      SET PARAMETER ID 'VF' FIELD rs_selfield-value.
      CALL TRANSACTION 'VF03N' AND SKIP FIRST SCREEN.
  ENDCASE.
ENDFORM.
*&      Form  VARIANT_INIT
      text
-->  p1        text
<--  p2        text
FORM variant_init.
  CLEAR g_variant.
  g_variant-report = g_repid.
ENDFORM.                               " VARIANT_INIT
*&      Form  F4_FOR_VARIANT
      text
-->  p1        text
<--  p2        text
FORM f4_for_variant.
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
       EXPORTING
            is_variant          = g_variant
            i_save              = g_save
          it_default_fieldcat =
       IMPORTING
            e_exit              = g_exit
            es_variant          = gx_variant
       EXCEPTIONS
            not_found = 2.
  IF sy-subrc = 2.
    MESSAGE ID sy-msgid TYPE 'S'      NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    IF g_exit = space.
      p_vari = gx_variant-variant.
    ENDIF.
  ENDIF.
ENDFORM.
*&      Form  PAI_OF_SELECTION_SCREEN
      text
FORM pai_of_selection_screen.
  IF NOT p_vari IS INITIAL.
    MOVE g_variant TO gx_variant.
    MOVE p_vari TO gx_variant-variant.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
         EXPORTING
              i_save     = g_save
         CHANGING
              cs_variant = gx_variant.
    g_variant = gx_variant.
  ELSE.
    PERFORM variant_init.
  ENDIF.
ENDFORM.

Similar Messages

  • Make the output of the BI report rtf file some fields non editable

    Hello All,
    I want to make some fields in the output of the BI report as editable and some non editable. Any output format is fine (PDF, RTF or HTML) Please let me know if anyone knows how to do it.
    Thanks in advance..
    Anu

    You can add RTF to active allowed output type list (provided that your reporting system supports it) by going to CustomerReportExtensions.xml file and adding the following node right after ParameterTypes node:
    <ActiveReportOutputTypes configChildKey="key">
    <ActiveReportOutputType key="RTF" value="RTF" extension=".rtf"/>
    </ActiveReportOutputTypes>

  • How to make checkbox field inactive in the output of ALV report.

    Dear All,
    I am having one ALV report in whose output there are checkboxes against each record. Example: the output columns of my ALV report are:
    Checkbox, Sales Document No, Billing Document No.
    Now, my requirement is that if for the Sales Document No there exists any Billing Document No in the output then the Checkbox should be inactive but if the Billing document coloumn is empty for a particular Sales Document No then only the Checkbox field should become active.
    Kindly guide me on how to make this checkbox field inactive.
    Waiting for your reply.
    Warm Regards,
    N.Jain

    Hello,
    Follow the below steps:
    1.Define as--> GS_STATUS TYPE SLIS_STATUS,
    2.check layout check box fieldname is not initial.
          then set the status according to your logical conditions
          GS_STATUS-FLG_CHECKBOXES_ACTIVE = 'X'
    Hope this would help you.
    Let me know your feedback.
    Regards,
    Raju

  • How to download the output of a report along with column header

    Hi,
    Could someone please tell me on how to download the output of a report along with column header to .txt format. A download option needs to be given to the user using physical and logical file names .The report basically contains header details and item details and requirement is to download the same format into an .txt format.

    Hello,
    Try this FM:
    Data: being of itab occurs 0,
    matnr like mara-matnr,
    maktx like makt-maktx,
    end of itab.
    data:begin of fld_tab occurs 0,
    fld_name(20),
    end of fld_tab.
    fld_tab = 'Material'.
    append fld_tab.
    fld_tab = 'Material Desc'.
    append fld_tab.
    CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            BIN_FILESIZE            = ' '
            CODEPAGE                = ' '
             FILENAME                = 'C:\1.txt '
             FILETYPE                = 'DAT'
            MODE                    = ' '
            WK1_N_FORMAT            = ' '
            WK1_N_SIZE              = ' '
            WK1_T_FORMAT            = ' '
            WK1_T_SIZE              = ' '
            COL_SELECT              = ' '
            COL_SELECTMASK          = ' '
            NO_AUTH_CHECK           = ' '
       IMPORTING
            FILELENGTH              =
         TABLES
              DATA_TAB                = itab
              FIELDNAMES              = fld_tab
       EXCEPTIONS
            FILE_OPEN_ERROR         = 1
            FILE_WRITE_ERROR        = 2
            INVALID_FILESIZE        = 3
            INVALID_TYPE            = 4
            NO_BATCH                = 5
            UNKNOWN_ERROR           = 6
            INVALID_TABLE_WIDTH     = 7
            GUI_REFUSE_FILETRANSFER = 8
            CUSTOMER_ERROR          = 9
            OTHERS                  = 10
    IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    Regards,
    Naimesh

  • Is it Possible to upload the output from Oracle reports To Access database

    Hi All,
    Wish you All a Very Happy New Year.
    I have a query.Is it possible to
    upload the output from the Oracle reports
    to the Access database???
    Any suggestions would be appreciated.
    TIA
    sg

    Hi sg,
    Research the DDE option.
    Dynamic Data Exchange (DDE) is a mechanism by which applications can communicate and exchange data in Windows.
    I have imported data into the excel spreadsheet using DDE built in functions. I am sure it can work with MS Acess as well. If not, then you need to create a 2 step process .. reports -> excel -> access.

  • Adding field GAMNG ( Target Quantity )in the Data Source 2LIS_04_P_ARBPL

    We are adding field GAMNG ( Target Quantity ) in the Data Source 2LIS_04_P_ARBPL ( Work Center View from PP/PP-PI )
    The field GAMNG is available in the communication structure maintainace.
    The problem is- We are not able to drag & drap field GAMNG from the Communication structure LBWE. Getting the error - End phase  002 ***********************************************************
    Message no. D0322 ..
    We deleted Setup table , Meins field already exist in comm str.
    1. How we able to drag the field from the communication structure as getting the above error. We searched SDN & try to follow that method but not working.
    2. We can add the field in SE11 - Structure -Manually, then we have to write ABAP code.
    Kindly suggest correct answer.
    Edited by: sk kamaruzzaman on Dec 20, 2011 2:08 PM

    Hi,
    There could be a number of reasons why you are getting the error:
    1. Fields are not assigned to datatypes.
        - Check structure in SE11 and assign to datatypes.
    2. There are inactive appends in the extract structure.
        - Double-click one of the includes. You will get a new screen with the INCLUDE structure. Click the button append-structure. Check if the append is inactive.
    3. The appended structure is in a different development class from the one of the structure it is being appended to.
    Please review and apply the following notes carefully :
      766603  Activation problems with extract structures
      623411  LBWE: Gener. terminates with D0 322 (end phase 002)
      757923  LBWE: Generation terminates with D0 322 (end phase
      600708  D0 322: End phase 002
    It is not possible to enhance the datasource 2lis_04_MATNR with the field GAMNG (so its possible that its the same for 2LIS_04_P_ARBPL) because GAMNG has the reference field AMEIN, which has a STATE F (forbidden) in table TMCEXCFS .
    Check to see if this is the same on your system.
    Rgds,
    Colum

  • How to hide the specified rows in the output of the report?

    Hello all,
        I have a requirement where i have to hide some of the lines (<b>initial 6 lines</b> that is <b>6 rows</b>) in the output of the report.
    How would I go about doing this?
    Thanks for you time.

    Hello Sai,
    I believe this is query output ( e.g., )
    Country   Sales
    India        $100
    USA        $200
    Germany  $300
    You want to hide the line Germany  $300
    Case 1:
        If you can change the query, Filter on Country and exclude Germany
    Case 2:
        If you can not change the query, use url appending and filter out Germany
    Check webapi reference for the exact commands
    Case 3:
        Only if you are using the NW2004s front-end, Report designer will be available for you. In this, you can delete the rows that you do not want and publish in web.
    Case 1 and 2 solutions are available in older versions of front-end as well.
    Regards,
    Sheik Bilal

  • Can we use the output of a report as in input for the other report?

    Dear All,
    I would like to know if we have any option in OBIEE where in we can save the output of a report and use it as a filter for another report?
    My scenario is like:
    1) I have a report on ORDERS which gave me 250 orders.
    2) I want to have a report on SHIPMENT table for these 250 Orders.
    Can we save the result of report 1 as a filter and use it in 2nd report?
    please advise.
    Thanks,
    Suma

    Hi,
    By using advanced tab in filters like filter based on another request we can achieve this
    Regards
    Naresh

  • How to get the output of the report in pdf format

    how to get the output of the report in pdf format?
    Thanks in advance,
    madan.

    Refer these links
    http://www.sap-img.com/bc037.htm
    http://www.members.tripod.com/abap4/Save_Report_Output_to_a_PDF_File.html
    CONVERT_ABAPSPOOLJOB_2_PDF FM convert abap spool output to PDF

  • Does anyone know how to convert the output from the standard report to xml?

    Does anyone know how to convert the output from the standard SAP report to xml?

    since it a standard report which you cannot modify you can only do the following.
    submit report exporting list to memory
    then
    list from memory and then
    use the returned itab along with CALL TRNSFORMATION key word to convert to xml.
    but this only going to place the whole list content (including data and formating lines,etc) into a xml element and not the actual data alone in the list .

  • To get the output  in the chart for a single selection

    Hi all,
    I used a query to get the output of the table, and for the same query i have  created a view to get the result in the chart.
    to get the output of the table for  a particular region i have created an input field and added value help to it. When i selected one particular region, i will be getting the data, in the table. But when i select a particular row in the table i need to get the data of that particular row only in the chart. (which i am getting)
    But when i select multiple regions at a time, then i am facing the issue. I get result of multiple regions data(at a time two rows are displayed in the chart) in the chart. where in i want to get data only for one region (only one row needs to get selected at a time) to get the result.
    Can any one throw a light of what needs to be done here.
    Thanks,
    Rani

    Hi Rani,
    I am not sure if I understand your question exactly, but it sounds like you need to set the selection mode for your table to "Single". If you do that the user will only have the possibility of selecting one row at a time in the table; they will not be able to select multiple rows.
    You make that setting in the Configure Element panel for the table.
    I hope this suggestions helps.
    Margaret

  • Adding fields in EDI output of Invoice List

    Hi!
    I am trying to find out what is a process of adding fields in EDI output of Invoice List...
    I mean that I need to add some extra fields to Invoice lists.
    The information I have is: name of Form, print program and output type.
    I guess I need to modify printing program, is it a correct way to go?
    Hope to avoid modifying of print form...
    Will reward,
    Mindaugas.

    I did not work on invoice list EDI,but i have done invoice.
    First you need to look at segment,if you want to add new fileds in output,then you need to create segment at WE31 Transaction.
    now create idoc type based on invoice idoc type ( WE30) here you need to use ur segment.
    Idoc has function module
    outbound - FM will start IDOC_OUTBOUND_inv*
    Inbound  - FM will Start IDOC_INBOUND_INV*
    in the FM,you will have user exit ,populate ur fields in user exit.
    Configuration :
    1 create or maintain logical system - SALE
    2. Create RFC Destination - Sm59
    3. Create port - WE21 - ( EDI - Port is FILE)
    6.Maintain partner profile - WE20 ( Give all required details like message type,idoc type)
    IDOC Status - WE02 or WE05
    Status Record - WE47
    Change pointer - BD52
    Message type : WE81
    Assign message type to idoc WE82
    finally when you create invoice list and output type medium is 6 then output will go to other system as text file.
    Note : Please maintain message control in Partner profile.

  • EXIT/BADI  for enhancing the output of the transaction S_ALR_87013532

    Hi,
      greetings to all!! I have a problem here guys-I need to find any exit or badi for enhancing the output of the tcode S_ALR_87013532.This tcode is used for seeing the planned/actual/variance of project cost.
    In  the output we have got 3 columns-total of years, previous years and 2009. Under each column we have Plan, Actual, Variance and VAR %. Our requirement is to show Functional Location(PRPS-TPLNR), Budget Number(TCN01-SWRT0), SBU (TCN01-SWRT1) and Region (TCN01-SWRT2) in each of the clolumns-you can also get the last 3 fields in PRPS table as USR00, USR01 and USR02.
    Can anyone help please?could not find anything worthwhile on SDN. Thnx  a lot !

    Hi,
    Check   these User-Exits..
    Exit name  Short text
    KAHFEX01  Selection data for commercial reporting in PS
    KAP10001  PS: Hierarchy Reports for Projects
    KAP60001  PS: Export Project Key Figures into R/3 EIS
    Also check the BADI
    WBS_USER_FIELDS_F4
    Regards
    Raghu
    Edited by: Raghavendra  Rao G on Sep 2, 2009 12:26 PM

  • How to get the output of the Send Separate Remittance Advices in XML in R12

    Hi All,
    I have a requirement where we want the output of the standard report 'Send Separate Remittance Advices' to come in XML, currently its coming in PDF format.
    Can you please help?
    Thanks,
    Dilip
    Edited by: 990784 on Mar 12, 2013 2:57 PM

    Refer these links
    http://www.sap-img.com/bc037.htm
    http://www.members.tripod.com/abap4/Save_Report_Output_to_a_PDF_File.html
    CONVERT_ABAPSPOOLJOB_2_PDF FM convert abap spool output to PDF

  • Selection-screen in the output of the program

    Hi,
    I want to print the selection criteria ( or Values )  in the output of the program  on the RIGHT HAND SIDE OF THE HEADER. I am doing code through ALV and I want to include the respective code in 'TOP_OF_PAGE'
    If there are no values in the selection screen fields, then I DO NOT Print them. Start the values with the texts, such as 'Material', 'Plant', 'MRP Controller' etc. For single values, print the values separated by commas, For a range of values, print the values separated by '-', For the exclusion of single values, print 'EX' before the values.
    Thanks in Advance.

    To get the parameter list, use [RS_REFRESH_FROM_SELECTOPTIONS|https://forums.sdn.sap.com/search.jspa?objID=c42&q=RS_REFRESH_FROM_SELECTOPTIONS], the rest is basic Abap.
    Regards,
    Raymond

  • Problem displaying the output in the same view

    hi Gurus,
    I have developed an web dynrpo application and have three views, in the first view I am having an input field from which I am calling a BAPI by giving that input field value as input to the BAPI.
    Now is it possible to display the output also retrived from the BAPI on the same view.
    Thanks and regards
    kris

    hi LM,
    Thanks for your fast response.
    I think I was not clear in explaining my problem.
    I have a view in which I have an input field which is the input to the BAPI, now on entering the value in the input field I have a submit button, on clicking the BAPI should be executed and also the the output should be displayed on the same view.
    Now regarding the mapping both the input and output are in the same context, would that a problem.
    And also after getting the output from the BAPI I have to do some validations based on the output from the BAPI and get some message printed on the view.
    Please help me in this issue.
    Thanks and regards
    kris

Maybe you are looking for

  • Part -1 Not Capturing at the time of GR

    Hi Friends, I am biffurcation 100 kg of qty in to two batches at the time of GR system is updating part-1 only for one batch whereas there is no part 1 entry for second batch. Need your help why this is happening Regards Vivek

  • ASMA in HTTP adapter

    Hello All, I'm want to use the ASMA in http adapters. I tried in file adapters and  got the expected result but in HTTP couldn't get it. In file adapter: I have selected the ASMA option in sender communication channel and selected the filename so tha

  • What is the best method to provide an option to select "All" for LOV ?

    Some posts sugest that you should "UNION" the origional select with something like (select "all" from dual ) this works as a seperate query but if you want to use and existintg query this is not very clean as viewlinks are not taken into account. We

  • Download error, while downloading 3rd party software

    Hello all, I'm a newbie to SCCM2012 R2. When I attempt to do a software download for Mozilla, Java etc... i'm getting this error below. I can download MS updates fine, but 3rd party updates. We are using Secunia to publish 3rd part updates to WSUS, w

  • Webservice testing from ABAP

    Hello All, I have created a webservice for an RFC enable function module in ABAP.. For the FM i have created a webservice definition and release the webservice using WSCONFIG... Now i am trying to test the webservice from WSADMIN... The webservice na