Creating Cpmplecated screen in report program

hi,
We have requirement of creating report program with complecated screen design.This screen can be created easily in Dialog programming .I want to create similar screen in report program .
Please suggest how can I achieve this.
Thanks
Saurabh

Hi,
In the report program,
parameters: a type i.
now go to se51 enter the name of your program and screen no as 1000 and do the required changes as per the requirement.
if you execute the report, whatever you modified by using se51 will come.

Similar Messages

Creating a screen in report program and calling that screen in program.

Hi,
I have a report program and I want to give output in different screen.
can any one tell me how to create a screen in executable program and calling that screen in program in END-OF-SELECTION for displaying results.
Thanks a lot.
Kiran

Hi,
Open your program in SE80. Right click on your program. Click CREATE->Screen menu. This will allow you to create screen for the program.
In the End-of-selection event call the screen using the commands CALL SCREEN or LEAVE TO SCREEN or SET SCREEN.
CALL SCREEN
http://help.sap.com/saphelp_47x200/helpdata/en/9f/dba4e635c111d1829f0000e829fbfe/content.htm
LEAVE SCREEN/SET SCREEN
http://help.sap.com/saphelp_47x200/helpdata/en/9f/dbab3635c111d1829f0000e829fbfe/content.htm
Regards,
Vara

Creating Cpmplecated screen in rport program

Hi All,
My screen design is very complecated.I want to create a report program having such screen.What is the best method of doing this?
Thanks
Saurabh
Moderator message - Vague question locked
Edited by: Rob Burbank on Apr 21, 2009 9:21 AM

Hi,
In the report program,
parameters: a type i.
now go to se51 enter the name of your program and screen no as 1000 and do the required changes as per the requirement.
if you execute the report, whatever you modified by using se51 will come.

Can we create purchase order through report programming?

hi experts.....
can we create purchase order through report programming?If yes plz give me the thread details?

Hi,
Use this code in a program by using a BAPI function module
Anothe rway is using classical/ALV report using call transaction from a report for changing the PO
loop at i_header.
    header-ref_1         = i_header-legacy.
    headerx-ref_1        = c_x.
    header-doc_type      = i_header-bsart.
    headerx-doc_type     = c_x.
    header-comp_code     = i_header-bukrs.
    headerx-comp_code    = c_x.
    header-purch_org     = i_header-ekorg.
    headerx-purch_org    = c_x.
    header-pur_group     = i_header-ekgrp.
    headerx-pur_group    = c_x.
    header-vendor        = i_header-lifnr.
    headerx-vendor       = c_x.
    concatenate i_header-bedat+4(4)
                i_header-bedat+0(2)
                i_header-bedat+2(2)
                into header-doc_date.
    headerx-doc_date     = c_x.
    header-created_by    = i_header-ernam.
    headerx-created_by   = c_x.
    header-currency      = i_header-waers.
    headerx-currency     = c_x.
    concatenate i_header-kdatb+4(4)
                i_header-kdatb+0(2)
                i_header-kdatb+2(2)
                into header-vper_start.
    headerx-vper_start   = c_x.
    loop at i_items where legacy = i_header-legacy.
      item-po_item            = i_items-ebelp.
      itemx-po_item           = i_items-ebelp.
      itemx-po_itemx          = c_x.
      if i_header-bsart = 'NB'.
        item-material            = i_items-ematn.
        itemx-material           = c_x.
        schedule-quantity        = i_items-menge * 1000.
        schedulex-quantity       = c_x.
      else.
        item-short_text          = i_items-ematn.
        itemx-short_text         = c_x.
        item-matl_group          = '1000'.
        itemx-matl_group         = c_x.
        schedule-quantity        = '1'.
        schedulex-quantity       = c_x.
      endif.
      item-plant               = i_items-werks.
      itemx-plant              = c_x.
      schedule-po_item         = i_items-ebelp.
      schedule-sched_line      = '1'.
      schedulex-po_item        = i_items-ebelp.
      schedulex-sched_line     = '1'.
      schedulex-po_itemx       = c_x.
      schedulex-sched_linex    = c_x.
      concatenate i_items-eildt+0(2)
                   i_items-eildt+2(2)
                   i_items-eildt+4(4)
                   into schedule-delivery_date.
      schedulex-delivery_date = c_x.
      item-price_unit          = i_items-peinh * 100.
      itemx-price_unit         = c_x.
      item-tax_code            = i_items-mwskz.
      itemx-tax_code           = c_x.
      item-shipping            = i_items-evers.
      itemx-shipping           = c_x.
      account-po_item          = i_items-ebelp.
      accountx-po_item         = i_items-ebelp.
      accountx-po_itemx        = c_x.
      if i_header-bsart = 'FO'.
        item-pckg_no = sy-tabix.
        itemx-pckg_no = 'X'.
        limits-pckg_no        = sy-tabix.
        limits-limit          = i_items-overalllimit.
        limits-exp_value      = i_items-expectedoverall.
        posrvaccessvalues-pckg_no    = sy-tabix.
        posrvaccessvalues-line_no    = '0'.
        posrvaccessvalues-serno_line = '00'.
        posrvaccessvalues-percentage = '100.0'.
        posrvaccessvalues-serial_no = '01'.
        account-serial_no     = '1'.
        accountx-serial_no    = '1'.
        accountx-serial_nox   = c_x.
        account-quantity = '1'.
        accountx-quantity = c_x.
        call function 'CONVERSION_EXIT_ALPHA_INPUT'
          exporting
            input = i_items-kostl
          importing
            output = account-costcenter.
        accountx-costcenter   = c_x.
        call function 'CONVERSION_EXIT_ALPHA_INPUT'
          exporting
            input = i_items-sakto
          importing
            output = account-gl_account.
        accountx-gl_account   = c_x.
        item-acctasscat       = i_items-knttp.
        itemx-acctasscat      = c_x.
        item-item_cat         = i_items-epstp.
        itemx-item_cat        = c_x.
      endif.
      append:item,itemx,schedule,schedulex,account,accountx,limits,posrvaccessvalues.
      clear :item,itemx,schedule,schedulex,account,accountx,limits,posrvaccessvalues.
    endloop.
    call function 'BAPI_PO_CREATE1'
      exporting
        poheader                     = header
        poheaderx                    = headerx
