Skipping the selection screen

Moved to correct forum by moderator. Please take care to post in the right forum
Hi Gurus,
I have a situation. I have created a zprogram and want to use it in a std txn LI04, and want to run it as individually as well.
But when it is calling from the std txn it should skip the selection screen and get the values of teh parameters
as teh same in LI04.
Please Advice.
Thanks
Guarav Kapse.
Edited by: Matt on Feb 3, 2009 9:54 AM

Hi,
Do you have any exit from which u'll call your Z prorgram. If yes, you can use the following statements
set parameter id ' id ' field <field name>.
submit <your Z program> and return.
In your zprogram write:
get parameter id ' id ' field <field name>.
It will work.
cheers
gaurav

Similar Messages

Skip the selection screen using BDCTAB call transaction

Hi experts,
I am using BDCTAB for call transaction SWI1 I need to skip the selection screen. Can you please tell me how to skip the selection screen using BDC call transaction?
Thank you in advance.....

hi,
the first step is to pass some values to the selection screen, at least Date From and Date To; otherwise, it´ll take a long time. The second step is to emulate the Execute button, which is done with '/08'.
PERFORM fields USING 'BDC_OKCODE' '/08'.
Third step is to catch the programme and screen number.

How to skip the Selection screen completely for certain users?

Hi All,
 I want to skip the entire selection screen based on sy-uname. I check if the sy-uname has sufficient authorization and based on that..I want to skip the entire selection screen. How do I do that?

Hi Rachna,
use
SUBMIT program
 with sy-uname = 'TEST'
 and return.
If u specify and return the control will come back and execute the next line in the report.
It is giving the output directly without showing the selection screen.
If u r pressing back also it is not showing the selction screen.
This will work
Regards
Naresh

How to skip the Selection screen while using BAPI_MATERIAL_DELETE

Hi,
I have to delete material master.
I'm using BAPI_MATERIAL_DELETE Fm,
But while executing this BAPI it is going to a screen where it is asking to tick the Check Box for material number.
Can you please tell me how to execute the BAPI Avoiding the selection screen.
Thanks & Regards,
Rajender

Hi,
Thanks for replying.
We have to run the BAPI in Background, Then how to achieve the default values.
Thanks & Regards,
Rajender.

Can I execute a report and skip the first screen in CJE0

I'm trying to call transaction CJE0 and skip the first screen. The report name I'm assigning to the PID REI appears in the screen field, but you have to click execute to continue to the report.
Is there something I'm missing.
Thanks
Karen

I've tried using the following code to run project reports without having to select the report name and exectue, but it is still leaving the user on the screen for CJE0 with the correct report name, but it's not skipping the screen and executing the report. Can you see what I'm doing wrong.
Thank-you for your help
Karen
Code -
data begin of bdcdata occurs 100.
         include structure bdcdata.
data end of bdcdata.
data begin of itab occurs 10.
         include structure bdcmsgcoll.
data end of itab.
data program like sy-repid.
program = '11ERL1A'.
bdcdata-program = 'SAPMKCEE'.
bdcdata-dynpro   = '0500'.
bdcdata-dynbegin = 'X'.
append bdcdata. clear bdcdata.
bdcdata-fnam     = 'RKB1D-REPID'.
bdcdata-fval     = program.
append bdcdata. clear bdcdata.
   call transaction 'CJE0' using bdcdata mode 'N'
                           messages into itab.

When the user click on the request number it should skip the first screen o

when the user click on the request number it should skip the first screen of REV track and show the rev track request number details. On click of u201CBacku201D button on this screen the output screen of the report should be displayed again.

Hello Rohit,
What you can do is, when the User Clicks on any particular Request, you use the At Line-Selection Event. In that event, you can set the User Name to default "SY-UNAME" or any other user Name for the specific Request.
Again, if you want to check the Owner of the Request, you can use the Table E070 where you can Input the Request Number and get the Owner of the Request. Set the same in the User Name Field and Skip First Screen (SE09 Transaction).
Hope it was helpful.
Thanks and Regards,
Venkat Phani Prasad Konduri

Report should executed based on the radio buttons on the selection screen

Hi everyone,
Greets....................
My scenario is I have 2 selection screen blocks on same screen..
One selection screen block contains input parameters as follows
Company Code - S_BUKRS
Business Area - S_GSBER
Customer Code - S_KUNNR
Fiscal Area - S_GJAHR
GL Account - S_HKONT
Posting Date -S_ZFBDT
Ledger Type -P_RLDNR
Open Item Key Date - P_ZFBDT
Another selection screen block contains 2 radio buttons with the option as follows
Collection Plan
*Credit days summary.
If i click Collection plan the report output should come based on the input parameters in first selection-screen block.
If i click Credit days summary the report output should come based on the input parameters in first selection-screen block.
Pls send me the sample code for this.
Thanks in Advance
Regards
Raj kumar

See the below folling example : it will have radio buttons and depends on radio button it will show output.
REPORT ZPPR_BOM_INFOL_REPORT no standard page heading
 line-size 160
 line-count 60.
======================================================================
Program Name : ZPPR_BOM_INFOL_REPORT
Description : This Program would be used for BOM List for a material*
 and the component's where used list *
Author : Seshu *
Date : 07/24/2006 *
MODIFICATION HISTORY *
DATE | AUTHOR | CHANGE # | DESCRIPTION OF MODIFICATION *
|----
|----
|----
*12/04/06 | Seshu | DEVK921821 | Removed new page for each material *
======================================================================
Table definition *
TABLES: mast,
 stko,
 stpo,
 T418,
 makt.
TYPE - POOLS
TYPE-POOLS: slis.
Constants
constants : c_tcode(4) type c value 'CS03',
 gc_formname_top_of_page TYPE slis_formname
 VALUE 'TOP_OF_PAGE'.
Variables
data : v_maktx like makt-maktx,
 wa_stko like stko.
DATA:
Objekttyp 'Material'
 otyp_mat(1) TYPE c VALUE '1',
 ootyp_mat(1) TYPE c VALUE 'M',
Objekttyp 'kein Objekt'
 otyp_noo(1) TYPE c VALUE '2',
Objekttyp 'Dokument'
 otyp_doc(1) TYPE c VALUE '3',
Objekttyp 'Klasse'
 otyp_kla(1) TYPE c VALUE '4',
Objekttyp 'Intramaterial'
 otyp_ntm(1) TYPE c VALUE '5'.
maximal anzeigbare Menge
data: max_num(7) TYPE p DECIMALS 3 VALUE '9999999999.999',
 ueberl_kz(1) TYPE c VALUE '*',
 min_num(7) TYPE p DECIMALS 3 VALUE '9999999999.999-',
 b_flag(1) TYPE c VALUE 'X',
 ecfld(250) TYPE c,
 v_flag type c.
ALV Variables
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
 gs_layout TYPE slis_layout_alv,
 gs_keyinfo TYPE slis_keyinfo_alv,
 gt_sp_group TYPE slis_t_sp_group_alv,
 gt_events TYPE slis_t_event.
DATA: g_repid LIKE sy-repid.
DATA: gt_list_top_of_page TYPE slis_t_listheader,
 g_tabname_header TYPE slis_tabname,
 g_tabname_item TYPE slis_tabname,
 g_save(1) TYPE c,
 gx_variant LIKE disvariant,
 g_variant LIKE disvariant,
 g_default(1) TYPE c,
 g_exit(1) TYPE c.
