Back to selection screen after error

Hello ABAPers,
I have a executable program (REPORT) to do some processing (e.g. read a standard table with the parameters and select-options and save the data in a Z table).
When occurs an error (e.g. when sy-subrc <> 0 after select) and a message of type E is showed, the program show the message in a "clean" screen with title SAP. Then, after ENTER or ESC, it leaves to initial screen of SAP (SAP Easy Access).
The message of type E is triggered from a routine (FORM) called from START-OF-SELECTION event. And the program don´t write nothing in list (only return a status message if everithing is ok).
How can I force the program to back to selection screen after some error?
Thanks in advance.
Best regards,
Charles Oliveira

hi,
Do the following for your requirement.
in the message give the following
start-of-selection.
Perform <routine>.
Form <routine>.
if <condition>.
message 'xxxx' type 'S' display like 'E'.
exit.
endif.
endform.
This way the control returns to selection screen even after the message is triggered.
Thanks
Sharath

Similar Messages

How do I get my apps back on my screen after OS update?

How do I get my apps to appear back on the screen after the new 7.0 OS upgrade?

Just go to the App Store and look at purchased on all
They should all be there and you just download them again
Good Luck

Ho to back on selection screen using BACK button

Salute.
I have a program which contains 3 screens:
1st -- selection screen.
2nd -- my screen, I called it 1002, When I press F8 button on I get on it. I am using cl_gui_alv_grid there with my own buttons. So when I press MY OWN the save button I get the 3d screen
3d -- my own screen with some labels (screen name 1001).
So when i press BACK button on the third screen I want to back on selection screen and skip second screen, but I can't, I think the problem is in the cl_gui_alv_grid because I use custom grid handler:
METHOD handle_user_command.
    DATA :
        ls_selected TYPE lvc_s_roid,
        lt_selected TYPE lvc_t_roid.
    CASE e_ucomm.
      WHEN 'QSAVE'.
        PERFORM save_data.
        CALL SCREEN 1001.
      WHEN OTHERS.
    ENDCASE.
ENDMETHOD.                    "handle_user_command
Thank You.
Edited by: kernel.panic on Nov 24, 2009 6:31 AM

Hi Kernal,
To go back to the First Screen (Selection Scree) use
LEAVE TO SCREEN 0. " This makes the Program to go back from where it had started
or Create a Tcode for your program
CASE e_ucomm.
WHEN 'BACK'.
LEAVE TO TRANSACTION 'YOUR TCODE HERE' . " This will take you back to your Selection Screen
WHEN 'QSAVE'.
PERFORM save_data.
CALL SCREEN 1001.
WHEN OTHERS.
ENDCASE.
Cheerz
Ram

Going back to selection screen from Change mode in ALV.

Hello Gurus,
I am working on a issue related to ALV where ALV becomes editable when user clicks on change button. The Change button is a custom button defined in application toolbar of ALV display.
case ucomm.
WHEN 'TBACK'.
     leave to screen 0.
when 'CHNG'.
        loop at it_apst01.
              WA_FIELD_LST-EDIT = 'X'.
*             Then some field symbol stuff is there
              MODIFY FIELD_LST from wa_field_lst transporting edit
                     where FIELDNAME = <FS5>.
            ENDIF.
          endif.
        endloop.
      ENDIF.
      describe table gt_alv lines c_hits.
      c_alv_hits = c_hits.
      concatenate text-010 c_alv_hits 'hits' into c_alv_title separated
      by space.
      perform display_report tables gt_alv USING c_alv_title.
form display_report tables p_outtab using p_title.
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program       = lv_progname
            i_callback_pf_status_set = 'ALV_STATUS'
            i_callback_user_command = 'ALV_UCOMM'
*            i_callback_top_of_page   = 'TOP_OF_PAGE'
            is_layout                = is_layout
            it_fieldcat              = field_lst
*            is_variant               = g_variant
            it_event_exit            = gt_event_exit
            i_save                   = 'A'
            it_sort                  = it_sort
            i_screen_start_column    = i_start_col
            i_screen_start_line      = i_start_ln
            i_screen_end_column      = i_end_col
            i_screen_end_line        = i_end_ln
       tables
            t_outtab                 = p_outtab
       exceptions
            program_error            = 1
            others                   = 2.
endform.
Everything is working ok. But when I click on Back button,the screen goes first to the ALV display mode from edit mode, then user has to click one time more the back button to go to selection screen because the FM 'REUSE_ALV_GRID_DISPLAY' is called once again when user clicks
on change button because I am making the EDIT flag = 'X' and then calling FM again.
Is there a way that when user clicks on Back button, he will directly go to Change Screen -> Selection screen instead of going to Change screen -> Display screen -> Selection screen
Regards,
Rajesh.

