Functon module errors

[Former Member]

Hi All,

I am facing problem in below mentioned function module,it is working fine for some time periods i.e from 02.09.2008,before this time period it is showing error as No entries were found in catalog B,

I am unalbe to trace the error,please any helpme on this.

FUNCTION Z_INTRANET_DATA.

*"----

---

""Local Interface:

*" IMPORTING

*" REFERENCE(ZEQKTX) TYPE KTX01

*" REFERENCE(PLANT) TYPE WERKS_D

*" REFERENCE(SDATE) TYPE QMDAT

*" REFERENCE(EDATE) TYPE QMDAT

*" TABLES

*" ITAB_FINAL1 STRUCTURE Z_STR_INTRANET

*"----

---

*TABLES: zkvdequip, viqmel.

DATA: i_katalogart1 LIKE qpgr-katalogart,

i_codegruppe1 LIKE qpgr-codegruppe,

i_code1 LIKE qpcd-code,

it_qpk1cd1 LIKE qpk1cd OCCURS 10 WITH HEADER LINE.

DATA: i_katalogart LIKE qpgr-katalogart,

i_codegruppe LIKE qpgr-codegruppe,

i_code LIKE qpcd-code,

it_qpk1cd LIKE qpk1cd OCCURS 10 WITH HEADER LINE.

DATA: i_katalogart2 LIKE qpgr-katalogart,

i_codegruppe2 LIKE qpgr-codegruppe,

i_code2 LIKE qpcd-code,

it_qpk1cd2 LIKE qpk1cd OCCURS 10 WITH HEADER LINE.

DATA: i_katalogart3 LIKE qpgr-katalogart,

i_codegruppe3 LIKE qpgr-codegruppe,

i_code3 LIKE qpcd-code,

it_qpk1cd3 LIKE qpk1cd OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF it_zequip OCCURS 10,

equnr LIKE zequip-equnr,

zeqktx LIKE zequip-zeqktx,

werk LIKE zequip-werk,

END OF it_zequip.

DATA: BEGIN OF it_viqmel OCCURS 10,

equnr LIKE zequip-equnr,

qmnum TYPE qmnum,

qmdat LIKE viqmel-qmdat,

qmtxt LIKE viqmel-qmtxt,

auszt LIKE viqmel-auszt,

END OF it_viqmel.

DATA: BEGIN OF it_viqmfe OCCURS 10,

qmnum TYPE qmnum,

otgrp LIKE viqmfe-otgrp,

fegrp LIKE viqmfe-fegrp,

oteil LIKE viqmfe-oteil,

otkat LIKE viqmfe-otkat,

fekat LIKE viqmfe-fekat,

fecod LIKE viqmfe-fecod,

END OF it_viqmfe.

DATA: BEGIN OF it_viqmur OCCURS 10,

qmnum TYPE qmnum,

urgrp LIKE viqmur-urgrp,

urcod TYPE urcod,

urkat TYPE urkat,

END OF it_viqmur.

DATA: BEGIN OF it_viqmma OCCURS 10,

qmnum TYPE qmnum,

mngrp LIKE viqmma-mngrp,

mnkat LIKE viqmma-mnkat,

mncod LIKE viqmma-mncod,

MANUM like viqmma-MANUM,

END OF it_viqmma.

DATA: BEGIN OF it_qpct OCCURS 10,

kurztext1 LIKE qpct-kurztext,

kurztext2 LIKE qpct-kurztext,

kurztext3 LIKE qpct-kurztext,

END OF it_qpct.

DATA: BEGIN OF itab_final OCCURS 10,

equnr LIKE zequip-equnr,

eqktx LIKE zequip-zeqktx,

werk LIKE zequip-werk,

qmnum LIKE viqmel-qmnum,

qmdat LIKE viqmel-qmdat,

qmtxt LIKE viqmel-qmtxt,

auszt LIKE viqmel-auszt,

auszt1 TYPE p,

auszt2(8),

otgrp LIKE qkat-codegruppe,

fegrp LIKE viqmfe-fegrp,

urgrp LIKE viqmur-urgrp,

mngrp LIKE viqmma-mngrp,

kurztext1(40)," TYPE QCODETEXT,

kurztext2(40)," TYPE QCODETEXT,

kurztext3(40)," TYPE QCODETEXT,

kurztext4(40)," TYPE QCODETEXT,

END OF itab_final.

*parameters: zeqktx like zequip-zeqktx,

• date like viqmel-qmdat,

• edate like viqmel-qmdat,

• werk like zequip-werk.

*

SELECT equnr zeqktx werk FROM zequip

INTO CORRESPONDING FIELDS OF TABLE it_zequip

WHERE zeqktx = zeqktx and werk = plant.

SELECT equnr qmnum qmdat qmtxt auszt FROM viqmel

INTO CORRESPONDING FIELDS OF TABLE it_viqmel

FOR ALL ENTRIES IN it_zequip

WHERE equnr = it_zequip-equnr

AND qmdat between sdate and edate.

SELECT qmnum otgrp fegrp oteil otkat fekat fecod FROM viqmfe

INTO CORRESPONDING FIELDS OF TABLE it_viqmfe

FOR ALL ENTRIES IN it_viqmel

WHERE qmnum = it_viqmel-qmnum.

SELECT qmnum urgrp urcod urkat FROM viqmur

INTO CORRESPONDING FIELDS OF TABLE it_viqmur

FOR ALL ENTRIES IN it_viqmel

WHERE qmnum = it_viqmel-qmnum.

SELECT qmnum mngrp mnkat mncod MANUM FROM viqmma

INTO CORRESPONDING FIELDS OF TABLE it_viqmma

FOR ALL ENTRIES IN it_viqmel