Includes *
INCLUDE .
Internal Table Declaration *
DATA: t_mast LIKE STANDARD TABLE OF mast WITH HEADER LINE.
*DATA: t_makt LIKE STANDARD TABLE OF makt WITH HEADER LINE.
BOM Function module Related
DATA: t_matcat LIKE cscmat OCCURS 0 WITH HEADER LINE.
Internal Table for Level by Level Function module
DATA: t_stb LIKE stpox OCCURS 0 WITH HEADER LINE.
Get the Relevant data from FM
DATA: BEGIN OF hd_tab OCCURS 0,
 stufe LIKE stpox-stufe,
 vwegx LIKE stpox-vwegx,
 END OF hd_tab.
Final Output
DATA: BEGIN OF alv_stb OCCURS 0.
 INCLUDE STRUCTURE stpox_alv.
DATA: info(3) TYPE c,
 END OF alv_stb.
DATA: BEGIN OF stb_orig.
 INCLUDE STRUCTURE stpox.
DATA: END OF stb_orig.
DATA: BEGIN OF stb_add.
 INCLUDE STRUCTURE stpol_add.
DATA: END OF stb_add.
Internal Table for STPO
*-- BOM Line item
TYPES: BEGIN OF ty_stpo,
 stlty TYPE stpo-stlty,
 stlnr TYPE stpo-stlnr,
 stlkn TYPE stpo-stlkn,
 stpoz TYPE stpo-stpoz,
 idnrk TYPE stpo-idnrk,
 meins TYPE stpo-meins,
 menge TYPE stpo-menge, "Component Qty
 END OF ty_stpo.
DATA: t_stpo TYPE STANDARD TABLE OF ty_stpo WITH HEADER LINE.
*-- BOM Header
TYPES: BEGIN OF ty_stko,
 stlty TYPE stko-stlty,
 stlnr TYPE stko-stlnr,
 stlal TYPE stko-stlal,
 stkoz TYPE stko-stkoz,
 bmein TYPE stko-bmein,
 bmeng TYPE stko-bmeng,
 END OF ty_stko.
DATA: t_stko TYPE STANDARD TABLE OF ty_stko WITH HEADER LINE .
data : t_makt like makt occurs 0 with header line.
DATA: BEGIN OF cl_clstab OCCURS 0, "YHG079407
 class LIKE klah-class, "YHG079407
 klart LIKE klah-klart, "YHG079407
 chked LIKE csdata-xfeld, "YHG079407
 noobj LIKE csdata-xfeld, "YHG079407
 dsply LIKE csdata-xfeld, "YHG079407
 END OF cl_clstab.
*-- Header table
TYPES: BEGIN OF ty_main_material,
 matnr TYPE mast-matnr, "Material
 werks TYPE mast-werks, "Plant
 maktx TYPE makt-maktx, "Description
 stlal TYPE mast-stlal, "Alternative BOM
 stlnr TYPE stko-stlnr, "BOM Number
 bmein TYPE stko-bmein, "UOM
 bmeng TYPE stko-bmeng, "Base Qty
 expand(1) TYPE c, "Expanding Field
 END OF ty_main_material.
DATA: t_main_material TYPE STANDARD TABLE OF ty_main_material WITH
 HEADER LINE.
*-- Item (Component) Table
TYPES: BEGIN OF ty_item_material,
 matnr TYPE mast-matnr, "Material
 werks TYPE mast-werks, "Plant
 idnrk TYPE stpo-idnrk, "Component (Material)
 maktx TYPE makt-maktx, "Description
 stlal TYPE mast-stlal, "Alternative BOM
 stlnr TYPE stpo-stlnr, "BOM Number
 meins TYPE stpo-meins, "UOM
 menge TYPE stpo-menge, "Base Qty
 END OF ty_item_material.
DATA: t_item_material TYPE STANDARD TABLE OF ty_item_material WITH
 HEADER LINE.
Selection Screen *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_werks LIKE marc-werks DEFAULT '1000' OBLIGATORY.
SELECT-OPTIONS s_stlal FOR mast-stlal .
SELECT-OPTIONS s_stlan FOR mast-stlan DEFAULT '1'.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN SKIP.
PARAMETERS: p_bomlst RADIOBUTTON GROUP g1 DEFAULT 'X'.
SELECT-OPTIONS s_matnr FOR mast-matnr.
SELECTION-SCREEN SKIP.
PARAMETERS: p_compon RADIOBUTTON GROUP g1.
SELECT-OPTIONS: s_idnrk FOR stpo-idnrk.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF BLOCK b1.
selection-screen begin of block b03 with frame title text-b03.
selection-screen begin of line.
selection-screen comment 1(40) text-005.
parameters: p_all radiobutton group r1 default 'X'.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(40) text-006.
parameters: p_one radiobutton group r1 .
selection-screen end of line.
selection-screen end of block b03.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS: p_vari LIKE disvariant-variant.
SELECTION-SCREEN END OF BLOCK b3.
At slection screen events *
*-- Process on value request
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM f4_for_variant.
Intitialisation
INITIALIZATION.
g_repid = sy-repid.
g_tabname_header = 'T_MAIN_MATERIAL'.
g_tabname_item = 'T_ITEM_MATERIAL'.
*-- define keyinformation
CLEAR gs_keyinfo.
gs_keyinfo-header01 = 'MATNR'.
gs_keyinfo-item01 = 'MATNR'.
PERFORM e03_eventtab_build USING gt_events[].
PERFORM e04_comment_build USING gt_list_top_of_page[].
PERFORM e07_sp_group_build USING gt_sp_group[].
PERFORM e08_layout_build USING gs_layout.
Set Options: save variants userspecific or general
g_save = 'A'.
PERFORM variant_init.
Get default variant
gx_variant = g_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
 EXPORTING
 i_save = g_save
 CHANGING
 cs_variant = gx_variant
 EXCEPTIONS
 not_found = 2.
IF sy-subrc = 0.
 p_vari = gx_variant-variant.
ENDIF.
S T A R T - O F - S E L E C T I O N *******************
start-of-selection.
if p_all = 'X'.
Get the data from MAST and MAKT Table
 if p_bomlst = 'X'.
Get the data Based On Material #
 perform get_data.
 else.
Get the data Based On Component
 perform get_data_component.
 endif.
else.
Get the Single Level Report
*-- Moved the fiedl catalog here inorder to change the layout based on
*-- Selection
 PERFORM e01_fieldcat_init USING gt_fieldcat[].
 PERFORM select_data.
endif.
E N D - O F - S E L E C T I O N *******************
end-of-selection.
if p_one = 'X'.
 perform alv.
endif.
User Command
at line-selection.
Interactive to CS03 Transaction
case sy-ucomm.
 when 'PICK' or 'F2'.
 if not alv_stb-idnrk is initial .
 if not alv_stb-werks is initial.
 if not alv_stb-objty is initial.
 SET PARAMETER ID 'MAT' FIELD alv_stb-idnrk.
 SET PARAMETER ID 'WRK' FIELD alv_stb-werks.
 SET PARAMETER ID 'CSV' FIELD alv_stb-OBJTY.
 call transaction c_tcode and skip first screen.
 endif.
 endif.
 endif.
 clear alv_stb.
