Hi ,
Need to code for predefined username and pwd ...max attempts 3......if username and pwd is correct then jump to next screen .....But not getting desired output..........................
TABLES : ZEMP .
DATA : WA TYPE ZEMP ,
PASSWORD ,
USERNAME(10) type c ,
COUNT TYPE I VALUE 1 ,
DATA TYPE SY-DATUM ,
FLAG .
*&---------------------------------------------------------------------*
*& Module INP_210 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE INP_210 INPUT.
*CASE SY-UCOMM .
IF SY-UCOMM ='S'.
* WHEN 'S'.
SELECT SINGLE * FROM ZEMP INTO WA WHERE EMPID = ZEMP-EMPID . " MSG CODE WHEN DATA IS INSERTED DISPALY DATA INSERTED WITH EMPID
" AND WHEN INSERT THE DATA WITH SAME EMPID WHICH IS DERE IN SYSTEM DEN DATA SHUD BE UPDATED
* " DISPLAY MESG DATA UPDATAED ,,TO DISPLAY ID IN IN SE91 MSG USE &1
IF SY-SUBRC = 0.
FLAG = 'X' .
ELSE .
CLEAR FLAG .
ENDIF .
MODIFY ZEMP . " MODIFY KEYWORD PERFORM BOTH INSERT AND UPDATE
IF FLAG = 'X' .
*
MESSAGE S027(YMSG) WITH ZEMP-EMPID. " IF ID EXIST THAN UPDATED
*
ELSE .
MESSAGE S028(YMSG) WITH ZEMP-EMPID. " DATA INSERTED " WITH ZEMP-EMPID WILL DISPLAY ID IN MSG
ENDIF .
ENDIF .
*WHEN 'R'.
IF SY-UCOMM = 'R'.
CLEAR ZEMP .
ENDIF .
IF SY-UCOMM = 'E' .
*WHEN'E'.
LEAVE PROGRAM .
ENDIF .
*ENDCASE .
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module INP_110 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
" INP_110 INPUT
*&---------------------------------------------------------------------*
*& Module INP1_210 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE INP1_210 INPUT.
IF SY-UCOMM = 'CN' .
LEAVE PROGRAM .
ENDIF .
ENDMODULE. " INP1_210 INPUT
*&---------------------------------------------------------------------*
*& Module OUT_210 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE OUT_210 OUTPUT.
IF SY-UCOMM = 'S'.
SET TITLEBAR 'TITLE1'.
ENDIF .
IF SY-UCOMM = 'R'.
SET TITLEBAR 'TITLE2'.
ENDIF .
ENDMODULE. " OUT_210 OUTPUT
*&---------------------------------------------------------------------*
*& Module INP_110 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE INP_110 INPUT.
CASE SY-UCOMM.
WHEN 'LOGIN'.
IF USERNAME = 'SAPUSER' AND PASSWORD = 'VZEN@123'.
IF SY-SUBRC = 0.
CALL SCREEN 210 .
* CALL TRANSACTION 'SE11' AND SKIP FIRST SCREEN.
CLEAR: USERNAME, PASSWORD.
ENDIF.
ELSEIF COUNT <= 3.
COUNT = COUNT + 1.
MESSAGE 'PLEASE ENTER CORRECT USER NAME OR PASSWORD' TYPE 'E'.
ELSEIF COUNT > 3.
* DATE = SY-DATUM + 1.
MESSAGE 'PASSWORD TOO MANY ATEMPTS NOT POSSIBLE' TYPE 'E'.
ENDIF.
ENDCASE .
ENDMODULE. " INP_110 INPUT