Reg- Selection screen in Dialog Programing

Dear Friends,
I have developed one Dialog program. In that i have to select profit center like from and to option. Apart from i want to select more profit ceneter also. Now my problem s i designed form,to and more fielsd also. If i enter more filds it s not coming in to from to option.
Tell any gud function modulr for selectiong from,to and more fields.
Thanks & regards
Prabu K

Hi,
See below report it might help you.
REPORT selectoptionsrestrict.
Include type pool SSCR
TYPE-POOLS sscr.
TABLES :
marc.
defining the selection-screen
select-options :
s_matnr for marc-matnr,
s_werks for marc-werks.
Define the object to be passed to the RESTRICTION parameter
DATA restrict TYPE sscr_restrict.
Auxiliary objects for filling RESTRICT
DATA : optlist TYPE sscr_opt_list,
 *** type sscr_***.
INITIALIZATION.
Restricting the MATNR selection to only EQ and 'BT'.
optlist-name = 'OBJECTKEY1'.
optlist-options-eq = 'X'.
optlist-options-bt = 'X'.
APPEND optlist TO restrict-opt_list_tab.
***-kind = 'S'.
***-name = 'S_MATNR'.
***-sg_main = 'I'.
***-sg_addy = space.
***-op_main = 'OBJECTKEY1'.
APPEND *** TO restrict-***_tab.
Restricting the WERKS selection to CP, GE, LT, NE.
optlist-name = 'OBJECTKEY2'.
optlist-options-cp = 'X'.
optlist-options-ge = 'X'.
optlist-options-lt = 'X'.
optlist-options-ne = 'X'.
APPEND optlist TO restrict-opt_list_tab.
***-kind = 'S'.
***-name = 'S_WERKS'.
***-sg_main = 'I'.
***-sg_addy = space.
***-op_main = 'OBJECTKEY2'.
APPEND *** TO restrict-***_tab.
CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
 EXPORTING
 restriction = restrict
 EXCEPTIONS
 TOO_LATE = 1
 REPEATED = 2
 SELOPT_WITHOUT_OPTIONS = 3
 SELOPT_WITHOUT_SIGNS = 4
 INVALID_SIGN = 5
 EMPTY_OPTION_LIST = 6
 INVALID_KIND = 7
 REPEATED_KIND_A = 8
 OTHERS = 9
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Thanks
Mohit

Similar Messages

How to set Screen type "Selection Screen" in Dialog program

Hi Experts,
I have copied a screen 400 from a program into my program. In that screen in source program, the screen type was defined as 'Selection Screen'. After i copied that screen into my program, the screen type Selection Screen option is disabled. How to set the screen type of a screen to Selection Screen.
I am currently getting the following error
"Error when generating the selection screen "0400" of "Ztest_screen ".
I tried running the generation program RSDBGENA. There the diagnosis was given as follows:
When generating the report Ztest_screen and its selection screen, an existing screen 1000 (not a selection screen) was overwritten.
The selection screen was defined as follows:
SELECTION-SCREEN BEGIN OF SCREEN 400 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK blck1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_matnr FOR mara-matnr.
PARAMETERS: p_werks TYPE werks_d OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blck1.
SELECTION-SCREEN END OF SCREEN 400 .
I am calling the screen 400 with selection screen declarations in PBO of screen 0100.
CALL SUBSCREEN sub_scr INCLUDING 'Ztest_Screen' '400'.
Where am i going wrong? Your inputs are needed.
Thanks

Thanks Przemysław and Nabheet for your suggestions.
I had copied the generated screen 400 also from the source program into my program. This was the error. I deleted that and the report got activated now.
Both the source and destination programs are not module pool. They are executable programs.
Thanks

Selction screen in dialog program

Hi All..
In my requirement, i need a selection screen that has a parameter for the PO number. Based on the valid PO number, the line items of the PO need to be displayed on the screen where the user should be able to split the line items into different batches.
Once batch split is done, need to do a GR for the updated split data. Appreciate your help on how this can be acieved. Can we design a selection screen in dialog program ?
Also how we can provide the split functionality (insertion of new rows for main line items to have the user enter new rows for exisitng line items to enter new batch number and quantity).
Thanks and appreciate your help.

