SEPTEMBER 25

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0120  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0120 OUTPUT.
  SET PF-STATUS '120'.
  SET TITLEBAR '120'.

ENDMODULE.                 " STATUS_0120  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0120  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0120 INPUT.
  CASE SY-UCOMM.

    WHEN 'RESET'.
      CLEAR: USER_ID , PASSWORD.

    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'BACK'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 1000.

    WHEN 'DISPLAY'.
      SELECT SINGLE DEPT_NAME FROM ZPROJECT_MGR INTO TEMP_MGR_DEPT
        WHERE MGR_ID = USER_ID.

      SELECT SINGLE MGR_ID FROM ZPROJECT_MGR INTO TEMP_ID
        WHERE MGR_ID = USER_ID.

      SELECT SINGLE PASSCODE FROM ZPROJECT_MGR INTO  TEMP_PASS
         WHERE MGR_ID = USER_ID.

      IF USER_ID EQ TEMP_ID AND PASSWORD EQ TEMP_PASS.
        MESSAGE 'MANAGER LOGIN' TYPE 'S'.
        CLEAR : TEMP_ID , TEMP_PASS.
        CALL SCREEN 0125.
      ELSEIF USER_ID EQ TEMP_ID AND PASSWORD EQ '   '.
        MESSAGE I000(ZMSG_EAS).
      ELSEIF USER_ID EQ TEMP_ID AND NOT PASSWORD EQ TEMP_PASS.
        CLEAR PASSWORD.
        MESSAGE I001(ZMSG_EAS).
      ELSE.
        CLEAR: USER_ID , PASSWORD.
        MESSAGE I002(ZMSG_EAS).
      ENDIF.
      CLEAR : TEMP_ID , TEMP_PASS.

  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0120  INPUT

Output:

manager login screen

login ID and password