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.
No comments:
Post a Comment