internal table

Former Member — Wed, 30 Apr 2008 15:32:06 GMT

i hav declared table with 6 fields.while debugging it is showing onli 3 field.where as the work area for the same table is displaying 6 fields

Re: internal table

Former Member — Wed, 30 Apr 2008 15:32:55 GMT

Can u paste your Declarations.

Thanks

Re: internal table

Former Member — Wed, 30 Apr 2008 15:36:50 GMT

types:BEGIN OF typ_display,

matnr TYPE qals-matnr,

baugr TYPE resb-baugr,

ktextmat TYPE qals-ktextmat,

losmenge TYPE qals-losmenge,

pruefbemkt TYPE qamr-pruefbemkt,

pruefer TYPE qamr-pruefer,

END OF typ_display,

data:it_display TYPE STANDARD TABLE OF typ_display

wa_display type typ_display.

Re: internal table

Former Member — Wed, 30 Apr 2008 15:40:13 GMT

Hi,

In your declaration use LIKE instead of TYPE.

eg MATNR like qals-matnr.

Hope it helps..

Regards,

Chithra

Edited by: Chithra Saravanan on Apr 30, 2008 9:10 PM

Re: internal table

Former Member — Wed, 30 Apr 2008 15:43:13 GMT

no Problems in Declaration.

Tested in DEBUG.

types:BEGIN OF typ_display,
matnr TYPE qals-matnr,
baugr TYPE resb-baugr,
ktextmat TYPE qals-ktextmat,
losmenge TYPE qals-losmenge,
pruefbemkt TYPE qamr-pruefbemkt,
pruefer TYPE qamr-pruefer,
END OF typ_display.
data:it_display TYPE STANDARD TABLE OF typ_display,
wa_display type typ_display.

break-POINT.

wa_display-matnr = '001'.
wa_display-baugr = 'AA'.
wa_display-ktextmat = 'AA'.
wa_display-losmenge = '0'.
wa_display-pruefbemkt = 'AA'.
wa_display-pruefer = 'AA'.

APPEND wa_display to it_display .

break-POINT.

Re: internal table

Former Member — Wed, 30 Apr 2008 15:43:17 GMT

according to our project i should not use like

Re: internal table

Former Member — Wed, 30 Apr 2008 15:44:33 GMT

can u plz paste ur full source code??????????????

Re: internal table

Former Member — Wed, 30 Apr 2008 15:47:59 GMT

TYPES:BEGIN OF typ_tecs,

matnr_lo TYPE tecs-matnr_lo,

sernr_lo TYPE tecs-sernr_lo,

techs TYPE mdfa-techs,

pspel TYPE mdfa-pspel,

aufnr TYPE mdfa-aufnr,

END OF typ_tecs,

BEGIN OF typ_afpo,

aufnr TYPE afpo-aufnr, "Order

projn TYPE afpo-projn, "WBS element

END OF typ_afpo,

BEGIN OF typ_afko,

prueflos TYPE afko-prueflos,

rsnum TYPE afko-rsnum,

aufnr TYPE afko-aufnr,

END OF typ_afko,

BEGIN OF typ_qals,

aufnr TYPE qals-aufnr, "Order

prueflos TYPE qals-prueflos, "Inspection Lot

matnr TYPE qals-matnr, "Material number

losmenge TYPE qals-losmenge, "Inspection Lot Quantity

ktextmat TYPE qals-ktextmat, "Object (Material) Short Text

END OF typ_qals,

BEGIN OF typ_qamv,

prueflos TYPE qamv-prueflos, "Inspection Lot

vorglfnr TYPE qamv-vorglfnr, "Node Number

merknr TYPE qamv-merknr, "Characteristic Number

verwmerkm TYPE qamv-verwmerkm, "Master Inspection Characteristic

END OF typ_qamv,

BEGIN OF typ_qamr,

prueflos TYPE qamr-prueflos, "Inspection Lot

vorglfnr TYPE qamr-vorglfnr, "Node Number

merknr TYPE qamr-merknr, "Characteristic Number

pruefbemkt TYPE qamr-pruefbemkt, "Short Text

pruefer TYPE qamr-pruefer, "Inspector

END OF typ_qamr,

BEGIN OF typ_display,

matnr TYPE qals-matnr,

baugr TYPE resb-baugr,

ktextmat TYPE qals-ktextmat,

losmenge TYPE qals-losmenge,

pruefbemkt TYPE qamr-pruefbemkt,

pruefer TYPE qamr-pruefer,

END OF typ_display,

BEGIN OF typ_resb,

rsnum TYPE resb-rsnum,

matnr TYPE resb-matnr,

baugr TYPE resb-baugr,

END OF typ_resb.

DATA: it_tecs TYPE STANDARD TABLE OF typ_tecs,

it_afpo TYPE STANDARD TABLE OF typ_afpo,

it_afko TYPE STANDARD TABLE OF typ_afko,

it_qals TYPE STANDARD TABLE OF typ_qals,

it_qamv TYPE STANDARD TABLE OF typ_qamv,

it_qamr TYPE STANDARD TABLE OF typ_qamr,

it_resb TYPE STANDARD TABLE OF typ_resb,

it_display TYPE STANDARD TABLE OF typ_display.

DATA: wa_qamv TYPE typ_qamv,

wa_qamr TYPE typ_qamr,

wa_qals TYPE typ_qals,

