How to pass selection screen value to LDB dynamic field.

Hello everybody,
In my program, I am using standard LDB(PSJ) for getting data. And there is a requirement that I have to display some dynamic fields on my selection screen like plant , person responsible ( which are mandatory also ) etc. and inside the program I have to fill those dynamic fields for which the user has entered the value in selection screen.
Could you please tell me how to pass some of selection screen values to ldb dynamic fields before GET statement.
Thanks !!!
Regards,
Mitra

>
Pavan Bhamidipati wrote:
> Hi,
>
>
I have to fill those dynamic fields for which the user has entered the value in selection screen.
>
>
> This means that the user is going to enter the values in the selection screen for the dynamic field values so
>
> SET PARAMETERID 'XYZ' FIELD p_field.
>
> where p_field is a parameter on the selection screen
>
> Regards
> Pavan
You can capture the values selected through the dynamic selections using some of the functions modules below, just search the forum for the below FM's, perhaps you can find some sample code
FREE_SELECTIONS_EX_2_RANGE
FREE_SELECTIONS_EX_2_WHERE
FREE_SELECTIONS_RANGE_2_EX
FREE_SELECTIONS_RANGE_2_WHERE
FREE_SELECTIONS_WHERE_2_EX
FREE_SELECTIONS_WHERE_2_RANGE

Similar Messages

How to pass Selection screen values to another program's selection screen

Hello,
I have a requriement where in which i need to pass the selection screen values (say list of pernrs) and few others of one program to selection screen of another.
One option that i came across is using Submit. But am unware how to pass only the selection screen values (there wont be any data processing or filtering). Just the values of one prgm's selection screen are to be sent to another.
Thanks
RK

prog1.
data:lt_params type table of RSPARAMS.
data:wa like line of lt_params.
parameters:pa1 type sy-datum.
select-options:so1 type sy-dtaum.
wa-SELNAME = 'PA2'.               "Seletion screen field name
wa-KIND     = 'P'.                    "P-Parameter,S-Select-options
wa-SIGN     = 'I'.                    "I-in
wa-OPTION     = 'EQ'.               "EQ,BT,CP
wa-LOW     = pa1.                    "Selection Option Low,Parameter value
append wa to lt_params.
loop at so1.
wa-SELNAME = 'SO2'.               "Seletion screen field name
wa-KIND     = 'S'.                    "P-Parameter,S-Select-options
wa-SIGN     = 'I'.                    "I-in
wa-OPTION     = 'EQ'.               "EQ,BT,CP
wa-LOW     = so1-low.               "Selection Option Low,Parameter value
wa-HIGH     = so1-high.               "Selection Option Low,Parameter value
append wa to lt_params.
endloop.
CALL FUNCTION 'SUBMIT_REPORT'
EXPORTING
    report                 = 'ZPROG2.'   "report name of ur tocde
    RET_VIA_LEAVE          = ''            "IF 'X' returns to the called program after execution
    SKIP_SELSCREEN         = 'X'       "If 'X' selection screen of called program is not displayed
TABLES
   SELECTION_TABLE        = lt_params       "Contains values to the selection screen
EXCEPTIONS
JUST_VIA_VARIANT       = 1
NO_SUBMIT_AUTH         = 2
OTHERS                 = 3
Prog2.
parameters:pa2 type sy-datum.
select-options:so2 type sy-dtaum.
write pa2.
skip 1.
loop at so2.
write:so2-low,so2-high.
skip 1.
endloop.
Edited by: Keshu Thekkillam on Aug 20, 2009 3:22 PM

Pass selection screen value to ALV

Hi
I need to pass selection screen values to ALV top of page. How to do this?

Hi,
Have a look on the following example.
TYPE-POOLS: SLIS.
TABLES: LFA1.
SELECT-OPTIONS: LIFNR FOR LFA1-LIFNR.
DATA: BEGIN OF ITAB OCCURS 0,
 LIFNR LIKE LFA1-LIFNR,
 NAME1 LIKE LFA1-NAME1,
 ORT01 LIKE LFA1-ORT01,
 LAND1 LIKE LFA1-LAND1,
 REGIO LIKE LFA1-REGIO,
 END OF ITAB.
