Sample Code : Selection Screen

Sample code





REPORT ztrm_login.

DATA : c_set_true TYPE c VALUE '1'.
DATA : c_set_false TYPE c VALUE '0'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS : r_g1 RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND chk.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS : p_userid TYPE ztrm_login-user_no MODIF ID log OBLIGATORY.
PARAMETERS : p_pwd TYPE ztrm_login-password MODIF ID log .
SELECTION-SCREEN : BEGIN OF LINE,
PUSHBUTTON 31(10) push1 USER-COMMAND push MODIF ID log.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN END OF BLOCK b2 .

PARAMETERS : r_g2 RADIOBUTTON GROUP g1 .

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS: p_fname TYPE ztrm_login-first_name MODIF ID reg,
p_mname TYPE ztrm_login-middle_name MODIF ID reg,
p_lname TYPE ztrm_login-last_name MODIF ID reg,
p_mob TYPE ztrm_login-mobile MODIF ID reg,
p_pan TYPE ztrm_login-pan_card MODIF ID reg,
p_adh TYPE ztrm_login-adhar_card MODIF ID reg,
p_dob TYPE ztrm_login-date_of_birth MODIF ID reg,
p_mail TYPE ztrm_login-zemail MODIF ID reg,
p_utype TYPE ztrm_login-zuser_ty MODIF ID reg,
p_pwd2 TYPE ztrm_login-password MODIF ID reg.

SELECTION-SCREEN: BEGIN OF LINE,
PUSHBUTTON 31(10) push2 USER-COMMAND push MODIF ID reg.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN END OF BLOCK b1.

INITIALIZATION.
push1 = 'LOG-IN'.
push2 = 'REGISTER'.

AT SELECTION-SCREEN OUTPUT.

IF r_g1 = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'REG'.

screen-required = c_set_false.
screen-invisible = c_set_true.
screen-active = c_set_false.
screen-input = c_set_false.
MODIFY SCREEN.
CONTINUE.
ELSEIF screen-group1 = 'LOG'.
screen-required = '2'.
screen-invisible = c_set_false.
screen-active = c_set_true.
screen-input = c_set_true.
MODIFY SCREEN.
CONTINUE.

ENDIF.
ENDLOOP.
ELSEIF r_g2 = 'X' .
LOOP AT SCREEN.
IF screen-group1 = 'LOG'.
screen-required = c_set_false.
screen-invisible = c_set_true.
screen-active = c_set_false.
screen-input = c_set_false.
MODIFY SCREEN.
CONTINUE.
ELSEIF screen-group1 = 'REG'.
IF screen-name = 'P_FNAME' OR screen-name = 'P_LNAME'
OR screen-name = 'P_MOB' OR screen-name = 'P_PAN'
OR screen-name = 'P_ADH' OR screen-name = 'P_PWD2'.
screen-required = '2'.
ENDIF.
screen-invisible = c_set_false.
screen-active = c_set_true.
screen-input = c_set_true.
MODIFY SCREEN.
CONTINUE.

ENDIF.
ENDLOOP.
ENDIF.