How to add a report into the SAP-SCRIPT .using PERFORM ......ENDPERFORM

My question is that How to add a report into the SAP-SCRIPT .
by using PERFORM ......ENDPERFORM
I don't know how to used it .

Hi Sandeep,
Please check this link
http://help.sap.com/saphelp_40b/helpdata/en/d1/803279454211d189710000e8322d00/content.htm
http://www.allinterview.com/showanswers/37425.html
Calling ABAP Subroutines: PERFORM
You can use the PERFORM command to call an ABAP subroutine (form) from any program, subject to the normal ABAP runtime authorization checking. You can use such calls to subroutines for carrying out calculations, for obtaining data from the database that is needed at display or print time, for formatting data, and so on.
PERFORM commands, like all control commands, are executed when a document is formatted for display or printing. Communication between a subroutine that you call and the document is by way of symbols whose values are set in the subroutine.
Syntax in a form window:
/: PERFORM <form> IN PROGRAM <prog>
/: USING &INVAR1&
/: USING &INVAR2&
/: CHANGING &OUTVAR1&
/: CHANGING &OUTVAR2&
/: ENDPERFORM
INVAR1 and INVAR2 are variable symbols and may be of any of the four SAPscript symbol types.
OUTVAR1 and OUTVAR2 are local text symbols and must therefore be character strings.
The ABAP subroutine called via the command line stated above must be defined in the ABAP report prog as follows:
FORM <form> TABLES IN_TAB STRUCTURE ITCSY
OUT_TAB STRUCTURE ITCSY.
ENDFORM.
The values of the SAPscript symbols passed with /: USING... are now stored in the internal table IN_TAB . Note that the system passes the values as character string to the subroutine, since the field Feld VALUE in structure ITCSY has the domain TDSYMVALUE (CHAR 80). See the example below on how to access the variables.
The internal table OUT_TAB contains names and values of the CHANGING parameters in the PERFORM statement. These parameters are local text symbols, that is, character fields. See the example below on how to return the variables within the subroutine.
From within a SAPscript form, a subroutine GET_BARCODE in the ABAP program QCJPERFO is called. Then the simple barcode contained there (u2018First pageu2019, u2018Next pageu2019, u2018Last pageu2019) is printed as local variable symbol.
Definition in the SAPscript form:
/: PERFORM GET_BARCODE IN PROGRAM QCJPERFO
/: USING &PAGE&
/: USING &NEXTPAGE&
/: CHANGING &BARCODE&
/: ENDPERFORM
/ &BARCODE&
Coding of the calling ABAP program:
REPORT QCJPERFO.
FORM GET_BARCODE TABLES IN_PAR STUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
DATA: PAGNUM LIKE SY-TABIX, "page number
NEXTPAGE LIKE SY-TABIX. "number of next page
READ TABLE IN_PAR WITH KEY u2018PAGEu2019.
CHECK SY-SUBRC = 0.
PAGNUM = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY u2018NEXTPAGEu2019.
CHECK SY-SUBRC = 0.
NEXTPAGE = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY u2018BARCODEu2019.
CHECK SY-SUBRC = 0.
IF PAGNUM = 1.
OUT_PAR-VALUE = u2018|u2019. "First page
ELSE.
OUT_PAR-VALUE = u2018||u2019. "Next page
ENDIF.
IF NEXTPAGE = 0.
OUT_PAR-VALUE+2 = u2018Lu2019. "Flag: last page
ENDIF.
MODIFY OUT_PAR INDEX SY-TABIX.
ENDFORM.
Best regards,
raam

