topic Re: submit selection screen in Application Development and Automation Discussions

submit selection screen

Former Member — Thu, 18 Oct 2007 11:58:23 GMT

Hi everyone,

I am submitting the program by using statement

Submit zreport using AND RETURN via SELECTION-SCREEN WITH SELECTION-TABLE rspar.

But in this case i am able to view selection screen, whereas i need to skip that

screen.

i tried with this following statement

whereas here select-options checking in select-options giving errorneos dataretrieval

SUBMIT zspot_price

AND RETURN USING SELECTION-SCREEN 1000

WITH so_year in so_year

with so_week in so_week

with so_prtyp in so_prtyp.

Is there is any option like that to skip the selection screen .

Please anybody let me know .

its urgent

Re: submit selection screen

Former Member — Thu, 18 Oct 2007 12:00:59 GMT

if you skip the selection screen for what values of selection screen you wants to execute that submitted report

if you want you can use

SUBMIT zspot_price AND RETURN

Regards

Anji

Re: submit selection screen

Former Member — Thu, 18 Oct 2007 12:02:47 GMT

Hi Varisetty,

You can use Submit report name with selection table and return.

Please refer to the below code for reference:

REPORT zs_alr MESSAGE-ID zs_alr .

type-pools : truxs.

TABLES : ska1, skb1,bkpf.

DATA : rspar TYPE TABLE OF rsparams,

rspar_wa LIKE LINE OF rspar.

DATA : var1(15) TYPE c,

var2(15) TYPE c ,

temp(15) TYPE c.

DATA : listobject1 LIKE abaplist OCCURS 0.

DATA : BEGIN OF wa,

bukrs2(10) TYPE c,

bmonat2(10) TYPE c,

currtyp1(4) TYPE c,

saknr1(6) TYPE c,

text1(59) TYPE c,

totals(21) TYPE c,

END OF wa.

DATA : BEGIN OF wa2,

bukrs2(5) TYPE c,

saknr1(6) TYPE c,

totals(21) TYPE c,

END OF wa2.

data : itab type truxs_t_text_data.

DATA : ascitab LIKE TABLE OF wa.

DATA : ascitab1 LIKE TABLE OF wa2.

*DATA : ASCITAB LIKE LISTZEILE OCCURS 0 WITH HEADER LINE,

ASCITAB1 LIKE LISTZEILE OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF wa1,

bukrs3 TYPE skb1-bukrs,

saknr3 TYPE ska1-saknr,

totals1 TYPE p DECIMALS 2,

END OF wa1.

DATA : result LIKE TABLE OF wa1.

data : filenam1 type string.

SELECTION-SCREEN BEGIN OF BLOCK b1.

PARAMETERS: bilaver1 LIKE t011t-versn DEFAULT 'ss7b' NO-DISPLAY,

bilaspr1 LIKE t011-dspra DEFAULT 'EN' NO-DISPLAY,

bilbjah1 LIKE bkpf-gjahr DEFAULT '2007',

bmonat1 LIKE rfsdo-bilabmon,

bilvjah1 LIKE bkpf-gjahr DEFAULT '2006' NO-DISPLAY,

vmonat1 LIKE rfsdo-bilavmon NO-DISPLAY.

*parameters : BILAGRI1 LIKE RFBILA_ALV_SETTINGS-GRID

default 'X' RADIObutton group ALV ,
BILALIS1 LIKE RFBILA_ALV_SETTINGS-CLASSIC
RADIOBUTTON GROUP ALV.

PARAMETERS : currtype LIKE rfpdo2-allgcrtp DEFAULT '30' NO-DISPLAY.

SELECT-OPTIONS : bukrs1 FOR skb1-bukrs,

ktopl1 FOR ska1-ktopl DEFAULT 'ss7' NO-DISPLAY.

PARAMETERS : filename TYPE rlgrap-filename.

SELECTION-SCREEN END OF BLOCK b1.

*break shahv.

IF bukrs1-low IS INITIAL AND bukrs1-high IS INITIAL.

MESSAGE i001.

LEAVE TO SCREEN 1000.

ENDIF.

IF bmonat1 IS INITIAL.

MESSAGE i001.

LEAVE TO SCREEN 1000.

ENDIF.

vmonat1 = bmonat1.

IF bilaver1 IS NOT INITIAL.

rspar_wa-selname = 'BILAVERS'.

rspar_wa-kind = 'P'.

rspar_wa-sign = 'I'.

rspar_wa-option = 'EQ'.

rspar_wa-low = bilaver1.

APPEND rspar_wa TO rspar.

CLEAR rspar_wa.

ENDIF.

IF bilaspr1 IS NOT INITIAL.

rspar_wa-selname = 'BILASPRA'.

rspar_wa-kind = 'P'.

rspar_wa-sign = 'I'.

rspar_wa-option = 'EQ'.

rspar_wa-low = bilaspr1.