SELECT * FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE ITAB UP TO 5 ROWS.
DATA: LAYOUT TYPE SLIS_LAYOUT_ALV,
 HEADER TYPE SLIS_T_LISTHEADER WITH HEADER LINE,
 FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
 I_PROGRAM_NAME = SY-REPID
 I_INTERNAL_TABNAME = 'ITAB'
I_STRUCTURE_NAME = ITAB
I_CLIENT_NEVER_DISPLAY = 'X'
 I_INCLNAME = SY-REPID
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
 CT_FIELDCAT = FLDCAT
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
 I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
 IT_FIELDCAT = FLDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
 T_OUTTAB = ITAB
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DATA: S(10).
S = 'TO'.
FORM TOP-OF-PAGE.
HEADER-TYP = 'S'.
HEADER-KEY = 'LIFNR'.
CONCATENATE LIFNR-LOW LIFNR-HIGH INTO HEADER-INFO SEPARATED BY SPACE.
APPEND HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
 IT_LIST_COMMENTARY = HEADER[]
I_LOGO =
I_END_OF_LIST_GRID =
I_ALV_FORM =
ENDFORM.
Reward,if useful.
Thanks,
Chandu

How to pass selection screen parameters in text elements?

how to pass selection screen parameters in text elements?

don't you mean he other way around. Assign text-elements (selection texts) to select options?
This you do in the menu where you can find text-elements, selection texts.
menu Goto->text elements->selection texts.
Edited by: Micky Oestreich on May 10, 2008 2:45 PM

WAD template with BSP Application - how to read selection screen values

Hello,
I've created Web template with Web Application Designer (WAD).
I would like to extend that page with BSP Application...
Purpuse of this application is to read some information from tables
on BW transaction server and display them within Web page.
Question: How to read selection screen values from a Web template ?
Thanks for any help,
Pawel Borowiec

