topic Re: SIMPLE PROBLEM in Application Development and Automation Discussions

SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 07:17:31 GMT

data fld(30).

data val(30).

at line-selection.

get cursor field fld value val.

WRITE: VAL.

if fld = 'ITAB-MATNR'.

WRITE 'IF'.

SELECT MAKTX FROM MAKT INTO MAKT-MAKTX WHERE MATNR = VAL.

WRITE: MAKT-MAKTX.

ENDSELECT.

write: sy-subrc.

WRITE: MAKT-MAKTX.

WRITE: VAL.

endif.

when i run this code i got no out put at secondary list for maktx.

but if i change the code like this

SELECT MAKTX FROM MAKT.

then it shows all the records of makt table.

my output shows the right value of val variable

plz explaint

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 07:22:42 GMT

Check the value of VAL and be sure it is formatted like the field matnr including the leading zeroes.

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 07:23:43 GMT

it is like that

even i tried

val like makt-matnr

but no output

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 07:24:56 GMT

YOU CAN'T PUT INTO LIKE THAT

YOU NEED TO STORE THAT VALUES INA INTERNAL TABLE

CREAT A INTERNAL TABLE TO STORE THAT SECONDARY LIST VALUES

THEN WRITE SELECT QUERY LIKE THIS

SELET MAKTX FROM MAKT INTO ITAB1 WHERE CONDITION

data fld(30).

data val(30).

at line-selection.

get cursor field fld value val.

WRITE: VAL.

if fld = 'ITAB-MATNR'.

WRITE 'IF'.

SELECT MAKTX FROM MAKT INTO MAKT-MAKTX WHERE MATNR = VAL.

WRITE: MAKT-MAKTX.

ENDSELECT.

write: sy-subrc.

WRITE: MAKT-MAKTX.

WRITE: VAL.

endif.

REWARD IF USEFULL

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 07:27:38 GMT

i dont think so that we need to use an internal table

we can use the default work area

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 07:28:11 GMT

Did you include the table MAKT in your TABLE?

TABLES: MAKT.

If it still not working, create a variable then use it in your into clause.

...INTO var...

clear var.

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 07:28:58 GMT

HI,

write tables:makt.

statement in ur program.

send ur full code if any further problems are coming.

rgds,

bharat.

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 07:32:18 GMT

REPORT zmftes no standard page heading.

tables: mseg, qamb, mkpf, makt.

data : begin of itab occurs 0,

MBLNR LIKE MSEG-MBLNR,

ZEILE LIKE MSEG-ZEILE,

UOM LIKE MSEG-MEINS,

MATNR LIKE MSEG-MATNR,

RECQTY LIKE MSEG-MENGE,

QCINS like mseg-insmk,

EBELN LIKE MSEG-EBELN,

ACCQTY LIKE MSEG-MENGE,

REJQTY LIKE MSEG-MENGE,

END OF ITAB.

DATA : BEGIN OF ITAB1 OCCURS 0,

MBLNR LIKE MSEG-MBLNR,

ZEILE LIKE MSEG-ZEILE,

MJAHR LIKE MSEG-MJAHR,

END OF ITAB1.

PARAMETERS : PLANT LIKE MSEG-WERKS DEFAULT 'MFPLDJJJREA'.

SELECT-OPTIONS : GRNO FOR MSEG-MBLNR.

PARAMETERS: YEAR LIKE MSEG-MJAHR.

SELECT A_{MBLNR ZEILE MEINS MATNR MENGE INSMK A}EBELN

FROM MSEG as A INNER JOIN MKPF AS B ON A_{MBLNR = B}MBLNR AND A_{MJAHR = B}MJAHR

INTO TABLE ITAB

WHERE A_{WERKS = PLANT AND A}MBLNR IN GRNO AND BWART = '101' AND A~MJAHR = YEAR

AND B~TCODE2 = 'MIGO_GR'.

IF SY-SUBRC <> 0.

WRITE: 'NO RECORD FOUND'.

ENDIF.

DATA : V_QCIDOC LIKE QAMB-PRUEFLOS,

V_QCDOC LIKE MSEG-MBLNR,

V_QCDOC1 LIKE MSEG-ZEILE,

V_QTY LIKE MSEG-MENGE,

V_BWART LIKE MSEG-BWART,

AA TYPE C.

LOOP AT ITAB.

IF ITAB-QCINS = 'X'.

IF ITAB-MBLNR = '5000000002'.

AA = 0.

ENDIF.

v_qcidoc = ''.

SELECT SINGLE PRUEFLOS

FROM QAMB INTO V_QCIDOC

WHERE MBLNR = ITAB-MBLNR AND ZEILE = ITAB-ZEILE.

CLEAR ITAB1.

REFRESH ITAB1.

SELECT MBLNR ZEILE MJAHR

FROM QAMB

INTO TABLE ITAB1

WHERE PRUEFLOS = V_QCIDOC AND MBLNR <> ITAB-MBLNR.