APPEND rspar_wa TO rspar.

CLEAR rspar_wa.

ENDIF.

IF bilbjah1 IS NOT INITIAL.

rspar_wa-selname = 'BILBJAHR'.

rspar_wa-kind = 'P'.

rspar_wa-sign = 'I'.

rspar_wa-option = 'EQ'.

rspar_wa-low = bilbjah1.

APPEND rspar_wa TO rspar.

CLEAR rspar_wa.

ENDIF.

IF bmonat1 IS NOT INITIAL.

rspar_wa-selname = 'B-MONATE'.

rspar_wa-kind = 'P'.

rspar_wa-sign = 'I'.

rspar_wa-option = 'EQ'.

rspar_wa-low = bmonat1.

APPEND rspar_wa TO rspar.

CLEAR rspar_wa.

ENDIF.

IF bilvjah1 IS NOT INITIAL.

rspar_wa-selname = 'BILVJAHR'.

rspar_wa-kind = 'P'.

rspar_wa-sign = 'I'.

rspar_wa-option = 'EQ'.

rspar_wa-low = bilvjah1.

APPEND rspar_wa TO rspar.

CLEAR rspar_wa.

ENDIF.

IF vmonat1 IS NOT INITIAL.

rspar_wa-selname = 'V-MONATE'.

rspar_wa-kind = 'P'.

rspar_wa-sign = 'I'.

rspar_wa-option = 'EQ'.

rspar_wa-low = vmonat1.

APPEND rspar_wa TO rspar.

CLEAR rspar_wa.

ENDIF.

*IF BILAGRI1 IS NOT INITIAL.

*RSPAR_WA-SELNAME = 'BILAGRID'.

*RSPAR_WA-KIND = 'P'.

*RSPAR_WA-SIGN = 'I'.

*RSPAR_WA-OPTION = 'EQ'.

*RSPAR_WA-LOW = BILAGRI1.

*APPEND RSPAR_WA TO RSPAR.

*CLEAR RSPAR_WA.

*ENDIF.

*IF BILALIS1 IS NOT INITIAL.

*RSPAR_WA-SELNAME = 'BILALIST'.

*RSPAR_WA-KIND = 'P'.

*RSPAR_WA-SIGN = 'I'.

*RSPAR_WA-OPTION = 'EQ'.

*RSPAR_WA-LOW = BILALIS1.

*APPEND RSPAR_WA TO RSPAR.

*CLEAR RSPAR_WA.

*ENDIF.

IF ktopl1 IS NOT INITIAL.

rspar_wa-selname = 'SD_KTOPL'.

rspar_wa-kind = 'P'.

rspar_wa-sign = 'I'.

rspar_wa-option = 'EQ'.

rspar_wa-low = ktopl1-low.

rspar_wa-high = ktopl1-high.

APPEND rspar_wa TO rspar.

CLEAR rspar_wa.

ENDIF.

IF currtype IS NOT INITIAL.

rspar_wa-selname = 'SD_CURTP'.

rspar_wa-kind = 'P'.

rspar_wa-sign = 'I'.

rspar_wa-option = 'EQ'.

rspar_wa-low = currtype.

APPEND rspar_wa TO rspar.

CLEAR rspar_wa.

ENDIF.

var1 = bukrs1-low.

var2 = bukrs1-high.

move filename to filenam1.

IF bukrs1-low IS NOT INITIAL AND bukrs1-high IS INITIAL.

SUBMIT rfbila00

WITH SELECTION-TABLE rspar

WITH sd_bukrs EQ var1

EXPORTING LIST TO MEMORY

AND RETURN.

ELSEIF bukrs1-low LT bukrs1-high.

SUBMIT rfbila00

WITH SELECTION-TABLE rspar

WITH sd_bukrs BETWEEN var1 AND var2

EXPORTING LIST TO MEMORY

AND RETURN.

ELSEIF bukrs1-low GT bukrs1-high.

temp = var1.

var1 = var2.

var2 = temp.

SUBMIT rfbila00

WITH SELECTION-TABLE rspar

WITH sd_bukrs BETWEEN var1 AND var2

EXPORTING LIST TO MEMORY

AND RETURN.

ENDIF.

CALL FUNCTION 'LIST_FROM_MEMORY'

TABLES

listobject = listobject1

EXCEPTIONS

not_found = 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.

CALL FUNCTION 'LIST_TO_ASCI'

EXPORTING

list_index = -1

WITH_LINE_BREAK = ' '

TABLES

listasci = ascitab

listobject = listobject1

EXCEPTIONS
EMPTY_LIST = 1
LIST_INDEX_INVALID = 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 'LIST_TO_TXT'

EXPORTING
LIST_INDEX = -1

TABLES
listtxt = ascitab
LISTOBJECT = listobject1

EXCEPTIONS
EMPTY_LIST = 1
LIST_INDEX_INVALID = 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.

*break shahv.

