Variants with subscreens in selection screen

I have a screen that contains a subscreens....this subscreen is a selection-screen....i need to save and load variants for this selection-screen.
My code:
REPORT zprueba_02.
----u2013
TABLES                                                        *
----u2013
TABLES: spfli.
----u2013
TYPE-POOLS                                                    *
----u2013
TYPE-POOLS: slis.
----u2013
INTERNAL TABLES                                               *
----u2013
DATA: t_rkey TYPE STANDARD TABLE OF rsvarkey WITH HEADER LINE,
      t_selctab TYPE STANDARD TABLE OF rsscr WITH HEADER LINE,
      t_vari TYPE STANDARD TABLE OF rvari WITH HEADER LINE,
      it_extab TYPE slis_t_extab,
      wa_extab LIKE LINE OF it_extab.
----u2013
VARIABLES                                                     *
----u2013
DATA: ok_code TYPE sy-ucomm,
      w_variant TYPE rsvar-variant,
      w_user_vari TYPE rsvar-variant,
      w_vari_report TYPE rsvar-report,
      sel_variant TYPE rsvar-variant,
      sel_variant_text TYPE rsvar-vtext,
      w_report TYPE rsvar-report,
      variant_exists TYPE c.
----u2013
SELECTION-SCREEN                                              *
----u2013
SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.
SELECT-OPTIONS: s_carrid FOR spfli-carrid,
                s_connid FOR spfli-connid.
SELECTION-SCREEN END OF SCREEN 101.
----u2013
INITIALIZATION                                                *
----u2013
INITIALIZATION.
w_report = sy-repid.
PERFORM variant_exists.
----u2013
START-OF-SELECTION                                            *
----u2013
START-OF-SELECTION.
CALL SCREEN 0100.
*&      Module STATUS_0100 OUTPUT                               *
MODULE status_0100 OUTPUT.
SET PF-STATUS '100' EXCLUDING it_extab.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT                          *
MODULE user_command_0100 INPUT.
ok_code = sy-ucomm.
CASE ok_code.
    WHEN 'SAVE'.
      PERFORM save_variant.
      PERFORM variant_exists.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'GET_VAR'.
      PERFORM load_variant.
    WHEN 'DEL_VAR'.
      PERFORM delete_variant.
      PERFORM variant_exists.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Form SAVE_VARIANT                                        *
FORM save_variant.
t_rkey-report = sy-repid.
APPEND t_rkey.
CALL FUNCTION 'RS_VARIANT_SAVE_FROM_SELSCREEN'
    EXPORTING
      curr_report          = w_report
     USER_VARI            = SY-SLSET
      vari_report          = w_report
    IMPORTING
      variant              = w_variant
    TABLES
      p_sscr               = t_selctab
      p_vari               = t_vari
    EXCEPTIONS
      illegal_variant_name = 1
      not_authorized       = 2
      no_report            = 3
      report_not_existent = 4
      report_not_supplied = 5
      OTHERS               = 6.
t_rkey-variant = w_variant.
MODIFY t_rkey INDEX 1.
CALL FUNCTION 'RS_RWSET_SAVE_VARIANT'
    EXPORTING
      rkey    = t_rkey
    TABLES
      selctab = t_selctab.
ENDFORM.                    " SAVE_VARIANT
*&      Form LOAD_VARIANT                                        *
FORM load_variant.
PERFORM choose_variant CHANGING sel_variant.
IF sel_variant NE space.
    CALL FUNCTION 'RS_SUPPORT_SELECTIONS'
      EXPORTING
        report               = w_report
        variant              = sel_variant
      EXCEPTIONS
        variant_not_existent = 1
        variant_obsolete     = 2
        OTHERS               = 3.
ENDIF.
ENDFORM.                    " LOAD_VARIANT
*&      Form DELETE_VARIANT                                      *
FORM delete_variant.
PERFORM choose_variant CHANGING sel_variant.
IF sel_variant NE space.
    CALL FUNCTION 'RS_VARIANT_DELETE'
      EXPORTING
        report               = w_report
        variant              = sel_variant
        flag_confirmscreen   = 'X'
        flag_delallclient    = 'X'
      EXCEPTIONS
        not_authorized       = 1
        not_executed         = 2
        no_report            = 3
        report_not_existent = 4
        report_not_supplied = 5
        variant_locked       = 6
        variant_not_existent = 7
        no_corr_insert       = 8
        variant_protected    = 9
        OTHERS               = 10.
ENDIF.
ENDFORM.                    " DELETE_VARIANT
----u2013
      FORM CHOOSE_VARIANT                                       *