Can we design a selection screen in dialog program ?
Yes, you can be defining the selection screen as a subscreen and then embeding in a subscreen area of a dynpro, but it is hardly worth it for just a parameter, it would be a different story if it were a select-option.
You can simply add the parameter to the dynpro using a regular input field.
Regards,
Rich HEilman

Select-Option in Dialog programming

Hi Experts,
Can we use select-options in Dialog programming?
If yes, Please help me, how to do that?
<REMOVED BY MODERATOR>
Edited by: Alvaro Tejada Galindo on Jun 12, 2008 12:27 PM

Hi Asrar,
Definitely you can use select-options in dialog programming.
You can do this using Subscreen.
define this scubscreen in top include.
selection-screen : begin of screen 100 as subscreen.
select-option : kunnr for kna1-kunnr.
selection-screen : end of screen 100.
in screen 200 where this selection screen appears, create a subscreen area 'SSA'.
Process on output. "200 screen.
call subscreen SSA including sy-repid '100'.
other modules
Process on input. "200 screen.
call subscreen SSA.
other modules
now you can access kunnr like other screen 200 objects.
<REMOVED BY MODERATOR>
Regards
Megha
Edited by: Alvaro Tejada Galindo on Jun 12, 2008 12:27 PM

Save/create a variant in user defined screen in dialog program

is there a way to save/create a variant in user defined screen in dialog program?
thanks...

Few important tables for Variants:
VARI - ABAP/4: Variant storage (similar to INDX)
VARID - Variant directory
VARINUM - Internal number assignment for variants
VARIT - Variant texts
TVARV - Table of variables in selection criteria
TVARC - Variant conditions
TVARUVN - Individual Variant Variable: Assignment TVARV
TVARCT - Text for Variants Conditions
TVARH - Header entries for screen variants
TVARIND - Save screen variants
Regards,
Vishal

Selection-screen in module program

Hi,
I have created a module pool prog.
Now the new regd. is that I want to create selection-screen before displying the actual screen.
But when I m trying to use selection screen then I m getting the message that it is not possible in type 'M' as my program is module pool.
I m using screen 9000 to display the records, now where to write selection screen in the program?
I think in PBO but getting some error, I have created one screen and in that defined a subscreen but it is giving some error.
So any body knows how to add selection screen in 'M' type program?
Thankx in advance.
Umesh

Hi,
You can create a selection-screen for a module pool program.
Create a new program with executable type. Create the selection screen as you would do in a normal program. Once you give data in the selection and press F8 button, based on the logics written, the O/P must appear in a table control. This is what your requirement is:
A example below for your understanding.
name of the prog : ZTEST
Type: Exectable report (I)
*----Selection Screen -
SELECTION-SCREEN BEGIN OF BLOCK IPDATA WITH FRAME TITLE TEXT-001.
PARAMETERS: PR_MONTH LIKE BOITEM-SPMON.
SELECT-OPTIONS: SO_VKGRP FOR KNVV-VKGRP.
SELECTION-SCREEN END OF BLOCK IPDATA.
SELECTION-SCREEN BEGIN OF BLOCK ORGDATA WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS: SO_REGIO FOR KNA1-REGIO,
                SO_KUNNR FOR KNA1-KUNNR,
                SO_WERKS FOR T001W-WERKS.
SELECTION-SCREEN END OF BLOCK ORGDATA.
*--Selection Screen Events--
START-OF-SELECTION.
W_CURMFDAY = SY-DATUM.
W_CURMFDAY+6(2) = '01'.
PERFORM F001_GETDATA.
IF SY-DBCNT EQ 0.
    MESSAGE S017(ZSFL).
    EXIT.
ENDIF.
PERFORM F002_ADDITIONALDATA.
CALL SCREEN 100.
For this screen 100, both the PBO and PAI can be declared in this main program itself.
Regards,
JLN.

Calling selection screen of another program

Hi all,
 Am trying to call a program from a enhancement section of IW3K transaction using the following statement.But the selection screen of the program is not getting displayed.
but the screen is dispalyed when i run the statement in debug mode.
Can anyone help me on this...
useful answers will be rewarded.
submit Z XXXXX via selection-screen
 WITH s_ispla = 'BEKD'
 WITH p_rsnum = CAUFVD-rsnum
 WITH s_rspos in i_range_tab
 and RETURN.