Hi,
The selection screen parameters will be on an inputField, so try and get the is of the inputfield generated by doing View source...
And once you get the inputfield Id, you can read the value in the InputField(InF) by
using the following code...!
data : if_value type ref to cl_htmlb_inputfield.
data : variable type string.
if_value ?= cl_htmlb_manager=>get_data( request = request
 name = 'inputField'
 id = 'InF_ID_here'
 if if_value->value is not initial.
 variable = if_value->value.
 endif.
Hope this helps.
Do reward each useful answer..!
Thanks,
Tatvagna.

How to capture selection-screen values

Hi,
How to capture selection-screen values when user pressing F3 or Back button after the display of report.
Regards,
Bujji.

Hi Bujji,
select-option are actually ranges or more general internal tables with the structure:
SIGN:    'I'nclusive or 'E'xclusive
OPTION: 'EQ', 'BT', 'NE', 'GE', 'CP', ....
LOW:     low value of type of the curresponding "FOR table-field"
HIGH:     high value of type of the curresponding "FOR table-field"
You may just code:
TABLES: mara.
SELECT-OPTIONS s_matnr FOR mara-matnr.
LOOP AT s_matnr.
WRITE: / s_matnr-sign,
           s_matnr-option,
           s_matnr-low,
           s_matnr-high.
ENDLOOP.
If you find my answer useful, please don't forget the reward.
Regards,
Juergen

Problem in passing selection screen values using CALL TRANSACTION.

Hi All
I am facing problem in transfering selection screen values to the called transaction. I am trying to pass the path of the transaction filer but to no avail. The variable for filepath is not empty.
Below is my code:
DATA: lt_bdcdata TYPE TABLE OF bdcdata,
       wa_bdcdata TYPE bdcdata,
       opt TYPE ctu_params.
CLEAR wa_bdcdata.
wa_bdcdata-program = 'RFBASM00'.
wa_bdcdata-dynpro   = '1000'.
wa_bdcdata-dynbegin = 'X'.
APPEND wa_bdcdata TO lt_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam = 'BDC_CURSOR'.
wa_bdcdata-fval = 'RFPDO1-FEBUMSF'.
APPEND wa_bdcdata TO lt_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam = 'RFPDO1-FEBUMSF'.
wa_bdcdata-fval = gv_filepath.
APPEND wa_bdcdata TO lt_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam = 'BDC_OKCODE'.
wa_bdcdata-fval = 'PASS'.
APPEND wa_bdcdata TO lt_bdcdata.
CLEAR wa_bdcdata.
opt-dismode = 'E'.
opt-updmode = 'S'.
CALL TRANSACTION 'FF_5' USING lt_bdcdata OPTIONS FROM opt.
Please help.
Harsh

Hi Harsh,
I think you have entered wrong main program for tcode 'FF_5' and wrong screen field for the file name. Use the below code instead of yours.
DATA: lt_bdcdata TYPE TABLE OF bdcdata,
       wa_bdcdata TYPE bdcdata,
       opt TYPE ctu_params,
       gv_filepath type char128 value 'C:\testfile.txt'.
CLEAR wa_bdcdata.
wa_bdcdata-program = 'RFEBKA00'.
wa_bdcdata-dynpro   = '1000'.
wa_bdcdata-dynbegin = 'X'.
APPEND wa_bdcdata TO lt_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam = 'BDC_CURSOR'.
wa_bdcdata-fval = 'UMSFILE'.
APPEND wa_bdcdata TO lt_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam = 'UMSFILE'.
wa_bdcdata-fval = gv_filepath.
APPEND wa_bdcdata TO lt_bdcdata.
CLEAR wa_bdcdata.
*wa_bdcdata-fnam = 'BDC_OKCODE'.
*wa_bdcdata-fval = 'PASS'.
*APPEND wa_bdcdata TO lt_bdcdata.
*CLEAR wa_bdcdata.
opt-dismode = 'A'.
opt-updmode = 'S'.
CALL TRANSACTION 'FF_5' USING lt_bdcdata OPTIONS FROM opt.
Thanks.
Regards,
Jey

Passing selection screen values to the next report using CALL TRANSACTION

Hi experts,
I have 2 reports. In the first report i have the 3 input fields in the first report, how do i pass the values to the next report which is transaction: ZKKBC_PKO_2.
I want to display in the next report the selections that the user previously selected.
First report:
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: COMP     LIKE AFRU-WERKS OBLIGATORY MODIF ID s1.
PARAMETERS: PERIOD   LIKE COEP-PERIO OBLIGATORY MODIF ID s1.
PARAMETERS: YEAR     LIKE COEP-GJAHR OBLIGATORY MODIF ID s1.
SELECTION-SCREEN END OF BLOCK b1.
CALL TRANSACTION 'ZKKBC_PKO_2'.
Anyone can help me?
Thanks,
Lawrence

Hi experts,
What i did is this:
Using SET PARAMETER
in the first report
SET PARAMETER ID 'WRK' FIELD COMP.
SET PARAMETER ID 'VPE' FIELD PERIOD.
SET PARAMETER ID 'GJR' FIELD YEAR.
CALL TRANSACTION 'ZKKBC_PKO_2'.
Second Report
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
PARAMETERS: WRK     LIKE AFRU-WERKS.
PARAMETERS: VPE     LIKE COEP-PERIO.
PARAMETERS: GJR     LIKE COEP-GJAHR.
SELECTION-SCREEN END OF BLOCK blk1.
Using SUBMIT
First Report
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: COMP     LIKE AFRU-WERKS OBLIGATORY MODIF ID s1.
PARAMETERS: PERIOD   LIKE COEP-PERIO OBLIGATORY MODIF ID s1.
PARAMETERS: YEAR     LIKE COEP-GJAHR OBLIGATORY MODIF ID s1.
SELECTION-SCREEN END OF BLOCK b1.
SUBMIT ZCO_PRDCOST_ACTUAL_2 VIA SELECTION-SCREEN USING SELECTION-SETS OF PROGRAM 'ZCO_PRDCOST_ACTUAL_1' AND RETURN.
Second Report:
GET PARAMETER ID 'WRK' FIELD comp.
GET PARAMETER ID 'VPE' FIELD COEP-PERIO.
GET PARAMETER ID 'GJR' FIELD YEAR.
Either this 2 ways i still cannot get the first report selection values on the 2nd report. Can someone help me see if my codes is correcT?

How to pass select option value to function module while using service call

Hi,
I have select-option in my WD application. To collect data based on user input im using service call. How to pass this select option values to my RFC.
rgds
sudhanshu

Hi,
Thank s for your reply. In fact im doing similar with following variation:
i) collected range values using get_range* method.
ii) separate low and high values as:
read table <field2> index 1 into wa_range.
vert2_low = wa_range-low.
vert2_high = wa_range-high.
(Please note that in RFC I have taken two importing parameter as s_vert_lo and s_vert_hi)
iii) Now setting these RFC attribute as:
lo_el_importing->set_attribute(
 EXPORTING
 name = `S_VERT_LO`
 value = vert2_low ).