*   POADDRVENDOR                 =
*   TESTRUN                      =
*   MEMORY_UNCOMPLETE            =
*   MEMORY_COMPLETE              =
*   POEXPIMPHEADER               =
*   POEXPIMPHEADERX              =
*   VERSIONS                     =
*   NO_MESSAGING                 =
*   NO_MESSAGE_REQ               =
*   NO_AUTHORITY                 =
*   NO_PRICE_FROM_PO             =
        importing
        exppurchaseorder             = ponumber
*   EXPHEADER                    =
*   EXPPOEXPIMPHEADER            =
        tables
        return                       = return
        poitem                       = item
        poitemx                      = itemx
*   POADDRDELIVERY               =
        poschedule                   = schedule
        poschedulex                  = schedulex
        poaccount                    = account
*   POACCOUNTPROFITSEGMENT       =
        poaccountx                   = accountx
*   POCONDHEADER                 =
*   POCONDHEADERX                =
*   POCOND                       =
*   POCONDX                      =
        polimits                     = limits
*   POCONTRACTLIMITS             =
*   POSERVICES                   =
   posrvaccessvalues            = posrvaccessvalues.
*   POSERVICESTEXT               =
*   EXTENSIONIN                  =
*   EXTENSIONOUT                 =
*   POEXPIMPITEM                 =
*   POEXPIMPITEMX                =
*   POTEXTHEADER                 =
*   POTEXTITEM                   =
*   ALLVERSIONS                  =
*   POPARTNER                    =
    if ponumber eq space.
      loop at return where type = 'E'.
        clear buffer.
        move-corresponding return to e_return.
        concatenate i_header-legacy e_return into buffer.
        transfer buffer to p2_file.
      endloop.
      move-corresponding i_header to i_eheader.
      transfer i_eheader to p3_file.
      loop at i_items where legacy = i_header-legacy.
        move-corresponding i_items to i_eitems.
        transfer i_eitems to p4_file.
      endloop.
    else.
      commit work and wait.
    endif.
    clear:ponumber,header,headerx,item,itemx,account,accountx,limits,return,schedule,schedulex,posrvaccessvalues.
    refresh:item,itemx,account,accountx,limits,return,schedule,schedulex,posrvaccessvalues.
endloop.
close dataset p2_file.
close dataset p3_file.
close dataset p4_file.
Regards
Krishna

Choose fields option in Selection Screen of report program.

Hi Experts,
 Actually In my requirement , the user wants to display the output fields in ALV Grid and also in Block ALV format.They need 10 fields to be displayed by default and the additional fields has to be displayed based on the choose fields option
( i.e like SE11 choose fields option ) provided in the selection screen of this report program.So based on this the output has to be displayed.
Pls suggest ur ideas.....
Thanks in advance.
Regards,
Srinivas.

Hi ,
The following code will be helpful for your requirement...
REPORT ypm_hist_dyn.
* T Y P E - P O O L S *
TYPE-POOLS: slis.
* T Y P E S *
TYPES : BEGIN OF t_equz,
 datbi TYPE datbi, " Valid To Date
 equnr TYPE equnr, " Equipment Number
 erdat TYPE erdat, " Date on Which Record Was Created
 aedat TYPE aedat, " Changed On
 iloan TYPE iloan, " Location and account assignment for technical object
 gewrk TYPE lgwid, " Object ID of the Work Center
 ingrp TYPE ingrp, " Planner Group for Customer Service and Plant Maintenance
 END OF t_equz,
 BEGIN OF t_equz1,
 datbi TYPE datbi, " Valid To Date
 equnr TYPE equnr, " Equipment Number
 erdat TYPE erdat, " Date on Which Record Was Created
 aedat TYPE aedat, " Changed On
 END OF t_equz1,
 BEGIN OF t_iloa,
 iloan TYPE iloan, "Location and account assignment for technical object
 tplnr TYPE tplnr, " Functional Location
 msgrp TYPE raumnr, " Room
 END OF t_iloa,
 BEGIN OF t_iflotx,
 tplnr TYPE tplnr, "Functional Location
 pltxt TYPE pltxt, " Description of functional location
 END OF t_iflotx,
 BEGIN OF t_equi,
 equnr TYPE equnr, " Equipment Number
 eqart TYPE eqart, "Type of Technical Object
 END OF t_equi,
 BEGIN OF t_crhd,
 objid TYPE cr_objid, "Object ID of the resource
 arbpl TYPE arbpl, "Work center
 END OF t_crhd,
 BEGIN OF t_eqkt,
 equnr TYPE equnr, "Equipment Number
 eqktx TYPE ktx01, "Description of technical object
 END OF t_eqkt,
 BEGIN OF t_t370k_t,
 eqart TYPE eqart, "Type of Technical Object
 eartx TYPE eartx, "Text for Object Type
 END OF t_t370k_t,
 BEGIN OF t_t024i,
 ingrp TYPE ingrp, "Planner Group for Customer Service and Plant Maintenance
 innam TYPE innam, "Name of the Maintenance Planner Group
 END OF t_t024i,
 BEGIN OF t_viqmel,
 equnr TYPE equnr, "Equipment Number
 qmnum TYPE qmnum, "Notification No
 qmdat TYPE qmdat, "Date of Notification
 bequi TYPE bequi, "Equipment Affected
 iloan TYPE iloan, "Location and account assignment for technical object
 END OF t_viqmel,
 BEGIN OF t_final,
 equnr TYPE equz-equnr,
 eqktx TYPE eqkt-eqktx,
 tplnr TYPE iloa-tplnr,
 pltxt TYPE iflotx-pltxt,
 iloan TYPE iloan,
 datbi TYPE equz-datbi,
 ingrp TYPE t024i-ingrp,
 erdat TYPE equz-erdat,
 enddt1 TYPE char10,
 aedat TYPE equz-aedat,
 innam TYPE t024i-innam,
 equart TYPE equi-eqart,
 eartx TYPE t370k_t-eartx,
 qmnum TYPE viqmel-qmnum,
 arbpl TYPE crhd-arbpl,
 msgrp TYPE iloa-msgrp,
 dat_diff TYPE char10,
 END OF t_final,
 BEGIN OF t_final1,
 equnr TYPE equz-equnr,
 eqktx TYPE eqkt-eqktx,
 tplnr TYPE iloa-tplnr,
 pltxt TYPE iflotx-pltxt,
 END OF t_final1.