hi,
You can call one selection screen from other selection screen program using SUBMIT command.
The syntax is as follows -
codeSUBMIT... VIA SELECTION-SCREEN
USING SELECTION-SET <var>
WITH <sel> <criterion>
WITH FREE SELECTIONS <freesel>
WITH SELECTION-TABLE <rspar>.[/code]
e.g.
The following executable program (report) creates a selection screen containing the parameter PARAMET and the selection criterion SELECTO:
codeREPORT demo_program_submit_rep1.
DATA number TYPE i.
PARAMETERS paramet(14) TYPE c.
SELECT-OPTIONS selecto FOR number.[/code]
The program DEMO_PROGRAM_SUBMIT_REP1 is called by the following program using various parameters:
codeREPORT demo_program_submit_sel_screen NO STANDARD PAGE HEADING.
DATA: int TYPE i,
rspar TYPE TABLE OF rsparams,
wa_rspar LIKE LINE OF rspar.
RANGES seltab FOR int.
WRITE: 'Select a Selection!',
SKIP.
FORMAT HOTSPOT COLOR 5 INVERSE ON.
WRITE: 'Selection 1',
/ 'Selection 2'.
AT LINE-SELECTION.
CASE sy-lilli.
WHEN 4.
seltab-sign = 'I'. seltab-option = 'BT'.
seltab-low = 1. seltab-high = 5.
APPEND seltab.
SUBMIT demo_program_submit_rep1 VIA SELECTION-SCREEN
WITH paramet eq 'Selection 1'
WITH selecto IN seltab
WITH selecto ne 3
AND RETURN.
WHEN 5.
wa_rspar-selname = 'SELECTO'. wa_rspar-kind = 'S'.
wa_rspar-sign = 'E'. wa_rspar-option = 'BT'.
wa_rspar-low = 14. wa_rspar-high = 17.
APPEND wa_rspar TO rspar.
wa_rspar-selname = 'PARAMET'. wa_rspar-kind = 'P'.
wa_rspar-low = 'Selection 2'.
APPEND wa_rspar TO rspar.
wa_rspar-selname = 'SELECTO'. wa_rspar-kind = 'S'.
wa_rspar-sign = 'I'. wa_rspar-option = 'GT'.
wa_rspar-low = 10.
APPEND wa_rspar TO rspar.
SUBMIT demo_program_submit_rep1 VIA SELECTION-SCREEN
WITH SELECTION-TABLE rspar
AND RETURN.
ENDCASE.[/code]
=> To leave a called program, you can use SUBMIT .... AND RETURN. by choosing F3 or F15 from list level 0 of the called report.

Can I make two differents selection screen in my program?

Hi experts!!
I don't know how to male this, the problem is that I need to make two differents selection screen in my program because I have two differents kinds of button,
BUTTON1         BUTTON2          BUTTON3
When I press button1 I received.
BUTTON4         BUTTON5          BUTTON6
Now If I press on button4, how can I pick up the event? the name or something associate to this button4?
Thanks a lot and regards
Rebeca

