Skip to Content
author's profile photo
Former Member

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

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.

Add comment
10|10000 characters needed characters exceeded

  • Follow
  • Get RSS Feed

3 Answers

  • Best Answer
    author's profile photo
    Former Member
    Posted on Sep 28, 2007 at 08:38 PM

    You just need use Two Tables

    Goto EQUI Get the value from OBJNR based on EQUNR

    Now goto Jest table ,use OBJNR and you get many status.

    Either you can use JEST Table or FM STATUS_READ

    You can see all system status in Transaction BS23

    Thanks

    Seshu

    Add comment
    10|10000 characters needed characters exceeded

  • author's profile photo
    Former Member
    Posted on Sep 29, 2007 at 04:05 AM

    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

    Add comment
    10|10000 characters needed characters exceeded

  • Posted on Sep 28, 2007 at 08:04 PM

    Hi,

    Please check these tables.

    TJ02

    TJ02T

    TJ30

    TJ30T

    JEST

    Regards,

    Ferry Lianto

    Add comment
    10|10000 characters needed characters exceeded