----u2013
FORM choose_variant CHANGING l_sel_variant.
CALL FUNCTION 'RS_VARIANT_CATALOG'
    EXPORTING
      report               = w_report
      masked               = 'X'
    IMPORTING
      sel_variant          = sel_variant
      sel_variant_text     = sel_variant_text
    EXCEPTIONS
      no_report            = 1
      report_not_existent = 2
      report_not_supplied = 3
      no_variants          = 4
      no_variant_selected = 5
      variant_not_existent = 6
      OTHERS               = 7.
ENDFORM.                    "CHOOSE_VARIANT
*&      Form VARIANT_EXISTS                                      *
FORM variant_exists.
CALL FUNCTION 'RS_VARIANT_FOR_ONE_SCREEN'
    EXPORTING
      program        = w_report
      dynnr          = '0101'
    IMPORTING
      variant_exists = variant_exists.
IF variant_exists EQ 'X'.
    CLEAR: wa_extab, it_extab.
    REFRESH it_extab.
ELSE.
    CLEAR: wa_extab, it_extab.
    REFRESH it_extab.
    wa_extab-fcode = 'GET_VAR'.
    APPEND wa_extab TO it_extab.
ENDIF.
ENDFORM.                    " VARIANT_EXISTS
At include modul i have:
PROCESS BEFORE OUTPUT.
MODULE status_0100.
CALL SUBSCREEN sb_0001 INCLUDING w_report '0101'.
PROCESS AFTER INPUT.
MODULE user_command_0100.
CALL SUBSCREEN sb_0001.
and i have declared in the screen a subscreen area called sb_001.
When i try to save the variant, the next error:
Selection screen 0100 contains no object.

I think error is coming from function module RS_VARIANT_SAVE_FROM_SELSCREEN
try to use function RS_REFRESH_FROM_SELECTOPTIONS toget contents of fields, then save a variant with this contents
-> check if variant already exists with RS_VARIANT_EXISTS
-> if exists : RS_VARIANT_CHANGE
-> if not exists : RS_CREATE_VARIANT

Similar Messages

Steps to create tabstrip for subscreen in selection screen

hi,
can let me know the steps taken to create subscreen in selection screen and put in tabstrip?
i need to have 3 screens. 1000 being the tabstrip, 2000 being first subscreen and 3000 being the second subscreen.
i have the abap code but i do not know the steps to create especially 1000 screen.
for 2000 and 3000, once i activated the program, these 2 screens added but i do not know where can i create the 1000 screen.
also, should i use wizard to create tabstrip?
please advise. thanks
SELECTION-SCREEN BEGIN OF SCREEN 2000 AS SUBSCREEN.        SELECTION-SCREEN BEGIN OF BLOCK x WITH FRAME TITLE text-001.
SELECT-OPTIONS: para1 FOR field1 ,
                              para2 FOR field2.
SELECTION-SCREEN END OF BLOCK x.
SELECTION-SCREEN END OF SCREEN 2000.
SELECTION-SCREEN BEGIN OF SCREEN 3000 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK y WITH FRAME TITLE text-002.
SELECT-OPTIONS: para3 FOR field3 ,
                              para4 FOR field4.
SELECTION-SCREEN END OF BLOCK y.
SELECTION-SCREEN:SKIP.
SELECTION-SCREEN END OF SCREEN 3000.

e_l,
See the total doc.. with example.
Assigning a Subscreen Area to a Tab Title
You must assign a subscreen area to each tab title. There are two ways of doing this:
Paging in the SAPgui
You need to assign a separate subscreen area to each tab title, and define the function codes of the tab titles with type P (local GUI function). In the screen flow logic, you call all the subscreens in the PBO event. This means that all of the tab pages reside locally on the SAPgui.
When the user chooses a tab title, paging takes place within the SAPgui. In this respect, the tabstrip control behaves like a single screen. In particular, the PAI event is not triggered when the user chooses a tab title, and no data is transported. While this improves the performance of your tabstrip control, it also has the negative effect that when the user does trigger the PAI event, all of the input checks for all of the subscreens are performed. This means that when the user is working on one tab page, the input checks may jump to an unfilled mandatory field on another page.
Local paging at the SAPgui is therefore most appropriate for screens that display data rather than for input screens.
Paging on the Application Server
One subscreen area is shared by all tab titles and called in the PBO event. You define the function codes of the individual tab titles without a special function type. When the user chooses a tab page, the PAI event is triggered, and you must include a module in your flow logic that activates the appropriate tab page and assigns the correct subscreen to the subscreen area.
Since the PAI event is triggered each time the user chooses a tab title, this method is less economical for the application server, but the input checks that are performed only affect the current tab page.
Procedure in Either Case
You create the subscreen areas within the tabstrip area. You assign the subscreen areas to one or more tab titles in the Screen Painter by selecting one or more titles. You can also assign a subscreen area to a tab title in the tab title attributes by entering the name of the subscreen area in the Reference field attribute.
The procedure for the alphanumeric Screen Painter is described under Creating Tabstrip Controls.
If you are paging at the SAPgui, create a subscreen area for each tab title. If you are paging at the application server, select all tab titles and create a single subscreen area. The subscreen areas may not cover the top line of the tab area. However, within a tab area, more than one subscreen area can overlap.
Programming the Flow Logic
In the flow logic, all you have to do by hand is include the correct subscreens. The screen flow and data transport to the ABAP program is the same as for normal subscreens. There are two ways of programming the screen flow logic, depending on how you have decided to page through the tabstrip control.
Paging in the SAPgui
When you page in the SAPgui, you must include a subscreen for each subscreen area:
PROCESS BEFORE OUTPUT.
CALL SUBSCREEN: <area1> INCLUDING [<prog 1>] <dynp 1>,
                  <area2> INCLUDING [<prog 2>] <dynp 2>,
                  <area3> INCLUDING [<prog 3>] <dynp 3>,
