NOVEMBER 12

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0137  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0137 OUTPUT.
  SET PF-STATUS '137'.
  SET TITLEBAR '137'.
  SELECT SINGLE AO_ID NAME DEPT_NO DEPT_NAME PASSCODE PHONE_NO ADDRESS
    FROM ZPROJECT_AO
    INTO (ZPROJECT_AO-AO_ID , ZPROJECT_AO-NAME, ZPROJECT_AO-DEPT_NO ,
     ZPROJECT_AO-DEPT_NAME ,ZPROJECT_AO-PASSCODE , ZPROJECT_AO-PHONE_NO ,
    ZPROJECT_AO-ADDRESS)
    WHERE AO_ID = USER_ID.

ENDMODULE.                 " STATUS_0137  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0137  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0137 INPUT.
  CASE SY-UCOMM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCL'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 1000.
    WHEN 'BACK'.
      CALL SCREEN 145.
    WHEN 'SUBMIT'.
      TEMP_AO-AO_ID = ZPROJECT_AO-AO_ID.
      TEMP_AO-NAME = ZPROJECT_AO-NAME.
      TEMP_AO-DEPT_NO = ZPROJECT_AO-DEPT_NO.
      TEMP_AO-DEPT_NAME = ZPROJECT_AO-DEPT_NAME.
      TEMP_AO-PASSCODE = ZPROJECT_AO-PASSCODE.
      TEMP_AO-PHONE_NO = ZPROJECT_AO-PHONE_NO.
      TEMP_AO-ADDRESS = ZPROJECT_AO-ADDRESS.
      MODIFY ZPROJECT_AO FROM TEMP_AO.
      MESSAGE I005(ZMSG_EAS).
      CALL SCREEN 0145.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0137  INPUT



*&---------------------------------------------------------------------*
*&      MODULE  EXIT  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE EXIT INPUT.
  CASE SY-UCOMM.

    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'BACK'.
      LEAVE TO SCREEN 0.

    WHEN 'CANCEL'.
      CLEAR : USER_ID , PASSWORD.
      LEAVE TO SCREEN 1000.

  ENDCASE.
ENDMODULE.                 " EXIT  INPUT


Output:

update basic details for accepting officer