Equipment(Staus) IE 03------ STATUS, Where this value wuld b stored?

Question

Hi Experts,
Am looking to pull the data of Equipment Status - IE03---->STATUS value, so, pls. let me know that, In which table I hv to look for? Or anz logic I need to write?
thanq.

Answer 1

hi,
check this program for ie03,
this program fetches most of the data for ie03
REPORT ZEQUIP_DISP NO STANDARD PAGE HEADING MESSAGE-ID zext .
Report to fetch equipment list in ie03    *
Requested By :
tables: equi,
        equz,
        iflot,
        iloa,
        eapl,
        crhd.
DATA : BEGIN OF fieldnames OCCURS 0,
       field(32),
       END OF fieldnames.
data : gi_eqkt like eqkt occurs 0 with header line.
data : gi_equi like equi occurs 0 with header line.
data : gi_equz like equz occurs 0 with header line.
data :gi_iflot like iflot occurs 0 with header line.
data :gi_iloa like iloa occurs 0 with header line.
data :gi_crhd like crhd occurs 0 with header line.
data :fi_equz like equz occurs 0 with header line.
*data :gi_iloa like iloa occurs 0 with header line.
data :gi_eqbs like eqbs occurs 0 with header line.
data :gi_fleet like fleet occurs 0 with header line.
data :gi_efhm like efhm occurs 0 with header line.
Data : begin of gi_join occurs 0,
         equnr     like     equi-equnr, "     Equipment Number
         EQTYP     like     equi-eqtyp,"     Equipment category
         cuobj like equi-cuobj,
         swerk like iloa-swerk, " plant maintanace plant
         iloan like iloa-iloan," location
         gsber like iloa-gsber, "business area
       end of gi_join.
Data : begin of gi_final1 occurs 0,
       equnr     like     equi-equnr, "     Equipment Number
       EQTYP     like     equi-eqtyp,"     Equipment category
       ERDAT     like     equi-erdat,"     valid on
       eqktx like eqkt-eqktx, " equipment description
       INBDT LIKE EQUI-INBDT, "start up date
       objty like efhm-objty, "object type
        BEGRU     like     equi-begru,     "AuthorizGroup
        BRGEW     like     equi-brgew,     "Weight
        GEWEI     like     equi-gewei,     "Unit of Weight
        GROES     like     equi-groes, "     Size/dimension
        ANSWT     like     equi-answt, "     AcquistnValue
        waers like     equi-waers, "     Currency Key
        ANSDT     like     equi-ansdt, "     Acquistion date
       HERST     like     equi-herst,  "     Manufacturer
       TYPBZ     like     equi-typbz, "     Model number
       mapar like equz-mapar, "manufacturer part number
       SERGE     like     equi-serge, "     ManufSerialNo.
       HERLD     like     equi-herld, "     ManufCountry
       WARPL     like      equi-warpl, "     Maintenance Plan
       tplnr like iloa-tplnr, " functional location
       HEQUI     like     equz-hequi, "     Superord.Equip.
       tidnr like equz-tidnr, " technical identification number
       submt like equz-submt, " constant type
     ABCKZ     LIKE     ILOA-abckz, "     ABC indic
       EQFNR     LIKE     ILOA-eqfnr, "     Sort field
        ANLNR     LIKE     ILOA-anlnr,"     Asset Number
        iwerk like equz-iwerk, "maintanance planning plant
        ingrp like equz-ingrp, " planner group
         GEWRK     like     equz-gewrk,"     Main WorkCtr
         werk      like     equi-werk,"     Plant for work center
        rbnr like equz-rbnr, " catalog profile
         planv like efhm-planv, "task list usage
         steuf like efhm-steuf, "control key
         EWFORM like efhm-ewform ,"usage value form
      gsber like iloa-gsber, " business area
      swerk like iloa-swerk, " maint plant
      kostl like iloa-kostl, " cost centre
      kokrs like iloa-kokrs, " conrolling area
      werk      like     equi-werk,"     Plant for work center
     end of gi_final1.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECTION-SCREEN: SKIP.