DATA: it_equz TYPE STANDARD TABLE OF t_equz,
 it_iloa TYPE STANDARD TABLE OF t_iloa,
 it_iflotx TYPE STANDARD TABLE OF t_iflotx,
 it_equi TYPE STANDARD TABLE OF t_equi,
 it_crhd TYPE STANDARD TABLE OF t_crhd,
 it_eqkt TYPE STANDARD TABLE OF t_eqkt,
 it_t370k_t TYPE STANDARD TABLE OF t_t370k_t,
 it_t024i TYPE STANDARD TABLE OF t_t024i,
 it_viqmel TYPE STANDARD TABLE OF t_viqmel,
 it_final TYPE STANDARD TABLE OF t_final,
 it_final1 TYPE STANDARD TABLE OF t_final1,
 it_equz1 TYPE STANDARD TABLE OF t_equz1.
DATA: wa_equz TYPE t_equz,
 wa_iloa TYPE t_iloa,
 wa_iflotx TYPE t_iflotx,
 wa_equi TYPE t_equi,
 wa_crhd TYPE t_crhd,
 wa_eqkt TYPE t_eqkt,
 wa_t370k_t TYPE t_t370k_t,
 wa_t024i TYPE t_t024i,
 wa_viqmel TYPE t_viqmel,
 wa_final TYPE t_final,
 wa_final1 TYPE t_final1,
 wa_equz1 TYPE t_equz.
DATA: t_equnr TYPE equz-equnr, "EQUZ-EQUNR
 t_tplnr TYPE iloa-tplnr, "Functional Location
 t_datbi TYPE equz-datbi, "Date
 t_ingrp TYPE equz-ingrp, "Planner Group
 t_eqart TYPE equi-eqart, "Technical Object
 w_diff TYPE p,
 w_time TYPE t.
* ALV DATA DECLARATION *
* Field Catalog
TYPES: BEGIN OF t_fldnam,
 fld TYPE fieldname,
 desc TYPE char30,
 END OF t_fldnam.
DATA: is_layout TYPE slis_layout_alv,
 it_fieldcat TYPE slis_t_fieldcat_alv,
 is_fieldcat TYPE slis_fieldcat_alv,
 it_fldnam TYPE STANDARD TABLE OF t_fldnam,
 wa_fldnam TYPE t_fldnam,
 it_sort TYPE STANDARD TABLE OF slis_t_sortinfo_alv,
 wa_sort LIKE LINE OF it_sort.
DATA: i_events TYPE slis_t_event,
 ls_line TYPE slis_listheader,
 gt_list_top_of_page TYPE slis_t_listheader, "FOR TOP OF PAGE
 gt_list_end_of_page TYPE slis_t_listheader. "FOR END OF PAGE
DATA : formname_top_of_page TYPE slis_formname VALUE
 'GENERATE_TOP_OF_PAGE',
 formname_end_of_page TYPE slis_formname VALUE
 'GENERATE_END_OF_PAGE',
 formname_user_command TYPE slis_formname VALUE 'USER_COMMAND'.
* C O N S T A N T S *
*CONSTANTS: c_top TYPE slis_formname VALUE 'TOP_OF_PAGE',
* c_final(40) TYPE c VALUE 'IT_FINAL',
* c_detail(15) TYPE c VALUE 'IT_FINAL1'.
DATA : g_save(1) TYPE c,
 g_exit(1) TYPE c,
 g_variant LIKE disvariant,
 gx_variant LIKE disvariant.
* S E L E C T I O N S C R E E N *
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_equnr FOR t_equnr,
 s_tplnr FOR t_tplnr,
 s_datbi FOR t_datbi ,
 s_ingrp FOR t_ingrp,
 s_eqart FOR t_eqart.
SELECTION-SCREEN: END OF BLOCK b1.
SELECTION-SCREEN : BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(16) text-007.
SELECTION-SCREEN POSITION 22.
PARAMETERS : 11_flds RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND g1.
SELECTION-SCREEN COMMENT 39(13) text-009.
SELECTION-SCREEN POSITION 54.
PARAMETERS : 6_flds RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN : END OF BLOCK blk2.
SELECTION-SCREEN:BEGIN OF BLOCK b2 WITH FRAME TITLE text-003.
PARAMETERS: alv_list RADIOBUTTON GROUP gp1 DEFAULT 'X'.
PARAMETERS: alv_grid RADIOBUTTON GROUP gp1.
SELECTION-SCREEN:END OF BLOCK b2.
SELECTION-SCREEN: BEGIN OF BLOCK b3 WITH FRAME TITLE text-005.
PARAMETERS : p_vari LIKE disvariant-variant.
SELECTION-SCREEN: END OF BLOCK b3.
AT SELECTION-SCREEN.
PERFORM date_range.
IF s_datbi[] IS INITIAL.
 MESSAGE e398(00) WITH 'ENTER A VALUE FOR DATE'(012).
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM f4_for_variant.
START-OF-SELECTION.
IF 11_flds EQ 'X'.
 PERFORM fill_equz.
 PERFORM fill_iloa.
 PERFORM fill_iflotx.
 PERFORM fill_equi.
 PERFORM fill_t370k_t.
 PERFORM fill_t024i.
 PERFORM fill_crhd.
 PERFORM fill_eqkt.
 PERFORM fill_viqmel.