PROCESS AFTER INPUT.
CALL SUBSCREEN: <area1>,
                  <area2>,
                  <area3>,
Paging on the Application Server
When you page on the application server, you only have to include a subscreen for the one subscreen area:
PROCESS BEFORE OUTPUT.
CALL SUBSCREEN <area> INCLUDING [<prog>] <dynp>.
PROCESS AFTER INPUT.
CALL SUBSCREEN <area>.
Handling in the ABAP Program
Before you can use a tabstrip control in your ABAP program, you must create a control for each control in the declaration part of your program using the following statement:
CONTROLS <ctrl> TYPE TABSTRIP.
where <ctrl> is the name of the tabstrip area on a screen in the ABAP program. The control allows the ABAP program to work with the tabstrip control. The statement declares a structure with the name <ctrl> . The only component of this structure that you need in your program is called ACTIVETAB.
Use in the PBO event
Before the screen is displayed, you use the control to set the tab page that is currently active. To do this, assign the function code of the corresponding tab title to the component ACTIVETAB:
<ctrl>-ACTIVETAB = <fcode>.
When you page at the SAPgui, you only need to do this once before the screen is displayed. This initializes the tabstrip control. The default active tab page is the first page. After this, the page activated when the user chooses a tab title is set within SAPgui.
When you page on the application server, you must assign the active page both before the screen is displayed for the first time, and each time the user pages. At the same time, you must set the required subscreen screen.
You can suppress a tab page dynamically by setting the ACTIVE field of table SCREEN to 0 for the corresponding tab title.
Use in the PAI event
In the PAI event, ACTIVETAB contains the function code of the last active tab title on the screen.
When you page in the SAPgui, this allows you to find out the page that the user can currently see. When you page at the application server, the active tab page is controlled by the ABAP program anyway.
The OK_CODE field behaves differently according to the paging method:
Paging in the SAPgui
When you page in the SAPgui, the PAI event is not triggered when the user chooses a tab title, and the OK_CODE field is not filled. The OK_CODE field is only filled by user actions in the GUI status or when the user chooses a pushbutton either outside the tabstrip control or on one of the subscreens.
Paging on the application server
If you are paging at the application server, the PAI event is triggered when the user chooses a tab title, and the OK_CODE field is filled with the corresponding function code.
To page through the tabstrip control, you must assign the function code to the ACTIVETAB component of the control:
<ctrl>-ACTIVETAB = <ok_code>.
This statement overwrites the function code of the last active tab page with that of the new tab title. At the same time, you must ensure that the correct subscreen is inserted in the subscreen area.
Otherwise, tabstrip controls are handled like normal subscrens in ABAP programs, that is, the ABAP program of a subscreen screen must contain the dialog modules called from the flow logic of the subscreen.
Examples
Tabstrip control, paging at SAPgui
REPORT DEMO_DYNPRO_TABSTRIP_LOCAL.
CONTROLS MYTABSTRIP TYPE TABSTRIP.
DATA: OK_CODE TYPE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM.
MYTABSTRIP-ACTIVETAB = 'PUSH2'.
CALL SCREEN 100.
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
ENDMODULE.
MODULE CANCEL INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE USER_COMMAND INPUT.
SAVE_OK = OK_CODE.
CLEAR OK_CODE.
IF SAVE_OK = 'OK'.
    MESSAGE I888(SABAPDOCU) WITH 'MYTABSTRIP-ACTIVETAB ='
                                  MYTABSTRIP-ACTIVETAB.
