Creating Variant in Dialog Program Screen

Hi All,
Can I create Variant in Dialog Program screen.If yes, how can I do this?
Thanks
Saurabh

dfsdf

Similar Messages

Calling dialog program screen in custom control and using drag n drop

Hi Experts,
SCENARIO:
I have a custom container control. I want to insert a dialog program screen in custom container control in one half and tree nodes in the other half.
Now my dialog screen has a table control. I want that the user can drag n drop the nodes in the cells of my table control.
Please help.

I don't think drag n drop works in table control. You may need to change table control to ALV grid control.
a®

Screen variant in dialog program

Can we create a screen variant on our own screen dialog program ?

hi,
Go to tcode SHD0 and create the screen variant.
then use in the program
data scvariant like shdsvci-scvariant.
call function 'RS_HDSYS_SET_SC_VARIANT'
exporting
progname = sy-repid
DYNPRO =
scvariant = scvariant
overwrite_scvariant = 'X'.
reward if helpful,
Regards,
preet

Select option in Dialog program screen

Hi friends,
do we have any way to get a select option displayed in dialog programming ?
or
create a screen field with the properties of a select option in dialog screen ?
or
any standard function module to support this scenario ?
Thanks and Regards
Sakthi.

Hi,
i don't know you checked it or not, but i am able to do it, i send the screen shot also to you check it..
it is possible,with some coding also check it once...
REPORT ZTEST_SCREEN                            .
DATA : BEGIN OF IT_DYNPFIELDS OCCURS 3.
        INCLUDE STRUCTURE DYNPREAD.
DATA : END OF IT_DYNPFIELDS.
DATA: TEST(10) TYPE C.
RANGES: R_UNAME FOR SY-UNAME.
DATA:     V_USERNAME LIKE SY-UNAME.
DATA : V_PROG LIKE D020S-PROG VALUE 'ZTEST_SCREEN',
       V_DNUM LIKE D020S-DNUM VALUE '0100'.
CALL SCREEN 100.
*&      Module STATUS_0100 OUTPUT
*       text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'TEST'.
* SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
*       text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Module GET_CURSOR_USERNAME INPUT
*       text
MODULE GET_CURSOR_USERNAME INPUT.
REFRESH IT_DYNPFIELDS.
CLEAR   IT_DYNPFIELDS.
MOVE 'V_USERNAME' TO IT_DYNPFIELDS-FIELDNAME.
APPEND IT_DYNPFIELDS.
CLEAR   IT_DYNPFIELDS.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      DYNAME               = V_PROG
      DYNUMB               = V_DNUM
      TRANSLATE_TO_UPPER   = 'X'
    TABLES
      DYNPFIELDS           = IT_DYNPFIELDS
    EXCEPTIONS
      INVALID_ABAPWORKAREA = 1
      INVALID_DYNPROFIELD = 2
      INVALID_DYNPRONAME   = 3
      INVALID_DYNPRONUMMER = 4
      INVALID_REQUEST      = 5
      NO_FIELDDESCRIPTION = 6
      INVALID_PARAMETER    = 7
      UNDEFIND_ERROR       = 8
      DOUBLE_CONVERSION    = 9
      STEPL_NOT_FOUND      = 10
      OTHERS               = 11.
IF SY-SUBRC = 0.
    READ TABLE IT_DYNPFIELDS WITH KEY FIELDNAME = 'V_USERNAME'.
    IF SY-SUBRC = 0.
      V_USERNAME = IT_DYNPFIELDS-FIELDVALUE.
    ENDIF.
ENDIF.
PERFORM GET_MULTIPLE.
ENDMODULE.                 " GET_CURSOR_USERNAME INPUT
*&      Form GET_MULTIPLE
*       text
* --> p1        text
* <-- p2        text
FORM GET_MULTIPLE .
* Dynamically holding Field name
FIELD-SYMBOLS: <FST> TYPE STANDARD TABLE.
IF R_UNAME[] IS INITIAL.
    IF NOT V_USERNAME IS INITIAL.
      R_UNAME-SIGN = 'I'.
      R_UNAME-OPTION = 'EQ'.
      R_UNAME-LOW = V_USERNAME.
      APPEND R_UNAME.
      CLEAR R_UNAME.
    ENDIF.
