Announcement:
wanna exchange links? contact me at sapchatroom@gmail.com.
Posted by
Admin at
Thanks again Terry!
| | | ---------------Original Message--------------- From: TerryB Sent: Monday, August 01, 2011 7:00 PM Subject: Call subscreen of selection screen on validation error Mike, I don't think you'll have to do the EXPORT/IMPORT thing-I was focusing more on the assignment of the tab name to the block name. But if you think it would help, here is a larger snippet of code that includes the data definition and the EXPORT statement: ************************************************************************ * S E L E C T I O N - S C R E E N * ************************************************************************ SELECTION-SCREEN BEGIN OF SCREEN 1010 AS SUBSCREEN. PARAMETERS p_jappd TYPE flag RADIOBUTTON GROUP g1 DEFAULT 'X'. PARAMETERS p_jappr TYPE flag RADIOBUTTON GROUP g1. PARAMETERS p_jerr TYPE flag RADIOBUTTON GROUP g1. SELECTION-SCREEN SKIP. SELECTION-SCREEN END OF SCREEN 1010. SELECTION-SCREEN BEGIN OF SCREEN 1030 AS SUBSCREEN. PARAMETERS p_jcpy TYPE flag RADIOBUTTON GROUP g3 DEFAULT 'X'. PARAMETERS p_spcc TYPE flag RADIOBUTTON GROUP g3. PARAMETERS p_mass TYPE flag RADIOBUTTON GROUP g3. SELECTION-SCREEN SKIP. PARAMETERS p_path TYPE flag RADIOBUTTON GROUP g3. PARAMETERS p_pathd TYPE flag RADIOBUTTON GROUP g3. PARAMETERS p_burn TYPE flag RADIOBUTTON GROUP g3. PARAMETERS p_burnd TYPE flag RADIOBUTTON GROUP g3. PARAMETERS p_burnr TYPE flag RADIOBUTTON GROUP g3. SELECTION-SCREEN END OF SCREEN 1030. SELECTION-SCREEN BEGIN OF SCREEN 1040 AS SUBSCREEN. PARAMETERS p_ntxt TYPE flag RADIOBUTTON GROUP g4 DEFAULT 'X'. PARAMETERS p_ndst TYPE flag RADIOBUTTON GROUP g4. PARAMETERS p_nsnd TYPE flag RADIOBUTTON GROUP g4. PARAMETERS p_nrsd TYPE flag RADIOBUTTON GROUP g4. SELECTION-SCREEN END OF SCREEN 1040. SELECTION-SCREEN BEGIN OF TABBED BLOCK tabb1 FOR 10 LINES. SELECTION-SCREEN TAB (11) tabs1 USER-COMMAND tabs1 DEFAULT SCREEN 1010. *SELECTION-SCREEN TAB (11) tabs2 USER-COMMAND tabs2 * DEFAULT SCREEN 1020. "R3DK907880 SELECTION-SCREEN TAB (11) tabs3 USER-COMMAND tabs3 DEFAULT SCREEN 1030. SELECTION-SCREEN TAB (12) tabs4 USER-COMMAND tabs4 DEFAULT SCREEN 1040. SELECTION-SCREEN END OF BLOCK tabb1. DATA s_tabb1 LIKE tabb1. ************************************************************************ * L O A D - O F - P R O G R A M * ************************************************************************ LOAD-OF-PROGRAM. d_repid = sy-repid. * Set selection screen tab titles. tabs1 = text-001. * tabs2 = text-002. "R3DK907880 tabs3 = text-003. tabs4 = text-004. ************************************************************************ * A T S E L E C T I O N - S C R E E N * ************************************************************************ AT SELECTION-SCREEN OUTPUT. * Note: The selection screen loses track of which tab it was on upon * returning from a called transaction. This import/export mess is to * help it remember. IMPORT s_tabb1 FROM MEMORY. IF NOT s_tabb1 IS INITIAL. tabb1 = s_tabb1. ENDIF. AT SELECTION-SCREEN. CLEAR s_tabb1. EXPORT s_tabb1 TO MEMORY. IF sy-ucomm = 'DOCU'. "Info button on toolbar CALL FUNCTION 'DSYS_SHOW_FOR_F1HELP' EXPORTING dokclass = 'RE' dokname = d_repid EXCEPTIONS class_unknown = 1 object_not_found = 2 OTHERS = 3. ENDIF. ************************************************************************ * S T A R T - O F - S E L E C T I O N * ************************************************************************ START-OF-SELECTION. s_tabb1 = tabb1. EXPORT s_tabb1 TO MEMORY. Cheers, Terry | | __.____._ Copyright © 2011 Toolbox.com and message author. Toolbox.com 4343 N. Scottsdale Road Suite 280, Scottsdale, AZ 85251 | | Popular White Papers In the Spotlight _.____.__ |