ENDIF.
ENDMODULE.
The next screen (statically defined) for screen 100 is itself. It has the following layout:
The screen contains a tabstrip area called MYTABSTRIP with three tab titles PUSH1, PUSH2 and PUSH3. The function codes have the same name, and all have the function type P. One of the subscreen areas SUB1 to SUB3 is assigned to each tab title. The pushbutton has the name BUTTON and the function code OK.
In the same ABAP program, there are three subscreen screens 110 to 130. Each of these fits the subscreen area exactly. The layout is:
The screen flow logic for screen 100 is as follows:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
CALL SUBSCREEN: SUB1 INCLUDING SY-REPID '0110',
                  SUB2 INCLUDING SY-REPID '0120',
                  SUB3 INCLUDING SY-REPID '0130'.
PROCESS AFTER INPUT.
MODULE CANCEL AT EXIT-COMMAND.
CALL SUBSCREEN: SUB1,
                  SUB2,
                  SUB3.
MODULE USER_COMMAND.
The screen flow logic of subscreens 110 to 130 does not contain any module calls.
When you run the program, a screen appears on which the second tab page is active, since the program sets the ACTIVETAB component of the structure MYTABSTRIP to PUSH2 before the screen is displayed. The user can page through the tabstrip control without the PAI event being triggered. One of the three subscreens is included on each tab page.
When the user chooses Continue, the PAI event is triggered, and an information message displays the function code of the tab title of the page that is currently active.
Tabstrip control with paging on the application server.
REPORT DEMO_DYNPRO_TABSTRIP_LOCAL.
CONTROLS MYTABSTRIP TYPE TABSTRIP.
DATA: OK_CODE TYPE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM.
DATA NUMBER TYPE SY-DYNNR.
MYTABSTRIP-ACTIVETAB = 'PUSH2'.
NUMBER = '0120'.
CALL SCREEN 100.
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
ENDMODULE.
MODULE CANCEL INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE USER_COMMAND INPUT.
SAVE_OK = OK_CODE.
CLEAR OK_CODE.
IF SAVE_OK = 'OK'.
    MESSAGE I888(SABAPDOCU) WITH 'MYTABSTRIP-ACTIVETAB ='
                                  MYTABSTRIP-ACTIVETAB.
ELSE.
    MYTABSTRIP-ACTIVETAB = SAVE_OK.
    CASE SAVE_OK.
      WHEN 'PUSH1'.
        NUMBER = '0110'.
      WHEN 'PUSH2'.
        NUMBER = '0120'.
      WHEN 'PUSH3'.
        NUMBER = '0130'.
    ENDCASE.
ENDIF.
ENDMODULE.
The statically-defined next screen for screen 100 is itself, and its layout is the same as in the above example. However, the function codes of the three tab titles have the function type <blank> and they all share a single subscreen area SUB.
The same subscreen screens 110 to 130 are defined as in the last example.
The screen flow logic for screen 100 is as follows:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
CALL SUBSCREEN SUB INCLUDING SY-REPID NUMBER.
PROCESS AFTER INPUT.
MODULE CANCEL AT EXIT-COMMAND.
CALL SUBSCREEN SUB.
MODULE USER_COMMAND.
In this example, the program includes a subscreen screen in the subscreen area SUB dynamically during the PBO event.
The screen flow logic of subscreens 110 to 130 does not contain any module calls.
This example has the same function as the previous example, but the paging within the tabstrip control is implemented on the application server. Each time the user chooses a tab title, the function code from the OK_CODE field is assigned to the ACTIVETAB component of structure MYTABSTRIP. At the same time, the variable NUMBER is filled with the screen number of the subscreen that has to be displayed in the subscreen area SUB of the tabstrip control
Pls. reward if useful

Including User selection criteria along with LDB standard selection screen

Hi
While creating a HR report, along with the standard selection screen, if the cusomer requires some more fields to be added, How to retrive the data from the DB?
Is it the way to retrive the data based on Standard selection criteria from the LDB and then filter it based on user criteria or any other way?
Please help me out in this regard.
Thank you.

Yes thats the way. You get the data based on Selection screen of LDB (You can select Report Catogory you wish to) once you get data, You can put CHECK statement to see the data against PXXXX type to the filter value from you custom field on selection screen.

Unable to save the ALV layout variant and display of selection screen on F4

Hi All,
The end user wants to directly select the layout variant (SLIS_VARI). I have used the following code to display the layout variant on selection screen. But, I am unable to save the variant on ALV. Whenever I am trying to select the layout variants (by doing F4 on selection screen) its displaying "No Layout found".
Following is the code for displaying layout variant:
PARAMETERS: p_var TYPE slis_vari.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_var.
PERFORM f4_variant CHANGING p_var.
FORM f4_variant CHANGING c_variant TYPE slis_vari.
DATA: ls_variant TYPE disvariant,
            l_exit     TYPE char1.
ls_variant-report = sy-repid.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = ls_variant
      i_save     = 'A'
    IMPORTING
      e_exit     = l_exit
      es_variant = ls_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 l_exit EQ space.
      c_variant = ls_variant-variant.
    ENDIF.