ENDIF.
ASSIGN R_UNAME[] TO <FST>.
CALL FUNCTION 'COMPLEX_SELECTIONS_DIALOG'
    EXPORTING
      TITLE             = 'Select Multiple Value'(059)
      TEXT              = 'Finish Group'(058)
      SIGNED            = 'X'
      LOWER_CASE        = ' '
      NO_INTERVAL_CHECK = 'X'
      JUST_DISPLAY      = ' '
      JUST_INCL         = 'X'
    TABLES
      RANGE             = <FST>
    EXCEPTIONS
      NO_RANGE_TAB      = 1
      CANCELLED         = 2
      INTERNAL_ERROR    = 3
      OTHERS            = 4.
IF SY-SUBRC = 0.
    READ TABLE R_UNAME INDEX 1.
    IF SY-SUBRC = 0.
      V_USERNAME = R_UNAME-LOW.
    ENDIF.
ENDIF.
ENDFORM.                    " GET_MULTIPLE
Flow loogic....
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
PROCESS ON VALUE-REQUEST.
*- To capture the cursor and for f4
FIELD V_USERNAME      MODULE GET_CURSOR_USERNAME.
in screen i have one field v_username
for that field do this
<b>double click on field which you want to make it as select option, it will display the attributes screen, in that click on program attributes button , now go to poss. entries in the dropdown choose 1 show at selection.</b>
Regards
vijay

Active E-mail address on the Dialog program Screen

Hello all,
I am displaying an E-mail address on the screen of a dialog program. The requirement is to open the Outlook addressing the Mail-id clicked. Is there any event driving this functionality or any FM to explicitly achieve this?
Eg. [url]xyz @ abc. com[url].--> When this is clicked the Outlook mail editor should open. Similar to the Microsoft Word, if an E-mail address is clicked, 'mailto:' command will be executed.
Please help me in this regard.
Thanks,
Vishnu Reddy

You mean a Safari shortcut to her log in page on the web, I assume.
Launch Safari and navigate to her log in page for her email. Then tap the arrow to the left of the URL field and select - Add to Home Screen. Name it as you see fit in the next window and tap the blue Add button.

Dialog Programming: Screen Parameter ID

I have a developed a screen with the following fields:
Material:
Plant:
Sloc:
For the Sloc, I want a picklist to show up for all slocs for the Plant the user entered. Currently I can only get it to display all slocs using the parameter ID LAG.
How can I get this to work? If it involves code, can you please include an example and where I should put it? thx

I have gotten some of it working. The drop down list now appears. My problem now is that when the user makes a selection, it does not populate it back on the screen field. Can u help?
Here is my code:
PROCESS AFTER INPUT.
MODULE USER_COMMAND_1200. "If user clicks save,back,etc
PROCESS ON VALUE-REQUEST.
FIELD DTAB-DES_LGORT module Sloc_Lookup.
MODULE Sloc_Lookup INPUT.
SELECT lgort lgobe
    INTO CORRESPONDING FIELDS OF TABLE it001l
    FROM t001l
    WHERE werks = dtab-werks.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
    RETFIELD               = 'lgort'
    VALUE_ORG              = 'S'
    DYNPPROG               = 'SAPMZQI_SIMP'
    DYNPNR                 = '1200'
    DYNPROFIELD            = 'DTAB-DES_LGORT '
TABLES
    VALUE_TAB              = it001l
EXCEPTIONS
   PARAMETER_ERROR        = 1
   NO_VALUES_FOUND        = 2
   OTHERS                 = 3.
ENDMODULE.

Making lable red in Dialog programming screen

Hi all,
I am developing an object using Dialog programmming. I got a requirement to make some of the lables in RED color. I did not find any option for achieving this.
Please help me out in this.
Thanks,
Vishnu

Hi,
You can make it BLUE If it is a lable and for input field you can make it red by setting the attribute BRIGHT or INTESIFIED = 1.
Regards
Ram

How to call a Dialog Program from another Dialog Program

Dear All,
How can I call a dialog program with return value from another dialog program?
Regards,
Alok.

Hi Alok,
1. Insted of creating 2 different Dialog program. It's good to create as many screens as you want in same module pool program. Any way you can use the different TCODE for each screen.
2. Another and The best way is to create a function group and then inside function group use the function 2 module... In the function group define a global variable which will be present for both the function group if they are getting executed in sequence. and inside the Function Module call the screens using command " call screen <screenno>".
3. You can use set / get parameter to pass values of a field between two dynpro program.

Select-options in Dialog Programming

