Hi,
Hi check this code you will get the output.Just copy and execute it...
Definiteli u will get the output
You will come to know that how to do the selection-screen on field validations..
If u use
at selection-screen on field event it will automatically de-highlight the other field..once u enter the value in the first field..Then the next field will be ready to be input...
execute the below code......
DATA:
*'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ',
w_str(36) TYPE c VALUE '0123456789+-*/!@#$%^&()_=><.?":;|{},'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE one.
PARAMETERS:
p_date LIKE sy-datum MODIF ID gr1,
p_uname TYPE sy-uname MODIF ID gr1.
SELECTION-SCREEN END OF BLOCK b1.
----
----
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE two.
PARAMETERS:
p_fname(10) TYPE c MODIF ID grp,
p_lname(10) TYPE c MODIF ID grp,
p_id(6) TYPE c MODIF ID grp.
SELECTION-SCREEN END OF BLOCK b2.
INITIALIZATION.
p_date = sy-datum.
one = 'Login Screen'.
two = 'Student Details'.
"----
"----
AT SELECTION-SCREEN OUTPUT.
IF p_uname NE sy-uname.
LOOP AT SCREEN.
IF screen-group1 EQ 'GRP'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
IF screen-group1 EQ 'GR1'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
"----
"----
AT SELECTION-SCREEN ON p_uname.
PERFORM validate_uname.
&----
*& Form validate_uname
&----
----
----
FORM validate_uname .
IF p_uname NE sy-uname.
MESSAGE 'Invalid User' TYPE 'E'.
EXIT.
ENDIF.
ENDFORM. " validate_uname
"----
"----
AT SELECTION-SCREEN ON BLOCK b2.
PERFORM validate_details.
*&----
*
*& Form validate_details
*&----
*
*----
*
*----
*
FORM validate_details.
IF p_fname EQ space OR p_lname EQ space OR p_id EQ space.
MESSAGE 'Please fill all the Fileds' TYPE 'S'.
ELSE.
IF p_fname CA w_str OR p_lname CA w_str.
MESSAGE 'Only Characters Allowed in Name Fields' TYPE 'S'.
ELSE.
MESSAGE 'Thank you,Press F8 to View the Details' TYPE 'S'.
ENDIF.
ENDIF.
ENDFORM. " validate_details
*start-of-selection.
"----
"----
END-OF-SELECTION.
IF p_fname IS INITIAL OR p_lname IS INITIAL OR p_id IS INITIAL.
MESSAGE 'Please Fill all the Fields' TYPE 'S'.
ELSE.
IF p_fname CA w_str OR p_lname CA w_str.
MESSAGE 'Only Characters Allowed in Name Fields' TYPE 'S'.
ELSE.
WRITE:/'User Name :', sy-uname,
/'First Name :', p_fname,
/'Last Name :', p_lname,
/'Employee ID :', p_id.
ENDIF.
ENDIF.
Regards
Kiran
Edited by: Kiran Saka on Feb 6, 2009 1:00 PM
Bluesky