endcase.
*& Form get_data
 Get data from MAST and MAKT Table
FORM get_data.
data : wa_lines type sy-index.
REFRESH : T_MAST,
 t_STB,
 t_MATCAT,
 alv_STB.
CLEAR : T_MAST,
 t_STB,
 t_MATCAT,
 alv_STB.
Get the data from MAST Table
Get all the information from MAST - BOM Table
SELECT * FROM mast INTO TABLE t_mast WHERE matnr IN s_matnr AND
 werks = p_werks AND
 stlan IN s_stlan AND
 stlal IN s_stlal.
describe table t_mast lines wa_lines.
if wa_lines is initial.
 Write:/2 'List contains no data'.
 stop.
endif.
loop at t_mast.
 clear : v_maktx.
Start of change Seshu
Reason - Remove the new page option
 if sy-tabix ne 1.
 skip 1.
 endif.
End of Change Seshu
Get the material Description
 select single maktx from makt into v_maktx
 where matnr = t_mast-matnr
 and spras = 'E'.
Get the material details from STKO Table
 select single * from stko into wa_stko
 where STLTY = 'M'
 and STLNR = t_mast-stlnr
 and STLAL = t_mast-stlal.
Main Header for Each Material
 format color 5 on.
 write:/2 'Material',20 'Material Description',65 'Alternative BOM',
 90 'Base Qty', 115 'Base Unit'.
 format color 5 off.
 format color 1 on.
 write:/2 t_mast-matnr,20 v_maktx,65 wa_stko-STLAL, 85 wa_stko-BMENG,
 115 wa_stko-BMEIN.
 format color 1 off.
Use the Function Module and get the format level by level
 perform get_level_level.
endloop.
ENDFORM. " get_data
Top of page *
top-of-page.
perform report_header .
*& Form report_header
 text
--> p1 text
<-- p2 text
FORM report_header.
new-page line-size 160 .
format color col_heading intensified on.
write:/ sy-uline(160) .
*--- Write Company Name.
perform calc_col_and_write using text-h00
 sy-linsz.
*--- Write Report Title.
perform calc_col_and_write using sy-title
 sy-linsz.
*--- Write User Id, Date / Time, Program Id, Page etc.
perform write_other_hdr_details.
write:/ sy-uline(160) .
ENDFORM. " report_header
*& Form calc_col_and_write
 text
 -->P_TEXT_H00 text
 -->P_SY_LINSZ text
FORM calc_col_and_write USING P_TEXT
 P_LINSZ.
data: col1 type i,
 col2 type i,
 len type i,
 str type i.
str = strlen( p_text ).
col1 = ( p_linsz / 2 ) - ( str / 2 ) .
len = p_linsz - col1 - 2.
write: at /1 '|'.
write: at col1 p_text,
 at sy-colno(len) space.
write at 160 '|'.
ENDFORM. " calc_col_and_write
*& Form write_other_hdr_details
 text
--> p1 text
<-- p2 text
FORM write_other_hdr_details.
data: col1 type i,
 col2 type i,
 len type i.
col1 = 3.
write:/1 '|'.
write: at col1 'UserId : ',
 sy-uname.
len = sy-linsz - 1.
write at sy-colno(len) space.
col2 = sy-linsz - 18.
write: at col2 'Date: ',
 sy-datum mm/dd/yyyy.
write: at sy-linsz '|'.
write:/1 '|'.
write: at col1 'ReportId: ',
 sy-repid.
write at sy-colno(len) space.
col2 = sy-linsz - 18.
write: at col2 'Page: ',
 sy-pagno.
write: at sy-linsz '|'.
ENDFORM. " write_other_hdr_details
*& Form get_data_component
 Get the data based on Component level
FORM get_data_component.
data wa_lines type i.
*-- Get the BOM item details
SELECT stlty stlnr stlkn stpoz idnrk meins menge
 FROM stpo
 INTO TABLE t_stpo
WHERE idnrk IN s_idnrk.
IF sy-subrc = 0.
 CLEAR wa_lines.
 DESCRIBE TABLE t_stpo LINES wa_lines.
 IF wa_lines > 0.
 SELECT stlty stlnr stlal stkoz bmein bmeng
 FROM stko
 INTO TABLE t_stko
 FOR ALL ENTRIES IN t_stpo
 WHERE stlnr = t_stpo-stlnr.
 CLEAR wa_lines.
 DELETE ADJACENT DUPLICATES FROM t_stko COMPARING ALL FIELDS.
 DESCRIBE TABLE t_stko LINES wa_lines.
 IF wa_lines > 0.
*-- Get the BOM item details
 SELECT * FROM mast INTO TABLE t_mast FOR ALL ENTRIES IN t_stko
 WHERE werks = p_werks AND
 stlnr = t_stko-stlnr
 and stlal in s_stlal.
 ENDIF.
 ENDIF.
else.
 Write:/2 'List contains no data'.
 stop.
endif.
loop at t_mast.
 clear : v_maktx.
Start of change Seshu
Reason - Remove the new page option
 if sy-tabix ne 1.
 skip 1.
 endif.
End of change Seshu
Get the material Description
 select single maktx from makt into v_maktx
 where matnr = t_mast-matnr
 and spras = 'E'.
Get the material details from STKO Table
 select single * from stko into wa_stko
 where STLTY = 'M'
 and STLNR = t_mast-stlnr
 and STLAL = t_mast-stlal.
Main Header for Each Material
 format color 5 on.
 write:/2 'Material',20 'Material Description',65 'Alternative BOM',
 90 'Base Qty', 115 'Base Unit'.
 format color 5 off.
 format color 1 on.
 write:/2 t_mast-matnr,20 v_maktx,65 wa_stko-STLAL, 85 wa_stko-BMENG,
 115 wa_stko-BMEIN.
 format color 1 off.
Use the Function Module and get the format level by level
 perform get_level_level.
 clear : t_mast.
endloop.
ENDFORM. " get_data_component
*& Form obj_ident
 text
FORM obj_ident.
weder Mat noch Doc
CHECK: T_stb-objty NE otyp_mat,
 T_stb-objty NE ootyp_mat,
 T_stb-objty NE otyp_doc,
 T_stb-objty NE otyp_ntm.
?T418-WA schon ok
nein
IF T_stb-postp NE t418-postp.
 T418 einlesen
 PERFORM t418_lesen USING T_stb-postp.
ENDIF.
PERFORM cl_clstab_maint.
?MatNr-Eingabe bei diesem PosTyp moeglich
und keine Textposition
trifft zu
IF t418-matin NE '-'
 AND t418-txpos IS INITIAL.
 aktuelles Objekt ist Material NLAG
 T_stb-objty = '1'.
 PosKurztext in ObjKurztext uebernehmen.
 T_stb-ojtxp = T_stb-potx1.
 MODIFY T_stb.
ELSE.
 IF T_stb-objty IS INITIAL.
 T_stb-objty = '2'.
 MODIFY T_stb.
 ENDIF.
ENDIF.
ENDFORM. " obj_ident
*& Form t418_lesen
 text
 -->P_T_STB_POSTP text
FORM t418_lesen USING lkl_postp LIKE stpo-postp.
T418-WA initialisieren
CLEAR:
 t418.