ELSE.
 PERFORM fill_equz.
 PERFORM fill_iloa.
 PERFORM fill_iflotx.
 PERFORM haha_final.
 PERFORM dyn_tab.
ENDIF.
PERFORM fill_final.
PERFORM get_day_diff.
* END-OF-SELECTION *
END-OF-SELECTION.
*Display Output in ALV Format
* PERFORM populate_layout.
PERFORM populate_fcat.
PERFORM populate_events .
* PERFORM gen_top.
PERFORM display_alv .
*& Form FILL_EQUZ
* text
* --> p1 text
* <-- p2 text
FORM fill_equz .
IF s_datbi-high IS INITIAL.
 s_datbi-high = '99990701'.
ENDIF.
* IF s_datbi-LOW IS INITIAL.
* s_datbi-LOW = '20071201'.
* ENDIF.
 SELECT datbi
 equnr
 erdat
 aedat
 iloan
 gewrk
 ingrp
 FROM equz
 INTO CORRESPONDING FIELDS OF TABLE it_equz
* WHERE datbi IN s_datbi AND equnr IN s_equnr.
 WHERE equnr IN s_equnr
 AND ingrp IN s_ingrp
 AND datbi LE s_datbi-high
 AND datbi GE s_datbi-low.
ENDFORM. " FILL_EQUZ
*& Form FILL_ILOA
* text
* --> p1 text
* <-- p2 text
FORM fill_iloa .
SELECT iloan
 tplnr
 msgrp
 INTO CORRESPONDING FIELDS OF TABLE it_iloa
 FROM iloa
 FOR ALL ENTRIES IN it_equz
 WHERE iloan = it_equz-iloan.
ENDFORM. " FILL_ILOA
*& Form FILL_IFLOTX
* text
* --> p1 text
* <-- p2 text
FORM fill_iflotx .
SELECT tplnr
 pltxt
 INTO CORRESPONDING FIELDS OF TABLE it_iflotx
 FROM iflotx
 FOR ALL ENTRIES IN it_iloa
 WHERE tplnr = it_iloa-tplnr.
ENDFORM. " FILL_IFLOTX
*& Form FILL_EQUI
* text
* --> p1 text
* <-- p2 text
FORM fill_equi .
SELECT equnr
 eqart
 INTO CORRESPONDING FIELDS OF TABLE it_equi
 FROM equi
 FOR ALL ENTRIES IN it_equz
 WHERE equnr = it_equz-equnr.
ENDFORM. " FILL_EQUI
*& Form FILL_T370K_T
* text
* --> p1 text
* <-- p2 text
FORM fill_t370k_t .
SELECT eqart
 eartx
 INTO CORRESPONDING FIELDS OF TABLE it_t370k_t
 FROM t370k_t
 FOR ALL ENTRIES IN it_equi
 WHERE eqart = it_equi-eqart.
ENDFORM. " FILL_T370K_T
*& Form FILL_T024I
* text
* --> p1 text
* <-- p2 text
FORM fill_t024i .
SELECT ingrp
 innam
 INTO CORRESPONDING FIELDS OF TABLE it_t024i
 FROM t024i
 FOR ALL ENTRIES IN it_equz
 WHERE ingrp = it_equz-ingrp.
ENDFORM. " FILL_T024I
*& Form FILL_CRHD
* text
* --> p1 text
* <-- p2 text
FORM fill_crhd .
SELECT objid
 arbpl
 INTO CORRESPONDING FIELDS OF TABLE it_crhd
 FROM crhd
 FOR ALL ENTRIES IN it_equz
 WHERE objid = it_equz-gewrk.
ENDFORM. " FILL_CRHD
*& Form FILL_EQKT
* text
* --> p1 text
* <-- p2 text
FORM fill_eqkt .
SELECT equnr
 eqktx
 INTO CORRESPONDING FIELDS OF TABLE it_eqkt
 FROM eqkt
 FOR ALL ENTRIES IN it_equz
 WHERE equnr = it_equz-equnr.
ENDFORM. " FILL_EQKT
*& Form FILL_VIQMEL
* text
* --> p1 text
* <-- p2 text
FORM fill_viqmel .
ENDFORM. " FILL_VIQMEL
*& Form SHW_DATA
* text
* --> p1 text
* <-- p2 text
FORM shw_data .
LOOP AT it_final1 INTO wa_final1.
 WRITE : wa_final1-equnr , wa_final1-eqktx , wa_final1-tplnr , wa_final1-pltxt.
 CLEAR wa_final1.
ENDLOOP.
ENDFORM. " SHW_DATA
*& Form POPULATE_LAYOUT
* text
* --> p1 text
* <-- p2 text
*FORM populate_layout .
* is_layout-zebra = 'X'.
* is_layout-colwidth_optimize = 'X'.
* APPEND is_layout.
*ENDFORM. " POPULATE_LAYOUT
*& Form POPULATE_FCAT
* text
* --> p1 text
* <-- p2 text
FORM populate_fcat .
IF 11_flds EQ 'X'.
 APPEND 'EQUNR EQUIP NUMBER ' TO it_fldnam.
 APPEND 'EQKTX DESC OF EQUIP ' TO it_fldnam.
 APPEND 'ERDAT START DATE ' TO it_fldnam.
 APPEND 'DATBI END DATE ' TO it_fldnam.
 APPEND 'AEDAT CHND ON ' TO it_fldnam.
 APPEND 'ILOAN LOC ON ACCOUNT ' TO it_fldnam.
 APPEND 'TPLNR FUNC LOC ' TO it_fldnam.
 APPEND 'PLTXT DESC FUNC LOC ' TO it_fldnam.
 APPEND 'INGRP PLANNER GRP ' TO it_fldnam.
 APPEND 'INNAM MAINT PLN GRP ' TO it_fldnam.
 APPEND 'DAT_DIFF DATE DIFF ' TO it_fldnam.