wa_afko TYPE typ_afko,

wa_resb TYPE typ_resb,

wa_display TYPE typ_display.

PARAMETERS:p_airmod TYPE tecs-matnr_lo,

p_ta TYPE tecs-sernr_lo,

p_wuan TYPE resb-baugr,

p_asnum TYPE qals-matnr,

p_explvl TYPE c DEFAULT '1',

p_aufnr TYPE mdfa-aufnr,

p_exprpt RADIOBUTTON GROUP rgr1 DEFAULT 'X',

p_excrpt RADIOBUTTON GROUP rgr1.

SELECT a~matnr_lo

a~sernr_lo

b~techs

b~pspel

b~aufnr

FROM tecs AS a INNER JOIN mdfa AS b ON a_{techs = b}techs

INTO TABLE it_tecs

WHERE matnr_lo EQ p_airmod AND

sernr_lo EQ p_ta AND

aufnr EQ p_aufnr.

SELECT aufnr

projn

FROM afpo

INTO TABLE it_afpo

FOR ALL ENTRIES IN it_tecs

WHERE aufnr EQ it_tecs-aufnr.

SELECT prueflos

rsnum

aufnr

FROM afko

INTO TABLE it_afko

FOR ALL ENTRIES IN it_afpo

WHERE aufnr EQ it_afpo-aufnr.

SELECT aufnr

prueflos

matnr

losmenge

ktextmat

FROM qals

INTO TABLE it_qals

FOR ALL ENTRIES IN it_afko

WHERE prueflos EQ it_afko-prueflos AND

aufnr EQ it_afko-aufnr.

SELECT prueflos

vorglfnr

merknr

verwmerkm

FROM qamv

INTO TABLE it_qamv

FOR ALL ENTRIES IN it_qals

WHERE prueflos EQ it_qals-prueflos AND

verwmerkm IN ('DWGREV','PLREV').

SELECT prueflos

vorglfnr

merknr

pruefbemkt

pruefer

FROM qamr

INTO TABLE it_qamr

FOR ALL ENTRIES IN it_qamv

WHERE prueflos = it_qamv-prueflos AND

vorglfnr = it_qamv-vorglfnr AND

merknr = it_qamv-merknr.

*EXEC SQL.

CONNECT TO :c_ora1 AS :c_ebom.

*ENDEXEC.

*IF sy-subrc GT 0.

Messag: Oracle link connect failed.

*Endif.

*EXEC.

OPEN dbcur FOR

*Select P_PART_NUMBER,

P_REVISION ,
P_PART_PL_REV
FROM DB2PP. F0CBTAD
WHERE P_PART_NUMBER = :p_matnr.

*IF sy-subrc NE 0.

*WRITE:/ ‘Link to EBOM data not working’.

DO.
TRY.
EXEC SQL.
FETCH NEXT dbcur
INTO :wa_db2pp-p_part_number,
:wa_db2pp-p_revision,
:wa_db2pp-p_part_pl_rev
ENDEXEC.

*IF sy-subrc NE 0.

EXIT.

*ENDIF.

*CATCH cx_sy_native_sql_error.

*ENDTRY.

APPEND wa_db2pp to it_db2pp.
Enddo.

SELECT rsnum

matnr

baugr

FROM resb

INTO TABLE it_resb

FOR ALL ENTRIES IN it_afko

WHERE rsnum EQ it_afko-rsnum.

AND werks = '4090'
AND bwart = '216'.

LOOP AT it_resb INTO wa_resb.

wa_display-baugr = wa_resb-baugr.

READ TABLE it_qals INTO wa_qals WITH KEY prueflos = wa_afko-prueflos BINARY SEARCH.

IF sy-subrc = 0.

wa_display-matnr = wa_qals-matnr.

wa_display-ktextmat = wa_qals-ktextmat.

wa_display-losmenge = wa_qals-losmenge.

ENDIF.

READ TABLE it_qamr INTO wa_qamr WITH KEY prueflos = wa_qamv-prueflos

vorglfnr = wa_qamv-vorglfnr

merknr = wa_qamv-merknr BINARY SEARCH.

IF sy-subrc = 0.

wa_display-pruefbemkt = wa_qamr-pruefbemkt.

wa_display-pruefer = wa_qamr-pruefer.

ENDIF.

APPEND wa_display TO it_display.

CLEAR:wa_display.

ENDLOOP.

*LOOP AT it_resb INTO wa_resb.

*SELECT aufnr

FROM afpo
INTO it_afpo
WHERE afpo-projn EQ v_wbs.
IF sy-subrc = 0.
SELECT rsnum
FROM afko
WHERE aufnr = afpo-aufnr.
IF sy-subrc = 0.
SELECT baugr
FROM resb
WHERE rsnum = afko-rsnum.
ENDIF.

Re: internal table

Former Member — Wed, 30 Apr 2008 15:49:47 GMT

In debug , you don;t see the fields fully. but if there are values in the internal table you will see all 6 fields. this is because Debugger has limited area to show.

Amandeep

Re: internal table

Former Member — Wed, 30 Apr 2008 15:50:27 GMT

yes..................................

ur code is working .....................

there is no problem................................

topic Re: internal table in Application Development and Automation Discussions

internal table

Re: internal table

Re: internal table

Re: internal table

Re: internal table

Re: internal table

Re: internal table

Re: internal table

Re: internal table

Re: internal table