Key angeben
t418-postp = lkl_postp.
PosTypDefinition lesen
READ TABLE t418.
ENDFORM. " t418_lesen
*& Form cl_clstab_maint
 text
FORM cl_clstab_maint.
nur fuer Klassenpositionen
CHECK t_STB-OBJTY EQ OTYP_KLA.
Teilkey der Klassenpositionentabelle
CL_CLSTAB-CLASS = t_STB-CLASS.
CL_CLSTAB-KLART = t_STB-KLART.
Klassenpositionentabelle lesen
READ TABLE CL_CLSTAB
 WITH KEY CL_CLSTAB(21)
 BINARY SEARCH.
aktuelle Klassenposition bereits in Klassenpositionentabelle
nein
IF SY-SUBRC <> 0.
 Klassenposition in Klassenpositionentabelle hinzufuegen
 INSERT CL_CLSTAB INDEX SY-TABIX.
ENDIF.
ENDFORM. " cl_clstab_maint
*& Form alv_stb_prep
 Printing the data as LEVEL BY LEVEL
FORM alv_stb_prep.
CLEAR:
 alv_stb,
 stb_orig,
 stb_add.
IF t_stb-hdnfo IS INITIAL.
 stb_orig = t_stb.
 IF t_stb-mngko >= max_num.
 stb_add-ovfls = ueberl_kz.
 ELSE.
 IF t_stb-mngko <= min_num.
 stb_add-ovfls = ueberl_kz.
 ELSE.
 CLEAR: stb_add-ovfls.
 ENDIF.
 ENDIF.
 IF NOT t_stb-xtlnr IS INITIAL.
 stb_add-bomfl = b_flag.
 ENDIF.
 IF NOT t_stb-knobj IS INITIAL
 OR NOT t_stb-class IS INITIAL
 OR NOT t_stb-kzclb IS INITIAL.
 stb_add-knofl = 'X'.
 ENDIF.
ELSE.
 CHECK t_stb-stufe > 1.
 alv_stb-info = 'C30'.
 IF t_stb-ttidx <> t_matcat-index.
 READ TABLE t_matcat INDEX t_stb-ttidx.
 ENDIF.
 stb_orig-hdnfo = t_stb-hdnfo.
 stb_orig-stufe = t_stb-stufe - 1 .
 stb_orig-ojtxp = t_stb-ojtxb.
 IF NOT t_stb-altst IS INITIAL.
 stb_orig-stlal = t_stb-stlal.
 IF stb_orig-stlal(1) EQ '0'.
 stb_orig-stlal(1) = ' '.
 ENDIF.
 ENDIF.
 stb_orig-idnrk = t_matcat-matnr.
ENDIF.
CLEAR:
 stb_add-dobjt,
 stb_add-objic.
CASE t_stb-objty.
 WHEN otyp_mat.
 WRITE: stb_orig-idnrk TO ecfld.
 stb_add-objic = '@A6@'.
 WHEN 'M'.
 WRITE: stb_orig-idnrk TO ecfld.
 stb_add-objic = '@A6@'.
 WHEN otyp_noo.
 WRITE: stb_orig-potx1 TO ecfld.
 stb_add-objic = '@0Q@'.
 WHEN otyp_doc.
 write stb_orig-doknr to ecfld. "note 489354
 IF ecfld CP '*# '. ENDIF. "note 489354
 sy-fdpos = sy-fdpos + 1. "note 489354
 CONCATENATE
*d stb_orig-doknr "note 489354
 stb_orig-dokar
 stb_orig-doktl
 stb_orig-dokvr
*d INTO ecfld "note 489354
 INTO ecfld+sy-fdpos "note 489354
 SEPARATED BY space.
 stb_add-objic = '@AR@'.
 WHEN otyp_kla.
 CONCATENATE
 stb_orig-class
 stb_orig-klart
 INTO ecfld
 SEPARATED BY space.
 stb_add-objic = '@7C@'.
 WHEN otyp_ntm.
 WRITE: stb_orig-intrm TO ecfld.
 WHEN OTHERS.
ENDCASE.
*d CONDENSE ecfld. "note 515408
stb_add-dobjt = ecfld(40).
CLEAR: ecfld.
WRITE stb_orig-stufe TO stb_add-dstuf NO-SIGN.
*d MOVE-CORRESPONDING stb_orig TO alv_stb. "note 331962
MOVE-CORRESPONDING stb_add TO alv_stb.
MOVE-CORRESPONDING stb_orig TO alv_stb. "note 331962
APPEND alv_stb.
ENDFORM. " alv_stb_prep
*& Form get_level_level
 text
FORM get_level_level.
REFRESH : T_STB,
 T_MATCAT,
 ALV_STB.
CLEAR : T_STB,
 T_MATCAT,
 ALV_STB.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
 EXPORTING
 capid = 'PP01'
 datuv = sy-datum
 mktls = 'X'
 mehrs = 'X'
 mtnrv = t_mast-matnr
 stlal = '01'
 stlan = '1'
 stpst = 0
 svwvo = 'X'
 werks = p_werks
 vrsvo = 'X'
 TABLES
 stb = t_stb
 matcat = t_matcat
 EXCEPTIONS
 alt_not_found = 1
 call_invalid = 2
 material_not_found = 3
 missing_authorization = 4
 no_bom_found = 5
 no_plant_data = 6
 no_suitable_bom_found = 7
 conversion_error = 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.
CLEAR: hd_tab.
 Entry der KlassenstatusTab. initialisieren
 cl_clstab,
 Entry 'Objekte von Klassen' initialisieren
 cl_objmemo.
REFRESH: hd_tab.
SORT t_matcat BY index ASCENDING.
Get the All levels
loop at t_stb.
 IF NOT t_stb-hdnfo IS INITIAL.
 EXIT.
 ENDIF.
Object Identification
 PERFORM obj_ident.
 READ TABLE hd_tab
 WITH KEY stufe = t_stb-stufe
 vwegx = t_stb-vwegx
 BINARY SEARCH
 TRANSPORTING NO FIELDS.
 ?gibt es diesen Satz schon
 nein
 IF sy-subrc <> 0.
 dann in SFP-Infosatzverweistab. aufnehmen
*d APPEND HD_TAB. "HGH054648
 hd_tab-stufe = t_stb-stufe.
 "HGH054648
 hd_tab-vwegx = t_stb-vwegx.
 "HGH054648
 INSERT hd_tab "HGH054648
 INTO hd_tab "HGH054648
 INDEX sy-tabix. "HGH054648
 PosNr initialisieren
 CLEAR: t_stb-posnr.
 SFP-InfosatzKz setzen
 t_stb-hdnfo = 'X'.
 stb-objty = otyp_mat.
 "HGE246532
 als SFP-Infosatz in die STB aufnehmen
 append t_stb.
 ENDIF.
*del ENDIF.
 clear t_stb.
endloop.
SORT t_stb ASCENDING BY stufe
 index ASCENDING
*del POSNR ASCENDING. "HGC062735
 posnr ASCENDING "HGC062735
 hdnfo DESCENDING.
LOOP AT t_stb.
 T_stb-index = sy-tabix.
 MODIFY T_stb.
 PERFORM alv_stb_prep.