ENDIF.
IF 6_flds EQ 'X'.
 APPEND 'TPLNR FUNC LOCATION ' TO it_fldnam.
 APPEND 'PLTXT DESC OF FUC LOC ' TO it_fldnam.
 APPEND 'DATBI END DATE ' TO it_fldnam.
 APPEND 'EQUNR EQUIP NUMBER ' TO it_fldnam.
 APPEND 'ERDAT START DATE ' TO it_fldnam.
 APPEND 'AEDAT CHND ON ' TO it_fldnam.
ENDIF.
ENDFORM. " POPULATE_FCAT
*& Form DISPLAY_ALV
* text
* --> p1 text
* <-- p2 text
FORM display_alv .
*--------------------------------------------------Preparing the Layout*
is_layout-colwidth_optimize = 'X'.
is_layout-zebra = 'X'.
*-------------------------------------------Preparing the Field Catalog*
 BREAK-POINT.
LOOP AT it_fldnam INTO wa_fldnam.
 is_fieldcat-tabname = 'IT_FINAL'.
 is_fieldcat-fieldname = wa_fldnam-fld.
 is_fieldcat-seltext_l = wa_fldnam-desc.
 is_fieldcat-col_pos = sy-tabix.
 IF wa_fldnam-fld = 'EQKTX'.
 is_fieldcat-lowercase = ' '.
 ENDIF.
 APPEND is_fieldcat TO it_fieldcat.
 CLEAR : is_fieldcat, wa_fldnam.
ENDLOOP.
*-------------------------------------------------------Calling Display*
IF alv_list = 'X'.
 CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 is_layout = is_layout
 it_fieldcat = it_fieldcat
 it_events = i_events[]
 i_default = 'X'
 TABLES
 t_outtab = it_final
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
ELSE.
* CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
* EXPORTING
* i_callback_program = sy-repid
* i_callback_top_of_page = 'GEN_TOP'
* is_layout = is_layout
* it_fieldcat = it_fieldcat
* it_events = i_events[]
* i_save = g_save
* is_variant = g_variant
* i_default = 'A'
* TABLES
* t_outtab = it_final
* EXCEPTIONS
* program_error = 1
* OTHERS = 2.
* IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
* ENDIF.
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
 i_callback_program = sy-repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
 i_callback_top_of_page = 'GEN_TOP'
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
 is_layout = is_layout
 it_fieldcat = it_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
 i_save = 'A'
* IS_VARIANT = g_variant
* IT_EVENTS = i_events[]
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 20
* I_SCREEN_START_LINE = 30
* I_SCREEN_END_COLUMN = 100
* I_SCREEN_END_LINE = 40
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = it_final
 EXCEPTIONS
 program_error = 1
 OTHERS = 2
 IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
ENDFORM. " DISPLAY_ALV
*& Form GET_DAY_DIFF
* text
* --> p1 text
* <-- p2 text
FORM get_day_diff .
w_time = '00:00:00'.
FIELD-SYMBOLS: <deb> LIKE LINE OF it_final.
LOOP AT it_final ASSIGNING <deb>.
 CALL FUNCTION 'SD_DATETIME_DIFFERENCE'
 EXPORTING
 date1 = <deb>-datbi
 time1 = w_time
 date2 = <deb>-erdat
 time2 = w_time
 IMPORTING
 datediff = w_diff
* TIMEDIFF =
* EARLIEST =
* EXCEPTIONS
* INVALID_DATETIME = 1
* OTHERS = 2
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ELSEIF sy-subrc = 0.
 <deb>-dat_diff = w_diff.
* MODIFY it_final FROM WA_FINAL TRANSPORTING dat_diff.
 ENDIF.
ENDLOOP.
ENDFORM. " GET_DAY_DIFF
*& Form HAHA_FINAL
* text
* --> p1 text
* <-- p2 text
FORM haha_final .
* FIELD-SYMBOLS: <deb> LIKE LINE OF it_final.
LOOP AT it_iflotx INTO wa_iflotx.
* wa_final1-equnr = wa_iflotx-equnr.
* wa_final1-eqktx = wa_iflotx-eqktx.
 wa_final1-tplnr = wa_iflotx-tplnr.
 wa_final1-pltxt = wa_iflotx-pltxt.
 APPEND wa_final1 TO it_final1.
ENDLOOP.
ENDFORM. " HAHA_FINAL
*& Form DYN_TAB
* text
* --> p1 text
* <-- p2 text
FORM dyn_tab .
LOOP AT it_equz INTO wa_equz.
 wa_equz1-datbi = wa_equz-datbi.
 wa_equz1-equnr = wa_equz-equnr.
 wa_equz1-erdat = wa_equz-erdat.
 wa_equz1-aedat = wa_equz-aedat.
 APPEND wa_equz1 TO it_equz1.