You must not call the FM 'REUSE_ALV_GRID_DISPLAY' again to make it editable. Instead you can call the FM REUSE_ALV_GRID_LAYOUT_INFO_GET and REUSE_ALV_GRID_LAYOUT_INFO_SET to make your grid editable / non-editable.
Like this:
REPORT grid_edit.
TYPE-POOLS: slis.
* Data to be displayed
DATA: gt_sflight TYPE TABLE OF sflight.
DATA: gs_layout TYPE slis_layout_alv.
parameters: p_test type flag.
start-of-selection.
* Selection
SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE gt_sflight.
* Eingabebereit
gs_layout-edit = 'X'.
* Call ABAP List Viewer (ALV)
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    i_callback_program      = sy-cprog
    i_callback_user_command = 'USER_COMMAND'
    i_structure_name        = 'SFLIGHT'
    is_layout               = gs_layout
TABLES
    t_outtab                = gt_sflight.
*&      Form user_command
FORM user_command USING r_ucomm TYPE sy-ucomm
                        rs_selfield TYPE slis_selfield.
DATA: ls_layout TYPE slis_layout_alv.
IF r_ucomm = '&DATA_SAVE'.
    MESSAGE i000(0k) WITH text-001.
    CALL FUNCTION 'REUSE_ALV_GRID_LAYOUT_INFO_GET'
      IMPORTING
        es_layout = ls_layout.
    IF sy-subrc <> 0.
    ENDIF.
    ls_layout-edit = ' '.
    CALL FUNCTION 'REUSE_ALV_GRID_LAYOUT_INFO_SET'
      EXPORTING
        is_layout = ls_layout.
ENDIF.
ENDFORM.                    "user_command
In this example, when you SAVE, it will give you one Information message and than make the Layout to non-editable mode. When you press back button, it will get you back to selection screen.
Regards,
Naimesh Patel

Going back to selection screen from ALV

Hi there,
I have scenario: program -> selection screen -> ALV
In the 'BACK' button I have put: LEAVE TO SCREEN 0. It should go back to selection screen. But it does not and exits the program. I also tried to call the selection screen like CALL SELECTION-SCREEN 1000. But in this case if I hit BACK on selection screen, it goes back to previous screen, the ALV not the program. Can you please assist any other way to use the back button from
ALV -> Selection screen. Thanks.
Regards,