ENDLOOP.
Displays the Value as Level by Level
loop at ALV_stb.
 if sy-tabix = 1.
 format color 3 on.
 write:/2 'Level',12 'Item',22 'Component',
 42 'Material Description',82 'Base Qty',
 107 'Base Unit',120 'Assembly Indicator'.
 format color 3 on.
 endif.
 if alv_stb-MEINs is initial.
 v_flag = 'X'.
 endif.
 if v_flag = 'X'.
 format color 5 on.
 write:/2 ALV_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP.
 format color 1 off.
 else.
 if alv_stb-STUFE = '1'.
 format color 1 on.
 write:/2 ALV_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs, 120 alv_stb-bomfl .
 format color 1 off.
 elseif alv_stb-STUFE = '2'.
 format color 2 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl.
 format color 2 off.
 elseif alv_stb-STUFE = '3'.
 format color 3 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl .
 format color 3 off.
 elseif alv_stb-STUFE = '4'.
 format color 4 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl .
 format color 4 off.
 elseif alv_stb-STUFE = '5'.
 format color 5 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl .
 format color 5 off.
 elseif alv_stb-STUFE = '6'.
 format color 7 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl.
 format color 6 off.
 elseif alv_stb-STUFE = '7'.
 format color 7 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl .
 format color 7 off.
 else.
 format color 1 on.
 write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
 42 alv_stb-OJTXP,72 alv_stb-mngko,
 107 alv_stb-MEINs,120 alv_stb-bomfl .
 format color 1 off.
 endif.
 endif.
 hide: alv_stb.
 clear : alv_stb.
 clear v_flag.
endloop.
ENDFORM. " get_level_level
*& Form f4_for_variant
 text
FORM f4_for_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
 EXPORTING
 is_variant = g_variant
 i_save = g_save
 i_tabname_header = g_tabname_header
 i_tabname_item = g_tabname_item
 it_default_fieldcat =
 IMPORTING
 e_exit = g_exit
 es_variant = gx_variant
 EXCEPTIONS
 not_found = 2.
IF sy-subrc = 2.
 MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
 IF g_exit = space.
 p_vari = gx_variant-variant.
 ENDIF.
ENDIF.
ENDFORM. " f4_for_variant
 FORM E03_EVENTTAB_BUILD *
--> E03_LT_EVENTS *
FORM e03_eventtab_build USING e03_lt_events TYPE slis_t_event.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = e03_lt_events.
READ TABLE e03_lt_events WITH KEY name = slis_ev_top_of_page
 INTO ls_event.
IF sy-subrc = 0.
 MOVE gc_formname_top_of_page TO ls_event-form.
 APPEND ls_event TO e03_lt_events.
ENDIF.
ENDFORM.
 FORM E04_COMMENT_BUILD *
--> E04_LT_TOP_OF_PAGE

Calling a transaction and skipping the first screen

Dear forumers,
In my report program, I will need to call a custom transaction with skipping the first screen.
And, this custom transaction is created from a query.
Currently, the codes look like below:-
        SET PARAMETER ID: 'BUK' FIELD w_output-bukrs,
                          'AN1' FIELD w_output-anln1.
        CALL TRANSACTION 'ZCUSTQ' AND SKIP FIRST SCREEN.
Everything works perfectly alright except for one thing: The first screen is not skipped. When the custom transaction is called, the first screen is still displayed to the user.
Additionally, I also found out that the "SKIP FIRST SCREEN" does not work because the screen's next screen number is the same. This means the screen 1000's next screen is 1000 as well.
(See notes in italics below)
Does anyone have any ideas on how to resolve this? Please help.
This addition suppresses the display of a screen of the initial dynpro of a called dialog transaction. The addition AND SKIP FIRST SCREEN suppresses the first screen under these prerequisites:
For the initial dynpro, in the Screen Painter the own dynpro number must not be specified as the next screen number.
All mandatory input fields of the initial dynpro must be filled completely and with the correct values by the SPA/GPA parameters
If these prerequisites are met, that screen of the dynpro is displayed that is specified in the Screen Painter as the next dynpro of the initial dynpro.

For Any Query , if you want to create the Transaction you need to use the Tcode START_REPORT
in general it will skip the first Transaction codes selection screen , Not your query reports selection screen.
I checked and verfied...
Steps to verify the issue..
1.Go to SE93 ,Now you will go for parametric transaction.
2. give the Transaction as START_REPORT, there you will have option Skip Initial Screen. You uncheck that.
3. Now give all information related to your query.
and see the effect
call TRANSACTION 'YYTCODE AND SKIP FIRST SCREEN.
This will always trying to skip the First transaction's selection/initial screen , Not your Query selection screen.
You also try to check and let me know.

Dynamic Selection option in the selection screen

Hi ,
I have a requirement like this ....
The user wants some fields to be default available in the selection screen. But they also want to be able to select the data based on additional fields (all the remaining fields ) which they want to see in the dynamic selection .
The basic list for selections should be limited to the fields listed in the specifications provided to me and the remaining fields should be made available through the dynamic selection option.
In the transaction FBL3N , this facility is provided.
Kindly help me with this..
thanks,
Sumit .

Hi Sumit,
To include dynamic selection check this sample code.
TYPE POOLS DECLARATIONS FOR VALUE REQUEST MANAGER AND ICONS
TYPE-POOLS : vrm,
 icon.
*SELECTION SCREEN FIELDS
TABLES : sscrfields.*GLOBAL DECLARATIONS
DATA : flag TYPE c,
 tablename(10),
 mmtable LIKE dd02l-tabname,
 sdtable LIKE dd02l-tabname,
 hrtable LIKE dd02l-tabname.*DECLARATIONS FOR SELECTION SCREEN STATUS
DATA it_ucomm TYPE TABLE OF sy-ucomm.***********SELECTION-SCREENS**********************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.*FOR DYNAMIC DISPLAY OF MODULES
PARAMETERS : pa RADIOBUTTON GROUP rad USER-COMMAND com MODIF ID mod,
 pb RADIOBUTTON GROUP rad MODIF ID rad,
 pc RADIOBUTTON GROUP rad MODIF ID cad.SELECTION-SCREEN SKIP.**TO INCLUDE DYNAMIC ICONS
SELECTION-SCREEN COMMENT 2(6) text_001.*DYNAMIC LIST BOX BASED ON USER SELECTIONS
PARAMETERS one AS LISTBOX VISIBLE LENGTH 20 MODIF ID mod.
PARAMETERS two AS LISTBOX VISIBLE LENGTH 20 MODIF ID rad.
PARAMETERS three AS LISTBOX VISIBLE LENGTH 20 MODIF ID cad.SELECTION-SCREEN END OF BLOCK blk1.*DISPLAY DYNAMIC PUSHBUTTON ON APP TOOLBAR ON USER CLICKS
SELECTION-SCREEN: FUNCTION KEY 1,
 FUNCTION KEY 2,
 FUNCTION KEY 3.**EVENT ON SELECTION SCREEN FOR OUTPUT DISPLAY
AT SELECTION-SCREEN OUTPUT.*CLICK OF FIRST RADIO BUTTON
IF pa = 'X'.
 sscrfields-functxt_01 = 'Materials Management'.
 WRITE icon_plant AS ICON TO text_001.