ENDLOOP.
ENDFORM. " DYN_TAB
*& Form FILL_FINAL1
* text
* --> p1 text
* <-- p2 text
FORM fill_final.
IF 11_flds EQ 'X'.
 FIELD-SYMBOLS: <deb> LIKE LINE OF it_equz,
 <deb1> LIKE LINE OF it_final.
 CLEAR wa_equz.
 REFRESH : it_final[].
 LOOP AT it_equz ASSIGNING <deb>.
 wa_final-equnr = <deb>-equnr.
 wa_final-datbi = <deb>-datbi.
 wa_final-erdat = <deb>-erdat.
 wa_final-aedat = <deb>-aedat.
 wa_final-iloan = <deb>-iloan.
 wa_final-ingrp = <deb>-ingrp.
 APPEND wa_final TO it_final.
 CLEAR wa_final.
 ENDLOOP.
 LOOP AT it_final ASSIGNING <deb1>.
 READ TABLE it_iloa INTO wa_iloa WITH KEY iloan = <deb1>-iloan.
 <deb1>-tplnr = wa_iloa-tplnr.
 ENDLOOP.
 LOOP AT it_final ASSIGNING <deb1>.
 READ TABLE it_iflotx INTO wa_iflotx WITH KEY tplnr = <deb1>-tplnr.
 <deb1>-pltxt = wa_iflotx-pltxt.
 ENDLOOP.
 LOOP AT it_final ASSIGNING <deb1>.
 READ TABLE it_eqkt INTO wa_eqkt WITH KEY equnr = <deb1>-equnr.
 <deb1>-eqktx = wa_eqkt-eqktx.
 ENDLOOP.
 LOOP AT it_final ASSIGNING <deb1>.
 READ TABLE it_t024i INTO wa_t024i WITH KEY ingrp = <deb1>-ingrp.
 <deb1>-innam = wa_t024i-innam.
 ENDLOOP.
ELSE.
 REFRESH : it_final[].
 LOOP AT it_equz INTO wa_equz.
 wa_final-datbi = wa_equz-datbi.
 wa_final-equnr = wa_equz-equnr.
 wa_final-erdat = wa_equz-erdat.
 wa_final-aedat = wa_equz-aedat.
 wa_final-iloan = wa_equz-iloan.
 APPEND wa_final TO it_final.
 CLEAR wa_final.
 ENDLOOP.
 FIELD-SYMBOLS: <deb2> LIKE LINE OF it_final.
 LOOP AT it_final ASSIGNING <deb2>.
 READ TABLE it_iloa INTO wa_iloa WITH KEY iloan = <deb2>-iloan.
 <deb2>-tplnr = wa_iloa-tplnr.
 ENDLOOP.
 LOOP AT it_final ASSIGNING <deb2>.
 READ TABLE it_iflotx INTO wa_iflotx WITH KEY tplnr = <deb2>-tplnr.
 <deb2>-pltxt = wa_iflotx-pltxt.
 ENDLOOP.
ENDIF.
ENDFORM. " FILL_FINAL
*& Form DATE_RANGE
* text
* --> p1 text
* <-- p2 text
FORM date_range .
DATA :l_dat TYPE i.
IF s_datbi-high IS NOT INITIAL.
 CALL FUNCTION 'DAYS_BETWEEN_TWO_DATES'
 EXPORTING
 i_datum_bis = s_datbi-high
 i_datum_von = s_datbi-low
 IMPORTING
 e_tage = l_dat
 EXCEPTIONS
 days_method_not_defined = 1
 OTHERS = 2.
 IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 IF l_dat GT '31'.
 MESSAGE e398(00) WITH 'Split Your Planning for a range of 31 Days'(012).
 LEAVE LIST-PROCESSING.
 ENDIF.
ENDIF.
ENDFORM. " DATE_RANGE
*& Form GEN_TOP
* text
* --> p1 text
* <-- p2 text
FORM gen_top .
DATA: info(60),
 w_dt TYPE d.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = 'ALV DISPLAY'.
APPEND ls_line TO gt_list_top_of_page.
CONCATENATE 'Date :' s_datbi-low ' TO ' s_datbi-high INTO info SEPARATED BY space.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = info.
APPEND ls_line TO gt_list_top_of_page.
CLEAR ls_line.
ls_line-typ = 'A'.
ls_line-info = 'By Debarshi Roy'.
APPEND ls_line TO gt_list_top_of_page.
* Generate the End of Page
* CLEAR ls_line.
* ls_line-typ = 'H'.
* ls_line-info = 'ECL'.
* APPEND ls_line TO gt_list_end_of_page.
CLEAR: ls_line.
* PERFORM generate_top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = gt_list_top_of_page
 i_logo = 'DEB'.
ENDFORM. " GEN_TOP
*& Form POPULATE_EVENTS
* text
* --> p1 text
* <-- p2 text
FORM populate_events .
DATA: l_i_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = i_events[].
*----- Pass top-of-page
READ TABLE i_events WITH KEY name = slis_ev_top_of_page
 INTO l_i_event.
IF sy-subrc = 0.
 MOVE formname_top_of_page TO l_i_event-form.
 APPEND l_i_event TO i_events.
ENDIF.
CLEAR l_i_event.
*----- Pass end-of-page
READ TABLE i_events WITH KEY name = slis_ev_end_of_page
 INTO l_i_event.
IF sy-subrc = 0.
 MOVE formname_end_of_page TO l_i_event-form.
 APPEND l_i_event TO i_events.
ENDIF.
CLEAR l_i_event.
*----- Pass user-command
READ TABLE i_events WITH KEY name = slis_ev_user_command
 INTO l_i_event.
IF sy-subrc = 0.
 MOVE formname_user_command TO l_i_event-form.
 APPEND l_i_event TO i_events.
ENDIF.
ENDFORM. " POPULATE_EVENTS
*& Form generate_top_of_page
* text
*FORM generate_top_of_page.
* CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
* EXPORTING
* it_list_commentary = gt_list_top_of_page
* i_logo = 'DEB'.
*ENDFORM. "generate_top_of_page
*& Form generate_end_of_page
* text
FORM generate_end_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = gt_list_end_of_page
* I_LOGO =
ENDFORM. "generate_end_of_page
*& 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
 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. " F4_FOR_VARIANT

How to create TCode to a report program...?

Hi all
How to create a transaction code to a report program,,
can any one give me in step-by-step procedure..
points will b rewarded for the exact answer....
Thanks,
regards,
prashanth