and
lo_el_importing->set_attribute(
 EXPORTING
 name = `S_VERT_HI`
 value = vert2_high ).
iv) In RFC im having my query as :
select <fld list> from BUT000 into table itab where vertical in r_vert.
Here, r_vert is a range defined as:
ranges r_vert for <fld refrence>
r_vert-sign = 'I'.
r_vert-option = 'BT'.
r_vert-low = S_VERT_LO.
r_vert-high = S_VERT_HI.
append r_vert.
Issue here is with ranges. if im passing both low and high values it is fine but if only low value being passed it is not giving me any record.
Please suggest.
Rgds
Sudhanshu

Regarding passing selection screen values into internal table

Hi,
I have created one selection screen with fields
POSNR LIKE VBAP-POSNR
SELECT-OPTIONS: s_posnr FOR vbap-posnr.
I had created one internal table as:
DATA: BEGIN OF i_item OCCURS 0,
 posnr LIKE vbap-posnr,
 END OF i_item.
Now what i want is to pass what ever entries available in s_posnr into i_item internal table.
If user gives 10 in select-screen i_item should have 10,
If user gives 10 to 30 in select-screen i_item should have 10,20,30 entries.
If user gives nothing in s_posnr of selection screen
then i_item should have all the valid item no's[POSNR's]
from respective sales order.
Can anybody tell me how can i solve this issue!
Thanks in advance.
Thanks & Regards,
Prasad.

Hi Prasad,
I guess somewhere on your selection screen there is also a parameter for sales order (eg. pa_vbeln)?
Then:
SELECT posnr
 FROM vbap
 INTO TABLE i_item
 WHERE vbeln EQ pa_vbeln
 AND posnr IN s_posnr.
Will get all position numbers in your internal table.
Regards,
John.

How to pass selection screen parameters to a BEx IView?

Hi Experts,
I have added BI Reports in EP and I want to pass the default input parameters to the BI IView as soon as its accessed in EP.
Can some one tell me how can I achieve this? Is there a way to pass the input parameters in the "Application Parameters" property of the BEx Iview?
Regards,
Shobhit

don't you mean he other way around. Assign text-elements (selection texts) to select options?
This you do in the menu where you can find text-elements, selection texts.
menu Goto->text elements->selection texts.
Edited by: Micky Oestreich on May 10, 2008 2:45 PM

JOB_SUBMIT with Selection Screen Value

I have a requirement :
with other select-options and parameters, i have two radio button, Foreground and Background:
when Background radio button will be selected program should be scheduled as a background job.
How i will pass selection screen value in JOB_SUBMIT ??
Cheers.
Srikanta

Hi ,
Try This
*& Report ZMMVB_PG_SL_CHANGE_BDC
REPORT zmmvb_pg_sl_change_bdc.
TABLES : mara,t133a,marc.
DATA i_t133a LIKE t133a OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF itab OCCURS 0,
 matnr LIKE marc-matnr,
 werks LIKE marc-werks,
 ekgrp LIKE marc-ekgrp,
 END OF itab.