*CODE TO GET DYNAMICS BASED ON THE SELECTED RADIO
 LOOP AT SCREEN.
 IF screen-group1 = 'MOD'.
 screen-intensified = '1'.
 screen-active = 1.
 screen-display_3d = '1'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'RAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'CAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ENDIF.*CLICK OF SECOND RADIO
IF pb = 'X'.
 sscrfields-functxt_02 = 'Sales And Distribution'.
 WRITE icon_ws_ship AS ICON TO text_001.
 LOOP AT SCREEN.
 IF screen-group1 = 'RAD'.
 screen-intensified = '1'.
 screen-active = 1.
 screen-display_3d = '1'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'MOD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'CAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ENDIF.*CLICK OF THIRD RADIO
IF pc = 'X'.
 sscrfields-functxt_03 = 'Human Resources'.
 WRITE icon_new_employee AS ICON TO text_001.
 LOOP AT SCREEN.
 IF screen-group1 = 'RAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'MOD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'CAD'.
 screen-intensified = '1'.
 screen-active = 1.
 screen-display_3d = '1'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ENDIF.*CUSTOMISING THE TOOLBARS OF THE SELECTION SCREEN
*WITH F8 BUTTON DISABLED APPEND : 'PRIN' TO it_ucomm,
 'SPOS' TO it_ucomm,
 'ONLI' TO it_ucomm. CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
 EXPORTING
 p_status = sy-pfkey
 TABLES
 p_exclude = it_ucomm.
**EVENT ON THE SELECTION
AT SELECTION-SCREEN.* LIST BOX ONE VALUES
CASE one.
 WHEN '1'.
 mmtable = 'MARC'.
 WHEN '2'.
 mmtable = 'MARA'.
 WHEN '3'.
 mmtable = 'MARD'.
 WHEN '4'.
 mmtable = 'MARM'.
ENDCASE.* LIST BOX TWO VALUES
CASE two.
 WHEN '1'.
 sdtable = 'VBAK'.
 WHEN '2'.
 sdtable = 'VBAP'.
 WHEN '3'.
 sdtable = 'VBUK'.
 WHEN '4'.
 sdtable = 'VBUP'.
ENDCASE.* LIST BOX THREE VALUES
CASE three.
 WHEN '1'.
 hrtable = 'PA0001'.
 WHEN '2'.
 hrtable = 'PA0006'.
 WHEN '3'.
 hrtable = 'PA0022'.
 WHEN '4'.
 hrtable = 'PA0008'.
ENDCASE.*VALUES FOR CLICK OF THE PUSHBUTTON ON APP TOOLBAR
*AND ENABLING THE BUTTONS TO PERFORM F8
CASE sscrfields-ucomm.
 WHEN 'FC01'.
 tablename = mmtable.
 sscrfields-ucomm = 'ONLI'.
 WHEN 'FC02'.
 tablename = sdtable.
 sscrfields-ucomm = 'ONLI'.
 WHEN 'FC03'.
 tablename = hrtable.
 sscrfields-ucomm = 'ONLI'.
ENDCASE.*INITIALIZATION EVENT
INITIALIZATION.*VALUES ASSIGNED TO DROPDOWNLISTS IN THE SUBROUTINES
PERFORM f4_value_request_pa.
PERFORM f4_value_request_pb.
PERFORM f4_value_request_pc.*START OF SELECTION EVENT
START-OF-SELECTION.*SUBROUTINE FOR OUTPUT
PERFORM output.*&----------------------------------------------------------------*
*& Form f4_value_request_PA
* text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST1
FORM f4_value_request_pa. DATA: l_name TYPE vrm_id,
 li_list TYPE vrm_values,
 l_value LIKE LINE OF li_list. l_value-key = '1'.
l_value-text = 'Plant Data for Material'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '2'.
l_value-text = 'General Material Data'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '3'.
l_value-text = 'Storage Location Data for Material'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '4'.
l_value-text = 'Units of Measure for Material'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'ONE'. CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 id = l_name
 values = li_list
 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.ENDFORM. " f4_value_request_tabname*&----------------------------------------------------------------*
*& Form f4_value_request_PB
* text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST2FORM f4_value_request_pb. DATA: l_name TYPE vrm_id,
 li_list TYPE vrm_values,
 l_value LIKE LINE OF li_list. l_value-key = '1'.
l_value-text = 'Sales Document: Header Data'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '2'.
l_value-text = 'Sales Document: Item Data'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '3'.
l_value-text = 'Sales Document:Header Status'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '4'.
l_value-text = 'Sales Document: Item Status'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'TWO'.
CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 id = l_name
 values = li_list
 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.
ENDFORM. " f4_value_request_PB*&----------------------------------------------------------------*
*& Form f4_value_request_PC
* text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST3FORM f4_value_request_pc. DATA: l_name TYPE vrm_id,
 li_list TYPE vrm_values,
 l_value LIKE LINE OF li_list. l_value-key = '1'.
l_value-text = 'HR Master :Infotype 0001 (Org. Assignment)'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '2'.
l_value-text = 'Address Infotype 0006'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '3'.
l_value-text = 'Education Infotype 0022'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '4'.
l_value-text = 'Basic Pay Infotype 0008'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'THREE'.
CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 id = l_name
 values = li_list
 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.
ENDFORM. " f4_value_request_PC
*& Form OUTPUT
* text
* -->P_TABLENAME text
*fINAL OUTPUT
FORM output. DATA p_table(10). p_table = tablename.*popup to display teh selected table and
*Continue button is clicked
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
 EXPORTING
 titel = 'User Selections '
 textline1 = p_table
 textline2 = 'is the Selected table'
 start_column = 25
 start_row = 6.*assigning the table value in p_table to the
* Table in SE16 transaction by explicitly calling
SET PARAMETER ID 'DTB' FIELD p_table.
CALL TRANSACTION 'SE16'.
ENDFORM. "OUTPUT
Regards,
Manoj Kumar P

Push buttons are not triggering on the selection screen

selection-screen begin of block a with frame title text-001.
selection-screen skip.
parameters:z like vbap-vbeln.
selection-screen skip.
selection-screen begin of block b with frame title text-002.
selection-screen skip.
parameters:sales radiobutton group g default 'X',
 trans radiobutton group g.
selection-screen end of block b.
selection-screen skip.
selection-screen pushbutton 10(12) pu_text user-command CANC.
selection-screen pushbutton 30(12) qu_text user-command STAT.
selection-screen end of block a.
Initialization.
pu_text = 'Cancel Order'.
qu_text = 'Status'.
TABLES SSCRFIELDS.
AT SELECTION-SCREEN.
CASE SSCRFIELDS.
WHEN 'CANC'.
WRITE 'CANCEL'.
WHEN 'STAT'.
WRITE 'STATUS'.
ENDCASE.

hi,
in your program declare SSCRFIELDS table before defining selection-screen with push-buttons.
To create a pushbutton on the selection screen, you use:
SELECTION SCREEN PUSHBUTTON [/]<pos(len)> <push>
 USER-COMMAND <ucom> [MODIF ID <key>].