Hi Johnny
Previously i got the same requirement according to that i had developed a report just go through this hope it may helpfull very much
*& Report ZALVDEMO *
REPORT ZALVDEMO.
TABLES : J_1IEXCHDR, " header table
J_1IEXCDTL, " item table
J_1IPART2, " Excise Part II details
LFA1, " vendor master table
J_1IMOVEND, " vendor excise details table
MSEG, " Document Segment: Material
MKPF, " Header: Material Document
DD07T, " domain text table
T001W. " Plant and Branch Details
DATA : BEGIN OF IT_CHDR OCCURS 100,
DOCNO LIKE J_1IEXCHDR-DOCNO,
DOCYR LIKE J_1IEXCHDR-DOCYR,
EXNUM LIKE J_1IEXCHDR-EXNUM,
EXDAT LIKE J_1IEXCHDR-EXDAT,
WERKS LIKE J_1IEXCHDR-WERKS,
EXBED LIKE J_1IEXCHDR-EXBED,
EXCCD LIKE J_1IEXCHDR-EXCCD,
ECS LIKE J_1IEXCHDR-ECS,
END OF IT_CHDR.
DATA : BEGIN OF IT_CDTL OCCURS 100,
DOCYR LIKE J_1IEXCDTL-DOCYR,
DOCNO LIKE J_1IEXCDTL-DOCNO,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
LIFNR LIKE J_1IEXCDTL-LIFNR,
MATNR LIKE J_1IEXCDTL-MATNR,
MAKTX LIKE J_1IEXCDTL-MAKTX,
CHAPID LIKE J_1IEXCDTL-CHAPID,
EXBAS LIKE J_1IEXCDTL-EXBAS,
EXBED LIKE J_1IEXCDTL-EXBED,
ECS LIKE J_1IEXCDTL-ECS,
MENGE LIKE J_1IEXCDTL-MENGE,
MEINS LIKE J_1IEXCDTL-MEINS,
RDOC2 LIKE J_1IEXCDTL-RDOC2,
END OF IT_CDTL.
DATA TEXT(10).
DATA : BEGIN OF IT_OUT OCCURS 0,
SERIALNO LIKE J_1IPART2-SERIALNO,
TEXT1 LIKE TEXT,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
NAME LIKE LFA1-NAME1,
DDTEXT LIKE DD07T-DDTEXT,
EXCCD LIKE J_1IEXCHDR-EXCCD,
BUDAT LIKE MKPF-BUDAT,
EXBAS LIKE IT_CDTL-EXBAS,
EXBED LIKE IT_CDTL-EXBED,
ECS LIKE IT_CDTL-ECS,
MATNR LIKE IT_CDTL-MATNR,
MAKTX LIKE IT_CDTL-MAKTX,
CHAPID LIKE IT_CDTL-CHAPID,
MENGE LIKE IT_CDTL-MENGE,
MEINS LIKE IT_CDTL-MEINS,
DEL_IND(1),
END OF IT_OUT.
DATA IT_PART2 LIKE J_1IPART2 OCCURS 0 WITH HEADER LINE.
DATA S_NO(4) .
DATA DB_CNT LIKE SY-TABIX.
DATA EBELN_T LIKE MSEG-EBELN .
TYPE-POOLS : SLIS.
DATA : AFIELD TYPE SLIS_FIELDCAT_ALV.
DATA : LIST_HEADER TYPE SLIS_T_LISTHEADER,
FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
LS_FTCAT TYPE LVC_S_FCAT,
SORTCAT TYPE SLIS_T_SORTINFO_ALV,
SORTCAT_LN LIKE LINE OF SORTCAT,
G_REPID LIKE SY-REPID,
G_BACK_GROUND(70), "like bapibds01-objkey,
GS_VARIANT LIKE DISVARIANT,
G_SAVE ,
GT_EVENTS TYPE SLIS_T_EVENT,
ALV_EVENT TYPE SLIS_ALV_EVENT,
EVENTCAT TYPE SLIS_T_EVENT,
EVENTCAT_LN LIKE LINE OF EVENTCAT,
LAYOUT_IN TYPE SLIS_LAYOUT_ALV,
LAYOUT_IN1 TYPE SLIS_LAYOUT_ALV.
CONSTANTS : GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE
'TOP_OF_PAGE',
GC_FORMNAME_USER_COMMAND TYPE SLIS_FORMNAME VALUE
'USER_COMMAND',
GC_FORMNAME_BEFORE_OUTPUT TYPE SLIS_FORMNAME VALUE
'BEFORE_OUTPUT'.
* ALV_EVENT TYPE SLIS_ALV_EVENT,
DATA EX_NO LIKE IT_CHDR-EXNUM VALUE 0.
DATA REGTYP_1 LIKE J_1IPART2-REGTYP.
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME.
PARAMETERS WERKS TYPE J_1IEXCHDR-WERKS.
SELECT-OPTIONS : BUDAT FOR J_1IEXCHDR-EXDAT.
PARAMETERS : R1 RADIOBUTTON GROUP GRP DEFAULT 'X',
R2 RADIOBUTTON GROUP GRP.
SELECTION-SCREEN END OF BLOCK B.
INITIALIZATION.
G_REPID = SY-REPID.
G_SAVE = 'A'.
* PERFORM BUILD_EVENT USING GT_EVENTS[].
PERFORM ALV_EVENT_INIT.
AT SELECTION-SCREEN.
REFRESH LIST_HEADER.
PERFORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER.
START-OF-SELECTION.
* PERFORM ALV_EVENT_INIT.
G_REPID = SY-REPID.
G_BACK_GROUND = ' ' .
IF R1 = 'X'.
CLEAR R2. CLEAR : REGTYP_1.
REGTYP_1 = 'A'.
* set titlebar 'BALAJI' with DB_CNT.
ELSEIF R2 = 'X'.
CLEAR R1.CLEAR : REGTYP_1.
REGTYP_1 = 'C'.
* set titlebar 'BALAJI1' with DB_CNT.
ENDIF.
SELECT * FROM J_1IPART2
INTO CORRESPONDING FIELDS OF TABLE IT_PART2
WHERE REGTYP = REGTYP_1 AND
TRNTYP = 'GRPO' AND
BUDAT IN BUDAT.
* DOCYR = IT_CDTL-DOCYR AND
* DOCNO = IT_CDTL-DOCNO.
LOOP AT IT_PART2.
SELECT SINGLE * FROM J_1IEXCHDR
INTO CORRESPONDING FIELDS OF IT_CHDR
WHERE TRNTYP = 'GRPO' AND
DOCYR = IT_PART2-DOCYR AND
DOCNO = IT_PART2-DOCNO AND
WERKS = WERKS AND
exdat IN BUDAT.
* ORDER BY EXDAT.
IF SY-SUBRC = 0.
APPEND IT_CHDR.
ELSE.
CONTINUE.
ENDIF.
* IF SY-SUBRC <> 0.
* MESSAGE E084.
* ENDIF.
ENDLOOP.
LOOP AT IT_CHDR.
SELECT * FROM J_1IEXCDTL
INTO CORRESPONDING FIELDS OF IT_CDTL
* FOR ALL ENTRIES IN IT_CHDR
WHERE
TRNTYP = 'GRPO' AND
DOCNO = IT_CHDR-DOCNO AND
DOCYR = IT_CHDR-DOCYR AND
EXNUM = IT_CHDR-EXNUM AND
EXDAT = IT_CHDR-EXDAT AND
WERKS = IT_CHDR-WERKS.
IF SY-SUBRC = 0.
APPEND IT_CDTL.
ELSE.
CONTINUE.
ENDIF.
ENDSELECT.
ENDLOOP.
LOOP AT IT_CDTL.
CLEAR TEXT.
DB_CNT = DB_CNT + 1.
READ TABLE IT_CHDR WITH KEY EXNUM = IT_CDTL-EXNUM.
READ TABLE IT_PART2 WITH KEY DOCNO = IT_CDTL-DOCNO .
IT_OUT-SERIALNO = IT_PART2-SERIALNO.
SELECT SINGLE NAME1 FROM LFA1
INTO IT_OUT-NAME
WHERE LIFNR = IT_CDTL-LIFNR.
SELECT SINGLE * FROM LFA1
WHERE LIFNR = IT_CDTL-LIFNR.
IF LFA1-LAND1 EQ 'IN'.
TEXT = 'INVOICE'.
IT_OUT-TEXT1 = TEXT.
ELSE.
TEXT = 'BOE'.
IT_OUT-TEXT1 = TEXT.
ENDIF.
SELECT SINGLE * FROM J_1IMOVEND
WHERE LIFNR = IT_CDTL-LIFNR.
SELECT SINGLE * FROM DD07T
* INTO IT_OUT-DDTEXT
WHERE DOMNAME = 'J_1IVTYP' AND
DDLANGUAGE = 'EN' AND
DOMVALUE_L = J_1IMOVEND-J_1IVTYP.
IF DD07T-DDTEXT = 'First Stage Dealer of indigenous excisable goods'
OR
DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisablegoods'.
DD07T-DDTEXT = 'Dealer'.
ENDIF.
IT_OUT-DDTEXT = DD07T-DDTEXT.
* ELSEIF DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisable
*goods'.
* DD07T-DDTEXT =
CLEAR EBELN_T.
SELECT SINGLE LFBNR FROM MSEG
INTO EBELN_T
WHERE MBLNR = IT_CDTL-RDOC2 .
SELECT SINGLE * FROM MSEG
WHERE BWART = '106' AND
LFBNR = EBELN_T ."and
* ebeln = ebeln_t.
IF SY-SUBRC = 0.
IT_OUT-DEL_IND = 'X'.
ELSE.
IT_OUT-DEL_IND = ' '.
ENDIF.
SELECT SINGLE BUDAT FROM MKPF
INTO IT_OUT-BUDAT
WHERE MBLNR = EBELN_T ."MSEG-LFBNR.
IT_OUT-EXNUM = IT_CDTL-EXNUM.
IT_OUT-EXDAT = IT_CDTL-EXDAT.
IT_OUT-EXCCD = IT_CHDR-EXCCD.
IT_OUT-EXBAS = IT_CDTL-EXBAS.
IT_OUT-EXBED = IT_CDTL-EXBED.
IT_OUT-ECS = IT_CDTL-ECS.
IT_OUT-MATNR = IT_CDTL-MATNR.
IT_OUT-MAKTX = IT_CDTL-MAKTX.
IT_OUT-CHAPID = IT_CDTL-CHAPID.
IT_OUT-MENGE = IT_CDTL-MENGE.
IT_OUT-MEINS = IT_CDTL-MEINS.
APPEND IT_OUT.
* EX_NO = IT_CDTL-EXNUM.
ENDLOOP.
* Title Portion
IF REGTYP_1 = 'A'.
SET TITLEBAR 'BALAJI' WITH DB_CNT.
ELSEIF REGTYP_1 = 'C'.
SET TITLEBAR 'BALAJI1' WITH DB_CNT.
ENDIF.
AFIELD-COL_POS = 1.
AFIELD-FIELDNAME = 'SERIALNO'.
AFIELD-SELTEXT_L = 'INPUTS'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 2.
AFIELD-FIELDNAME = 'TEXT1'.
AFIELD-SELTEXT_L = 'TYPE OF DOC'.
AFIELD-JUST = 'L'.
AFIELD-DECIMALS_OUT = '0'.
AFIELD-NO_ZERO = 'X'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 3.
AFIELD-FIELDNAME = 'EXNUM'.
AFIELD-SELTEXT_L = 'DOC.NO'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 4.
AFIELD-FIELDNAME = 'EXDAT'.
AFIELD-SELTEXT_L = 'DOC.DATE'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 5.
AFIELD-FIELDNAME = 'NAME'.
AFIELD-SELTEXT_L = 'NAME OF THE SUPPLIER'.
AFIELD-NO_ZERO = 'X'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 6.
AFIELD-FIELDNAME = 'DDTEXT'.
AFIELD-SELTEXT_L = 'TYPE-OF-SUPPLIER'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 7.
AFIELD-FIELDNAME = 'EXCCD'.
AFIELD-SELTEXT_L = 'ECC OF THE SUPPLIER'.
AFIELD-NO_ZERO = 'X'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 8.
AFIELD-FIELDNAME = 'BUDAT'.
AFIELD-SELTEXT_L = 'INPUT RECV DATE'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 9.
AFIELD-FIELDNAME = 'EXBAS'.
AFIELD-SELTEXT_L = 'ASSESSABLE-VALUE'.
AFIELD-DO_SUM = 'X'.
AFIELD-JUST = 'R'.
AFIELD-DECIMALS_OUT = '2'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 10.
AFIELD-FIELDNAME = 'EXBED'.
AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN CENVAT'.
AFIELD-JUST = 'R'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 11.
AFIELD-FIELDNAME = 'ECS'.
AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN E-CESS'.
AFIELD-JUST = 'R'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 12.
AFIELD-FIELDNAME = 'MATNR'.
AFIELD-SELTEXT_L = 'MATERIAL-CODE'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 13.
AFIELD-FIELDNAME = 'MAKTX'.
AFIELD-SELTEXT_L = 'DESCRIPTION'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 14.
AFIELD-FIELDNAME = 'CHAPID'.
AFIELD-SELTEXT_L = 'TARIFF-ID'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 15.
AFIELD-FIELDNAME = 'MENGE'.
AFIELD-SELTEXT_L = 'QUANTITY'.
AFIELD-JUST = 'R'.
AFIELD-DO_SUM = ' '.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 16.
AFIELD-FIELDNAME = 'MEINS'.
AFIELD-SELTEXT_L = 'UOM'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 17.
AFIELD-FIELDNAME = 'DEL_IND'.
AFIELD-SELTEXT_L = 'Deleted'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
* * LAYOUT FOR ZEBRA CATLOG
LAYOUT_IN-COLWIDTH_OPTIMIZE = 'X'.
LAYOUT_IN-ZEBRA = 'X'.
LAYOUT_IN-GET_SELINFOS = 'X'.
LAYOUT_IN-CONFIRMATION_PROMPT = 'X'.
LAYOUT_IN-DETAIL_POPUP = 'X' .
* SORTCAT-decimals = '0'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_SAVE = G_SAVE
IS_VARIANT = GS_VARIANT
IT_FIELDCAT = FIELDCAT
IT_SORT = SORTCAT
IS_LAYOUT = LAYOUT_IN
IT_EVENTS = EVENTCAT
* I_BACKGROUND_ID = g_back_ground
TABLES
T_OUTTAB = IT_OUT.
*& Form TOP_OF_PAGE_LIST_HEADER
* text
* -->LIST_HEADERtext
FORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER TYPE SLIS_T_LISTHEADER.
DATA : HLINE TYPE SLIS_LISTHEADER,
TEXT(60) TYPE C.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
* WRITE 'ROOTS INDUSTRIES LTD' TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
SELECT SINGLE * FROM T001W WHERE WERKS = WERKS.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'PLANT :' TO TEXT.
WRITE WERKS TO TEXT+8.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-NAME1 TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-STRAS TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-ORT01 TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'DATE :' TO TEXT.
WRITE BUDAT-LOW TO TEXT+7.
IF BUDAT-HIGH NE ''.
WRITE 'TO' TO TEXT+18.
WRITE BUDAT-HIGH TO TEXT+22.
ENDIF.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
ENDFORM. "TOP_OF_PAGE_LIST_HEADER
*& Form ALV_EVENT_INIT
* text
FORM ALV_EVENT_INIT .
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
ALV_EVENT-FORM = 'ALV_TOP_OF_PAGE'.
APPEND ALV_EVENT TO EVENTCAT.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
ALV_EVENT-FORM = 'ALV_TOP_OF_LIST'.
APPEND ALV_EVENT TO EVENTCAT.
* CLEAR ALV_EVENT.
* ALV_EVENT-NAME = SLIS_EV_END_OF_LIST.
* ALV_EVENT-FORM = 'ALV_END_OF_LIST'.
* APPEND ALV_EVENT TO GT_EVENTS.
* CLEAR ALV_EVENT.
* ALV_EVENT-NAME = SLIS_EV_END_OF_PAGE.
* ALV_EVENT-FORM = 'ALV_END_OF_PAGE'.
* APPEND ALV_EVENT TO GT_EVENTS.
ENDFORM. "ALV_EVENT_INIT
*& Form ALV_TOP_OF_PAGE
* text
FORM ALV_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = LIST_HEADER
I_LOGO = 'ENJOYSAP_LOGO'.
ENDFORM. "ALV_TOP_OF_PAGE
*& Form BUILD_EVENT
* text
* -->P_GT_EVENTS[] text
FORM BUILD_EVENT USING P_EVENTS TYPE SLIS_T_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = P_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND INTO
ALV_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_USER_COMMAND TO ALV_EVENT-FORM.
APPEND ALV_EVENT TO P_EVENTS.
ENDIF.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_BEFORE_LINE_OUTPUT INTO
ALV_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_BEFORE_OUTPUT TO ALV_EVENT-FORM.
APPEND ALV_EVENT TO P_EVENTS.
ENDIF.
ENDFORM. " BUILD_EVENT
Reward if helpfull
Regards
Pavan

