ABAP读取工单状态 STATUS_READ

*&---------------------------------------------------------------------*
*& Report  YDEMO_013
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  YDEMO_013 MESSAGE-ID ZTEST_001.

TABLES:AUFK.
DATA:LT_STATUS LIKE TABLE OF JSTAT WITH HEADER LINE.

DATA:GS_LAYOUT TYPE LVC_S_LAYO.
*PARAMETERS:P_CLIENT LIKE
PARAMETERS:P_AUFNR LIKE AFKO-AUFNR,
           P_OBJNR LIKE JSTO-OBJNR,
           P_ONLY  LIKE JEST-INACT.

PARAMETERS:RB_01 RADIOBUTTON GROUP G1 DEFAULT 'X',
           RB_02 RADIOBUTTON GROUP G1.

PARAMETERS:P_OBTYP LIKE JSTO-OBTYP,
           P_STSMA LIKE JSTO-STSMA,
           P_STONR LIKE TJ30-STONR.

INITIALIZATION.

*IF

START-OF-SELECTION.
  SELECT SINGLE OBJNR INTO P_OBJNR
    FROM AUFK
   WHERE AUFNR = P_AUFNR.
  IF SY-SUBRC NE .

    MESSAGE I002."WITH '没有找到对象号！'.
    CALL TRANSACTION 'ABAPDOCU'.
    STOP.

  ELSE.
    CLEAR:LT_STATUS,LT_STATUS[].
    CALL FUNCTION 'STATUS_READ'
      EXPORTING
*   CLIENT                 = SY-MANDT
        OBJNR                  = P_OBJNR
*   ONLY_ACTIVE            = ' '
     IMPORTING
       OBTYP                  = P_OBTYP
       STSMA                  = P_STSMA
       STONR                  = P_STONR
     TABLES
       STATUS                 = LT_STATUS
* EXCEPTIONS
*   OBJECT_NOT_FOUND       =
*   OTHERS                 =
              .
    IF SY-SUBRC <> .
* Implement suitable error handling here
    ENDIF.
  ENDIF.

  IF RB_02 EQ 'X'.
    LOOP AT LT_STATUS.
      WRITE:/() LT_STATUS-STAT,
            () LT_STATUS-INACT.
    ENDLOOP.

  ELSE.

    GS_LAYOUT-CWIDTH_OPT   = 'X'.
    GS_LAYOUT-SEL_MODE     = 'A'.

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
      EXPORTING
        I_STRUCTURE_NAME         = 'JSTAT'
        I_CALLBACK_PROGRAM       = SY-REPID
        I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
        I_CALLBACK_USER_COMMAND  = 'ALV_USER_COMMAND'
*       IS_LAYOUT_LVC            = GS_LAYOUT
      TABLES
        T_OUTTAB                 = LT_STATUS.

  ENDIF.

*&---------------------------------------------------------------------*
*&      Form  SET_PF_STATUS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM SET_PF_STATUS USING UT_EXCLUDE TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'ALV_STATUS'.
ENDFORM.                    "SET_PF_STATUS

*&---------------------------------------------------------------------*
*&      Form  ALV_USER_COMMAND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM ALV_USER_COMMAND USING UV_UCOMM TYPE SYUCOMM US_SELFIELD TYPE SLIS_SELFIELD.
  DATA:LO_GRID TYPE REF TO CL_GUI_ALV_GRID.
  CASE UV_UCOMM.
    WHEN 'ADD'.
      INSERT INITIAL LINE INTO LT_STATUS INDEX .
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          E_GRID = LO_GRID.
      CALL METHOD LO_GRID->REFRESH_TABLE_DISPLAY .

    WHEN 'EXIT'.
      LEAVE TO LIST-PROCESSING.

    WHEN '&F03' OR '&F12' OR '&F15'.
      LEAVE TO SCREEN .

    WHEN OTHERS.
  ENDCASE.
ENDFORM.                    "ALV_USER_COMMAND

*  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
*   EXPORTING
**   I_INTERFACE_CHECK                 = ' '
**   I_BYPASSING_BUFFER                =
**   I_BUFFER_ACTIVE                   =
**    I_CALLBACK_PROGRAM                = ' '
**   I_CALLBACK_PF_STATUS_SET          = ' '
**   I_CALLBACK_USER_COMMAND           = ' '
**   I_CALLBACK_TOP_OF_PAGE            = ' '
**   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
**   I_CALLBACK_HTML_END_OF_LIST       = ' '
**   I_STRUCTURE_NAME                  =
**   I_BACKGROUND_ID                   = ' '
**   I_GRID_TITLE                      =
**   I_GRID_SETTINGS                   =
**   IS_LAYOUT_LVC                     =
**   IT_FIELDCAT_LVC                   =
**   IT_EXCLUDING                      =
**   IT_SPECIAL_GROUPS_LVC             =
**   IT_SORT_LVC                       =
**   IT_FILTER_LVC                     =
**   IT_HYPERLINK                      =
**   IS_SEL_HIDE                       =
**   I_DEFAULT                         = 'X'
**   I_SAVE                            = ' '
**   IS_VARIANT                        =
**   IT_EVENTS                         =
**   IT_EVENT_EXIT                     =
**   IS_PRINT_LVC                      =
**   IS_REPREP_ID_LVC                  =
**   I_SCREEN_START_COLUMN             =
**   I_SCREEN_START_LINE               =
**   I_SCREEN_END_COLUMN               =
**   I_SCREEN_END_LINE                 =
**   I_HTML_HEIGHT_TOP                 =
**   I_HTML_HEIGHT_END                 =
**   IT_ALV_GRAPHICS                   =
**   IT_EXCEPT_QINFO_LVC               =
**   IR_SALV_FULLSCREEN_ADAPTER        =
** IMPORTING
**   E_EXIT_CAUSED_BY_CALLER           =
**   ES_EXIT_CAUSED_BY_USER            =
*    TABLES
*      T_OUTTAB                          =
** EXCEPTIONS
**   PROGRAM_ERROR                     =
**   OTHERS                            =
*            .
*  IF SY-SUBRC <> .
** Implement suitable error handling here
*  ENDIF.