Hi,
I am designing a custom dialog programming screen.
I want to create a filed on thescreen which can allow the range of values to be entered like select-options in a report.
How do I create a field which can accept range of values in dialog programming?
Thanks,
Ashok.

Hi,
In your selection screen program, Use Export command
Export r_Purchase_Order To Memory Id 'PO'.
             Export r_Po_Item        To Memory Id 'POITEM'.
             Export r_Plant          To Memory Id 'PLANT'.
             Export r_Vendor         To Memory Id 'VENDOR'.
             Export r_Material       To Memory Id 'MATNR'.
             Export r_Batch          To Memory Id 'BATCH'.
             Export r_Arrival_Date   To Memory Id 'ADATE'.
             Export r_Arrival_Time   To Memory Id 'ATIME'.
             Export r_Delivery_No    To Memory Id 'DEL'.
             Export r_Reference_No   To Memory Id 'REF'.
             Export r_User           To Memory Id 'USER'.
             Export t_Display_Data   To Memory Id 'DISPDAT'.
In your Module pool program, Use Import Command
    When c_Ok_0100_Execute.
               IMPORT r_Purchase_Order From Memory Id 'PO'.
               IMPORT r_Po_Item        From Memory Id 'POITEM'.
               Import r_Plant          From Memory Id 'PLANT'.
               Import r_Vendor         From Memory Id 'VENDOR'.
               Import r_Material       From Memory Id 'MATNR'.
               Import r_Batch          From Memory Id 'BATCH'.
               Import r_Arrival_Date   From Memory Id 'ADATE'.
               Import r_Arrival_Time   From Memory Id 'ATIME'.
               Import r_Delivery_No    From Memory Id 'DEL'.
               Import r_Reference_No   From Memory Id 'REF'.
               Import r_User           From Memory Id 'USER'.
               Import t_Display_Data   From Memory Id 'DISPDAT'.
Thanks

Set Default Values in Listbox with Dialog Programming

Hi all,
I am stuck with a problem i.e I am working with Dialog Programming Screen
where i have to set default values in some n numbers of Listbox which i have created on Screen.
This default value is needed to be fetched from database table.
I am using single table. Hence no confusion that i have to first fetch data from 1st listbox then corresponding data is fetched into second & so on ..NO NO This is not required.
Simple one screen which will update a table in database, where some fields on the screen needs to be default set as per tables domain default values set while table creation.
Please help me out in this.
Thanks & Regards,
Sandhya.

Please search SDN, before you post a new forum from next time... any ways just follow the below code..
u need to use the FM 'VRM_SET_VALUES' to implement list box in module pool. Check the below code. u have to write this code in PBO..
if c = 0.
select land1 landx from t005t into table wi_country.
sort wi_country by land1.
delete adjacent duplicates from wi_country comparing all fields.
loop at wi_country.
wa_ctry-key = wi_country-land1.
wa_ctry-text = wi_country-landx .
append wa_ctry to wi_ctry.
endloop.
call function 'VRM_SET_VALUES'
exporting
id = 'ZCUST_MASTER1-COUNTRY'
values = wi_ctry
exceptions
id_illegal_name = 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.
c = 1.
endif.
Hope this helps u,
Regards,
Rajesh

Do you know the function module to create variants?

To automate the setting of variants on the selection-screens, I'd like to make some tool program to create variants.
I'd appreciate if you could tell me some function module(or any other methods) to create variants.
Thank you in advance for your information.