How do I get back to main screen after looking at Downloads?

This such a dumb question, but I've forgotten how to get back to the main screen after looking at downloads.

Close the Download Tab or Window(If you are using some addon) or only change the tab:
*[https://support.mozilla.org/en-US/kb/tabs-organize-websites-single-window Use tabs to organize lots of websites in a single window]
About downloads:
*[https://support.mozilla.org/en-US/kb/find-and-manage-downloaded-files Find and manage downloaded files]

Blue screen after Error 37: a bad filename or volume was encountered

I get a PAGEFAULT_IN_NONPAGEDAREA blue screen after I encounter multiple Error 37: a bad filename or volume was encountered.
Anyone encounter this issue and how to you send info to apple for them to fix their buggy code?
Their support of code which will run bug-free on vista seems to be lacking (I understand there are two parties to this marriage).
Help anyone?

I noticed a few days ago that (at least on my box) Quicktime seems to have "issues" with >31 characters anywhere in the file path.
Is it possible that you have some folder along the way to your movie that has more than 31 charaters?
Shorten if necessary and see if that works.
dual 2.7 G5 Mac OS X (10.4.5)

Selection-screen code error

hi all,
     i am trying to code selection screen. where in when i click on 1 pushbutton one field should be active and the other one should be invisible.
the code is syntactically correct but when i execute it . it is not working properly .
i am unable to find the error .
so can any one plz take some time and solve it. and plzzz let me know where i was wrong.
this is the code
parameters: mat1 type mara-matnr,
            lif1 type lfa1-lifnr.
selection-screen begin of line.
selection-screen pushbutton: (5)   lif user-command abc,
                             10(5) mat user-command dec.
selection-screen end of line.
data: f_1 type i value 1,
      s_1 type i.
at selection-screen output.
loop at screen.
    case screen-name.
      when 'mat1'.
        screen-active = f_1.
      when 'lif1'.
        screen-active = s_1.
    endcase.
    modify screen.
endloop.
at selection-screen.
if sy-ucomm = 'abc'.
    f_1 = 1.
    s_1 = 0.
elseif sy-ucomm = 'dec'.
    f_1 = 0.
    s_1 = 1.
endif.

Hi Amar,
You can try the following codes:
PARAMETERS: mat1 TYPE mara-matnr,
lif1 TYPE lfa1-lifnr.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON: (5) lif USER-COMMAND abc,
                           10(5) mat USER-COMMAND dec.
SELECTION-SCREEN END OF LINE.
DATA: f_1 TYPE i VALUE 1,
s_1 TYPE i.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF screen-name CS 'MAT1'.
      screen-input = f_1.
    ELSEIF screen-name CS 'LIF1'.
      screen-input = s_1.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.
AT SELECTION-SCREEN.
IF sy-ucomm = 'ABC'.
    f_1 = 1.
    s_1 = 0.
ELSEIF sy-ucomm = 'DEC'.
    f_1 = 0.
    s_1 = 1.
ENDIF.
Regards,
Hendy

When I click "back" button selection screen is not appearing

Dear All,
1) I have a "report" which takes some parameteres in the seclection screen ( standard 1000 ) and displayes a report. This is transported. Say the name is ZPRG1
2) We have copied ZPRG1 to ZPRG_temp and modified some logic and copied back to ZPRG1.
3) All looks fine but in ZPRG1 in SE80 it is not displaying screen "1000" listed. And when I pressed "back" button from the standard report menu it is going into "blank" screen first. and then when i click again it comes to the selection screen. I understand that some thing happened with GUI stuff but ran out of all ideas and coming here to get some help from you..
I am almost in a lost state.. can you please suggest me?
Thanks for your time.
Regards,
Kiran

