topic Re: Sub screen in Application Development and Automation Discussions

5)Go to the layout of the main screen in which you have to create the subscreen and define a subscreen area in it.(There would be a push button on the left hand side for subscreen area.Click on it and drag to make the desired subscreen area in the main screen and give a name to it.The area selected should be greater than or equal to the subscreen size.).

6) In the PBO of the main screen,The following statement has to written.

CALL SUBSCREEN INCLUDING SY-CPROG <'sub screen number'>.(This statement is to define and call the subscreen in the desired main screen for the subscreen area defined in the main screen in step 5. SY-CPROG gives the current program name.You can either hardcode the program name instead of SY-CPROG).

7)In the PAI of the main screen,the following statement has to be written.

CALL SUBSCREEN .(This statement is used to call the subscreen in PAI).

If you are using SE51 then till step 5 it is the same procedure.After that you should go to SE80 and add the screen in the program and the rest of the procedure is same.

Re: Sub screen

Former Member — Mon, 26 Nov 2007 13:10:27 GMT

try this.

parameters screen1 radiobutton group scr default 'X'.

parameters screen2 radiobutton group scr.

parameters screen3 radiobutton group scr.

parameters screen4 radiobutton group scr.

CALL SCREEN 100.

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

module USER_COMMAND_0100 input.

IF SY-UCOMM = 'DISP' AND SCREEN1 = 'X'.

LEAVE TO SCREEN 200.

ELSEIF SY-UCOMM = 'DISP' AND SCREEN2 = 'X'.

LEAVE TO SCREEN 300.

ELSEIF SY-UCOMM = 'DISP' AND SCREEN3 = 'X'.

LEAVE TO SCREEN 400.

......

.....

endmodule. " USER_COMMAND_0100 INPUT

u give for all radiobuttons.

here u create a screen with a command button with fcode 'DISP' and the design the screen which r called in the program.

the function of the code is that when u select a radio button and press the command button the screen is called.

i think this is ur requirement.

Re: Sub screen

Former Member — Mon, 26 Nov 2007 13:12:24 GMT

Subscreens

Subscreens allow you to embed one screen within another at runtime. The term subscreen applies both to the screen that you embed, and the area on the main screen in which you place it. This section is about subscreen areas. The actual screens that you embed are called subscreen screens. When you use a subscreen, the flow logic of the embedded screen is also embedded in the flow logic of the main screen. Using subscreens on screens is like using includes in ABAP programs.

Subscreens allow you to expand the content of a screen dynamically at runtime. For example, screen exits, which are part of the enhancement concept, use the subscreen technique. Some complex screen elements, like tabstrip controls, also use them.

To use a subscreen, you must:

Define the subscreen area(s) on a screen

Define suitable subscreen screens

Include the subscreen screen in the subscreen area.

http://help.sap.com/saphelp_nw04/helpdata/en/9f/dbabfe35c111d1829f0000e829fbfe/content.htm

http://sap.niraj.tripod.com/id40.html

A demo program to create subscreen in your ABAP Program

A demo program to create subscreen in your ABAP Program
This report will display the user last login date and time.
Subscreen selection 1 : User Name
2 : Last Login Date
3 : Class Belong To
Written by : SAP Basis, ABAP Programming and Other IMG Stuff
http://www.sap-img.com

REPORT ZSUBSCREEN.

TABLES: USR02, "Logon data

SSCRFIELDS. "FIELDS ON SELECTION SCREENS

*----

SUBSCREEN 1

*----

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-010.

SELECT-OPTIONS: USERNAME FOR USR02-BNAME.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN END OF SCREEN 100.

*----

SUBSCREEN 2

*----

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-020.

SELECT-OPTIONS: LASTLOGI FOR USR02-TRDAT.

SELECTION-SCREEN END OF BLOCK B2.

SELECTION-SCREEN END OF SCREEN 200.

*----

SUBSCREEN 3

*----

SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-030.

SELECT-OPTIONS: CLASSTYP FOR USR02-CLASS.

SELECTION-SCREEN END OF BLOCK B3.

SELECTION-SCREEN END OF SCREEN 300.

STANDARD SELECTION SCREEN FOR SCROLLING LEFT AND RIGHT

SELECTION-SCREEN: FUNCTION KEY 1,

FUNCTION KEY 2.

SELECTION-SCREEN: BEGIN OF TABBED BLOCK SUB FOR 15 LINES,

END OF BLOCK SUB.

START-OF-SELECTION.

SELECT * FROM USR02 WHERE BNAME IN USERNAME

AND ERDAT IN LASTLOGI

AND CLASS IN CLASSTYP.

WRITE: / 'User ', USR02-BNAME,

'Last Login Date ', USR02-TRDAT,

'Last Login Time ', USR02-LTIME,

'CLASS ', USR02-CLASS.

ENDSELECT.

END-OF-SELECTION.

INITIALIZATION.

SCREEN ICON LEFT AND RIGHT

SSCRFIELDS-FUNCTXT_01 = '@0D@'.

SSCRFIELDS-FUNCTXT_02 = '@0E@'.

SUB-PROG = SY-REPID.

SUB-DYNNR = 100.

AT SELECTION-SCREEN.

CASE SY-DYNNR.

WHEN 100.

IF SSCRFIELDS-UCOMM = 'FC01'.

SUB-DYNNR = 300.

ELSEIF SSCRFIELDS-UCOMM = 'FC02'.

SUB-DYNNR = 200.

ENDIF.

WHEN 200.

IF SSCRFIELDS-UCOMM = 'FC01'.

SUB-DYNNR = 100.

ELSEIF SSCRFIELDS-UCOMM = 'FC02'.

SUB-DYNNR = 300.

ENDIF.

WHEN 300.

IF SSCRFIELDS-UCOMM = 'FC01'.

SUB-DYNNR = 200.

ELSEIF SSCRFIELDS-UCOMM = 'FC02'.

SUB-DYNNR = 100.

ENDIF.

ENDCASE.

http://abapcode.blogspot.com/2007/05/demo-program-to-create-subscreen-in.html

Reward if usefull