ENDIF.
ENDFORM.                    " f4_variant
and following is the code for displaying the ALV:
FORM edition_alv.
ws_variant2 = ls_variant.
* Call ALV editor in list mode
IF p_list = 'X'.
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
        i_callback_program      = ws_extract1-report
        i_callback_user_command = ws_user_command
        is_layout               = ws_layout
        it_fieldcat             = wt_fieldcat
        it_sort                 = wt_sort
        i_save                  = 'A'
        is_variant              = ws_variant2
        it_events               = wt_events[]
      TABLES
        t_outtab                = wt_edition.
* Call ALV editor in grid mode
ELSE.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        i_callback_program      = ws_extract1-report
        i_callback_user_command = ws_user_command
        it_fieldcat             = wt_fieldcat
        it_sort                 = wt_sort
        i_save                  = 'A'
        is_variant              = ws_variant2
        it_events               = wt_events[]
      TABLES
        t_outtab                = wt_edition.
ENDIF.
ENDFORM.
I am not sure whats going wrong, but I am unable to save variants.
Please help.
Thanks,
Vishal.

The F4 will display you the existing layouts only. So you need to save the layout first & then execute the report again & check if you are getting F4 values for that field.
The Layout needs to get stored with variant.
Regards,
Mahesh

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

How to get the variant name from the Selection Screen

Hi Friends,
I have a Selection Screen with Variants.In the Report which is classical,i need to get the <b>name</b> of the variant which is used in the selection screen..Can anyone help me in this?

You can use system variable
SY-SLSET
Thanks
Seshu

Dynamic Variant -Current date in selection screen - for batch jobs

Hi Experts,
My report runs in batch job with a variant, daily.
One of the filed in selction screen should hv CURRENT DATE, with out providing as input explicitly by user.
So, How Can I get it done?
Its some thing with Dynamic variants + Selection Variables + date selection, but, I forgot the navigation etc.
pl. let me know
thanq

thanq.
and pls. let me further clarify that,
programitically am populating the date as current date minus 1 in the field of my_date in the selection screen.
now, they wanna to run the report in back ground, daily.
now, I followed ur tip/link and saved with_date_variant, fine.
so, pls. let me know that,
1) if the report runs in back ground tomorrow with with_date_variant(which is i created by seeing ur link), Is the selection screen my_date(prog. populates as June 5th) will be override with current date(i.e. June 6th)?
In broad, Is the selection criteria wuld be over writes with the Dynamic varints?
thanq

Problem with PNP customized selection screen

Hi guys,
I have done a report in R/3 system using logical database PNP with customized selection screen. i have 3 parameters as below:
1. radiobutton1 group a for current period,
2. radiobutton2 group a for other period.
3. personnel number.
my program works fine in R/3 but not in my portal. i think it couldn't recognize my radiobutton in my customized screen. whichever radiobutton i selected also it would return current month records.
any idea how to fix this?
any configuration that i can do?
thanks.

try testing it through ITS first.
in order to do so . Go to sicf transaction and run webgui. Then run the application using the tcode. Check the results.
Seems wrong paramter are getting passed to the SAP system.
Your ITS server should be activated first in order to use webgui otherwise you will be getting dump.
Regards
Atul Shrivastava

Working with LDB without selection screen

can' we take input through file without any selection screen when we are working with LDB?
Please focus on this.
Regards
vamsi.

Hi,
yes, u can make use of :
SET PARAMETER ID command.
SET PARAMETER ID pid FIELD dobj.
Effect:
This statement sets the content of the SPA/GPA parameter specified in pid to the content of the data object dobj. For pid, a flat character-type field is expected that can contain a maximum of 20 characters, which cannot be exclusively blank characters. pid is case-sensitive. For dobj, a flat, (as of release 6.10 character-type) field is expected, whose binary content is transferred in an unconverted format.
If the SPA/GPA parameter specified for the current user in pid does not yet exist in the SAP memory, it is created. If the SPA/GPA parameter has already been created for the current user, its value is overwritten.
In a program, SPA/GPA parameters can only be created or assigned values if a name exists for them in the table TPARA. The extended program check reports an error if it can statically determine that a name specified in pid is not contained in the database table TPARA. ist.

Problem with the default selection screen condition

hi guys,
I have got some problem with the default screen given by the PNP logical database, P0000 infotype automatically populated according to the condition given in default screen.
Reg,
Hariharan