Hi Prashanth,
Following are the steps for crating t-code for a report program:
1. Goto transaction SE93 and press create.
2. Give the transaction code to be created
3. Enter short text
4. Select the type of transaction to be created (based on ur requirements).
5. Enter screen number (1st screen to be displayed)
6. In GUI support, check all the checkbox
7. Save and activate.
You can also do this procedure by going to SE80, right click on program name->create transaction.
THanks
Vijay
PLZ Reward points if helpful

How to generage pop up screen on selection screen of report program?

Hi Guys,
 I am having a requirement to generate the pop up screen on the selection screen of the report program.
 Suggest me the best one with model program

Hi Chakradhar,
 Refer this code :
SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-456.
PARAMETERS PO RADIOBUTTON GROUP RADI USER-COMMAND R.
SELECTION-SCREEN END OF BLOCK BL2.
AT SELECTION-SCREEN OUTPUT.
CALL SCREEN 100.
when user will click on this radio button , a pop up screen will appear dynamically.
Reward points if helpful.
Regards,
Hemant

Creating Selection screen in Report Painter

Good day everyone,
Does anyone know how I could create a selection screen in Report Writer? Thanks!
>Christian<

Hi,
Simple Parameters or Selec-options statements will suffice.
Eg : Parameters : p_matnr type mara-matnr.
select-options : s_matnr for mara-matnr.
In selection screen, you may have selec-options, parameters, check boxes, radio buttons etc.
Regards,
Sujatha.

Want to create a Quotation through Report programming

Hi Expert,
I need to create an Quotation in my ERP system through report programming. I just want to know, what are the FM Used for this purpose or any idea about this. I really welcome your great ideas.
<removed by moderator>
Thanks and Regards,
Shakun
Moderator message: please search for available information/documentation before asking.
Edited by: Thomas Zloch on Oct 23, 2010 6:05 PM

Hi Niji,
refer to the following link:
/people/kevin.wilson2/blog/2007/08/31/what-mechanisms-are-available-to-you-in-order-to-create-a-business-object-event
hope this will help you.........

GUI Status - Report program

Hi Experts
 How to create toolbar in the Report program.
 ie how to add gui status and how to code for it.
 Pls suggest me.
Thanks in advance.
Regards
rajaram

Hi
 This is my coding part inwhich i want to add a button in toolbar, Can you change this coding that where exactly changes needed and what.
 Pls help me.
Regards
Rajaram
REPORT ZSAB_POLY_INVOICE.
tables : vbrp, vbrk, vbap.
DATA : BEGIN OF it_final OCCURS 0.
 INCLUDE STRUCTURE ZINV_ORG.
DATA : END OF it_final.
data : wa like line of it_final.
data : mode type string.
data : flag type i,
 flag1 type i.
DATA : fm_name TYPE rs38l_fnam.
DATA : w_formname TYPE tdsfname. "form name
w_formname = 'Z_POLY_ORGINAL'.
DATA: LX_OUTPUT TYPE SSFCOMPOP,
LX_CNTL TYPE SSFCTRLOP.
LX_CNTL-NO_DIALOG = 'X'.
LX_OUTPUT-TDDEST = 'LP01'.
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.
PARAMETERS vbeln TYPE vbrk-vbeln matchcode object ZINVOICE.
PARAMETERS rtim TYPE vbrk-ERZET.
SELECTION-SCREEN END OF BLOCK bk1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
parameter : p_org as checkbox,
 p_dup as checkbox,
 p_tri as checkbox,
 p_qua as checkbox.
SELECTION-SCREEN END OF BLOCK b2.
 select a~vbeln
 a~bukrs
 b~posnr
 b~werks
 a~stceg
 a~FKDAT
 a~INCO1
 a~INCO2
 b~MATNR
 b~ARKTX
 b~FKIMG
 b~UEPOS
 from vbrk as a
 inner join vbrp as b on avbeln = bvbeln
 into corresponding fields of table it_final
 where a~vbeln = vbeln.
break pro01.
if p_org is not initial and p_dup is not initial
and p_tri is not initial and p_qua is not initial.
mode = 'Original for Buyer'.
perform original.
mode = 'Duplicate'.
perform original.
mode = 'Triplicate'.
perform original.
mode = 'Quadruplicate'.
perform original.
elseif p_org is not initial and p_dup is not initial
and p_tri is not initial.
mode = 'Original for Buyer'.
perform original.
mode = 'Duplicate'.
perform original.
mode = 'Triplicate'.
perform original.
elseif p_dup is not initial and p_tri is not initial
and p_qua is not initial.
mode = 'Duplicate'.
perform original.
mode = 'Triplicate'.
perform original.
mode = 'Quadruplicate'.
perform original.
elseif p_org is not initial and p_dup is not initial.
mode = 'Original for Buyer'.
perform original.
mode = 'Duplicate'.
perform original.
elseif p_tri is not initial and p_qua is not initial.
mode = 'Triplicate'.
perform original.
mode = 'Quadruplicate'.
perform original.
elseif p_org is not initial and p_tri is not initial.
mode = 'Original for Buyer'.
perform original.
mode = 'Triplicate'.
perform original.
elseif p_dup is not initial and p_tri is not initial
and p_qua is not initial.
mode = 'Original for Buyer'.
perform original.
mode = 'Duplicate'.
perform original.
mode = 'Triplicate'.
perform original.
elseif p_org is not initial.
mode = 'Original for Buyer'.
perform original.
endif.
*& Form original
 text
--> p1 text
<-- p2 text
FORM original .
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
 formname = w_formname
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
 FM_NAME = fm_name
EXCEPTIONS
 NO_FORM = 1
 NO_FUNCTION_MODULE = 2
 OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION '/1BCDWB/SF00000447'
