Scribd
Upload
31 views18 pages

Prabhu Sap

This document contains code samples demonstrating the use of different selection screen components in ABAP programs, including checkboxes, radio buttons, pushbuttons, comments, and screens. It shows how to define these components on the selection screen and process user input from them using the AT SELECTION-SCREEN logic.

Uploaded by

King Maker
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
31 views18 pages

Prabhu Sap

This document contains code samples demonstrating the use of different selection screen components in ABAP programs, including checkboxes, radio buttons, pushbuttons, comments, and screens. It shows how to define these components on the selection screen and process user input from them using the AT SELECTION-SCREEN logic.

Uploaded by

King Maker
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

Screen program.

REPORT ZTT_TEST . SELECTION-SCREEN BEGIN OF SCREEN 100 TITLE T1. SELECTION-SCREEN BEGIN OF BLOCK B1. PARAMETERS : CH1 AS CHECKBOX, CH2 AS CHECKBOX, CH3 AS CHECKBOX. SELECTION-SCREEN END OF BLOCK B1. SELECTION-SCREEN BEGIN OF BLOCK B2. PARAMETERS : RB1 RADIOBUTTON GROUP A, RB2 RADIOBUTTON GROUP A, RB3 RADIOBUTTON GROUP A. SELECTION-SCREEN END OF BLOCK B2. SELECTION-SCREEN PUSHBUTTON /10(10) LB1 USER-COMMAND PB1. SELECTION-SCREEN END OF SCREEN 100. SELECTION-SCREEN BEGIN OF SCREEN 200 as WINDOW TITLE T2. PARAMETERS : D(10), E(10), F(10). SELECTION-SCREEN END OF SCREEN 200. initialization. T1 = 'SELECT CHECKBOXES AND RADIOBUTTONS'. T2 = 'PARAMETERS'. LB1 = 'display'. CALL SCREEN 100. at selection-screen. case sy-ucomm. WHEN 'PB1'. CALL SELECTION-SCREEN 200. ENDCASE.

LSP PROGRAM.
REPORT ZTT_TEST . PARAMETERS : A(10), B(10). SELECTION-SCREEN PUSHBUTTON /10(10) LB1 USER-COMMAND PB1. INITIALIZATION. LB1 = 'PRINT A'. AT SELECTION-SCREEN. CASE SY-UCOMM. WHEN 'PB1'. LEAVE TO LIST-PROCESSING. WRITE :/ A, B. ENDCASE.

USING SELECTION-SCREEN SKIP.


REPORT ZTT_TEST . PARAMETERS : A(10), B(10). SELECTION-SCREEN PUSHBUTTON /10(10) LB1 USER-COMMAND PB1. selection-screen skip. SELECTION-SCREEN PUSHBUTTON /10(10) LB2 USER-COMMAND PB2. INITIALIZATION. LB1 = 'PRINT A'. lb2 = 'EXIT'. AT SELECTION-SCREEN. CASE SY-UCOMM. WHEN 'PB1'. LEAVE TO LIST-PROCESSING. WRITE :/ A, B. WHEN 'PB2'. LEAVE PROGRAM. ENDCASE.

SELECTION-SCREEN ULINE.
REPORT ZTT_TEST . PARAMETERS : A(10), B(10). SELECTION-SCREEN PUSHBUTTON /10(10) LB1 USER-COMMAND PB1. selection-screen ULINE. SELECTION-SCREEN PUSHBUTTON /10(10) LB2 USER-COMMAND PB2. INITIALIZATION. LB1 = 'PRINT A'. lb2 = 'EXIT'. AT SELECTION-SCREEN. CASE SY-UCOMM. WHEN 'PB1'. LEAVE TO LIST-PROCESSING. WRITE :/ A, B. WHEN 'PB2'. LEAVE PROGRAM. ENDCASE.

SELECTION-SCREEN FUNCTON KEYS.