Hi zhenglin gu,
Finally I found the reason.. still not conviced.. but the issue is happening when I write block with in the block. I am not convinced but it is true here..
Issue code******** ( Block with in block )
SELECTION-SCREEN BEGIN OF BLOCK CHECK1 WITH FRAME TITLE ext-t01.
*skip 1.
SELECTION-SCREEN BEGIN OF BLOCK CHECK2 WITH FRAME TITLE text-t00.
select-options: s_system for /BIC/AZSEUST0400-/BIC/ZSYSIDNT
                no-extension no intervals .
parameters:   P_USER   type /BIC/OIZSECUNAME OBLIGATORY.
select-options: S_PROF for zsecurity-value_1 no intervals.
SELECTION-SCREEN PUSHBUTTON 60(20) BUT1 USER-COMMAND PROF
                            VISIBLE LENGTH 25.
SELECTION-SCREEN END OF BLOCK CHECK2.
PARAMETERS: P_AB RADIOBUTTON GROUP gr1,
            P_CON RADIOBUTTON GROUP gr1.
SELECTION-SCREEN END OF BLOCK CHECK1.
Issue ********
No Issue ******** ( Outer block is comented)
*SELECTION-SCREEN BEGIN OF BLOCK CHECK1 WITH FRAME TITLE text-t01.
*skip 1.
SELECTION-SCREEN BEGIN OF BLOCK CHECK2 WITH FRAME TITLE text-t00.
select-options: s_system for /BIC/AZSEUST0400-/BIC/ZSYSIDNT
                no-extension no intervals .