SELECT-OPTIONS : p_eqtyp for equi-eqtyp MATCHCODE OBJECT ZMAT.
SELECT-OPTIONS : p_swerk for eapl-swerk.
SELECT-OPTIONS : p_gsber for iloa-gsber.
PARAMETERS: pfname LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pfname.
  PERFORM fetch_file USING pfname.
FORM fetch_file USING pfname.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            static    = 'X'
       CHANGING
            file_name = pfname.
ENDFORM.
START-OF-SELECTION.
PERFORM col_head.
PERFORM FETCH_DATA.
PERFORM download TABLES  fieldnames gi_final1  USING pfname .
FORM FETCH_DATA.
   SELECT A~equnr
          A~EQTYP
          a~cuobj
          C~ILOAN
          C~SWERK
          C~GSBER
         FROM EQUI AS A INNER JOIN
         EQUZ AS B ON
         AEQUNR = BEQUNR
         INNER JOIN ILOA AS C
         ON BILOAN = CILOAN INTO TABLE
         GI_JOIN WHERE EQTYP IN P_EQTYP
         AND SWERK IN P_SWERK
         and GSBER IN P_GSBER.
   sort gi_join by equnr eqtyp.
loop at gi_join.
CALL FUNCTION 'EQUIPMENT_READ'
   EXPORTING
   I_HANDLE             =
   I_LOCK               =
   CHECK_AUTH           = ' '
   I_TCODE              = ' '
     EQUI_NO              = gi_join-equnr
    EQUZ_NO              = '000'
    READING_DATE         = '99991231'
   X_XAKTYP             = ' '
  IMPORTING
    EQUI                 = gi_equi
    EQKT                 = gi_eqkt
    EQUZ                 = gi_equz
    ILOA                 = gi_iloa
    EQBS                 = gi_eqbs
    FLEET                = gi_fleet
    EFHM                 = gi_efhm
EXCEPTIONS
   AUTH_NO_BEGRP        = 1
   AUTH_NO_IWERK        = 2
   AUTH_NO_SWERK        = 3
   EQKT_NOT_FOUND       = 4
   EQUI_NOT_FOUND       = 5
   EQUZ_NOT_FOUND       = 6
   ILOA_NOT_FOUND       = 7
   AUTH_NO_INGRP        = 8
   AUTH_NO_KOSTL        = 9
   ERR_HANDLE           = 10
   LOCK_FAILURE         = 11
   AUTH_NO_BADI         = 12
   OTHERS               = 13
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
      move gi_equi-equnr to gi_final1-equnr.
      move gi_equi-eqtyp to gi_final1-eqtyp.
      move gi_equi-erdat to gi_final1-erdat.
      move gi_equi-begru to gi_final1-begru.
      move gi_equi-brgew to gi_final1-brgew.
      move gi_equi-gewei to gi_final1-gewei.
      move gi_equi-groes to gi_final1-groes.
      move gi_equi-answt to gi_final1-answt.
      move gi_equi-waers to gi_final1-waers.
      move gi_equi-ansdt to gi_final1-ansdt.
      move gi_equi-herst to gi_final1-herst.
      move gi_equi-typbz to gi_final1-typbz.
      move gi_equi-serge to gi_final1-serge.
      move gi_equi-herld to gi_final1-herld.
      move gi_equi-warpl to gi_final1-warpl.
      move gi_equi-werk to gi_final1-werk.
      move gi_equi-inbdt to gi_final1-inbdt.
      move gi_eqkt-eqktx to gi_final1-eqktx.
      move gi_equz-gewrk to gi_final1-gewrk.
      move gi_equz-hequi to gi_final1-hequi.
      move gi_equz-rbnr to gi_final1-rbnr.
      move gi_equz-submt to gi_final1-submt.
      move gi_equz-tidnr to gi_final1-tidnr.
      move gi_equz-iwerk to gi_final1-iwerk.
      move gi_equz-ingrp to gi_final1-ingrp.
      move gi_equz-mapar to gi_final1-mapar.
      move gi_iloa-abckz to gi_final1-abckz.
      move gi_iloa-eqfnr to gi_final1-eqfnr.
      move gi_iloa-anlnr to gi_final1-anlnr.
      move gi_iloa-tplnr to gi_final1-tplnr.
     move gi_efhm-planv to gi_final1-planv.
     move gi_efhm-objty to gi_final1-objty.
     move gi_efhm-steuf to gi_final1-steuf.
     move gi_efhm-ewform to gi_final1-ewform.
   append gi_final1.
   clear gi_final1.