Hi,
You would find useful FMs in the following link:
http://www.sapdevelopment.co.uk/fmodules/fmssap.htm
FASU_V_CREATE_VARIANT_RFC ASU: Create variant
FASU_RS_CREATE_VARIANT create variant (w/o selection screen) - client dependent
FASU_RS_CHANGE_CREATED_VARIANT change variant w/o selection screen - client dependent
Sample Program:
REPORT z_co99_cji5
NO STANDARD PAGE HEADING
MESSAGE-ID 00
LINE-SIZE 290.
PROGRAM : Z_CO99_CJI5 *
TITLE : CJI5 In Background *
AUTHOR. : Raja Nesanoor *
DATE WRITTEN : 27-Feb_2007 *
REVTRAC : xxxxxx *
PROGRAM FUNCTION: *
To DISPLAY CJI5 Report in background *
PROGRAM TYPE : Executable program *
DEV. CLASS : XXXXXX *
LOGICAL DB : NA *
AUHTORIZATION CHECKS *
Object Authorization Fields ABAP Fields *
S_TCODE *
BUKRS v_BUKRS *
CHANGE HISTORY *
Date Id Name Indicator Description *
DATA : v_repid LIKE sy-repid VALUE 'ZRKPEP005' ,
v_variant LIKE varid-variant VALUE 'V_CJI5' .
DATA: BEGIN OF w_varid.
INCLUDE STRUCTURE varid.
DATA: END OF w_varid.
DATA: BEGIN OF i_rsparams OCCURS 10.
INCLUDE STRUCTURE rsparams.
DATA: END OF i_rsparams.
DATA: BEGIN OF i_rsparams1 OCCURS 10.
INCLUDE STRUCTURE rsparams.
DATA: END OF i_rsparams1.
DATA: BEGIN OF i_varit OCCURS 2.
INCLUDE STRUCTURE varit.
DATA: END OF i_varit.
DATA: BEGIN OF i_vscreens OCCURS 2.
INCLUDE STRUCTURE rsdynnr.
DATA: END OF i_vscreens.
start-of-Selection
START-OF-SELECTION.
SET PARAMETER ID 'CAC' FIELD 'GC10'.
SET PARAMETER ID 'PDB' FIELD '000000000001'.
PERFORM populate_var_table.
PERFORM create_variant.
PERFORM submit_cji5.
*& Form POPULATE_VAR_TABLE
text
--> p1 text
<-- p2 text
FORM populate_var_table .
CLEAR w_varid .
REFRESH i_varit .
REFRESH i_rsparams .
i_rsparams-selname = 'CN_NETNR'.
i_rsparams-kind = 'S'.
i_rsparams-sign = 'I'.
i_rsparams-option = 'EQ'.
i_rsparams-low = '90273536'.
i_rsparams-high = space.
APPEND i_rsparams.
CLEAR : i_rsparams .
i_rsparams-selname = 'CN_NETNR'.
i_rsparams-kind = 'S'.
i_rsparams-sign = 'I'.
i_rsparams-option = 'EQ'.
i_rsparams-low = '90274010'.
i_rsparams-high = space.
APPEND i_rsparams.
CLEAR : i_rsparams .
i_rsparams-selname = 'R_OBDAT'.
i_rsparams-kind = 'S'.
i_rsparams-sign = 'I'.
i_rsparams-option = 'BT'.
i_rsparams-low = space .
i_rsparams-high = space.
APPEND i_rsparams.
CLEAR : i_rsparams .
i_rsparams-selname = 'P_DISVAR'.
i_rsparams-kind = 'P'.
i_rsparams-sign = 'I'.
i_rsparams-option = 'EQ'.
i_rsparams-low = '1SAP' .
APPEND i_rsparams.
CLEAR : i_rsparams .
i_rsparams-selname = 'P_USEDB'.
i_rsparams-kind = 'P'.
i_rsparams-sign = 'I'.
i_rsparams-option = 'EQ'.
i_rsparams-low = SPACE.
APPEND i_rsparams.
w_varid-mandt = sy-mandt.
w_varid-report = v_repid.
w_varid-variant = v_variant.
w_varid-flag1 = space.
w_varid-flag2 = space.
w_varid-transport = space.
w_varid-environmnt = 'A'. "Variant for batch and online
w_varid-protected = space.
w_varid-secu = space.
w_varid-version = '0'.
w_varid-ename = sy-uname.
w_varid-edat = sy-datum.
w_varid-etime = sy-uzeit.
w_varid-aename = space.
w_varid-aedat = space.
w_varid-aetime = space.
w_varid-mlangu = sy-langu.
i_varit-mandt = sy-mandt.
i_varit-langu = sy-langu.
i_varit-report = w_varid-report.
i_varit-variant = w_varid-variant.
i_varit-vtext = 'CO99-OUTPUT'.
APPEND i_varit.
ENDFORM. " POPULATE_VAR_TABLE
*& Form CREATE_VARIANT
text
--> p1 text
<-- p2 text
FORM create_variant .
data: h_rc like sy-subrc.
*Check variant exists.
CALL FUNCTION 'RS_VARIANT_EXISTS'
EXPORTING
report = v_repid
variant = v_variant
IMPORTING
R_C = h_rc
EXCEPTIONS
not_authorized = 01
no_report = 02
report_not_existent = 03
report_not_supplied = 04.
IF h_rc = 0.
CALL FUNCTION 'RS_CHANGE_CREATED_VARIANT'
EXPORTING
curr_report = v_repid
curr_variant = v_variant
vari_desc = w_varid
TABLES
vari_contents = i_rsparams
vari_text = i_varit
EXCEPTIONS
illegal_report_or_variant = 01
illegal_variantname = 02
not_authorized = 03
not_executed = 04
report_not_existent = 05
report_not_supplied = 06
variant_doesnt_exist = 07
variant_locked = 08
selections_no_match = 09.
COMMIT WORK.
ELSE.
CALL FUNCTION 'RS_CREATE_VARIANT'
EXPORTING
curr_report = v_repid
curr_variant = v_variant
vari_desc = w_varid
TABLES
vari_contents = i_rsparams
vari_text = i_varit
EXCEPTIONS
illegal_report_or_variant = 1
illegal_variantname = 2
not_authorized = 3
not_executed = 4
report_not_existent = 5
report_not_supplied = 6
variant_exists = 7
variant_locked = 8
OTHERS = 9.
COMMIT WORK.
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. " CREATE_VARIANT
*& Form submit_cji5
text
--> p1 text
<-- p2 text
FORM submit_cji5 .
CALL FUNCTION 'SUBST_START_REPORT_IN_BATCH'
EXPORTING
iv_jobname = 'TEST_JOB'
iv_repname = v_repid
iv_varname = v_variant
iv_authcknam = sy-uname
iv_language = sy-langu
iv_varianttext = 'CO99-OUTPUT'
TABLES
tt_reportparam = i_rsparams
EXCEPTIONS
variant_exist_check_failed = 1
variant_update_failed = 2
variant_update_not_authorized = 3
variant_update_no_report = 4
variant_update_no_variant = 5
variant_update_variant_locked = 6
variant_insert_failed = 7
variant_insert_not_authorized = 8
variant_insert_no_report = 9
variant_insert_variant_exists = 10
variant_insert_variant_locked = 11
variant_write_failed = 12
no_batch_service = 13
no_server_list = 14
batch_scheduling_failed = 15
OTHERS = 16.
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.
Regards,
Srilatha.