Don know what u r trying to acheive.
1) when u have specified PNP in the logical databse field of attributes of program, the SAP wil proivde u default PNP screen and here u can also add ur paramters if u want.
2) in the program u have to declare like
INFOTYPES: 0000,0001. "Etc
for all the infotypes u want to use in the program.
3) it is the GET PERNR event which wil fil all the p0000 and p0001 (internal tables for al the infotypes declared via INFOTYPES syntax as shown above)
4) after tht get pernr, u now have data in P tables and u can use it for further reporting.
5) refer below dummy code -
REPORT ZPPL_PREVEMPLOYERS   message-id rp
                             line-size 250
                             line-count 65.
*Program logic :- This Report is used to Download all the Previous
* Employer (IT0023) records of the employees
*eject
*& Tables and Infotypes                                                *
tables: pernr.
infotypes: 0000,
           0001,
           0002,
           0023.
*eject
*& Constants                                                           *
constants: c_1(1)       type c               value '1'   ,
           c_3(1)       type c               value '3'   ,
           c_i(1)       type c               value 'I'   ,
           c_x(1)       type c               value 'X'   ,
           c_eq(2)      type c               value 'EQ' ,
           c_pl03       like p0001-werks     value 'PL03'.
*eject
*& Selection-Screen                                                    *
parameters: p_file like rlgrap-filename default 'C:TempABC.xls',
            p_test as checkbox default c_x               .
*eject
*& Internal tables                                                     *
* Internal Table for Output
data: begin of t_output occurs 0    ,
       pernr like pernr-pernr       ,
       nachn like p0002-nachn       ,
       vorna like p0002-vorna       ,
       orgeh_stext like p1000-stext ,
       plans_stext like p1000-stext ,
       begda like p0023-begda       ,
       endda like p0023-endda       ,
       land1 like p0023-land1       ,
       arbgb like p0023-arbgb       ,
       ort01 like p0023-ort01   .
data: end of t_output           .
*eject
*& Variables                                                           *
data: o_stext like p1000-stext,
      p_stext like p1000-stext.
*eject
*& Initialization                                                      *
Initialization.
* Initialize Selection-Screen values
perform init_selction_screen.
*eject
*& AT Selection-screen                                                 *
at selection-screen .
* Check if Test run selected, download file name should be entered
if p_test is initial. "
    if p_file is initial.
      message e016 with 'Please enter file name'
                        'specifying complete path'.
    endif.
endif.
*eject
*& Start-of Selection                                                  *
Start-of-selection.
get pernr.
clear t_output.
* Read Infotype 0
rp-provide-from-last p0000 space pn-begda pn-endda.
check pnp-sw-found eq c_1.
* Check if employee is active
check p0000-stat2 in pnpstat2.      "pernr Active
* Read Infotype 1
rp-provide-from-last p0001 space pn-begda pn-endda.
check pnp-sw-found eq c_1.
* check if employee belongs to PL03
check p0001-werks in pnpwerks. "belongs to PL03
* Check if emp belongs to Active Group
check p0001-persg in pnppersg.
* Read Infotype 2
rp-provide-from-last p0002 space pn-begda pn-endda.
check pnp-sw-found eq c_1.
* Read Org Unit Text.
CALL FUNCTION 'HR_READ_FOREIGN_OBJECT_TEXT'
     EXPORTING
          OTYPE                   = 'O'
          objid                   = p0001-orgeh
          begda                   = p0001-begda
          endda                   = p0001-endda
          reference_date          = p0001-begda
     IMPORTING
          object_text             = o_stext
      EXCEPTIONS
          nothing_found           = 1
          wrong_objecttype        = 2
          missing_costcenter_data = 3
          missing_object_id       = 4
          OTHERS                  = 5.
*Read Position Text.
CALL FUNCTION 'HR_READ_FOREIGN_OBJECT_TEXT'
     EXPORTING
          OTYPE                   = 'S'
          objid                   = p0001-plans
          begda                   = p0001-begda
          endda                   = p0001-endda
          reference_date          = p0001-begda
     IMPORTING
          object_text             = p_stext
     EXCEPTIONS
          nothing_found           = 1
          wrong_objecttype        = 2
          missing_costcenter_data = 3
          missing_object_id       = 4
          OTHERS                  = 5.
* Gather all the required information related to the emp
move: pernr-pernr to t_output-pernr,
        o_stext to t_output-orgeh_stext,
        p_stext to t_output-plans_stext,
        p0002-nachn to t_output-nachn,
        p0002-vorna to t_output-vorna.
* Gather previous Employee details
loop at p0023.
    move-corresponding p0023 to t_output.
    append t_output.
endloop.
*eject
*& End-of Selection                                                    *
end-of-selection.
perform print_report.
* Downlaod the file
if not t_output[] is initial.
    if p_test eq space.
      perform download_file.
    endif.
else.
    write: 'No records selected' color col_negative.
endif.
*eject
*& Top-of-page                                                         *
Top-of-page.
* Print Header
perform print_header.
*eject
*&      Form download_file
* Description :
FORM download_file .
DATA: full_file_name    TYPE string,
        z_akt_filesize    TYPE i     .