Hi and thanks,
I've tried with your code, Velu Lakshmanan, and I only received another screen with the buttons... I need to put this button in the same screen, now I've this, but I can't receive the event associate to the second's buttons,
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 1(79) DTP USER-COMMAND DTP
VISIBLE LENGTH 25.
SELECTION-SCREEN PUSHBUTTON 28(79) EMP USER-COMMAND EMP
VISIBLE LENGTH 25.
SELECTION-SCREEN PUSHBUTTON 55(79) ABS USER-COMMAND ABS
VISIBLE LENGTH 25.
PARAMETERS: PROC_TYP TYPE I DEFAULT 1 NO-DISPLAY.
SELECTION-SCREEN END OF LINE.
* Informes de datos de tiempo.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 1(25) TEXT-FED USER-COMMAND FED MODIF ID DT1.
SELECTION-SCREEN PUSHBUTTON 28(25) TEXT-DCH USER-COMMAND DCH MODIF ID DT1.
SELECTION-SCREEN PUSHBUTTON 55(25) TEXT-ACH USER-COMMAND ACH MODIF ID DT1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 1(25) TEXT-FII USER-COMMAND FII MODIF ID DT1.
SELECTION-SCREEN PUSHBUTTON 28(25) TEXT-PTB USER-COMMAND PTB MODIF ID DT1.
SELECTION-SCREEN PUSHBUTTON 55(25) TEXT-PTS USER-COMMAND PTS MODIF ID DT1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 1(25) TEXT-ACI USER-COMMAND ACI MODIF ID DT1.
SELECTION-SCREEN PUSHBUTTON 28(25) TEXT-FIM USER-COMMAND FIM MODIF ID DT1.
SELECTION-SCREEN PUSHBUTTON 55(25) TEXT-LDH USER-COMMAND LDH MODIF ID DT1.
SELECTION-SCREEN END OF LINE.
* Informes de empleados
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 1(25) TEXT-LDP USER-COMMAND LDP MODIF ID EM1.
SELECTION-SCREEN PUSHBUTTON 28(25) TEXT-PDF USER-COMMAND PDF MODIF ID EM1.
SELECTION-SCREEN PUSHBUTTON 55(25) TEXT-LDT USER-COMMAND LDT MODIF ID EM1.
SELECTION-SCREEN END OF LINE.
* Informes de bajas
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 1(25) TEXT-BAJ USER-COMMAND BAJ MODIF ID AB1.
SELECTION-SCREEN PUSHBUTTON 28(25) TEXT-VMA USER-COMMAND VMA MODIF ID AB1.
SELECTION-SCREEN PUSHBUTTON 55(25) TEXT-SDE USER-COMMAND SDE MODIF ID AB1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 1(25) TEXT-LDB USER-COMMAND LDB MODIF ID AB1.
SELECTION-SCREEN PUSHBUTTON 28(25) TEXT-LDA USER-COMMAND LDA MODIF ID AB1.
SELECTION-SCREEN PUSHBUTTON 55(25) TEXT-DHT USER-COMMAND DHT MODIF ID AB1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B1.
* Pintamos los botones que necesitemos mostrar según la opción seleccionada
AT SELECTION-SCREEN.
CASE SSCRFIELDS-UCOMM.
    WHEN 'DTP'. PROC_TYP = 1.
    WHEN 'EMP'. PROC_TYP = 2.
    WHEN 'ABS'. PROC_TYP = 3.
ENDCASE.
AT SELECTION-SCREEN OUTPUT.
CASE PROC_TYP.
* Cuando el botón que ha seleccionado es "Datos de tiempo"
    WHEN 1.
      CALL FUNCTION 'ICON_CREATE'
        EXPORTING
          NAME   = ICON_OKAY
          TEXT   = TEXT-DTP
          INFO   = TEXT-AUS
        IMPORTING
          RESULT = DTP.
      EMP = TEXT-EMP.
      ABS = TEXT-ABS.
      LOOP AT SCREEN.
        IF SCREEN-GROUP1 EQ 'DT1'.
          SCREEN-INPUT = '1'. SCREEN-INVISIBLE = '0'. MODIFY SCREEN.
        ENDIF.
        IF SCREEN-GROUP1 EQ 'EM1'.
          SCREEN-INPUT = '0'. SCREEN-INVISIBLE = '1'. MODIFY SCREEN.
        ENDIF.
        IF SCREEN-GROUP1 EQ 'AB1'.
          SCREEN-INPUT = '0'. SCREEN-INVISIBLE = '1'. MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
    WHEN 2.
      CALL FUNCTION 'ICON_CREATE'
        EXPORTING
          NAME   = ICON_OKAY
          TEXT   = TEXT-EMP
          INFO   = TEXT-AUS
        IMPORTING
          RESULT = EMP.
      DTP = TEXT-DTP.
      ABS = TEXT-ABS.
      LOOP AT SCREEN.
        IF SCREEN-GROUP1 EQ 'DT1'.
          SCREEN-INPUT = '0'. SCREEN-INVISIBLE = '1'. MODIFY SCREEN.
        ENDIF.
        IF SCREEN-GROUP1 EQ 'EM1'.
          SCREEN-INPUT = '1'. SCREEN-INVISIBLE = '0'. MODIFY SCREEN.
        ENDIF.
        IF SCREEN-GROUP1 EQ 'AB1'.
          SCREEN-INPUT = '0'. SCREEN-INVISIBLE = '1'. MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
    WHEN 3.
      CALL FUNCTION 'ICON_CREATE'
        EXPORTING
          NAME   = ICON_OKAY
          TEXT   = TEXT-ABS
          INFO   = TEXT-AUS
        IMPORTING
          RESULT = ABS.
      DTP = TEXT-DTP.
      EMP = TEXT-EMP.
      LOOP AT SCREEN.
        IF SCREEN-GROUP1 EQ 'DT1'.
          SCREEN-INPUT = '0'. SCREEN-INVISIBLE = '1'. MODIFY SCREEN.
        ENDIF.
        IF SCREEN-GROUP1 EQ 'EM1'.
          SCREEN-INPUT = '0'. SCREEN-INVISIBLE = '1'. MODIFY SCREEN.
        ENDIF.
        IF SCREEN-GROUP1 EQ 'AB1'.
          SCREEN-INPUT = '1'. SCREEN-INVISIBLE = '0'. MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