parameters:   P_USER   type /BIC/OIZSECUNAME OBLIGATORY.
select-options: S_PROF for zsecurity-value_1 no intervals.
SELECTION-SCREEN PUSHBUTTON 60(20) BUT1 USER-COMMAND PROF
                            VISIBLE LENGTH 25.
SELECTION-SCREEN END OF BLOCK CHECK2.
PARAMETERS: P_AB RADIOBUTTON GROUP gr1,
            P_CON RADIOBUTTON GROUP gr1.
*SELECTION-SCREEN END OF BLOCK CHECK1.
End of Block2.
No Issue ********
I think I used several blocks with in blocks.. but I do not know why it is hapening.. in my case, i am fine with eliminating the outer block.. so removed and transporting it...
Message was edited by: Hari Kiran

How to get back to Selection Screen from Drill Down Screen in ALV

Hi All
How can I come back directly to the Selection Screen from the drill down screen of an ALV Report i.e. in an Interactive ALV Report when sy-lsind > 1.
Thanks
Kulpreet

Try to use ....
SET SCREEN 0.
LEAVE SCREEN.
Regards,
Rich Heilman

How to write in selection screen after the select option field?

Hi
Please help me with this...
i need to write format of date after the select option field in the selection screen.
its like..
date ___________ to ___________     <b>yyyymmdd</b>
points will be awarded..
thanx