full_file_name = p_file.
* download table into file on presentation server
CALL METHOD cl_gui_frontend_services=>gui_download
    EXPORTING
      filename                = full_file_name
      filetype                = 'DAT'
      NO_AUTH_CHECK           = c_x
      codepage                = '1160'
    IMPORTING
      FILELENGTH              = z_akt_filesize
    CHANGING
      data_tab                = t_output[]
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6
      header_not_allowed      = 7
      separator_not_allowed   = 8
      filesize_not_allowed    = 9
      header_too_long         = 10
      dp_error_create         = 11
      dp_error_send           = 12
      dp_error_write          = 13
      unknown_dp_error        = 14
      access_denied           = 15
      dp_out_of_memory        = 16
      disk_full               = 17
      dp_timeout              = 18
      file_not_found          = 19
      dataprovider_exception = 20
      control_flush_error     = 21
      not_supported_by_gui    = 22
      error_no_gui            = 23
      OTHERS                  = 24.
IF sy-subrc               NE        0.
    MESSAGE e016 WITH 'Download-Error; RC:' sy-subrc.
ENDIF.
ENDFORM.                    " download_file
*eject
*&      Form print_report
*Description:
FORM print_report .
data: i       type i,
        w_count type i.
sort t_output.
* Print the report
loop at t_output.
    i = sy-tabix mod 2.
    if i eq 0.
      format color col_normal intensified on.
    else.
      format color col_normal intensified off.
    endif.
    write:/1     t_output-pernr          ,
           10     t_output-vorna(25)     ,
           35    t_output-nachn(25)      ,
           61   t_output-orgeh_stext     ,
           102 t_output-plans_stext     ,
           143 t_output-begda           ,
           154   t_output-endda          ,
           168   t_output-land1          ,
           178   t_output-arbgb(40)      ,
           219   t_output-ort01          ,
           249   space              .
endloop.
uline.
Describe table t_output lines w_count.
Skip 2.
Write:/ 'Total No of Records Downloaded: ' color col_total,
          w_count.
ENDFORM.                    " print_report
*eject
*&      Form print_header
*Description:
FORM print_header .
skip 1.
Uline.
format Intensified on color col_heading.
write:/1   'Pers. #'        ,
         10   'Last Name'     ,
         35   'First Name'    ,
         61   'Org Unit'      ,
         102 'Position'      ,
         143 'Beg Date'      ,
        154   'End Date'      ,
        168   'Cntry Key'     ,
        178   'Prev Employer' ,
        219 'City'           ,
        249   space          .
format intensified off color off.
uline.
ENDFORM.                    " print_header
*eject
*&      Form init_selction_screen
*Description:
FORM init_selction_screen .
refresh: pnpwerks,
           pnppersg,
           pnpstat2.
clear:   pnpwerks,
           pnppersg,
           pnpstat2.
pnpwerks-sign   = c_i.
pnpwerks-option = c_EQ.
pnpwerks-low    = c_pl03.
append pnpwerks.
pnppersg-sign   = c_i.
pnppersg-option = c_EQ.
pnppersg-low    = c_1.
append pnppersg.
pnpstat2-sign   = c_i.
pnpstat2-option = c_EQ.
pnpstat2-low    = c_3.
append pnpstat2.
ENDFORM.                    " init_selction_screen

Problem with user defined selection-screens

Hi,
in my case, i have a default selection screen and a user defined selection screen. Now, after selecting a radio button in default selection screen, the user defined selection screen is called. after executing it report output is displayed. now if i press f3 (back) it is going to default selection screen. here my requirement is, when i press f3 it should go to the user defined selection.
Can u plz help me solve this.
bye n regards
sree

Any modifications to screen 1000 will be lost the next time the program is generated.
When the user hits the back key from the report output, your ABAP is restarted just like when you originally started it. That is why you are getting the default selection screen again.
Use the AT USER-COMMAND event. When BACK is hit from the report, use the SUBMIT command to re-execute the program, passing it the selections from the default selection screen. Leave out the RETURN option.
For help on filling the selection screen during SUBMIT, help is available at
http://help.sap.com/saphelp_470/helpdata/en/9f/dba51a35c111d1829f0000e829fbfe/frameset.htm

Problem with logic at-selection screen

Hi ,
    I have this piece of code :