ENDCASE.
Help please... I don't know how can I make this.....
If I use screen...how can I put this screen in the correct place?
Thanks a lot
Regards,
Rebeca

Problem with the selection screen in submit program

Hi Friends,
i am facing the problem wih the selection screen in submit program. in my Module pool program i am using the submit program statement, When i execute the program , The module program display the submit program selections creen.
I have implemented the code same as below.
submit ztest with tknum =p_tknum and return.
Can you pleaes help me how to avoid the submit program selection screen.
Thanks,
Charan

Hi Charan,
You have to give the selection screen values when you submit a job.
Press F1 on submit and you will see more details.
Here is an example from ABAP Documentation.
Program accessed
REPORT report1.
DATA text(10) TYPE c.
SELECTION-SCREEN BEGIN OF SCREEN 1100.
SELECT-OPTIONS: selcrit1 FOR text,
                  selcrit2 FOR text.
SELECTION-SCREEN END OF SCREEN 1100.
Calling program
REPORT report2.
     DATA: text(10)   TYPE c,
      rspar_tab TYPE TABLE OF rsparams,
      rspar_line LIKE LINE OF rspar_tab,
      range_tab LIKE RANGE OF text,
      range_line LIKE LINE OF range_tab.
rspar_line-selname = 'SELCRIT1'.
rspar_line-kind    = 'S'.
rspar_line-sign    = 'I'.
rspar_line-option = 'EQ'.
rspar_line-low     = 'ABAP'.
APPEND rspar_line TO rspar_tab.
range_line-sign   = 'E'.
range_line-option = 'EQ'.
range_line-low    = 'H'.
APPEND range_line TO range_tab.
range_line-sign   = 'E'.
range_line-option = 'EQ'.
range_line-low    = 'K'.
APPEND range_line TO range_tab.
SUBMIT report1 USING SELECTION-SCREEN '1100'
               WITH SELECTION-TABLE rspar_tab
               WITH selcrit2 BETWEEN 'H' AND 'K'
               WITH selcrit2 IN range_tab
               AND RETURN.
Regards,
Jovito.

How to export the Screens of dialog programming into notepad

Hi Guys,
 Here I am having a requirement to copy the screens of dialog program into another SAP system.
 So I have to export the screen along with coding into NOTEPAD.
 I am able to copy the coding part, but how to copy the screen into notepad
 Give me the appropriate answers.
 I will award the points to the answers

Hi Chakra.
please take carte that a screen consists of layout, fields and flow logic. Get all components using this form routine (taken from excellent useful SAP report RPR_ABAP_SOURCE_SCAN):
 Form GET_DYNPRO_FLOW_LOGIC
 Get flow logic of the dynpro
form get_dynpro_flow_logic.
data: dhead like d020s,
 dfield like d021s occurs 0,
 dflow like d022s occurs 0,
 dmatch like d023s occurs 0,
 begin of dynp_id,
 prog like d020s-prog,
 dnum like d020s-dnum,
 end of dynp_id.
dynp_id-prog = dyn-prog.
dynp_id-dnum = dyn-dnum.
import dynpro dhead dfield dflow dmatch id dynp_id.
rtab[] = dflow[].
endform. " GET_DYNPRO_FLOW_LOGIC
Regards,
Clemens

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
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.
Regards
vijay

