25 SAP ABAP Programming Examples Using Parameter Types
EXAMPLE 1: SINGLE INPUT PARAMETERS
PARAMETERS: P_NAME TYPE CHAR100.
START-OF-SELECTION.
WRITE: /'NAME: ',P_NAME.
EXAMPLE 2: ACCEPT MULTIPLE PARAMETERS
PARAMETERS: P_FNAME TYPE CHAR20, P_LNAME TYPE CHAR20.
START-OF-SELECTION.
WRITE: /'FIRSTNAME: ',P_FNAME.
WRITE: /.
WRITE: /'LASTNAME : ',P_LNAME.
EXAMPLE 3: PARAMETERS WITH DEFAULT VALUES
"PARAMETER NAME CANNOT EXCEED 8 CHARACTERS
PARAMETERS: PCITY TYPE CHAR20 DEFAULT 'LUDHIANA'.
PARAMETERS: PCOUNTRY TYPE CHAR20 DEFAULT 'INDIA'.
START-OF-SELECTION.
WRITE: /'YOU LIVE IN ',PCITY, 'AND COUNTRY IS ',PCOUNTRY.
EXAMPLE 4: RADIOBUTTON GROUP
PARAMETERS:
P_RED RADIOBUTTON GROUP G1,
P_BLUE RADIOBUTTON GROUP G1,
P_GREEN RADIOBUTTON GROUP G1,
P_MALE RADIOBUTTON GROUP G2,
P_FEMALE RADIOBUTTON GROUP G2.
START-OF-SELECTION.
IF P_RED = 'X'.
WRITE: /'YOUR FAVOURITE COLOR IS RED'.
ELSEIF P_BLUE = 'X'.
WRITE: /'YOUR FAVOURITE COLOR IS BLUE'.
ELSE.
WRITE: /'YOUR FAVOURITE COLOR IS GREEN'.
ENDIF.
IF P_MALE = 'X'.
WRITE: /'YOU ARE MALE'.
ELSE.
WRITE: /'YOU ARE FEMALE'.
ENDIF.
EXAMPLE 5: CHECKBOX AS INPUT
PARAMETERS: P_TERMS TYPE ABAP_BOOL AS CHECKBOX DEFAULT 'X'.
START-OF-SELECTION.
IF P_TERMS = 'X'.
WRITE: /'TERMS AND CONDITIONS ACCEPTED'.
ELSE.
WRITE: /'TERMS AND CONDITIONS NOT ACCEPTED'.
ENDIF.
EXAMPLE 6: DATE AS INPUT
START-OF-SELECTION.
WRITE: /'YOU SELECTED DATE: ', P_DATE.
EXAMPLE 7: TIME AS INPUT
START-OF-SELECTION.
WRITE: /'SYSTEM TIME IS: ',P_TIME.
EXAMPLE 8: SELECT-OPTION FOR MULTIPLE INPUTS
TABLES: MARA.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR.
START-OF-SELECTION.
LOOP AT S_MATNR.
WRITE: /'MATERIAL: ',S_MATNR-LOW.
ENDLOOP.
EXAMPLE 9: MANDATORY PARAMETER
PARAMETERS: P_VALUE TYPE CHAR20 OBLIGATORY.
START-OF-SELECTION.
WRITE: /'VALUE: ', P_VALUE.
EXAMPLE 10: VALIDATE INPUT
DATA: LV_LENGTH TYPE I.
PARAMETERS: P_NAME TYPE CHAR20.
START-OF-SELECTION.
LV_LENGTH = STRLEN( P_NAME ).
IF LV_LENGTH < 5.
WRITE: /'NAME SHOULD BE GREATER THAN EQUAL TO 5 CHARACTERS', P_NAME.
ELSEIF LV_LENGTH > 20.
WRITE: 'NAME SHOULD BE LESS THAN 20 CHARACTERS', P_NAME.
ELSE.
WRITE: 'NAME IS OF VALID LENGTH', P_NAME.
ENDIF.
EXAMPLE 11: ONLY NUMERIC INPUT
PARAMETERS: P_NUM TYPE I.
START-OF-SELECTION.
WRITE: /'THIS VALUE IS ONLY NUMERIC'.
EXAMPLE 12: INPUT DATE RANGE
SELECT-OPTIONS: P_DATE FOR SY-DATUM.
START-OF-SELECTION.
WRITE: /'DATE VALUE: ', P_DATE.
EXAMPLE 13: DISABLE INPUT
PARAMETERS: p_dis TYPE char20 MODIF ID dis.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name = 'P_DIS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name = 'P_DIS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
Comments
Post a Comment