Use selection-screen comment 1(31) text-005 -> this will give you format option.
See the below sysntax ,you have to use like this
Selection-screen begin of block b2 with frame title text-002.
selection-screen begin of line.
selection-screen comment 1(31) text-004.
parameter:        r_1   radiobutton group rad1.
selection-screen end of line.
selection-screen begin of line.
Aging Report
selection-screen comment 1(31) text-005.
parameter:        r_2   radiobutton group rad1.
selection-screen comment 40(30) text-003.
parameter: p_expir as checkbox.
selection-screen end of line.
selection-screen begin of line.
Materials with no Expiry Date
selection-screen comment 1(31) text-006.
parameter:        r_3   radiobutton group rad1.
selection-screen comment 40(30) text-007.
parameter : p_bin as checkbox ."default 'X'.
selection-screen end of line.
selection-screen end of block b2.
selection-screen end of block b0.

Language selection screen after every recharge

I have a 40GB 2nd generation Ipod. Every time I recharge it and power it back on it goes to the language selection screen. Is there anyway to fix this?
Thanks
-drauch
2G IPOD

Looks like it. I tried this and I had no luck: https://discussions.apple.com/message/7540488#7540488

Hide Tab in Selection Screen After Pressing Button

Hiii All..
My requirement is I have to disable the tab in the selection screen when the user presses the button 'Disable Tabstrip' which is present in Application toolbar..
And it should come back if the user presses another button 'Enable Tabstrip' and that time the above screen should hide.
I am showing u the screen..
Link : [https://www.filesanywhere.com/FS/M.aspx?v=8972698c58616eb771af]
If anyone knows then please help.
Regards,
Jhings.

Thanks For the reply Anju...
But the problem is.. this selection screen is not the default screen.. this is user defined screen.. and SY-UCOMM is not giving any value on the "AT SELECTION SCREEN OUTPUT" Event..
I am giving u the code.. How I defined this..
* This is screen where we are inclucing tab screen
SELECTION-SCREEN : BEGIN OF SCREEN 100.
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-005.
SELECTION-SCREEN : BEGIN OF LINE.
SELECTION-SCREEN : COMMENT 1(15) CUS_TXT.
SELECT-OPTIONS : CUST_ID FOR VBAK-KUNNR.
SELECTION-SCREEN : PUSHBUTTON 79(20) BUT1 USER-COMMAND CLICK1 VISIBLE LENGTH 20.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN : BEGIN OF LINE.
SELECTION-SCREEN : COMMENT 1(15) MAT_TXT.
SELECT-OPTIONS : MATNR FOR VBAP-MATNR.
SELECTION-SCREEN : PUSHBUTTON 79(20) BUT2 USER-COMMAND CLICK2 VISIBLE LENGTH 20.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN : BEGIN OF LINE.
SELECTION-SCREEN : COMMENT 1(15) CRE_TXT.
SELECT-OPTIONS : CRE_BY FOR VBAK-ERNAM.
SELECTION-SCREEN : PUSHBUTTON 79(20) BUT3 USER-COMMAND CLICK3 VISIBLE LENGTH 20.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN : BEGIN OF LINE.
PARAMETERS : A AS CHECKBOX USER-COMMAND UC.
SELECTION-SCREEN : COMMENT 5(33) CHK_TXT.
PARAMETERS:        NUM TYPE I MODIF ID M1.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN: END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF TABBED BLOCK T1 FOR 20 LINES.
SELECTION-SCREEN TAB (10) NAME1 USER-COMMAND UCOMM1 DEFAULT SCREEN 101.
SELECTION-SCREEN TAB (20) NAME2 USER-COMMAND UCOMM2 DEFAULT SCREEN 102.
SELECTION-SCREEN TAB (30) NAME3 USER-COMMAND UCOMM3 DEFAULT SCREEN 103.
SELECTION-SCREEN END OF BLOCK T1.
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2.
SELECTION-SCREEN : END OF SCREEN 100.
* These are subscreens
SELECTION-SCREEN : BEGIN OF SCREEN 101 AS SUBSCREEN.
SELECTION-SCREEN : BEGIN OF BLOCK B6 WITH FRAME TITLE TEXT-006.
PARAMETERS : CUS_NAM1(30) TYPE C,
             CONTACT1(12) TYPE C,
             CITY1(30) TYPE C.
SELECTION-SCREEN : SKIP.
SELECTION-SCREEN : PUSHBUTTON 1(20) BUT11 USER-COMMAND CLICK11 VISIBLE LENGTH 10.
SELECTION-SCREEN : PUSHBUTTON 25(20) BUT12 USER-COMMAND CLICK12 VISIBLE LENGTH 10.
SELECTION-SCREEN: END OF BLOCK B6.
SELECTION-SCREEN : END OF SCREEN 101.
SELECTION-SCREEN : BEGIN OF SCREEN 102 AS SUBSCREEN.
SELECTION-SCREEN : BEGIN OF BLOCK B7 WITH FRAME TITLE TEXT-007.
PARAMETERS : MAT_DES1(30) TYPE C MODIF ID M1,
             UNT1(12) TYPE C MODIF ID M1,
             MAT_TYP1(30) TYPE C MODIF ID M1.
SELECTION-SCREEN : SKIP.
SELECTION-SCREEN : PUSHBUTTON 1(20) BUT13 USER-COMMAND CLICK13 VISIBLE LENGTH 10.
SELECTION-SCREEN : PUSHBUTTON 25(20) BUT14 USER-COMMAND CLICK14 VISIBLE LENGTH 10.
SELECTION-SCREEN: END OF BLOCK B7.
SELECTION-SCREEN : END OF SCREEN 102.
SELECTION-SCREEN : BEGIN OF SCREEN 103 AS SUBSCREEN.
SELECTION-SCREEN : BEGIN OF BLOCK B8 WITH FRAME TITLE TEXT-008.
PARAMETERS : F_NAM1(30) TYPE C MODIF ID M1,
             L_NAM1(12) TYPE C MODIF ID M1,
             C_NO1(30) TYPE C MODIF ID M1.
SELECTION-SCREEN : SKIP.
SELECTION-SCREEN : PUSHBUTTON 1(20) BUT15 USER-COMMAND CLICK15 VISIBLE LENGTH 10.
SELECTION-SCREEN : PUSHBUTTON 25(20) BUT16 USER-COMMAND CLICK16 VISIBLE LENGTH 10.
SELECTION-SCREEN: END OF BLOCK B8.
SELECTION-SCREEN : END OF SCREEN 103.
Hope This could help u..
Regards,
Jhings

Edit screen after error message in module pool

Hello Experts,
In our scenario ,we have some checks over inputs given in a table control of module pool screen.Requirement is that after error message we need to display that record of table control in editable mode.
Thanks.

Thanks for the reply...The issue was resolved by dispaying information message and using EXIT to stop program flow.

My ipod touch is bricked i think stuck on apple sign but comes back on password screen after an hour or so!!!!

my ipod is bricked and jailbroken but when it is stuck on apple sign and wait for like a long time it comes back to password screen but it does not say safe mode or anything cant open cydia or anything. it started when i was in ifile it froze when i clicked on a file then i pressed home and it was frozen so i just turned it on and back on and stuck on the apple logo i was freaking out for like a day i need help please! do i have to delete ifile or sumthing i really do not want to update or restore i can still go to home screen and touch stuff by cant open cydia apps and i was freaked out is there a way to fix it? ps: gets stuck on apple logo for like and hour then goes to lockscreen and i can type my password in and stuff but cant touch any cydia apps if i did it just crashes so i can still do things like go to settings

Jailbreaking voids the Apple warranty and also means that you will not get any support from Apple, including from this Apple forum. Jailbreaking can't be discussed in this Apple forum.
Unauthorized modification of iOS has been a major source of instability, disruption of services, and other issues

Back to selection screen after error

Similar Messages

Maybe you are looking for