EXPORTING
RTIM = RTIM
MODE = MODE
*ARCHIVE_INDEX =
*ARCHIVE_INDEX_TAB =
*ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS = LX_CNTL
*MAIL_APPL_OBJ =
*MAIL_RECIPIENT =
*MAIL_SENDER =
OUTPUT_OPTIONS = LX_OUTPUT
*USER_SETTINGS = 'X'
*BOL_NUM =
*CARRIER_NAME =
*SHIP_FROM_ADR =
*SHIP_TO_ADR =
*THIRD_PARTY_ADR =
*IMPORTING
*DOCUMENT_OUTPUT_INFO =
*JOB_OUTPUT_INFO =
TABLES
 it_final = it_final
IF sy-subrc = 0.
*MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.

How to call a Include type Report Program in Executable Program. ?

Hi experts,
I have created a Include type report program and I want to run this include program in other report program. Which abap statement should i use ?
Thanks
Saurabh

Hi Saurabh,
We can make use of programs of Type - Include(I) in other type of ABAP Programs.
These Include programs cannot be executed directly but can be used as a part of the main program i.e Executable program - Type E.
So after creating your main program of type executable program then use the below line
REPORT ZM_SAMPLE_PROGRAM.
INCLUDE INC_PRG_NAME.
Now the code as availablein INC_PRG_NAME becomes part of the main program ZM_SAMPLE_PROGRAM.le
Also you can make use of this Include program in other executable/include programs too...
Regards,
Rafi

How to create print format for report

Hi Experts,
Can we create print format for report program. I need x_90_150 format,
means 90 rows and 150 column. If possible then give me solution.
Thanks,
Ashish.

Get with your Basis folks to set up a 90x150 printer option.
Then you set something like this.
REPORT zlmr_lead_account_list LINE-SIZE 150 LINE-COUNT 90.

How to create documentation for report programs and how to use it

how to create documentation for report programs and how to use it in the selection screen by placing an icon in the Applicatin Tool bar. If i click this icon the help documentation has to display.
Note: Exaple RSTXSCRP programs selection screen

Hi
1 goto SE38 transaction, give the program name
2 Click on documentation radiobutton & then press change
3 Write your PURPOSE, PREREQUISITES etc details
4 Save the same & Activae it.
The icon will come automatically on selection screen
Thanks
Sandeep
Reward if useful

Skipping Selection Screen for a report program

Hi guys,
I have a report program that works in 2 modes - Create and modify ( There is a toggle button in the ALV report). Its an editable ALV grid. There are 2 tcodes - zcreate and zmodify to access the same report in 2 above modes. For zmodify, i have a selection screen. How do i skip the selection screen for zcreate ?
Here is my report program
REPORT ZSWR_RCKDVOLS .
INCLUDE ZSWR_RCKDVOLS_TOP.
INCLUDE ZSWR_RCKDVOLS_CLDEF.
INCLUDE ZSWR_RCKDVOLS_CLIMP.
INCLUDE ZSWR_RCKDVOLS_SELSCR. " Selection Options are written in this.
INCLUDE ZSWR_RCKDVOLS_PBO.
INCLUDE ZSWR_RCKDVOLS_PAI.
INCLUDE ZSWR_RCKDVOLS_FORM.
INITIALIZATION
initialization.
perform layout_build.
AT SELECTION-SCREEN
at selection-screen on s_locid.
clear lv_plnt.
select single werk from oijrra
 into lv_plnt
 where locid in s_locid and rpart = gc_rpart.
perform memory_id_build.
START-OF-SELECTION
start-of-selection .
perform fieldcatalog.
perform fill_internal_table.
perform build_outtab.
END-OF-SELECTION.
CHECK: NOT gi_zswt_rckdvols[] IS INITIAL.
set SCREEN 100. "Main Screen
A sample code will be greatly helpful.
Thanks,
SHK

So if we were to implement this in your program.....
report zswr_rckdvols .
include zswr_rckdvols_top.
include zswr_rckdvols_cldef.
include zswr_rckdvols_climp.
 include zswr_rckdvols_selscr. " Selection Options are written in this ".
* Add this line into your selection screen include.
parameters: p_switch type c no-display.
include zswr_rckdvols_pbo.
include zswr_rckdvols_pai.
include zswr_rckdvols_form.
* INITIALIZATION
initialization.
perform layout_build.
* AT SELECTION-SCREEN
at selection-screen output.
if sy-tcode = 'ZCREATE'
 and p_switch = space.
 submit zswr_rckdvols
 with p_switch = 'X'
 and return.
 leave program.
endif.
at selection-screen on s_locid.
clear lv_plnt.
select single werk from oijrra
into lv_plnt
where locid in s_locid and rpart = gc_rpart.
perform memory_id_build.
* START-OF-SELECTION
start-of-selection .
perform fieldcatalog.
perform fill_internal_table.
perform build_outtab.
end-of-selection.
check: not gi_zswt_rckdvols[] is initial.
set screen 100. "Main Screen
Regards,
Rich Heilman

How to save varaint in a report program with tabstrip in selection-screen

Hi Gurus,
We have a custom report program and selection screen of this program has a tabstrip of 9 tabs. This program will run in background job and we are facing problem to save variant for this report program.
We saved one variant with 'TAB2' populated. But when we execute the report and select that variant and we are not navigated to 'TAB2' automatically. So, code for TAB2 is not triggerd and we are not getting desired output.
When we set this program with variant in Job, program is not navigated to 'TAB2' as per variant setup.
Is there any way to save variant for this kind of report ?
Please help with your suggestions
Thanks & Regards
Chandan

Thanks for your help.
I found during debugging that it is holding the sy-ucomm of the first tab as default value. So, I declared a new field in selection screen with No-Display option. When user will select a tab, this new field will hold the value of that sy-ucomm. As this field is in selection screen, it is getting stored in variant also.
In start-of-selection of program I am checking this field value and accordingly set the TABSTRIP.
Thanks again for your help.....
Regards,
Chandan

Creating Cpmplecated screen in report program

Similar Messages

Maybe you are looking for