At selection screen output dialog

how i can make
i have customer i want when i click enter to get the description.
the program is dialog , i get always err,and when i put in PBO or PAI.

Hi Little ,
What i understand is that you are working on a report and not a module pool.
If it is a report then you will first have to modify the selection screen , go to SE51 , put in the program name and the screen number ( which is generally 1000) , on the screen add a new I/O box which is for Output only let it be KNA1-NAME1 .
Now you need to write the code in the event AT SELECTION-SCREEN OUTPUT .
Here is the sample code for the same
tables : kna1.
parameter : kunnr type kna1-kunnr.
at selection-screen output.
if not kunnr is initial.
select single name1 into kna1-name1
from kna1
where kunnr = kunnr.
endif.
Hope this helps.
Regards
Arun

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

Select-Options in dialog program

Hi there,
I'm using a selection-screen in a dialog program, I declared it in the TOP.
Selection-screens
SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.
parameters: p_lifnr type lfa1-lifnr obligatory ,
p_werks type t001w-werks obligatory .
SELECT-OPTIONS:
s_licha FOR zbrtconsig-licha.
SELECTION-SCREEN END OF SCREEN 101.
I have to use the event at selection-screen on value-request for s_licha-low, and I need the values from the fields p_lifnr and p_werks. the problem is:
If I only fill the fields p_lifnr, p_werks and click on F4 for s_licha, the values of p_lifnr and p_werks are not updated, they are empty. Only wether I do an Enter this fields is updated.
Thanks,
Alexandre Nogueira

Hi,
i am not clear about your problem, please expalin it clearly.
use FM : DYNP_VALUES_UPDATE to update screen fields.
use FM : DYNP_VALUES_READ to read screen fields.
use SET /GET Parameter id's to set parameters
this FM will update the screen fields before to PBO event.
check this link for sample code :
Re: Issue Related to Module pool
Regards
Appana

How to insert a standard selection screen on moduled program?

Hi All,
Selection screen can be easily done in classic report by just simply invoking the event "SELECTION-SCREEN"
SELECTION-SCREEN BEGIN OF ...
SELECT-OPTIONS ...
PARAMETERS ...
In the case of moduled program, there will be a PBO and PAI, I have a requirement on my 2nd screen where I need to have a selection screen, but the SELECTION-SCREEN event is not applicable for NOT TYPE 1(Executable) Program.
My Dialog Program Flow:
Main Screen -> Display Screen (should be SELECTION SCREEN) -> Output (3rd screen)
What's the best alternative solution on this scenario?
Thanks.

Hi All,
I layout and detailed my question, please see my scenario below:
screen 9000
MODULE user_command_9000 INPUT.
CASE ok_code.
     WHEN 'CREATE'.
        CALL SCREEN 9001.
     WHEN 'DISPLAY'.
         "SHOULD CALL A SELECTION SCREEN HERE
         "AFTER THE SELECTION SCREEN, IS ANOTHER SCREEN FOR OUTPUT
    ENDCASE.
TOP include
SELECTION-SCREEN BEGIN OF SCREEN 9003 AS SUBSCREEN.
PARAMETERS P_PLANT TYPE T001W-WERKS.
SELECT-OPTIONS: S_MATNR    FOR MARA-MATNR,
                  S_LICHA    FOR MCHA-LICHA,
                  S_LIFNR    FOR LFA1-LIFNR.
SELECTION-SCREEN END OF SCREEN   9003.
Questions:
1. on the PAI of my main screen 9001, how can I call the SUBSCREEN I created using CALL SUBSCREEN?
    the code:
        CALL SUBSCREEN 9001 INCLUDING 'PROG_NAME' '9002',
     is not working / syntax error.
2. Should I call it like this?
    WHEN 'DISPLAY'.
       CALL SCREEN 9002.
   Screen 9002 PBO
        CALL SUBSCREEN 9001INCLUDING 'PROG_NAME' 9002',
     is not working / syntax error.
Thanks all.
Edited by: Jaime Cabanban on Dec 2, 2009 5:29 PM

Reg- Selection screen in Dialog Programing

Similar Messages

Maybe you are looking for