The [/]<pos(len)> parameters and the MODIF IF addition have the same function as for the formatting options for underlines and comments.
follow this sample program.
REPORT DEMO.
TABLES SSCRFIELDS.
DATA FLAG.
SELECTION-SCREEN:
BEGIN OF SCREEN 500 AS WINDOW TITLE TIT,
 BEGIN OF LINE,
 PUSHBUTTON 2(10) BUT1 USER-COMMAND CLI1,
 PUSHBUTTON 12(10) TEXT-020 USER-COMMAND CLI2,
 END OF LINE,
 BEGIN OF LINE,
 PUSHBUTTON 2(10) BUT3 USER-COMMAND CLI3,
 PUSHBUTTON 12(10) TEXT-040 USER-COMMAND CLI4,
 END OF LINE,
END OF SCREEN 500.
AT SELECTION-SCREEN.
CASE SSCRFIELDS.
 WHEN 'CLI1'.
 FLAG = '1'.
 WHEN 'CLI2'.
 FLAG = '2'.
 WHEN 'CLI3'.
 FLAG = '3'.
 WHEN 'CLI4'.
 FLAG = '4'.
ENDCASE.
START-OF-SELECTION.
TIT = 'Four Buttons'.
BUT1 = 'Button 1'.
BUT3 = 'Button 3'.
CALL SELECTION-SCREEN 500 STARTING AT 10 10.
CASE FLAG.
 WHEN '1'.
 WRITE / 'Button 1 was clicked'.
 WHEN '2'.
 WRITE / 'Button 2 was clicked'.
 WHEN '3'.
 WRITE / 'Button 3 was clicked'.
 WHEN '4'.
 WRITE / 'Button 4 was clicked'.
 WHEN OTHERS.
 WRITE / 'No Button was clicked'.
ENDCASE.
regards,
Ashok Reddy

Report OutPut directly to the printer by selecting in the selection screen

Hi Guys,
Can any one help,
How to give Report output (ALV report ) directly to the printer by selecting the printer name in the selection screen .
Sap Version is ECC 6.0.
Thanks In advance
praveen k

hi,
u can do it using submit statement.
SUBMIT TO SAP-SPOOL
Basic form
SUBMIT rep ... TO SAP-SPOOL.
Extras:
1.... DESTINATION dest ... COPIES cop
 ... LIST NAME name
 ... LIST DATASET dsn
 ... COVER TEXT text
 ... LIST AUTHORITY auth
 ... IMMEDIATELY flag
 ... KEEP IN SPOOL flag
 ... NEW LIST IDENTIFICATION flag
 ... DATASET EXPIRATION days
 ... LINE-COUNT lin
 ... LINE-SIZE col
 ... LAYOUT layout
 ... SAP COVER PAGE mode
 ... COVER PAGE flag
 ... RECEIVER rec
 ... DEPARTMENT dep
 ... ARCHIVE MODE armode
 ... ARCHIVE PARAMETERS arparams
 ... WITHOUT SPOOL DYNPRO
2. ... SPOOL PARAMETERS params
 ... ARCHIVE PARAMETERS arparams
 ... WITHOUT SPOOL DYNPRO
3. ... Further parameters (for passing variants)
 are described in the documentation for SUBMIT
The syntax check performed in an ABAP Objects context is stricter than in other ABAP areas. See Missing print parameters with SUBMIT.
Effect
Calls the report rep with list output to the SAP spool database.
Additions
... DESTINATION dest(output device)
... COPIES cop(number of copies)
... LIST NAME name(name of list)
... LIST DATASET dsn(name of spool dataset)
... COVER TEXT text(title of spool request)
... LIST AUTHORITY auth(authorization for display)
... IMMEDIATELY flag(print immediately ?)
... KEEP IN SPOOL flag(keep list after print ?)
... NEW LIST IDENTIFICATION flag(new spool request ?)
... DATASET EXPIRATION days(number of days list
retained)
... LINE-COUNT lin ( lin lines per page)
... LINE-SIZE col(col columns per line)
... LAYOUT layout(print format)
... SAP COVER PAGE mode(SAP cover sheet ?)
... COVER PAGE flag(selection cover sheet ?)
... RECEIVER rec(SAP user name of
recipient)
... DEPARTMENT dep(name of department)
... ARCHIVE MODE armode(archiving mode)
... ARCHIVE PARAMETERS arparams(structure with archiving
parameters)
... WITHOUT SPOOL DYNPRO(skip print control screen)
With the parameters IMMEDIATELY, KEEP IN SPOOL, NEW LIST IDENTIFICATION and COVER TEXT, flag must be a literal or character field with the length 1. If flag is blank, the parameter is switched off, but any other character switches the parameter on. You can also omit any of the sub-options of PRINT ON. mode with SAP COVER PAGE can accept the values ' ', 'X' and 'D'. These values have the following meaning:
' ' : Do not output cover sheet
'X' : Output cover sheet
'D' : Cover sheet output according to printer setting
armode with ARCHIVE MODE can accept the values '1', '2' and '3'. These values have the following meaning:
'1' : Print only
'2' : Archive only
'3' : Print and archive
arparams with ARCHIVE PARAMETERS must have the same structure as ARC_PARAMS. This parameter should only be processed with the function module GET_PRINT_PARAMETERS.
Effect
Output is to the SAP spool database with the specified parameters. If you omit one of the parameters, the system uses a default value. Before output to the spool, you normally see a screen where you can enter and/or modify the spool parameters. However, you can suppress this screen with the following statement:
... TO SAP-SPOOL WITHOUT SPOOL DYNPRO
You could use this option if all the spool parameters have already been set!
reward points if hlpful.
Note
When specifying the LINE-SIZE, you should not give any value > 132 because most printers cannot print wider lists.
Addition 2
... SPOOL PARAMETERS params(structure with print
parameters)
... ARCHIVE PARAMETERS arparams(Structure with archive
parameters)
... WITHOUT SPOOL DYNPRO(skip print parameters
screen)
Effect
Output is to the SAP spool database with the specified parameters. The print parameters are passed by the field string params which must have the structure of PRI_PARAMS. The field string can be filled and modified with the function module GET_PRINT_PARAMETERS. The specification arparams with ARCHIVE PARAMETERS must have the structure of ARC_PARAMS. This parameter should only be processed with the function module GET_PRINT_PARAMETERS. Before output to the spool, you normally see a screen where you can enter and/or modify the spool parameters. However, you can suppress this screen with the following statement:
... WITHOUT SPOOL DYNPRO
Example
Without archiving
DATA: PARAMS LIKE PRI_PARAMS,
 DAYS(1) TYPE N VALUE 2,
 COUNT(3) TYPE N VALUE 1,
 VALID TYPE C.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING DESTINATION = 'LT50'
 COPIES = COUNT
 LIST_NAME = 'TEST'
 LIST_TEXT = 'SUBMIT ... TO SAP-SPOOL'
 IMMEDIATELY = 'X'
 RELEASE = 'X'
 NEW_LIST_ID = 'X'
 EXPIRATION = DAYS
 LINE_SIZE = 79
 LINE_COUNT = 23
 LAYOUT = 'X_PAPER'
 SAP_COVER_PAGE = 'X'
 COVER_PAGE = 'X'
 RECEIVER = 'SAP*'
 DEPARTMENT = 'System'
 NO_DIALOG = ' '
IMPORTING OUT_PARAMETERS = PARAMS
 VALID = VALID.