WHERE qmnum = it_viqmel-qmnum.

LOOP AT it_viqmfe.

IF it_viqmfe-otgrp IS INITIAL.

CONTINUE.

ENDIF.

IF it_viqmfe-fegrp IS INITIAL.

CONTINUE.

ENDIF.

MOVE: it_viqmfe-otkat TO i_katalogart,

it_viqmfe-otgrp TO i_codegruppe,

it_viqmfe-oteil TO i_code,

it_viqmfe-fekat TO i_katalogart1,

it_viqmfe-fegrp TO i_codegruppe1,

it_viqmfe-fecod TO i_code1.

*********using function module to convert code into text

CALL FUNCTION 'QPK1_GP_CODE_SELECTION'

EXPORTING

i_katalogart = i_katalogart

i_codegruppe = i_codegruppe

i_code = i_code

i_sprache = sy-langu

i_winx1 = 10

i_winx2 = 70

i_winy1 = 5

i_winy2 = 25

i_return_if_one = 'X'

TABLES

t_qpk1cdtab = it_qpk1cd.

IF sy-subrc <> 0.

• MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

• WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL FUNCTION 'QPK1_GP_CODE_SELECTION'

EXPORTING

i_katalogart = i_katalogart1

i_codegruppe = i_codegruppe1

i_code = i_code1

i_sprache = sy-langu

i_winx1 = 10

i_winx2 = 70

i_winy1 = 5

i_winy2 = 25

i_return_if_one = 'X'

TABLES

t_qpk1cdtab = it_qpk1cd1.

IF sy-subrc <> 0.

• MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

• WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDLOOP.

LOOP AT it_viqmur.

IF it_viqmur-urgrp IS INITIAL.

CONTINUE.

ENDIF.

MOVE: it_viqmur-urgrp TO i_codegruppe2,

it_viqmur-urkat TO i_katalogart2,

it_viqmur-urcod TO i_code2.

CALL FUNCTION 'QPK1_GP_CODE_SELECTION'

EXPORTING

i_katalogart = i_katalogart2

i_codegruppe = i_codegruppe2

i_code = i_code2

i_sprache = sy-langu

i_winx1 = 10

i_winx2 = 70

i_winy1 = 5

i_winy2 = 25

i_return_if_one = 'X'

TABLES

t_qpk1cdtab = it_qpk1cd2.

IF sy-subrc <> 0.

• MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

• WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDLOOP.

LOOP AT it_viqmma.

IF it_viqmma-mngrp IS INITIAL.

CONTINUE.

ENDIF.

MOVE: it_viqmma-mngrp TO i_codegruppe3,

it_viqmma-mnkat TO i_katalogart3,

it_viqmma-mncod TO i_code3.

CALL FUNCTION 'QPK1_GP_CODE_SELECTION'

EXPORTING

i_katalogart = i_katalogart3

i_codegruppe = i_codegruppe3

i_code = i_code3

i_sprache = sy-langu

i_winx1 = 10

i_winx2 = 70

i_winy1 = 5

i_winy2 = 25

i_return_if_one = 'X'

TABLES

t_qpk1cdtab = it_qpk1cd3.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDLOOP.

******************moving values to itab_final.

LOOP AT it_viqmel.

READ TABLE it_viqmfe WITH KEY qmnum = it_viqmel-qmnum.

READ TABLE it_viqmur WITH KEY qmnum = it_viqmel-qmnum.

READ TABLE it_viqmma WITH KEY qmnum = it_viqmel-qmnum.

READ TABLE it_qpk1cd WITH KEY katalogart = it_viqmfe-otkat

codegruppe = it_viqmfe-otgrp

code = it_viqmfe-oteil.

READ TABLE it_qpk1cd1 WITH KEY katalogart = it_viqmfe-fekat

codegruppe = it_viqmfe-fegrp

code = it_viqmfe-fecod.

READ TABLE it_qpk1cd2 WITH KEY katalogart = it_viqmur-urkat

codegruppe = it_viqmur-urgrp

code = it_viqmur-urcod.

READ TABLE it_qpk1cd3 WITH KEY katalogart = it_viqmma-mnkat

codegruppe = it_viqmma-mngrp

code = it_viqmma-mncod .

DATA: down_time TYPE p.

DATA: down_time_c(8).

down_time = it_viqmel-auszt / 60.

down_time_c = down_time / 60.

MOVE : it_viqmel-qmnum to itab_final1-qmnum,

it_viqmel-qmtxt TO itab_final1-qmtxt,

down_time_c TO itab_final1-auszt2,

it_qpk1cd-KURZTEXTCD TO itab_final1-kurztext1,

it_qpk1cd1-KURZTEXTCD TO itab_final1-kurztext2,

it_qpk1cd2-KURZTEXTCD TO itab_final1-kurztext3,

it_qpk1cd3-KURZTEXTCD TO itab_final1-kurztext4.

APPEND itab_final1." sorted by auszt2.

clear itab_final1.

clear : it_viqmel,it_viqmfe,it_viqmur,it_viqmma,it_qpk1cd,it_qpk1cd1,it_qpk1cd2,it_qpk1cd3.

ENDLOOP.

ENDFUNCTION.

Thanks&regds,

Sree.

[Former Member]

hi Sree,

That is not an error.

it just displaying a status message on Status Bar.

if the data is not available for the selection of the time period system will display that message.

Regards.,

Chandra

[Former Member]

Hi chandra,

Thankq for ur reply,if I give the time period suppose from 10.01.2007 to 10.03.08,there is data from 02.09.2008 even thogh it is showing same message.

thanks&regds,

Sree.

[Former Member]

Hi All,

I saw there is data in database table ,but some thing wrong in my code can any one help me.

Thanks&regds,

Sree.