LOOP AT ITAB1.

V_QTY = 0.

SELECT BWART MENGE

INTO (V_BWART, V_QTY)

FROM MSEG WHERE MBLNR = ITAB1-MBLNR AND ZEILE = ITAB1-ZEILE AND XAUTO <> 'X'. " LINE COMMENTED FOR THE YEAR PROBLEM

FROM MSEG WHERE MBLNR = ITAB1-MBLNR AND ZEILE = ITAB1-ZEILE AND XAUTO <> 'X' AND MJAHR = ITAB1-MJAHR.

ENDSELECT.

IF V_BWART = '321'.

ITAB-ACCQTY = V_QTY.

ELSEIF V_BWART = '122'.

ITAB-REJQTY = V_QTY.

ENDIF.

MODIFY ITAB.

ENDLOOP.

ENDIF.

ENDLOOP.

write: / 'MAT DOC NO ZEILE UOM ITEM ID INSPECTION TOTAL QTY ACCPT QTY REJCT QTY PO No'.

LOOP AT ITAB.

WRITE : / ITAB-MBLNR, ' ' , ITAB-ZEILE, ' ', ITAB-UOM, ' ', ITAB-MATNR, ' ', ITAB-QCINS,' ', ITAB-RECQTY, ' ', ITAB-ACCQTY, ' ', ITAB-REJQTY, ' ', ITAB-EBELN.

ENDLOOP.

***************************new code for interactive list*************************

data fld(30).

data val(30).

at line-selection.

clear val.

get cursor field fld value val.

WRITE: VAL.

if fld = 'ITAB-MATNR'.

WRITE 'IF'.

SELECT MAKTX FROM MAKT INTO makt-maktx WHERE MATNR = VAL.

WRITE: makt-MAKTX.

ENDSELECT.

write: sy-subrc.

WRITE: MAKT-MAKTX.

WRITE: VAL.

endif.

*******************************interactive code ends here**********************************

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 07:35:33 GMT

this is my code

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 07:39:50 GMT

HI,

it is giving proper output for me.

i am not facing any problem like u said.

rgds,

bharat.

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 07:59:28 GMT

hey wat is the value of sy-subrc??

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 08:36:08 GMT

ITS URGENT PLZ HELP

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 08:38:59 GMT

IF IS VAL NOT INITIAL.

SELECT SINGLE MAKTX FROM MAKT INTO makt-maktx WHERE MATNR = VAL.

ENDIF.

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 08:43:53 GMT

I HAVE TRIED THIS

BUT IT IS NOT GIVING OUTPUT

Re: SIMPLE PROBLEM

MarkusRest — Thu, 04 Oct 2007 08:54:38 GMT

How about not using 'get field'?

I had many problems with that one.

Instead I prefer the 'HIDE' - Option.

You have to write

[code]hide $yourfield[/code]

in your LOOP with the WRITE section.

then you can just take matnr = $yourfield as Where-option.

If matnr is your primary-key you should take the select single statement.

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 08:57:54 GMT

NO DEAR

OK PPL

I PUT SOME OTHER CODE

IF FLD = 'ITAB-MBLNR'

SELECT SINGLE MBLNR FROM MSEG INTO MSEG-MBLNR WHERE MBLRN = VAL.

WRITE MSEG-MBLNR.

NOW THIS CODE IS WORKING FINE

BUT WHY IT IS NOT WORKING FOR MAKT????

Re: SIMPLE PROBLEM

varma_narayana — Thu, 04 Oct 2007 08:58:05 GMT

Hi..

It may be the Probelm with the Conversion.

So Try this code:

data fld(30).

data val(30).

at line-selection.

clear val.

get cursor field fld value val.

WRITE:/ VAL.

**We have to Convert the Material No (Val) into internal Format

CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'

EXPORTING

INPUT = VAL

IMPORTING

OUTPUT = VAL

WRITE:/ VAL.

if fld = 'ITAB-MATNR'.

WRITE 'IF'.

SELECT MAKTX FROM MAKT INTO makt-maktx WHERE MATNR = VAL.

WRITE: makt-MAKTX.

ENDSELECT.

write: sy-subrc.

WRITE: MAKT-MAKTX.

WRITE: VAL.

endif.

REWARD IF HELPFUL.

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 09:10:03 GMT

BUT WHY IT IS GIVING CORRECT OUTPUT FOR ITAB-MBLNR (mat doc number)

i hav not changed or converted it.

Re: SIMPLE PROBLEM

Former Member — Thu, 04 Oct 2007 09:41:03 GMT

somebody got idea???

Re: SIMPLE PROBLEM

varma_narayana — Thu, 04 Oct 2007 09:46:09 GMT

Hi..

If the ITAB-MBLNR is the Same in both internal and External format then it will work without calling any CONVERSION_EXIT . But in case of MATNR the Internal format is different . So we must call the CONVERSION_EXIT .

reward if Helpful.