NOVEMBER 11

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0129  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0129 OUTPUT.
  SET PF-STATUS '129'.
  SET TITLEBAR '129'.
  SELECT SINGLE MGR_ID MGR_NAME DEPT_NO DEPT_NAME PASSCODE PHONE_NO
    ADDRESS
    FROM ZPROJECT_MGR
    INTO (ZPROJECT_MGR-MGR_ID , ZPROJECT_MGR-MGR_NAME , ZPROJECT_MGR-DEPT_NO ,
    ZPROJECT_MGR-DEPT_NAME , ZPROJECT_MGR-PASSCODE , ZPROJECT_MGR-PHONE_NO
    ,ZPROJECT_MGR-ADDRESS)
    WHERE MGR_ID = USER_ID.

ENDMODULE.                 " STATUS_0129  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0129  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0129 INPUT.
  CASE SY-UCOMM.

    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 1000.
    WHEN 'BACK'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 125.
    WHEN 'SUBMIT'.
      TEMP_MGR-MGR_ID = ZPROJECT_MGR-MGR_ID.
      TEMP_MGR-MGR_NAME = ZPROJECT_MGR-MGR_NAME.
      TEMP_MGR-DEPT_NO = ZPROJECT_MGR-DEPT_NO.
      TEMP_MGR-DEPT_NAME = ZPROJECT_MGR-DEPT_NAME.
      TEMP_MGR-PASSCODE = ZPROJECT_MGR-PASSCODE.
      TEMP_MGR-PHONE_NO = ZPROJECT_MGR-PHONE_NO.
      TEMP_MGR-ADDRESS = ZPROJECT_MGR-ADDRESS.
      MODIFY ZPROJECT_MGR FROM TEMP_MGR.
      MESSAGE I005(ZMSG_EAS).
      CALL SCREEN 0125.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0129  INPUT

Output:

update basic details for manager

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0136  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0136 OUTPUT.
  SET PF-STATUS '136'.
  SET TITLEBAR '136'.
  SELECT SINGLE RO_ID NAME DEPT_NO DEPT_NAME PASSCODE ADDRESS PHONE_NO
    FROM ZPROJECT_RO
    INTO (ZPROJECT_RO-RO_ID, ZPROJECT_RO-NAME , ZPROJECT_RO-DEPT_NO,
    ZPROJECT_RO-DEPT_NAME , ZPROJECT_RO-PASSCODE , ZPROJECT_RO-ADDRESS , ZPROJECT_RO-PHONE_NO)
    WHERE RO_ID = USER_ID.

ENDMODULE.                 " STATUS_0136  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0136  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0136 INPUT.
  CASE SY-UCOMM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 1000.
    WHEN 'BACK'.
      CALL SCREEN 135.
    WHEN 'SUBMIT'.
      TEMP_RO-RO_ID = ZPROJECT_RO-RO_ID.
      TEMP_RO-NAME = ZPROJECT_RO-NAME.
      TEMP_RO-DEPT_NO = ZPROJECT_RO-DEPT_NO.
      TEMP_RO-DEPT_NAME = ZPROJECT_RO-DEPT_NAME.
      TEMP_RO-PASSCODE = ZPROJECT_RO-PASSCODE.
      TEMP_RO-PHONE_NO = ZPROJECT_RO-PHONE_NO.
      TEMP_RO-ADDRESS = ZPROJECT_RO-ADDRESS.
      MODIFY ZPROJECT_RO FROM TEMP_RO.
      MESSAGE I005(ZMSG_EAS).
      CALL SCREEN 0135.

  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0136  INPUT


Output:

update basic details for reviewing officer