IF VALID <> SPACE.
SUBMIT RSTEST00 TO SAP-SPOOL
 SPOOL PARAMETERS PARAMS
 WITHOUT SPOOL DYNPRO.
ENDIF.
Example
With archiving
DATA: PARAMS LIKE PRI_PARAMS,
 ARPARAMS LIKE ARC_PARAMS,
 DAYS(1) TYPE N VALUE 2,
 COUNT(3) TYPE N VALUE 1,
 VALID TYPE C.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING DESTINATION = 'LT50'
 COPIES = COUNT
 LIST_NAME = 'TEST'
 LIST_TEXT = 'SUBMIT ... TO SAP-SPOOL'
 IMMEDIATELY = 'X'
 RELEASE = 'X'
 NEW_LIST_ID = 'X'
 EXPIRATION = DAYS
 LINE_SIZE = 79
 LINE_COUNT = 23
 LAYOUT = 'X_PAPER'
 SAP_COVER_PAGE = 'X'
 COVER_PAGE = 'X'
 RECEIVER = 'SAP*'
 DEPARTMENT = 'System'
 SAP_OBJECT = 'RS'
 AR_OBJECT = 'TEST'
 ARCHIVE_ID = 'XX'
 ARCHIVE_INFO = 'III'
 ARCHIVE_TEXT = 'Description'
 NO_DIALOG = ' '
IMPORTING OUT_PARAMETERS = PARAMS
 OUT_ARCHIVE_PARAMETERS = ARPARAMS
 VALID = VALID.
IF VALID <> SPACE.
SUBMIT RSTEST00 TO SAP-SPOOL
 SPOOL PARAMETERS PARAMS
 ARCHIVE PARAMETERS ARPARAMS
 WITHOUT SPOOL DYNPRO.
ENDIF.

How to Fill the selection screen while calling the transaction

Hi All,
         my requirement is in one of the screen while i will press a push button it will call one transaction and it will fill the selection screen build order number field and skip the first screen i.e the selection screen it will show the output of that report directly.
am using this code .
case sy-ucomm.
while 'FSLR'.
set PARAMETER ID 'ANR' FIELD aufnr.
RANGES s_aufnr FOR afko-aufnr.
      s_aufnr-sign   = 'I'.
      s_aufnr-option = 'EQ'.
      s_aufnr-low    = aufnr.
      APPEND s_aufnr.
CALL TRANSACTION 'ZFS1' USING s_aufnr
     MODE 'E' .
    AND SKIP FIRST SCREEN.
endcase.
here the problem is i cant use both skip screen and using at a time nither the screen is filling nor its skipping the first screen.
but its not working would any one please help how can i do this functionality?

Hi
Do in this way.
DATA: rspar TYPE TABLE OF rsparams WITH HEADER LINE.
rspar-selname = 'S_AUFNR'.
rspar-kind = 'S'.
rspar-sign = 'I'.
rspar-option = 'EQ'.
rspar-low = 'aufnr'.
APPEND rspar.
SUBMIT zfs1_prog VIA SELECTION-SCREEN WITH SELECTION-TABLE rspar AND RETURN.
If this doesnt suit yer requirement, I wud suggest you to use BDC as below.
CALL TRANSACTION 'SE11' USING bdcdata
                       MODE   'E'
                       UPDATE 'A'.

How to assign F1 help to the selection screen fields

Hi All,
I have a requirement.I have to create a button named "HELP" at the side of Execute button in the selection screen.If I place my cursor in the selection screen field and I press that "HELP" button, I should get the Documentation help for that field.
Please suggest me on this.
Thanks in advance.
Sreeharsha Singuru

Hi sreeharsha,
here a short example:
TABLES: MARA.
TABLES: SSCRFIELDS.
TYPE-POOLS: ICON.
DATA: CURSORFIELD(20).
SELECTION-SCREEN: BEGIN OF LINE.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR.
SELECTION-SCREEN: END   OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECT-OPTIONS: S_MTART FOR MARA-MTART.
SELECTION-SCREEN: END   OF LINE.
SELECTION-SCREEN: SKIP 3.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: PUSHBUTTON (10) PB01 USER-COMMAND HELP.
SELECTION-SCREEN: END   OF LINE.
AT SELECTION-SCREEN.
GET CURSOR FIELD CURSORFIELD.
CASE SSCRFIELDS.
    WHEN 'HELP'.
      CASE CURSORFIELD.
        WHEN 'S_MATNR-LOW'.
          CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT' "Make your own Text
            EXPORTING
              TITEL        = 'Information'
              TEXTLINE1    = 'Information for field:'
              TEXTLINE2    = 'S_MATNR-LOW'
              START_COLUMN = 10
              START_ROW    = 15.
        WHEN 'S_MTART-LOW'.
          CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT' "Make your own Text
            EXPORTING
              TITEL        = 'Information'
              TEXTLINE1    = 'Information for field:'
              TEXTLINE2    = 'S_MTART-LOW'
              START_COLUMN = 10
              START_ROW    = 15.
      ENDCASE.
ENDCASE.
INITIALIZATION.
CONCATENATE ICON_INFORMATION 'Help' INTO PB01.
START-OF-SELECTION.
SELECT * FROM MARA WHERE MATNR IN S_MATNR.
    WRITE: / MARA-MATNR.
ENDSELECT.
Hope it helps.
Regards, Dieter

How to skip the first screen in se38

hi experts,
   I am struck up somewhere in getters and setters in field symbols.
I am setting the file name field in se38 and trying to directly go to display mode of the program and i am doing that through RS_SPOOL_ACCESS . I am not able to skip the first screen of se38 and go to diplay mode of the program.
How can i do that. Skip first screen is not working.

If all else fails, partial BDC may be in order.
report zrich_0003
       no standard page heading line-size 255.
data:   bdcdata type table of bdcdata with header line.
parameters: p_prog(30) type c.
start-of-selection.
perform bdc_dynpro      using 'SAPLWBABAP' '0100'.
perform bdc_field       using 'BDC_CURSOR'
                                'RS38M-PROGRAMM'.
perform bdc_field       using 'BDC_OKCODE'
                                '=SHOP'.
perform bdc_field       using 'RS38M-PROGRAMM'
                         p_prog.
perform bdc_field       using 'RS38M-FUNC_EDIT'
                                'X'.
call transaction 'SE38' using bdcdata mode 'E'.
*        Start new screen                                              *
form bdc_dynpro using program dynpro.
clear bdcdata.
bdcdata-program = program.
bdcdata-dynpro   = dynpro.
bdcdata-dynbegin = 'X'.
append bdcdata.
endform.
*        Insert field                                                  *
form bdc_field using fnam fval.
clear bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
append bdcdata.
endform.
Regards,
Rich Heilman

Urgent: Reports: Skip the first screen

Hi experts,
   In report program iam calling another program screen. I just want to skip the first screen of the calling program and when i call this program i should directly go into the output screen. Iam using like this. So how should i skip the first screen.
Please do needful help.
if p_err_u = 'X'.
submit rsuniscan_final. "VIA SELECTION-SCREEN AND RETURN.
Regards.
AADI

Use in Submit
   [USING SELECTION-SET variant]
    [USING SELECTION-SETS OF PROGRAM prog]
    [WITH SELECTION-TABLE rspar]
Santhosh

Skipping the selection screen

Similar Messages

Maybe you are looking for