OCTOBER 01

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0130  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0130 OUTPUT.
  SET PF-STATUS '130'.
  SET TITLEBAR '130'.

ENDMODULE.                 " STATUS_0130  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0130  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0130 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 RO_ID FROM ZPROJECT_RO INTO  TEMP_ID
        WHERE RO_ID = USER_ID.
      SELECT SINGLE PASSCODE FROM ZPROJECT_RO INTO  TEMP_PASS
        WHERE RO_ID = USER_ID.
      IF USER_ID EQ TEMP_ID AND PASSWORD EQ TEMP_PASS .
        MESSAGE 'REVIEWING OFFICER LOGIN' TYPE 'S'.
        CLEAR : TEMP_ID , TEMP_PASS.
        CALL SCREEN 0135.
      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_0130  INPUT


Output:

Login Id and Password fields

reviewing officer login into the system