Problem with spool request generation in Dialog program

Hi,
    To give the spool and print functionality in dialog program i have used the function module code like below -
call function 'GET_PRINT_PARAMETERS'
      exporting
           mode                   = ' '
           in_parameters          = ls_pri_params
      importing
           out_parameters         = ls_pri_params
           valid                  = lv_valid
      exceptions
           archive_info_not_found = 1
           invalid_print_params   = 2
           invalid_archive_params = 3
           others                 = 4.
   IF lv_valid <> space AND sy-subrc = 0.
         SUBMIT (sy-repid)
                USER SY-UNAME TO SAP-SPOOL
                SPOOL   PARAMETERS ls_pri_params
                WITHOUT SPOOL DYNPRO.
But the problem is, if it is list then we can easily get the print function, since i am using the above code in the dialog program screen 9000, program is giving dump like....
Incorrect program type with SUBMIT.
What happened?
The current ABAP/4 program "SAPMYXXXXXX" had to be terminated because
one of the statements could not be executed.
This is probably due to an error in the ABAP/4 program.
You attempted to start a program not intended for this purpose.
I know that i should not use submit statement for dialog program, but what is the solution for this.
Thanks in advance..

Did you check the F1 help of SUBMIT. if not give a try.Submit cannot be used on Module pool programs. it is used for Report(executable ) programs.

Select-option field in dialog programming

hi guys,
i need to declare field matnr as select-option range in dialog programming..how can i code it in the module program?