endloop.
sort gi_final1 by equnr eqtyp.
endform.
*loop at gi_equi.
move-corresponding gi_equi to gi_final1.
read table gi_equz with key equnr = gi_equi-equnr.
*if sy-subrc = 0.
*move-corresponding gi_equz to gi_final1.
*endif.
*read table gi_iloa with key iloan = gi_equz-iloan.
*if sy-subrc = 0.
*move-corresponding gi_iloa to gi_final1.
*endif.
append gi_final1.
clear gi_final1.
endloop.
endform.
FORM col_head.
  fieldnames-field = 'equipment number.'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'equipment category'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'valid on'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'equipment descrition'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'start up date'.
  APPEND fieldnames.
  CLEAR fieldnames.
fieldnames-field = 'object type'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'authorisation group'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'weight'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'unit of weight'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'size\dimension'.
  APPEND fieldnames.
  CLEAR fieldnames.
   fieldnames-field = 'aquisation value'.
  APPEND fieldnames.
  CLEAR fieldnames.
fieldnames-field = 'currency key'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'aquisation date'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'manufacturer'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'model number'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'manufacturer part number'.
  APPEND fieldnames.
  CLEAR fieldnames.
   fieldnames-field = 'manufacturer serial number'.
  APPEND fieldnames.
  CLEAR fieldnames.
fieldnames-field = 'manufacturer country'.
  APPEND fieldnames.
  CLEAR fieldnames.
fieldnames-field = 'maintanance plan'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'functional location'.
  APPEND fieldnames.
  CLEAR fieldnames.
fieldnames-field = 'Superord.Equip'.
  APPEND fieldnames.
  CLEAR fieldnames.
   fieldnames-field = 'Technical Identification Number'.
  APPEND fieldnames.
  CLEAR fieldnames.
   fieldnames-field = 'constant type'.
  APPEND fieldnames.
  CLEAR fieldnames.
fieldnames-field = 'ABC Indicator'.
  APPEND fieldnames.
  CLEAR fieldnames.
fieldnames-field = 'Sort field'.
  APPEND fieldnames.
  CLEAR fieldnames.
   fieldnames-field = 'asset  number'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'maintanance planning plant'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'planner group'.
  APPEND fieldnames.
  CLEAR fieldnames.
fieldnames-field = 'main work centre'.
  APPEND fieldnames.
  CLEAR fieldnames.
fieldnames-field = 'plant work centre'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'Catalog profile'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'task list usage'.
  APPEND fieldnames.
  CLEAR fieldnames.
fieldnames-field = 'control key'.
  APPEND fieldnames.
  CLEAR fieldnames.
  fieldnames-field = 'user formula'.
  APPEND fieldnames.
  CLEAR fieldnames.
endform.
FORM download TABLES   fieldnames gi_qua USING    pfname.
  CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            filename                = pfname
            filetype                = 'DAT'
       TABLES
            data_tab                = gi_qua
            fieldnames              = fieldnames
       EXCEPTIONS
            file_open_error         = 1
            file_write_error        = 2
            invalid_filesize        = 3
            invalid_type            = 4
            no_batch                = 5
            unknown_error           = 6
            invalid_table_width     = 7
            gui_refuse_filetransfer = 8
            customer_error          = 9
            OTHERS                  = 10.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    MESSAGE i002 WITH pfname .
  ENDIF.
endform.
regards
siva
Message was edited by: siva
        siva prasad