REPORT ZTT_TEST . TABLES sscrfields. PARAMETERS : A(10), B(10). SELECTION-SCREEN FUNCTION KEY SELECTION-SCREEN FUNCTION KEY SELECTION-SCREEN FUNCTION KEY SELECTION-SCREEN FUNCTION KEY SELECTION-SCREEN FUNCTION KEY INITIALIZATION. SSCRFIELDS-FUNCTXT_01 SSCRFIELDS-FUNCTXT_02 SSCRFIELDS-FUNCTXT_03 SSCRFIELDS-FUNCTXT_04 SSCRFIELDS-FUNCTXT_05 AT SELECTION-SCREEN. CASE SY-UCOMM. WHEN 'FC02'. = = = = = ' ' ' ' ' 1. 2. 3. 4. 5.

SE11 '. SE80 '. SE37 '. SE38 '. LEAVE PROGRAM '.

CALL TRANSACTION WHEN 'FC01'. CALL TRANSACTION WHEN 'FC03'. CALL TRANSACTION WHEN 'FC04'. CALL TRANSACTION WHEN 'FC05'. LEAVE PROGRAM. ENDCASE.

'SE80'. 'SE11'. 'SE37'. 'SE38'.

PROGRAM TO CALL SELECTIONSCREEN WITH PUSHBUTTONS.


REPORT ZTT_TEST . SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT 10(15) LB1. PARAMETERS : A(10). SELECTION-SCREEN COMMENT 40(15) LB2. PARAMETERS : B(10). SELECTION-SCREEN END OF LINE. SELECTION-SCREEN PUSHBUTTON 10(10) LB3 USER-COMMAND PB1. SELECTION-SCREEN SKIP. SELECTION-SCREEN PUSHBUTTON /10(10) LB5 USER-COMMAND PB3. SELECTION-SCREEN SKIP. SELECTION-SCREEN PUSHBUTTON /10(10) LB4 USER-COMMAND PB2. SELECTION-SCREEN BEGIN OF SCREEN 200 AS WINDOW TITLE T2. SELECTION-SCREEN BEGIN OF BLOCK B1. PARAMETERS : CH1 AS CHECKBOX, CH2 AS CHECKBOX, CH3 AS

CHECKBOX. SELECTION-SCREEN END OF BLOCK B1. SELECTION-SCREEN BEGIN OF BLOCK B2. PARAMETERS : RB1 RADIOBUTTON GROUP A, RB2 RADIOBUTTON GROUP A, RB3 RADIOBUTTON GROUP A. SELECTION-SCREEN END OF BLOCK B2. SELECTION-SCREEN END OF SCREEN 200. INITIALIZATION. LB1 = 'ENTER A VALUE'. LB2 = 'ENTER B VALUE'. LB3 = 'DISPLAY'. LB4 = 'EXIT'. LB5 = 'CALL NEXT'. AT SELECTION-SCREEN. CASE SY-UCOMM. WHEN 'PB1'. LEAVE TO LIST-PROCESSING. WRITE : A, B. IF CH1 = 'X'. LEAVE TO LIST-PROCESSING. WRITE 'FIRST CHECKBOX IS SELECTED'. ENDIF. IF CH2 = 'X'. WRITE :/ 'SECOND CHECKBOX IS SELECTED'. ENDIF. IF CH3 = 'X'. WRITE :/ 'THIRD CHECKBOX IS SELECTED'. ENDIF. IF RB1 = 'X'. WRITE :/ 'FIRST RADIOBUTTON'. ELSEIF RB2 = 'X'. WRITE :/ 'SECOND RADIOBUTTON'. ELSEIF RB3 = 'X'. WRITE :/ 'THIRD RADIOBUTTON'. ENDIF. WHEN 'PB2'. LEAVE PROGRAM. WHEN 'PB3'. CALL SELECTION-SCREEN 200. ENDCASE.

You might also like