DATA : BEGIN OF itab1 OCCURS 0,
 matnr LIKE marc-matnr,
 werks LIKE marc-werks,
 dispo LIKE marc-dispo,
END OF itab1.
DATA : fname LIKE ibipparms-path ,
 ename TYPE string,
 mode.
DATA: BEGIN OF it_t133a OCCURS 0,
 bilds LIKE t133a-bilds,
 pstat LIKE t133a-pstat,
 guifu LIKE t133a-guifu,
 auswg LIKE t133a-auswg,
 END OF it_t133a.
DATA: ctr TYPE i,
 ctr_s(2) TYPE n,
 wrk(35),
 ch(1),
 viewno(2) TYPE n,
 guifu LIKE t133a-guifu.
DATA: BEGIN OF it_views OCCURS 30.
 INCLUDE STRUCTURE mbildtab. " Selection Views
DATA: END OF it_views.
DATA bdc_data LIKE bdcdata OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-000.
PARAMETERS : ek RADIOBUTTON GROUP rg1 ,
 sl RADIOBUTTON GROUP rg1
SELECTION-SCREEN END OF BLOCK b.
SELECTION-SCREEN BEGIN OF BLOCK c WITH FRAME TITLE text-001.
PARAMETERS : fg RADIOBUTTON GROUP rg2 DEFAULT 'X',
 bg RADIOBUTTON GROUP rg2.
SELECTION-SCREEN END OF BLOCK c.
START-OF-SELECTION.
IF fg = 'X'.
 mode = 'A'.
ELSEIF bg = 'X'.
 mode = 'E'.
ENDIF.
IF ek = 'X'.
 guifu = 'SP09'.
 PERFORM bdc_ekgrp_change.
ELSEIF sl = 'X'.
 guifu = 'SP12'.
 PERFORM bdc_mrpcontroller_change.
ENDIF.
*& Form BDC_EKGRP_CHANGE
* text
* --> p1 text
* <-- p2 text
FORM bdc_ekgrp_change .
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = sy-repid
 dynpro_number = sy-dynnr
 field_name = ' '
 IMPORTING
 file_name = fname.
IF NOT ( fname IS INITIAL ) .
 ename = fname .
ENDIF.
CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 filename = ename
 filetype = 'DAT'
 TABLES
 data_tab = itab
 EXCEPTIONS
 file_open_error = 1
 file_read_error = 2
 no_batch = 3
 gui_refuse_filetransfer = 4
 invalid_type = 5
 no_authority = 6
 unknown_error = 7
 bad_data_format = 8
 header_not_allowed = 9
 separator_not_allowed = 10
 header_too_long = 11
 unknown_dp_error = 12
 access_denied = 13
 dp_out_of_memory = 14
 disk_full = 15
 dp_timeout = 16
 OTHERS = 17.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF itab[] IS NOT INITIAL.
 LOOP AT itab.
 REFRESH bdc_data.
 IF itab-matnr NA sy-abcde AND itab-matnr NA '/*-_.'.
 UNPACK itab-matnr TO itab-matnr.
 ELSE.
 TRANSLATE itab-matnr TO UPPER CASE.
 ENDIF.
 SELECT SINGLE * FROM mara WHERE matnr = itab-matnr.
 IF sy-subrc NE 0.
 CONTINUE.
 ENDIF.
 PERFORM view_routine.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RMMG1-MATNR'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'RMMG1-MATNR'
 itab-matnr.
 CONCATENATE 'MSICHTAUSW-DYTXT(' viewno ')' INTO wrk.
 CONDENSE wrk NO-GAPS.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 wrk. "'MSICHTAUSW-DYTXT(08)'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=ENTR'.
 CONCATENATE 'MSICHTAUSW-KZSEL(' viewno ')' INTO wrk.
 CONDENSE wrk NO-GAPS.
 PERFORM bdc_field USING wrk "'MSICHTAUSW-KZSEL(08)'
 'X'.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '0080'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RMMG1-WERKS'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=ENTR'.
 PERFORM bdc_field USING 'RMMG1-WERKS'
 itab-werks.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=BU'.
