OCTOBER 11

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0140  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0140 OUTPUT.
  SET PF-STATUS '140'.
  SET TITLEBAR '140'.

ENDMODULE.                 " STATUS_0140  OUTPUT

*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0140  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0140 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 AO_ID FROM ZPROJECT_AO INTO  TEMP_ID
      WHERE AO_ID = USER_ID.

      SELECT SINGLE PASSCODE FROM ZPROJECT_AO INTO  TEMP_PASS
       WHERE AO_ID = USER_ID.
      IF USER_ID EQ TEMP_ID AND PASSWORD EQ TEMP_PASS .
        MESSAGE 'ACCEPTING OFFICER LOGIN' TYPE 'S'.
        CLEAR : TEMP_ID , TEMP_PASS.
        CALL SCREEN 0145.
      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_0140  INPUT



Output:

Accepting officer login page