TEST - 생산오더 상태조회 - STATUS_READ

FM to get Production Order user status (CO03) and system status

  *&----------------------------------------------------------------*
*& Report  YRTEST0003
*&
*&----------------------------------------------------------------*
*&
*&
*&----------------------------------------------------------------*

REPORT  YRTEST0003.

  data: lt_STATUS like TABLE OF JSTAT with header line,
        l_OBJNR   LIKE JSTO-OBJNR,
        l_aufnr   like afko-aufnr.


  clear: l_OBJNR, l_aufnr.

  l_aufnr = '60003649'.

  call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input         = l_aufnr
    IMPORTING
      OUTPUT        = l_aufnr.

  concatenate 'OR' l_AUFNR into l_OBJNR.

  call function 'STATUS_READ'
    exporting
      CLIENT                 = SY-MANDT
      objnr                  = l_OBJNR
      ONLY_ACTIVE            = 'X'
*   IMPORTING
*     OBTYP                  =
*     STSMA                  =
*     STONR                  =
   TABLES
     STATUS                 = lt_STATUS
   EXCEPTIONS
     OBJECT_NOT_FOUND       = 1
     OTHERS                 = 2.

  data: l_txt04 like tj02t-txt04,
        l_TXT30 like tj02t-TXT30.

  clear: l_txt04, l_TXT30.

  if sy-subrc eq 0.
    loop at lt_status.
      write: / lt_status-STAT.
      clear: l_txt04, l_TXT30.
      select single txt04 TXT30
        into (l_txt04, l_TXT30)
        from tj02t
       where ISTAT eq lt_status-STAT
         and SPRAS eq SY-LANGU.
      write: l_txt04, l_TXT30.
    endloop.
  else.
    message s303(me) with sy-subrc.
  endif.

*  if not IT_JEST[] is initial.
*    select ISTAT TXT04
*    from TJ02T
*    into table IT_TJ02T
*    for all entries in IT_JEST
*    where ISTAT = IT_JEST-STAT
*      and SPRAS = SY-LANGU.
*  endif.