* PERFORM bdc_field USING 'MAKT-MAKTX'
* '"HEX BOLT M16X1.5X100,B8.8,BP"'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'MARC-EKGRP'.
* PERFORM bdc_field USING 'MARA-MEINS'
* 'NOS'.
 PERFORM bdc_field USING 'MARC-EKGRP'
 itab-ekgrp.
* PERFORM bdc_field USING 'MARA-MATKL'
* '1702'.
* PERFORM bdc_field USING 'MARC-USEQU'
* '3'.
* PERFORM bdc_field USING 'MARC-KORDB'
* 'X'.
 CALL TRANSACTION 'MM02' USING bdc_data MODE mode UPDATE 'S'.
 ENDLOOP.
ENDIF.
ENDFORM. " BDC_EKGRP_CHANGE
*& Form BDC_MRPCONTROLLER_CHANGE
* text
* --> p1 text
* <-- p2 text
FORM bdc_mrpcontroller_change .
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = sy-repid
 dynpro_number = sy-dynnr
 field_name = ' '
 IMPORTING
 file_name = fname.
IF NOT ( fname IS INITIAL ) .
 ename = fname .
ENDIF.
CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 filename = ename
 filetype = 'DAT'
 TABLES
 data_tab = itab1
 EXCEPTIONS
 file_open_error = 1
 file_read_error = 2
 no_batch = 3
 gui_refuse_filetransfer = 4
 invalid_type = 5
 no_authority = 6
 unknown_error = 7
 bad_data_format = 8
 header_not_allowed = 9
 separator_not_allowed = 10
 header_too_long = 11
 unknown_dp_error = 12
 access_denied = 13
 dp_out_of_memory = 14
 disk_full = 15
 dp_timeout = 16
 OTHERS = 17.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF itab1[] IS NOT INITIAL.
 LOOP AT itab1.
 REFRESH bdc_data.
 IF itab1-matnr NA sy-abcde AND itab1-matnr NA '/*-_.'.
 UNPACK itab1-matnr TO itab1-matnr.
 ELSE.
 TRANSLATE itab1-matnr TO UPPER CASE.
 ENDIF.
 SELECT SINGLE * FROM mara WHERE matnr = itab1-matnr.
 IF sy-subrc NE 0.
 CONTINUE.
 ENDIF.
 PERFORM view_routine.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RMMG1-MATNR'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'RMMG1-MATNR'
 itab1-matnr.
 CONCATENATE 'MSICHTAUSW-DYTXT(' viewno ')' INTO wrk.
 CONDENSE wrk NO-GAPS.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 wrk. "'MSICHTAUSW-DYTXT(11)'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=ENTR'.
 CONCATENATE 'MSICHTAUSW-KZSEL(' viewno ')' INTO wrk.
 CONDENSE wrk NO-GAPS.
 PERFORM bdc_field USING wrk "'MSICHTAUSW-KZSEL(11)'
 'X'.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '0080'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RMMG1-WERKS'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=ENTR'.
 PERFORM bdc_field USING 'RMMG1-WERKS'
 itab1-werks.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=BU'.
* PERFORM bdc_field USING 'MAKT-MAKTX'
* '"HEX BOLT M16X1.5X100,B8.8,BP"'.
* PERFORM bdc_field USING 'MARA-MEINS'
* 'NOS'.
* PERFORM bdc_field USING 'MARC-DISGR'
* '701'.
* PERFORM bdc_field USING 'MARC-EKGRP'
* 'A00'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'MARC-DISPO'.
* PERFORM bdc_field USING 'MARC-DISMM'
* 'PD'.
 PERFORM bdc_field USING 'MARC-DISPO'
 itab1-dispo.
* PERFORM bdc_field USING 'MARC-DISLS'
* 'MB'.
 CALL TRANSACTION 'MM02' USING bdc_data MODE mode UPDATE 'S'.
 ENDLOOP.