*WRITE : 'HI'.

*LOOP AT ASCITAB FROM 13.

*MOVE ASCITAB TO ASCITAB1.

*APPEND ASCITAB1.

*ENDLOOP.

LOOP AT ascitab INTO wa FROM 13.

MOVE wa-bukrs2+2(4) TO wa2-bukrs2.

*MOVE WA-RYEAR+6(2) TO WA2-RYEAR.

MOVE wa-saknr1 TO wa2-saknr1.

*MOVE wa-BMONAT2 TO WA2-BMONAT2.

*MOVE wa-CURRTYP1 TO WA2-CURRTYP1.

MOVE wa-totals+1(14) TO wa2-totals.

*MOVE wa-TEXT1 TO WA2-TEXT1.

*CONDENSE WA2.

IF wa2-bukrs2 EQ '----'.

EXIT.

ELSEIF wa2-bukrs2 EQ ' '.

CONTINUE.

ELSEIF wa2-bukrs2 GE bukrs1-low OR wa2-bukrs2 LE bukrs1-high.

APPEND wa2 TO ascitab1.

ELSE.

CONTINUE.

ENDIF.

ENDLOOP.

*sort ascitab1 by bukrs2.

*loop at ascitab1 into wa2.

*write : / wa2-bukrs2,

wa2-saknr1,
wa2-totals.

*endloop.

*BREAK SHAHV.

*LOOP AT ASCITAB1 INTO WA2.

*WA1-BUKRS3 = WA2-BUKRS2.

*WA1-SAKNR3 = WA2-SAKNR1.

*WA1-TOTALS1 = WA2-TOTALS.

*APPEND WA1 TO RESULT.

*ENDLOOP.

*BREAK SHAHV.

*WRITE : 'HI'.

if ascitab1 is initial.

message i002.

leave to screen 1000.

endif.

*CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'

EXPORTING
I_FIELD_SEPERATOR = ','

I_LINE_HEADER =
I_FILENAME =
I_APPL_KEEP = ' '

TABLES
i_tab_sap_data = ascitab1
CHANGING
I_TAB_CONVERTED_DATA = itab

EXCEPTIONS
CONVERSION_FAILED = 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.

CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'

EXPORTING

i_field_seperator = ','

I_LINE_HEADER =
I_FILENAME =
I_APPL_KEEP = ' '

tables

i_tab_sap_data = ascitab1

CHANGING

I_TAB_CONVERTED_DATA = itab

EXCEPTIONS
CONVERSION_FAILED = 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.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

BIN_FILESIZE =

filename = filenam1

FILETYPE = 'ASC'
APPEND = ' '
WRITE_FIELD_SEPARATOR = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
WRITE_LF_AFTER_LAST_LINE = ABAP_TRUE
IMPORTING
FILELENGTH =

tables

data_tab = itab

FIELDNAMES =
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22

IF sy-subrc eq 0.

message s003.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

In case you have any further clarifications,do let me know.

Regards,

Puneet Jhari.

Re: submit selection screen

Former Member — Thu, 18 Oct 2007 12:02:58 GMT

use following submit...

SUBMIT zspot_price

VIA SELECTION-SCREEN

WITH so_year in so_year

with so_week in so_week

with so_prtyp in so_prtyp

and return.

Re: submit selection screen

Former Member — Thu, 18 Oct 2007 12:04:50 GMT


REPORT report2. 

DATA: text       TYPE c LENGTH 10, 
      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.

=====================================================

Re: submit selection screen

Former Member — Thu, 18 Oct 2007 12:05:58 GMT

Hi,

submit zrfkord00 using selection-screen 1000

with selection-table t_rspartab

and return.

reward if useful.

Re: submit selection screen

varma_narayana — Thu, 18 Oct 2007 12:08:50 GMT

Hi..

Since you dont want the Selection screen to be displayed. Just call this way.

Don't use

via SELECTION-SCREEN

USING SELECTION-SCREEN 1000.

Use this statement:

Submit zreport AND RETURN WITH SELECTION-TABLE rspar.

REWARD IF HELPFUL.

Re: submit selection screen

Former Member — Thu, 18 Oct 2007 12:08:57 GMT

Hi madhavi,

write like this, which will not call the selection screen.

 submit zreport with selection-table rspar and return.

Reward for helpful answers

Cheers,

Satish

Message was edited by:

Satish Panakala

Re: submit selection screen

Former Member — Thu, 18 Oct 2007 12:10:55 GMT

hi all,

I am using the same statement,

but it is displaying the selection screen of calling progam with

using selection screen statement.

but i need to skip selection screen.

pls respond

Re: submit selection screen

Former Member — Thu, 18 Oct 2007 13:22:02 GMT

Hi Madhavi,

I have used the same statment it is working fine, not showing the selection screen.

Satish

Re: submit selection screen

Former Member — Sat, 27 Oct 2007 22:51:12 GMT

thank you satish