ABAP - Sample Program On Password.

REPORT zpassword.


SELECTION-SCREEN BEGIN OF SCREEN 500 AS WINDOW TITLE title.

Parameters: p_name like sy-uname,
p_pas like sy-uname lower case.
SELECTION-SCREEN skip 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(70) text-001.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF SCREEN 500.

title = 'HAI VENKAT LOGIN PLEASE'.

CALL SELECTION-SCREEN '0500' STARTING AT 10 10 ending at 70 14.


data: begin of it_user occurs 0,
name like sy-uname,
password like sy-uname,
end of it_user.

it_user-name = 'venkat'.
it_user-password = 'venkat'.
append it_user.

it_user-name = 'srinivas'.
it_user-password = 'srinivas'.
append it_user.

it_user-name = 'preethi'.
it_user-password = 'preethi'.
append it_user.

it_user-name = 'vidya'.
it_user-password = 'vidya'.
append it_user.


AT SELECTION-SCREEN OUTPUT.
loop at screen.
check screen-name eq 'P_PAS'.
move: 1 to screen-invisible.
modify screen.
endloop.

start-of-selection.

if p_pas = 'venkat'.
write:/ 'venkat this is working'.
endif.