Similar Messages

  • How to  include a report  into the  SAP-SCRIPT

    plz tell me 
    How to  include a report  into the  SAP-SCRIPT
    ASAP

    creat a z report like this....................
    REPORT  zmmgl_picklist1.
    TABLES : likp,ltap,ltak.
    data : lv_NUM1 type c .
    data : lv_NUM type c.
    *&      Form  get_data1
          text
         -->IN_DATA    text
         -->OUT_DATA   text
    FORM get_data1 TABLES in_data STRUCTURE  itcsy
                         out_data STRUCTURE itcsy.
    READ TABLE in_data WITH KEY name = 'LTAP-VBELN'.
    lv_NUM = lv_NUM1 + 1.
    out_data-name = 'lv_NUM'.
      out_data-value = lv_NUM .
    APPEND out_data.
    endform.
    *&      Form  get_data
          This form is to read  details from  LIKP    *
         -->IN_DATA    text
         -->OUT_DATA   text
    FORM get_data TABLES in_data STRUCTURE  itcsy
                         out_data STRUCTURE itcsy.
      READ TABLE in_data WITH KEY name = 'LTAK-VBELN'.
      Select single bldat from likp into likp-bldat where lgnum = ltap-lgnum.
      out_data-name = 'LIKP-BLDAT'.
      out_data-value = likp-bldat.
      APPEND out_data.
       READ TABLE in_data WITH KEY name = 'LTAK-VBELN'.
      Select single vstel from likp into likp-vstel where lgnum = ltak-lgnum .
      out_data-name = 'LIKP-VSTEL'.
      out_data-value = likp-vstel.
      APPEND out_data.
    READ TABLE in_data WITH KEY name = 'LTAK-VBELN'.
      Select single kunnr from likp into likp-kunnr where lgnum = ltap-lgnum.
      out_data-name = 'LIKP-KUNNR'.
      out_data-value = likp-kunnr.
      APPEND out_data.
    ENDFORM.                    "get_data.
    after this go to the script editor......
    /: perform get_data in program zmmgl_picklist1.
    /: using &ltap-vbeln&                 (Reference field.this field          should be there in both program and script.....)
    /:changing &likp-bldat&         
    /:changing &likp-vstel&
    /:changing &likp-kunnr&
    \[removed by moderator\]
    Regards
    Anbu
    Edited by: Jan Stallkamp on Jun 10, 2008 2:26 PM

  • How to add a page in the SAP Scripts

    Hi All,
    I want to know how to add a page in the sap scripts. there is already sap script developed by some other person.
    Now I have to add a page in front of that and have to add some more data.I added a page in page windows but thats not at all working.
    Please help me out in this.
    Thanks,
    Praveen

    new page will create in sap scripts using new page command.
    you have to set condition like after some number of records displayed in page new page has to be trigger.
    ex:YOU HAVE SO MANY RECORDS FOR PRINTING BUT YOU WANT TO DISPLAY 100 RECORDS IN FIRST PAGE REMAINING IN SECOND PAGE LIKE THAT.
    Here you can use NEW PAGE COMMAND .
    IT IS OPPOSITE PURPOSE OF PROTECT AND ENDPOTECT.
    Reward if useful.

  • How to add a report into the tree??

    Hi all,
    Pls help me add a report into the tree same as standard report that we can click icon on tree to run.
    Thank you!

    Hi,
    use FM HR_ALV_HIERSEQ_LIST_DISPLAY
    there are 2 internal table , one for header and one for detail
    below is code for reference
    REPORT zinsd_quot_cont.
    TYPES : BEGIN OF ty_vbak,
    vbeln TYPE vbeln_va,
    vkorg TYPE vkorg,
    vtweg TYPE vtweg,
    spart TYPE spart,
    vkbur TYPE vkbur,
    vkgrp TYPE vkgrp,
    angdt TYPE angdt_v,
    bnddt TYPE bnddt,
    kunnr TYPE kunnr,
    kwmeng TYPE kwmeng,
    meins TYPE meins,
    kunwe TYPE kunnr,
    name1 TYPE name1_gp ,
    name2 TYPE name1_gp ,
    sel(1),
    expand(1),
    salesdocument TYPE bapivbeln-vbeln,
    message TYPE bapi_msg,
    END OF ty_vbak.
    DATA : w_vbak TYPE ty_vbak,
    t_vbak TYPE TABLE OF ty_vbak.
    DATA : w_update TYPE ty_vbak,
    t_update TYPE TABLE OF ty_vbak.
    TYPES : BEGIN OF ty_kna1,
    kunnr TYPE kunnr,
    name1 TYPE name1_gp ,
    END OF ty_kna1.
    DATA : w_kna1 TYPE ty_kna1,
    t_kna1 TYPE TABLE OF ty_kna1.
    TYPES : BEGIN OF ty_vbap,
    vbeln TYPE vbeln_va,
    posnr TYPE posnr_va,
    matnr TYPE matnr,
    matkl TYPE matkl,
    werks TYPE werks_ext,
    kwmeng TYPE kwmeng,
    meins TYPE meins,
    mvgr5 TYPE mvgr5,
    maktx TYPE maktx,
    END OF ty_vbap.
    DATA : w_vbap TYPE ty_vbap,
    t_vbap TYPE TABLE OF ty_vbap.
    TYPES : BEGIN OF ty_makt,
    matnr TYPE matnr,
    maktx TYPE maktx,
    END OF ty_makt.
    DATA : w_makt TYPE ty_makt,
    t_makt TYPE TABLE OF ty_makt.
    TYPES : BEGIN OF ty_sum,
    vbeln TYPE vbeln_va,
    kwmeng TYPE kwmeng,
    END OF ty_sum.
    DATA : w_sum TYPE ty_sum,
    t_sum TYPE TABLE OF ty_sum.
    TYPES : BEGIN OF ty_vbpa,
    vbeln TYPE vbeln,
    posnr TYPE posnr,
    parvw TYPE parvw,
    kunnr TYPE kunnr,
    END OF ty_vbpa.
    DATA : w_vbpa TYPE ty_vbpa,
    t_vbpa TYPE TABLE OF ty_vbpa.
    TYPES : BEGIN OF ty_vbup,
    vbeln TYPE vbeln,
    posnr TYPE posnr ,
    gbsta TYPE gbsta ,
    END OF ty_vbup.
    DATA : w_vbup TYPE ty_vbup,
    t_vbup TYPE TABLE OF ty_vbup.
    TYPE-POOLS slis.
    DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv,
    w_fieldcatalog TYPE slis_fieldcat_alv,
    w_layout TYPE slis_layout_alv,
    gs_keyinfo TYPE slis_keyinfo_alv.
    DATA: g_tabname_header TYPE slis_tabname,
    g_tabname_item TYPE slis_tabname.
    data definition
    Batchinputdata of single transaction
    DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
    messages of call transaction
    DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
    DATA : g_lines TYPE i.
    *Selection Screen
    TABLES : vbak,vbap.
    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
    SELECT-OPTIONS s_vkorg FOR vbak-vkorg. " Sales Org
    SELECT-OPTIONS s_vtweg FOR vbak-vtweg. " Dist Channel
    SELECT-OPTIONS s_spart FOR vbak-spart. " Division
    SELECT-OPTIONS s_vkbur FOR vbak-vkbur. " Sales Off
    SELECT-OPTIONS s_vkgrp FOR vbak-vkgrp. " Sales Grp
    SELECT-OPTIONS s_matkl FOR vbap-matkl. " Mat Grp
    SELECT-OPTIONS s_werks FOR vbap-werks. " Plant
    SELECT-OPTIONS s_period FOR vbak-angdt. " Sales Off
    SELECTION-SCREEN END OF BLOCK b1.
    START-OF-SELECTION.
    PERFORM f_getdata.
    PERFORM f_initdata.
    END-OF-SELECTION.
    PERFORM f_createalv.
    PERFORM f_dispalv.
    *& Form f_getdata
    text
    --> p1 text
    <-- p2 text
    FORM f_getdata .
    *Sales Header
    SELECT
    vbeln
    vkorg
    vtweg
    spart
    vkbur
    vkgrp
    angdt
    bnddt
    kunnr
    INTO TABLE t_vbak
    FROM vbak
    WHERE
    vkorg IN s_vkorg " Sales Org
    AND vtweg IN s_vtweg " Dist Channel
    AND spart IN s_spart " Division
    AND vkbur IN s_vkbur " Sales Off
    AND vkgrp IN s_vkgrp " Sales Grp
    AND angdt IN s_period
    AND bnddt IN s_period
    AND auart = 'ZQMO'
    AND vbtyp = 'B'.
    *CUST NAME
    SELECT
    kunnr
    name1
    INTO TABLE t_kna1
    FROM kna1
    FOR ALL ENTRIES IN t_vbak
    WHERE
    kunnr = t_vbak-kunnr
    *Sales Item
    SELECT
    vbeln
    posnr
    matnr
    matkl
    werks
    kwmeng
    meins
    mvgr5
    INTO TABLE t_vbap
    FROM vbap
    FOR ALL ENTRIES IN t_vbak
    WHERE
    vbeln = t_vbak-vbeln
    AND matkl IN s_matkl " Mat Grp
    AND werks IN s_werks " Plant
    *Partners
    SELECT
    vbeln
    posnr
    parvw
    kunnr
    INTO TABLE t_vbpa
    FROM vbpa
    FOR ALL ENTRIES IN t_vbak
    WHERE
    vbeln = t_vbak-vbeln.
    IF t_vbpa[] IS NOT INITIAL.
    SELECT
    kunnr
    name1
    APPENDING TABLE t_kna1
    FROM kna1
    FOR ALL ENTRIES IN t_vbpa
    WHERE
    kunnr = t_vbpa-kunnr
    ENDIF.
    *Status - Sales Doc
    SELECT
    vbeln
    posnr
    gbsta
    INTO TABLE t_vbup
    FROM vbup
    FOR ALL ENTRIES IN t_vbap
    WHERE
    vbeln = t_vbap-vbeln
    AND posnr = t_vbap-posnr
    AND gbsta NE 'C'.
    SELECT
    matnr
    maktx
    INTO TABLE t_makt
    FROM makt
    FOR ALL ENTRIES IN t_vbap
    WHERE
    matnr = t_vbap-matnr
    AND spras = 'E'.
    ENDFORM. " f_getdata
    *& Form f_initdata
    text
    --> p1 text
    <-- p2 text
    FORM f_initdata .
    SORT t_vbap BY vbeln DESCENDING.
    *delete all closed stat items
    LOOP AT t_vbap INTO w_vbap.
    READ TABLE t_vbup INTO w_vbup
    WITH KEY
    vbeln = w_vbap-vbeln
    posnr = w_vbap-posnr.
    IF sy-subrc <> 0.
    DELETE t_vbap.
    CONTINUE.
    ELSE.
    READ TABLE t_makt INTO w_makt
    WITH
    KEY matnr = w_vbap-matnr.
    IF sy-subrc = 0.
    w_vbap-maktx = w_makt-maktx.
    MODIFY t_vbap FROM w_vbap.
    ENDIF.
    ENDIF.
    ENDLOOP.
    *find the total quantity
    LOOP AT t_vbap INTO w_vbap.
    w_sum-vbeln = w_vbap-vbeln.
    w_sum-kwmeng = w_vbap-kwmeng.
    COLLECT w_sum INTO t_sum.
    CLEAR w_sum.
    ENDLOOP.
    *populate header
    LOOP AT t_vbak INTO w_vbak.
    Quantity - Total
    READ TABLE t_sum INTO w_sum
    WITH KEY
    vbeln = w_vbak-vbeln.
    IF sy-subrc = 0.
    w_vbak-kwmeng = w_sum-kwmeng.
    ELSE.
    CLEAR w_vbak-kwmeng.
    ENDIF.
    UoM
    READ TABLE t_vbap INTO w_vbap
    WITH KEY
    vbeln = w_vbak-vbeln.
    IF sy-subrc = 0.
    w_vbak-meins = w_vbap-meins.
    ELSE.
    CLEAR w_vbak-meins.
    ENDIF.
    Partner
    READ TABLE t_vbpa INTO w_vbpa
    WITH KEY
    vbeln = w_vbak-vbeln
    parvw = 'WE'.
    IF sy-subrc = 0.
    w_vbak-kunwe = w_vbpa-kunnr.
    ELSE.
    CLEAR w_vbak-kunwe.
    ENDIF.
    SHIP TO PARTY NAME
    READ TABLE t_kna1 INTO w_kna1
    WITH KEY
    kunnr = w_vbak-kunwe.
    IF sy-subrc = 0.
    w_vbak-name2 = w_kna1-name1.
    ENDIF.
    CUST NAM - SOLD TO PARTY
    READ TABLE t_kna1 INTO w_kna1
    WITH KEY
    kunnr = w_vbak-kunnr.
    IF sy-subrc = 0.
    w_vbak-name1 = w_kna1-name1.
    ENDIF.
    MODIFY t_vbak FROM w_vbak.
    ENDLOOP.
    DELETE t_vbak WHERE kwmeng IS INITIAL.
    SORT t_vbak BY vbeln DESCENDING.
    SORT t_vbap BY vbeln DESCENDING posnr ASCENDING.
    ENDFORM. " f_initdata
    *& Form f_createalv
    Create Field Cat.
    --> p1 text
    <-- p2 text
    FORM f_createalv .
    g_tabname_header = 't_vbak'.
    g_tabname_item = 't_vbap' .
    CLEAR gs_keyinfo.
    gs_keyinfo-header01 = 'VBELN'.
    gs_keyinfo-item01 = 'VBELN'.
    *VBAK
    w_fieldcatalog-fieldname = 'VBELN'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Sales Document'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'VKORG'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Sales Org'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'VTWEG'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Dist Channel'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'SPART'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Division'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'VKBUR'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Sales Office'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'VKGRP'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Sales GRP'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'KUNNR'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Sold to Party'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'NAME1'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-outputlen = 35.
    w_fieldcatalog-seltext_l = 'Sold to Party Code - Name'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'KUNWE'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Ship to Party'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'NAME2'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Ship Party Code - Name'.
    w_fieldcatalog-outputlen = 35.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'KWMENG'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Quantity'.
    w_fieldcatalog-outputlen = 25.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'MEINS'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'UoM'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'SALESDOCUMENT'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Document'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'MESSAGE'.
    w_fieldcatalog-tabname = 't_vbak'.
    w_fieldcatalog-seltext_l = 'Log'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    *VBAP
    w_fieldcatalog-fieldname = 'POSNR'.
    w_fieldcatalog-tabname = 't_vbap'.
    w_fieldcatalog-seltext_l = 'POS'.
    w_fieldcatalog-outputlen = 6.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'MATNR'.
    w_fieldcatalog-tabname = 't_vbap'.
    w_fieldcatalog-seltext_l = 'Material'.
    w_fieldcatalog-outputlen = 18.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'MAKTX'.
    w_fieldcatalog-tabname = 't_vbap'.
    w_fieldcatalog-seltext_l = 'Material Desc'.
    w_fieldcatalog-outputlen = 40.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'MATKL'.
    w_fieldcatalog-tabname = 't_vbap'.
    w_fieldcatalog-seltext_l = 'Material Grp'.
    w_fieldcatalog-outputlen = 9.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'MVGR5'.
    w_fieldcatalog-tabname = 't_vbap'.
    w_fieldcatalog-seltext_l = 'MCNO'.
    w_fieldcatalog-outputlen = 4.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'WERKS'.
    w_fieldcatalog-tabname = 't_vbap'.
    w_fieldcatalog-seltext_l = 'Plant'.
    w_fieldcatalog-outputlen = 91.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'KWMENG'.
    w_fieldcatalog-tabname = 't_vbap'.
    w_fieldcatalog-seltext_l = 'Quantity'.
    w_fieldcatalog-outputlen = 25.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    w_fieldcatalog-fieldname = 'MEINS'.
    w_fieldcatalog-tabname = 't_vbap'.
    w_fieldcatalog-seltext_l = 'UoM'.
    APPEND w_fieldcatalog TO t_fieldcatalog.
    CLEAR: w_fieldcatalog.
    LAYOUT
    w_layout-colwidth_optimize = 'X'.
    w_layout-zebra = 'X'.
    w_layout-expand_fieldname = 'EXPAND'.
    w_layout-box_fieldname = 'SEL'.
    w_layout-box_tabname = 't_vbak'.
    ENDFORM. " f_createalv
    *& Form f_dispalv
    Call ALV
    --> p1 text
    <-- p2 text
    FORM f_dispalv .
    CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
    i_callback_program = sy-repid
    i_callback_pf_status_set = 'SET_PF_STATUS'
    i_callback_user_command = 'USER_COMMAND'
    is_layout = w_layout
    it_fieldcat = t_fieldcatalog
    IT_EXCLUDING =
    IT_SPECIAL_GROUPS =
    IT_SORT =
    IT_FILTER =
    IS_SEL_HIDE =
    I_SCREEN_START_COLUMN = 0
    I_SCREEN_START_LINE = 0
    I_SCREEN_END_COLUMN = 0
    I_SCREEN_END_LINE = 0
    I_DEFAULT = 'X'
    I_SAVE = ' '
    IS_VARIANT =
    IT_EVENTS =
    IT_EVENT_EXIT =
    i_tabname_header = g_tabname_header
    i_tabname_item = g_tabname_item
    is_keyinfo = gs_keyinfo
    TABLES
    t_outtab_header = t_vbak
    t_outtab_item = t_vbap
    EXCEPTIONS
    program_error = 1
    OTHERS = 2
    IF sy-subrc <> 0.
    ENDIF.
    ENDFORM. " f_dispalv
    *& Form set_pf_status
    PF stat
    -->RT_EXTAB text
    FORM set_pf_status USING rt_extab TYPE slis_t_extab.
    SET PF-STATUS 'ZINSD_QUOT_CONT_ST'.
    ENDFORM. "set_pf_status
    *& Form user_command
    Process List UCOMM
    -->R_UCOMM text
    -->RS_SELFIELD text
    FORM user_command USING r_ucomm LIKE sy-ucomm
    rs_selfield TYPE slis_selfield.
    REFRESH t_update.
    IF r_ucomm = 'EXIT'.
    LEAVE PROGRAM.
    ENDIF.
    IF r_ucomm = 'EXECUTE'.
    LOOP AT t_vbak INTO w_update
    WHERE
    sel = 'X'
    AND salesdocument = ' '.
    APPEND w_update TO t_update.
    ENDLOOP.
    IF t_update[] IS NOT INITIAL.
    LOOP AT t_update INTO w_update.
    PERFORM f_bapi_contract_createfromdata USING w_update.
    PERFORM f_bdc_contract_from_quotation.
    MODIFY t_update FROM w_update.
    ENDLOOP.
    ELSE.
    ENDIF.
    PERFORM f_dispalv.
    ENDIF.
    IF r_ucomm = '&IC1'.
    IF rs_selfield-sel_tab_field = 't_vbak-VBELN'.
    SET PARAMETER ID 'AGN' FIELD rs_selfield-value.
    CALL TRANSACTION 'VA23' AND SKIP FIRST SCREEN.
    ENDIF.
    IF rs_selfield-sel_tab_field = 't_vbak-SALESDOCUMENT' AND
    rs_selfield-value NE ' '.
    SET PARAMETER ID 'KTN' FIELD rs_selfield-value.
    CALL TRANSACTION 'VA43' AND SKIP FIRST SCREEN.
    ENDIF.
    ENDIF.
    ENDFORM. "user_command
    *& Form F_BAPI_CONTRACT_CREATEFROMDATA
    BAPI CALL
    -->P_W_UPDATE text
    FORM f_bapi_contract_createfromdata USING p_w_update STRUCTURE w_update .
    DATA : w_contract_header_in TYPE bapisdhd1 ,
    w_contract_header_inx TYPE bapisdhd1x ,
    t_contract_items_in TYPE TABLE OF bapisditm WITH HEADER LINE,
    t_contract_items_inx TYPE TABLE OF bapisditmx WITH HEADER LINE,
    t_contract_partners TYPE TABLE OF bapiparnr WITH HEADER LINE,
    t_return TYPE TABLE OF bapiret2 WITH HEADER LINE.
    CLEAR : w_contract_header_in,
    w_contract_header_inx.
    REFRESH : t_contract_items_in,
    t_contract_items_inx,
    t_contract_partners,
    t_return.
    w_contract_header_in-doc_type = 'ZCNT'.
    w_contract_header_in-sales_org = p_w_update-vkorg.
    w_contract_header_in-distr_chan = p_w_update-vtweg.
    w_contract_header_in-division = p_w_update-spart.
    w_contract_header_in-ct_valid_f = p_w_update-angdt.
    w_contract_header_in-ct_valid_t = p_w_update-bnddt.
    w_contract_header_inx-doc_type = 'X'.
    w_contract_header_inx-sales_org = 'X'.
    w_contract_header_inx-distr_chan = 'X'.
    w_contract_header_inx-division = 'X'.
    w_contract_header_inx-ct_valid_f = 'X'.
    w_contract_header_inx-ct_valid_t = 'X'.
    LOOP AT t_vbap INTO w_vbap
    WHERE
    vbeln = p_w_update-vbeln.
    t_contract_items_in-material = w_vbap-matnr.
    t_contract_items_in-plant = w_vbap-werks.
    t_contract_items_in-target_qty = w_vbap-kwmeng.
    t_contract_items_in-target_qu = w_vbap-meins.
    t_contract_items_in-ref_doc = w_vbap-vbeln.
    t_contract_items_in-ref_doc_it = w_vbap-posnr.
    t_contract_items_in-ref_doc_ca = 'B'.
    t_contract_items_in-prc_group5 = w_vbap-mvgr5.
    t_contract_items_inx-material = 'X'.
    t_contract_items_inx-plant = 'X'.
    t_contract_items_inx-target_qty = 'X'.
    t_contract_items_inx-target_qu = 'X'.
    t_contract_items_inx-ref_doc = 'X'.
    t_contract_items_inx-ref_doc_it = 'X'.
    t_contract_items_inx-ref_doc_ca = 'X'.
    t_contract_items_inx-prc_group5 = 'X'.
    APPEND t_contract_items_in.
    APPEND t_contract_items_inx.
    ENDLOOP.
    LOOP AT t_vbpa INTO w_vbpa
    WHERE
    vbeln = p_w_update-vbeln.
    AND posnr = w_vbap-posnr.
    t_contract_partners-partn_role = w_vbpa-parvw.
    t_contract_partners-partn_numb = w_vbpa-kunnr.
    t_contract_partners-itm_number = w_vbpa-posnr.
    APPEND t_contract_partners.
    ENDLOOP.
    CALL FUNCTION 'BAPI_CONTRACT_CREATEFROMDATA'
    EXPORTING
    SALESDOCUMENTIN =
    contract_header_in = w_contract_header_in
    contract_header_inx = w_contract_header_inx
    SENDER =
    BINARY_RELATIONSHIPTYPE = ' '
    INT_NUMBER_ASSIGNMENT = ' '
    BEHAVE_WHEN_ERROR = ' '
    LOGIC_SWITCH =
    TESTRUN =
    CONVERT = ' '
    IMPORTING
    salesdocument = p_w_update-salesdocument
    TABLES
    return = t_return
    contract_items_in = t_contract_items_in
    contract_items_inx = t_contract_items_inx
    contract_partners = t_contract_partners
    CONTRACT_CONDITIONS_IN =
    CONTRACT_CONDITIONS_INX =
    CONTRACT_CFGS_REF =
    CONTRACT_CFGS_INST =
    CONTRACT_CFGS_PART_OF =
    CONTRACT_CFGS_VALUE =
    CONTRACT_CFGS_BLOB =
    CONTRACT_CFGS_VK =
    CONTRACT_CFGS_REFINST =
    CONTRACT_DATA_IN =
    CONTRACT_DATA_INX =
    CONTRACT_TEXT =
    CONTRACT_KEYS =
    EXTENSIONIN =
    PARTNERADDRESSES =
    IF p_w_update-salesdocument NE ' ' .
    p_w_update-message = 'SUCCESS'.
    ELSE.
    READ TABLE t_return INDEX 1.
    p_w_update-message = t_return-message.
    ENDIF.
    READ TABLE t_vbak INTO w_vbak
    WITH KEY
    vbeln = p_w_update-vbeln.
    IF sy-subrc = 0.
    MODIFY t_vbak INDEX sy-tabix FROM p_w_update .
    ENDIF.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
    wait = 'X'.
    ENDFORM. " F_BAPI_CONTRACT_CREATEFROMDATA
    *& Form f_bdc_contract_from_Quotation
    BAPI CALL
    -->P_W_UPDATE text
    FORM f_bdc_contract_from_quotation.
    DATA : l_date TYPE char10.
    REFRESH : messtab, bdcdata.
    CLEAR : messtab, bdcdata.
    PERFORM bdc_dynpro USING 'SAPMV45A' '0101'.
    PERFORM bdc_field USING 'BDC_OKCODE'
    '=COPY'.
    PERFORM bdc_field USING 'VBAK-AUART'
    'ZCNT'.
    PERFORM bdc_dynpro USING 'SAPLV45C' '0100'.
    PERFORM bdc_field USING 'BDC_OKCODE'
    '=RANG'.
    PERFORM bdc_dynpro USING 'SAPLV45C' '0100'.
    PERFORM bdc_field USING 'BDC_OKCODE'
    '=UEBR'.
    PERFORM bdc_field USING 'LV45C-VBELN'
    w_update-vbeln.
    PERFORM bdc_dynpro USING 'SAPMV45A' '4001'.
    PERFORM bdc_field USING 'BDC_OKCODE'
    '=SICH'.
    IF NOT w_update-angdt IS INITIAL.
    CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
    EXPORTING
    date_internal = w_update-angdt
    IMPORTING
    date_external = l_date
    EXCEPTIONS
    date_internal_is_invalid = 1
    OTHERS = 2.
    PERFORM bdc_field USING 'VBAK-GUEBG'
    l_date.
    ENDIF.
    IF NOT w_update-bnddt IS INITIAL.
    CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
    EXPORTING
    date_internal = w_update-bnddt
    IMPORTING
    date_external = l_date
    EXCEPTIONS
    date_internal_is_invalid = 1
    OTHERS = 2.
    PERFORM bdc_field USING 'VBAK-GUEEN'
    l_date.
    ENDIF.
    CALL TRANSACTION 'VA41' USING bdcdata
    MODE 'E'
    UPDATE 'S'
    MESSAGES INTO messtab.
    break abap.
    READ TABLE messtab WITH KEY msgid = 'V1'
    msgnr = '311'.
    IF sy-subrc EQ 0.
    w_update-message = 'SUCCESS'.
    w_update-salesdocument = messtab-msgv2.
    ELSE.
    READ TABLE messtab WITH KEY msgtyp = 'E'.
    IF sy-subrc EQ 0.
    DATA : l_info TYPE einfo.
    CLEAR l_info.
    l_info-msgid = messtab-msgid.
    l_info-msgty = messtab-msgtyp.
    l_info-msgno = messtab-msgnr.
    l_info-msgv1 = messtab-msgv1.
    l_info-msgv2 = messtab-msgv2.
    l_info-msgv3 = messtab-msgv3.
    l_info-msgv4 = messtab-msgv4.
    CALL FUNCTION 'MESSAGE_GET_TEXT'
    EXPORTING
    ieinfo = l_info
    ilangu = sy-langu
    IMPORTING
    etext = w_update-message
    EXCEPTIONS
    no_t100_found = 1
    OTHERS = 2.
    ENDIF.
    ENDIF.
    READ TABLE t_vbak INTO w_vbak WITH KEY vbeln = w_update-vbeln.
    IF sy-subrc = 0.
    MODIFY t_vbak INDEX sy-tabix FROM w_update transporting message
    salesdocument.
    ENDIF.
    ENDFORM. " f_bdc_contract_from_Quotation
    Start new screen *
    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
    Also, check the following:
    http://www.sapdevelopment.co.uk/reporting/alv/alvtree.htm
    You can get help as programs also.
    hope this helps.
    cheers,
    Hema.

  • How to add an item into the Newsstand

    How to add an item into the Newsstand.  Please do NOT reply using  "tech-language." Use standard- normal everyday English. Thanks,
    Don Otlin
    Franklin Square, NY

    Open Newsstand. Tap on the "Store" button in the upper right. Any newspaper or magazine you download from the store will appear in Newsstand.

  • How to integrate BW reports into the Portal ???

    Hi all,
      I need to integrate the BW (3.5) Reports into the Portal. If any one has good documents could you please pass it to my e-mail id: [email protected]
    Thanks in advance.

    Hi Venkat,
    Integration of BW Components into the Portal
    http://help.sap.com/saphelp_nw04/helpdata/en/a8/37e1082163c54abce581a54d6b771a/frameset.htm
    Configuration for the Integration of SAP BW and SAP EP
    http://help.sap.com/saphelp_nw04/helpdata/en/2f/741a403233dd5fe10000000a155106/frameset.htm
    How to Integrate BW Web Applications into EP 5.0
    https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/af073962-0b01-0010-f7a4-f4c1023ed0a4
    Keys for Integrating SAP BW 3.5 and SAP Enterprise Portal 6.0
    https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/6b1472a7-0301-0010-64bd-dc96509db6f7
    Enterprise Portal Integration into BW(e-class)
    https://media.sdn.sap.com/eclasses/ebw201/main.htm
    Hope this helps.
    Regards
    Hari

  • How to download project template into the SAP NetWeaver Developer Studio

    Hi,
          I want to download project template into the SAP NetWeaver Developer Studio related to invoice detail get detail,get list etc.
    How to do so?Actualy my requirement is to create an iView whcih contain the detail about the invoice.
    Thank,
    Kundan

    Hi
    If you have zip file of the project then unzip it into your project  location where all projects are there .then in NWDS go to file->import->multiple existing project into workspace->browse the file where you have saved it and select the comp folder inside the project folder->click finish.Now you are able to see the webdynpro project in the webdynpro explorer.If its not appearing then go to Navigatore and right click on project and click on open project, it will open the project in webDynpro explorer.
    Thanks
    Susmita

  • How to add one column into the t.code: cat2

    Hi
    I am userexits
    here i want to add one column into the t.code: cat2 at particular location, and that added field have to display the data what i am selcting in that transaction.
    how to do this...
    thankx

    hi,
        CATS0005           
        CATS0007           
        CATS0009        
        CATS0010        
        CATS0012.
        Go through the documentations of above Enhancements to solve ur problem. I am not able to understand ur exact requirement. that is y i gave some more Enhancements.

  • How  to add custom fields to the  sap standard  program ukm_bp_display

    How  to add new custom  fields to the  sap standard  program ukm_bp_display .
    could u  please any one help me on this?

    Hello Kumar,
    You have to modify below structure, as this structure is providing the field catalog for output display (ALV).
    Here you can see there are a lot of include structures, so if you want to add fields in the output display you can add those fileds as an append structure to any of the below mentioned structures (Like ukm_s_account, ukm_s_bp_cms_sgm etc as per your requiremnt and positon at which you need to dispaly your fields.)
    DATA: BEGIN OF gt_grid_alv OCCURS 0.
           partner LIKE but000-partner,
           credit_sgmnt LIKE ukmbp_cms_sgm-credit_sgmnt.
            INCLUDE STRUCTURE ukm_s_account.
            INCLUDE STRUCTURE ukm_s_bp_cms_sgm.
    DATA:   credit_sgmnt_txt LIKE ukmcred_sgm0t-credit_sgmnt_txt.
          Gruppe Vector
            INCLUDE STRUCTURE ukm_s_bp_vector.
          Gruppe OBL = Obligo
          include structure UKM_S_BP_CMS_MALUSDSP_OUT.
            INCLUDE STRUCTURE ukm_s_display_segment.
            INCLUDE STRUCTURE ukm_s_bp_cms.
            INCLUDE STRUCTURE bus000_dat.
    *DATA:   icon(4).
          Gruppe RAST (Raster)
    DATA:
             rast01 LIKE ukm_s_display_segment-AMOUNT_GRID,
             rast02 LIKE ukm_s_display_segment-AMOUNT_GRID,
             rast03 LIKE ukm_s_display_segment-AMOUNT_GRID,
             rast04 LIKE ukm_s_display_segment-AMOUNT_GRID,
             rast05 LIKE ukm_s_display_segment-AMOUNT_GRID,
             rast06 LIKE ukm_s_display_segment-AMOUNT_GRID.
    DATA:    rast2_6 LIKE ukm_s_display_segment-AMOUNT_GRID.
    "Summe raster 2 bis 6
    DATA:  END OF gt_grid_alv.
    Another way is you can  go  to SE38, and you can create implicit enhancements.One enhancement point is available here in this required area. so create an implementation and add your fileds with data types.This way is also simple.
    Hope this will solve yiour problems.
    Regards,
    Antony Thomas

  • How to open Crystal Report from the SAP GUI ?

    Hi experts,
        We have developed some reports for our ECC 6.0 system by using Crystal Report 2008 and SAP integration kit , these reports are published to BO edge 3.1 server.  To view the report, our user have to open IE and login Infoview first.
       For convenience, we want to open Crystal report from SAPGUI directly without login BOE, How can we do it? 
    Thanks.

    Hi
    please take a look here
    Crystal Reports
    Regards,
    STratos

  • How to add audio SFX into the "stock" FCPX efx library / browser?

    I have some new SFX to compliment third-party visual transitions / efx. How can I add them to my FCPX sfx library (in the effects browser)?
    BACKGROUND:
    I realized I could drag the folder (with the new SFX) into the efx browser window. However, the SFX files only stay there as "pointers" to the same folder--the one recently "dragged" into the browser. (If the folder gets trashed or moved, FCPX can't access the files.)
    QUESTION:
    How may I drag these files (new SFX folder) to the same place the "stock" FCPX SFX are located? ...thus showing up as "permanent" EFX available to me in the browser. (I could not find the "stock" FCPX files on my HD)
    Any suggestions?

    the 'original' sfx are located
    ~/Library/Audio/Apple Loops/Apple/Final Cut Pro Sound Effects/(foldername)
    and as .caf
    made a quick test:
    converted a mp3 into 48kHz.aiff and re-named the suffix to .caf
    dropped into above location >> working and NO link
    its icon is not as others, so just fumbling the suffix is maybe not lege artis - but working
    found here
    http://forums.macrumors.com/showthread.php?t=335683
    some advice, using terminal commands - I'm too shy testing that.-

  • How to copy and paste into the same picture using quick selection tool

    I have Photoshop CS5 and am new at this.  What I need to do is copy and paste something in the image back into the same image.  I can select it with the quick selection tool.  All I want to do is paste a copy of it back into my image, move it and rotate it a little. 
    I've searched for an answer for a couple of days now and evidently, I'm searching for the wrong thing.  This is what I need to do and I don't know how to get there.  I do this in Digital Image Suite all the time and it's very simple.  I know Photoshop is a lot more complicated but you can do more with it so I am trying to switch by using it to work on my projects.  I've read articles where people say to use the quick selection tool and do a copy and paste but for me, all it does is add blank layer and the selection disappears.  If I paste again, it pastes the item in the middle of the image and I can't move it or change it in any way.
    One more question:  in the Filters menu, all of the filters are gray-shaded.  I read that I have to buy these filters, is that true?
    Thank you for your help.  If there is a beginner's forum where you would rather I post my questions, please let me know.

    Once you have a selection, I use Ctrl C to copy and Ctrl V to paste.  This will add a layer but may not look like it as it is in exactly the same spot in picture.  If you paste again it will show up near middle of picture.
    If you want to resize and rotate use Ctrl T.
    More options are in Edit/Transform.  I particularly like Warp.
    All the filters should be active, but many only work in 8 bit RGB mode.  To see what mode they are in click Image/Mode.

  • How to generate a mail into the SAP Inbox

    Hi everyone,
    I have an MM Workflow that is starting correctly and a mail is supposed to be generated in the user Inbox in SAP after the completion of a material enhancement but it does not. The Workflow was copied from another system and it was working fine.
    I tried to see any event (step) that is sending a mail in the Workflow and I found only 1 but it seem correctly configured from what I can see. I am not even sure this is the right event that I am looking at.
    Does anyone have an idea of what I should look for and how I could manage to see why no mail is generated?
    I am still a beginner in Workflow so try to give me as much detail as possible.
    Thank you in advance for your answers.
    Best regards,
    Sylvain

    Hi Sylvain,
    The issue could be at many places.
    Check the workflow step that needs to send the mail to the desired user.
    Check if the agent who needs to recieve the mail is pesent in the current system. If the user is not hard-coded, check how the user is getting fetched in the step. If it is through rules, etc you need to debug the same.
    Also check the authorizations of the user in SU01. Check the agent assignment for the task as well.
    You can find much information in the workflow  log to start with the debugging.
    Hope this helps!
    Regards,
    Saumya

  • How to add another serve into the cluster without updating the tangosol xml

    Currently we have two servers in the cluster and incase want to expand it further, add the entry in tangosol-coherence-override.xml.
    What i am looking for is coherence providing kind of API using which I can tell it that here is the new/latest list of servers in the cluster. If there is a change then the cluster should be able to accommodate accordingly.
    More of a dynamic self expansion and reduction ability of the Coherence cluster based on the published information.
    Thanks
    Edited by: user11224268 on Jun 2, 2009 7:40 PM

    Hi,
    I do not think this is presently feasible. I have filed COH-2374 for tracking purposes requesting an implementation of the host-filter element for the authorized-hosts for cluster-config similar to the host-filter element for authorized-hosts for tcp-acceptor. This would enable the specification of a Filter implementation that would be used to determine if a host should be allowed to join the cluster.
    Regards,
    Harv

  • How to add a report to HR Report tree

    Hello Friends,
                         I need to add a report to HR Report tree.
    Guide me how to do it.
    Cheers
    Senthil

    Use transaction SE43 and SE43N.
    Check this threads
    How to add a report into the tree??
    Adding report/program to Report Tree
    Manoj.

Maybe you are looking for

  • Performance monitor reports and graphs don't show all the counters that were captured

    I've run into an odd behavior of performance monitor that I haven't been able to clear up yet: after I run a data collector set, the resulting report only shows a partial list of the counters that I captured, and so does the graph of that report (but

  • Any news of updating ipod photo to ipod video

    guys.. is there any news about updating ipod photo to ipod video in the future??? i'm so darn pis$ed after looking at the ipod video... i have an ipod photo 30 gig and i just feel that it's really unfair for other ipod with colour display users!!!!!!

  • Keyboard canadian french bluetooth

    Hi, I seach a keyboard with this SAME configuration because my macbook Air has this configuration and i don't want to change that. Help me to find an Apple keyboard with this configuration. i want the ç,à,è,«,»,ù,é,<,>,",°,............. in all other

  • Excel (Worksheet logic) to BADI

    Hi Everyone, Ive a report where the cells are defined with the "Worksheet Logic". Based on the values determined (through work sheet logic) I have to post those values to another application where I will use the source to destination concept. Could a

  • Run reports through browser on local machine

    Hi, I am trying to run 6i reports through a web browser. I have installed 6i and the reports server on a local machince. I have configured the reports server and can get it to start. In order for me to run reports on my local machine through a web br