I have 3 radiobuttons and corresponding screens and fields like r_matnr s_charge etc on that screen .
default radio button is r_build .
a) If on this screen is user forgots to give value for s_matnr then error is given .
now if we click on r_conf the contents of display screen when r_buld was pressed should be gone ..
the r_matnr , r_werks etc . should be blank .
what i should do to implement it ? also validation of point a) should be performed for the current values of that screen .
plz help..
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: r_build RADIOBUTTON GROUP r1 USER-COMMAND act DEFAULT 'X'.
PARAMETERS: r_conf RADIOBUTTON GROUP r1.
SELECTION-SCREEN BEGIN OF LINE.
SELECT-OPTIONS : s_matnr FOR mara-matnr MODIF ID c.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECT-OPTIONS : s_charg FOR mch1-charg MODIF ID c.
SELECTION-SCREEN END OF LINE.
LOOP AT SCREEN.
         IF r_conf = 'X'.
        IF screen-group1 = 'A'.
          screen-active = 0.
        ENDIF.
      ELSE.
        IF r_rel = 'X'.
          IF screen-group1 = 'A' OR screen-group1 = 'B'
            OR screen-group1 = 'C'.
            screen-active = 0.
          ENDIF.
        ENDIF.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
AT SELECTION-SCREEN ON s_matnr.
    IF s_matnr IS NOT INITIAL.
    some select where = s_matnr .
      MESSAGE e019(zesapp).
      LEAVE TO SCREEN 0.
    ENDIF.
plz help..
Regards .

hi ujjwal,
can you please elaborate on "the values are getting blank just after entering it ."...
you mean material number gets blank after you enter the value?
also in the below code you are checking material number NOT INITIAL that means some value is entered and if it does not satisfy the SELECT condition then it will give error message and navigate u again to your initial screen...maybe this could be the reason for the blank values...
AT SELECTION-SCREEN ON s_matnr.
    IF s_matnr IS NOT INITIAL.
    some select where = s_matnr .
      MESSAGE e019(zesapp).
      LEAVE TO SCREEN 0.
    ENDIF.
hope this is helpful.

Problem with CURSOR on Selection-Screen

Hi Experts,
This question is for you. We have recently upgraded our system to 7.01 Stack 5 (Enhancement Pack 1).
The screen supplied by a custom transaction is quite behaving in a strange manner. Whenever we execute the transaction the CURSOR appears by default at the 3rd Radio button and the UP/DOWN keys present in keyboard are not working and we have to place it back to the correct position using Mouse.Our customer raised a Ticket to check this.
Please suggest a work around for this.I need to remove this cursor blink completely at the selection screen.
Best Regards,
lakshman.

Hi,
Not sure to really get the issue... looks like your radiobuttons are not grouped properly and default is set on the third one...(?)
So just use the same radiobutton group for the three buttons and set the first one as default, either on selection screen or initialization level...
Kr,
Manu.

How Can i SEt Dynamic Variant For WEEK on SELECTION Screen.pls help me..

<b>Hi ALL..
Pls Help Me for this Problem..i am very confused how can i do that...plese tell me proper process..
i want set Dynamice Varient for WEEK on Selection screen..
I have ALrady SET Dynamice Varient for DATE on Selection Screen.ther isd option is D...but in case of WEEK there is a no option...
Plese help me..
thaks in advance..
pls help me..</b>

Hello,
Define your select-option in TVARV (assume Z_THISWEEK). And use a program like:
DATA:
zlv_week TYPE KWEEK.
call function 'DATE_GET_WEEK'
   exporting date = syst-datum
   importing week = zlv_week.
SELECT SINGLE *
      FROM tvarvc
     WHERE name = 'Z_THISWEEK'
       AND type = 'S'
       AND numb = '0000'.
tvarvc-low = zlv_week.
IF syst-subrc <> 0.
    tvarvc-name     = 'Z_THISWEEK'.
    tvarvc-type     = 'S'.
    tvarvc-opti     = 'EQ'.
    tvarvc-sign     = 'I'.
    tvarvc-numb     = '0000'.
    insert tvarvc.
ELSE.
update tvarc.
ENDIF.
Regards,
John.

Please help with bypassing bootup selection screen. MB:MSI Z68A-GD80

Hi Guys,
I was wondering if you could help me bypass the boot-up selection choices screen and go directly into Windows.
My MB is MSI Z68A-GD80. I want to remote control this pc, but with the selection boot option screen keeps coming up after rebooting, it might not work.
Is there a setting somewhere to disable this and go directly to Windows? I tried different setting in the Setting menu, but not working.
Thanks in advance!
Rich

Enter BIOS 'Settings', 'Boot', enter (red arrow) UEFI & disable, enter & either leave alone or disable as to preference (blue arrow), USB HardDisk set as desired, etc. Then, in the 'Boot Option Priorities' (white arrow pointing at 1 thru 8 boot list in this example), start at the bottom & disable as you go upward until you have only set for #2 as example, CD/DVD drive, & for #1 boot device, your OS HDD. Hit the 'F10' key & the 'Enter' key & it should be set correctly to what you want.

Variants with subscreens in selection screen

Similar Messages

Maybe you are looking for