ENDIF.
ENDFORM. " BDC_MRPCONTROLLER_CHANGE
*& Form bdc_dynpro
* text
* -->PROGRAM text
* -->DYNPRO text
FORM bdc_dynpro USING program dynpro.
CLEAR bdc_data.
bdc_data-program = program.
bdc_data-dynpro = dynpro.
bdc_data-dynbegin = 'X'.
APPEND bdc_data.
ENDFORM. "BDC_DYNPRO
* Insert field *
FORM bdc_field USING fnam fval.
CLEAR bdc_data.
bdc_data-fnam = fnam.
bdc_data-fval = fval.
APPEND bdc_data.
ENDFORM. "BDC_FIELD
*& Form VIEW_ROUTINE
* text
* --> p1 text
* <-- p2 text
FORM view_routine .
CLEAR viewno.
SELECT * FROM t133a INTO CORRESPONDING FIELDS OF TABLE i_t133a
 WHERE bilds = '21' AND guifu LIKE 'SP%' .
LOOP AT i_t133a .
 ch = i_t133a-pstat.
 IF mara-vpsta NA ch .
 DELETE i_t133a .
 CONTINUE .
 ENDIF .
ENDLOOP.
SORT i_t133a BY guifu ASCENDING .
LOOP AT i_t133a .
 viewno = viewno + 1 .
 IF i_t133a-guifu = guifu .
 EXIT .
 ENDIF .
ENDLOOP .
ENDFORM. " VIEW_ROUTINE
Regards,

HOW TO PASS SELECT-OPTIONS AS IMPORT PARAMETER TO A CLASS

Hi experts,how to pass select options value as a export parameters to a zclass.
can give me some idea.
Thanks
sai

As Sachin already said, selection options are stored in an internal table. You can reconstruct the table type without the corresponding input fields using the type addition RANGE OF.
So - assuming you have the following in your program:
DATA: wa TYPE sflight.
SELECT-OPTIONS so_car FOR sflight-carrid.
you can create a publically-visible type in your class using direct type entry and the code
TYPES: my_selectoption TYPE RANGE OF sflight-carrid.
and use this to define the importing parameter of the method.
The only other thing you have to remember is that select-options generates an internal table with header line. Thereore, to pass the table to the method, you would use (in the above example) so_car[], and not just the name of the select-option.
Hope this helps.
Regards
Jon.

Passing select-options value in method

How to pass select-options value in method ?
Example:
Select-options: carrid for spfli-carrid.
class cl_myclass implementation.
select carrid connid from
spfli where carrid in carrid.
endclass.
Thanks

Hello Anee
The coding of this functionality is quite simple:
REPORT zmy_report.
DATA: go_myclass   TYPE REF TO zcl_myclass,
           gd_repid         TYPE syst-repid.
PARAMETERS:
p_bukrs   ...
SELECT-OPTIONS:
o_kunnr ...
START-OF-SELECTION.
gd_repid = syst-repid.
CREATE OBJECT go_myclass
    EXPORTING
      id_calling_program = gd_repid.
And that's how your CONSTRUCTOR method should look like:
METHOD constructor. " IMPORTING parameter id_calling_program
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
EXPORTING
    CURR_REPORT = id_calling_report
TABLES
    SELECTION_TABLE = me->mt_selopts.
" NOTE: define mt_selopts as instance attribute of table type RSPARAMS_TT
ENDMETHOD.
Finally you have to extract the parameter and select-options from MT_SELOPTS.
Regards
Uwe

How to pass a default value in selection screen of logical database pnpce

Dear All,
Can any one tell me how to pass a default value in selection screen of logical database pnpce .
Regards
Rakesh Singh

Hi Rakesh,
Go to SE36 (logical database Builder).First enter PNPCE in Logical Database and press documentation,here you will get the details of exactly what is PNPCE and how it works.After that select selections in subojects in se36 only and enter display ,there you have the include from where you acn get the idea.
Regards,
Rahul

How to pass selection screen value to LDB dynamic field.

Similar Messages

Maybe you are looking for