This questions has been answered many times (even in february)
- search sdn wiki (2 commented samples at [SELECT-OPTIONS on Dialog programming screen|http://wiki.sdn.sap.com/wiki/display/ABAP/SELECT-OPTIONSonDialogprogrammingscreen] and [Select-Options in Module Pool Programming|http://wiki.sdn.sap.com/wiki/display/ABAP/Select-OptionsinModulePoolProgramming])
- search abap online help ([SELECTION-SCREEN - AS SUBSCREEN |http://help.sap.com/abapdocu_70/en/ABAPSELECTION-SCREEN_SUBSCREEN.htm] with sample at [Selection Screens as Subscreens |http://help.sap.com/abapdocu_70/en/ABENSEL_SCREEN_SUBSCREEN_ABEXA.htm])
Regards,
Raymond

How to create variant in Webdynpro

Hi Gurus,
I have created a WebDynpro report (WD Application). I have around 10 input fields on my first view.
My second view will display an ALV report.
Now I want to create variant for my selection screen( on my first view) so that the user will not need to always give
values to all the 10 input fields. Please let me know if you have any solution for this.
Thanks,
Pradeep

>Please tell me I am missing some setting somewhere
No, your statements are accurate and increasingly a request that I hear from customers. I pass on this request to the people who do the portfolio planning. Also the ASUG UI Influence Council has recently taken up this topic as well. It would also be helpful if you add your voice to the sticky thread on this forum asking for enhancement suggestions. All these things help add weight to a feature request.
Some thoughts from the SAP side - We do have personalization and configuration - some tasks that were done iwth variants could be acomplished with these new techniques. Also variant were originally designed for background processing. Since Web Dynpro ABAP can't be ran in the background anyway, that use case is out.
Personally I would like to see variants at least built into the Select-Options reusable component. It seems like a nice ballance between the requirements.
>This is really crazy when considering user specific ALV display variants can be saved -- but not shared as Global variants.
You can create global layouts for the ALV by logging on in Admin mode. Are you just saying you would like to be able to "promote" user specific layouts to global ones?

Variants for module pool screena

Hi,
I tried creating a variant for module pool screen by using the FM : RS_CREATE_VARIANT.
For this i created a dummy report which has the same parameters as the fields in the screen.
CALL FUNCTION 'RS_VARIANT_CONTENTS'
        EXPORTING
          report                      = gc_dummy_rep
          variant                     = 'variant5'
        MOVE_OR_WRITE               = 'W'
        NO_IMPORT                   = ' '
        EXECUTE_DIRECT              = ' '
      IMPORTING
        SP                          =
        tables
        L_PARAMS                    =
        L_PARAMS_NONV               =
        L_SELOP                     =
        L_SELOP_NONV                =
          valutab                     = lt_params
        OBJECTS                     =
        FREE_SELECTIONS_DESC        =
        FREE_SELECTIONS_VALUE       =
      EXCEPTIONS
        VARIANT_NON_EXISTENT        = 1
        VARIANT_OBSOLETE            = 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.
but when i try to retrieve the values stored in the variant using FM : RS_VARIANT_CONTENTS.
CALL FUNCTION 'RS_VARIANT_CONTENTS'
        EXPORTING
          report                      = gc_dummy_rep
          variant                     = 'variant5'
        MOVE_OR_WRITE               = 'W'
        NO_IMPORT                   = ' '
        EXECUTE_DIRECT              = ' '
      IMPORTING
        SP                          =
        tables
        L_PARAMS                    =
        L_PARAMS_NONV               =
        L_SELOP                     =
        L_SELOP_NONV                =
          valutab                     = lt_params
        OBJECTS                     =
        FREE_SELECTIONS_DESC        =
        FREE_SELECTIONS_VALUE       =
      EXCEPTIONS
        VARIANT_NON_EXISTENT        = 1
        VARIANT_OBSOLETE            = 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.
I get an error message : variant5 not found.
is there anything that i miss here?
or is the way i use to create variant for module pool screen not right?
Regards,
Kamini

Hi,
To avail save variant option in module pool screen,
1. You need to create a data base table similar to INDX table with the fields RELID, VARI_NAME
PROG_NAME
UNAME
SRTF2, MEMORYID, CLUSTR, CLUSID. And the remaining fields can be anything.
2. Enable the Save button in the Function keys part of GUI Status. And Add a push button for Get variant.
3. When Save button clicked call a screen with a single field for variant (let us say g_var). After g_var entered, in the PAI of the initial screen export all the screen values to the created database index using the statement .
                     EXPORT: g_characteristics_tab TO DATABASE zav0257(ch) ID g_var,
                                   s_auart TO DATABASE zav0257(au) ID g_var.
                     So that the values will be exported to database.
                     Then update the fields(VARI_NAME,PROG_NAME,UNAME) of the database table using modify from work area.
                     So that you will have the history of variance existence.
4. Next time , when the user clicks on Get Variant option, call another screen to enter the variant name. Then import the values for that variant from the memory id in the database table.
It worked for me.

Creating Variant in Dialog Program Screen

Similar Messages

Maybe you are looking for