OCTOBER 14

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0145  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0145 OUTPUT.
  SET PF-STATUS '145'.
  SET TITLEBAR '145'.
  SELECT SINGLE NAME AO_ID DEPT_NAME FROM ZPROJECT_AO
    INTO (ZPROJECT_AO-NAME , ZPROJECT_AO-AO_ID , ZPROJECT_AO-DEPT_NAME)
    WHERE AO_ID = USER_ID.

ENDMODULE.                 " STATUS_0145  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0145  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0145 INPUT.
  CASE SY-UCOMM.

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

    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'CMD'.
      CALL SCREEN 137.

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

    WHEN 'VSF'.
      CALL SCREEN 141.

    WHEN 'VFR'.
      CLEAR : ZPROJECT_DETAILS.
      CALL SCREEN 144.

    WHEN 'EMPLOYEE_DETAILS'.
      SELECT * FROM ZPROJECT_EMP INTO TABLE EMP_DETAILS.
      REFRESH IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'EMP_ID'.
      WA_FIELDCAT-SELTEXT_M = 'EMP_ID'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'EMP_NAME'.
      WA_FIELDCAT-SELTEXT_M = 'EMP_NAME'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'DEPT_NO'.
      WA_FIELDCAT-SELTEXT_M = 'DEPARTMENT NO.'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'DEPT_NAME'.
      WA_FIELDCAT-SELTEXT_M = 'DEPARTMENT NAME'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'JOINING_DATE'.
      WA_FIELDCAT-SELTEXT_M = 'JOINING DATE'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'EMP_PHONE'.
      WA_FIELDCAT-SELTEXT_M = 'PHONE NO.'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'ADDRESS'.
      WA_FIELDCAT-SELTEXT_M = 'EMP-ADDRESS'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.


      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          IT_FIELDCAT = IT_FIELDCAT
        TABLES
          T_OUTTAB    = EMP_DETAILS.


Output:

accepting officer navigation page

view employee details