Validation of login screen in WebDynpro ABAP

Question

Dear All,
I have created a login screen using WebDynpro ABAP, but am not able to validate user name and password.
Please help in this with coding and if possible with samll example.
Thanks & Regards,
Tazeer KS.

Answer 1

Hi Tazeer, i have posted on scribd this document, step by step webdynpro login application,
pls go through the following link
http://www.scribd.com/doc/50261280/Login-Application-in-webdynpro
Step1:
Create 1 node in component controller and bind the attributes of dictionary structure USR02
Step 2: Select the required fields, bname and bcode,
Step3: Create Main View as shown, and bind the context view and component  node and bind the input fields. 
Step4:
Create second view for navigation.
Note:
First main view is outbound.
Second view is inbound.
method ONACTIONLOGIN .
  TYPES : BEGIN OF ty_usr02,
            bname TYPE USR02-bname,
            bcode TYPE USR02-BCODE,
          END OF ty_usr02.
  DATA it_usr02 TYPE TABLE OF ty_usr02.
  DATA lo_nd_login TYPE REF TO if_wd_context_node.
  DATA lo_el_login TYPE REF TO if_wd_context_element.
  DATA ls_login TYPE wd_this->Element_login.
  DATA lv_bname TYPE wd_this->Element_login-bname.
  DATA lv_bcode TYPE wd_this->Element_login-bcode.
navigate from <CONTEXT> to <LOGIN> via lead selection
  lo_nd_login = wd_context->get_child_node( name = wd_this->wdctx_login ).
@TODO handle non existant child
IF lo_nd_login IS INITIAL.
ENDIF.
get element via lead selection
  lo_el_login = lo_nd_login->get_element( ).
alternative access  via index
lo_el_login = lo_nd_login->get_element( index = 1 ).
@TODO handle not set lead selection
  IF lo_el_login IS INITIAL.
  ENDIF.
get single attribute
  lo_el_login->get_attribute(
    EXPORTING
      name =  `BNAME`
    IMPORTING
      value = lv_bname ).
get single attribute
  lo_el_login->get_attribute(
    EXPORTING
      name =  `BCODE`
    IMPORTING
      value = lv_bcode ).
IF lv_bname is INITIAL and lv_bcode is INITIAL.
  else.
SELECT bname bcode from usr02 INTO TABLE it_usr02 WHERE bname = lv_bname
                                                  and bcode = lv_bcode.
ENDIF.
  wd_this->fire_out1_plg(
endmethod.
Hope it might help you,
Get back to me if your issue is not solved.
Thank you