SOURCE+CODE (1)

Download as docx, pdf, or txt
Download as docx, pdf, or txt
You are on page 1of 1

*&---------------------------------------------------------------------*

*& Report ZDCHECKBOX


*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZDCHECKBOX.

PARAMETERS : P_D1 TYPE I DEFAULT 100 OBLIGATORY,


P_D2 TYPE I DEFAULT 20 OBLIGATORY.
* P_CB1 AS CHECKBOX,
* P_CB2 AS CHECKBOX,
* P_CB3 AS CHECKBOX,
* P_CB4 AS CHECKBOX DEFAULT 'X'.

SELECTION-SCREEN BEGIN OF LINE.


SELECTION-SCREEN POSITION 05.
PARAMETERS P_CB1 AS CHECKBOX.
SELECTION-SCREEN COMMENT 07(08) TEXT-001.
SELECTION-SCREEN POSITION 20.
PARAMETERS P_CB2 AS CHECKBOX.
SELECTION-SCREEN COMMENT 22(08) TEXT-002.
SELECTION-SCREEN POSITION 35.
PARAMETERS P_CB3 AS CHECKBOX.
SELECTION-SCREEN COMMENT 37(08) TEXT-003.
SELECTION-SCREEN POSITION 50.
PARAMETERS P_CB4 AS CHECKBOX DEFAULT 'X'..
SELECTION-SCREEN COMMENT 52(08) TEXT-004.

SELECTION-SCREEN END OF LINE.

DATA LV_V1 TYPE I.

IF P_CB1 ='X'.
LV_V1 = P_D1 + P_D2.
WRITE :/ ' SUM RESULT IS --> ', LV_V1.
ENDIF.

IF P_CB2 ='X'.
LV_V1 = P_D1 - P_D2.
WRITE :/ ' SUBTRACTION RESULT IS --> ', LV_V1.
ENDIF.

IF P_CB3 ='X'.
LV_V1 = P_D1 * P_D2.
WRITE :/ ' PRODUCT RESULT IS --> ', LV_V1.
ENDIF.

IF P_CB4 ='X'.
LV_V1 = P_D1 / P_D2.
WRITE :/ ' DIVISION RESULT IS --> ', LV_V1.
ENDIF.

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy