topic Re: ABAP Program in Application Development and Automation Discussions

ABAP Program

Former Member — Mon, 05 Feb 2007 21:30:31 GMT

hey

i am creating a ABAP program for testing. I need to know the syntax for the following situation. I have a table AUFM, and i want to select AUFNR, BUDAT, MATNR from AUFM and store it in an internal table. there is a selection option used AUFNR which the user enters. i tried writing a select statement, it doesnt give any syntax error but when i run the program , it gives a short dump.

Points will be assigned to helpful answers.

thanks

Laura.

Re: ABAP Program

Former Member — Mon, 05 Feb 2007 21:32:16 GMT

Hi,

Check the order of declaration of the fields in the internal table with the select statement..

DATA: BEGIN OF ITAB OCCURS 0,

AUFNR LIKE AUFM-AUFNR,

BUDAT LIKE AUFM-BUDAT,

MATNR LIKE AUFM-MATNR,

END OF ITAB.

SELECT AUFNR BUDAT MATNR

INTO TABLE ITAB

FROM AUFM.

Thanks,

Naren

Re: ABAP Program

Former Member — Mon, 05 Feb 2007 21:33:58 GMT

Can we see your code and let us know the type of dump you are getting.

Rob

Re: ABAP Program

Former Member — Mon, 05 Feb 2007 21:47:39 GMT

DATA : BEGIN OF TYPE_AUFM OCCURS 0,

AUFNR TYPE AUFNR, "ORDER

BWART TYPE BWART, "MOVEMENT TYPE

MATNR TYPE MATNR, "MATERIAL

BUDAT TYPE BUDAT, "POSTING DATE

WERKS TYPE WERKS, "PLANT

LGORT TYPE LGORT_D, "STORAGE LOCATION

MENGE TYPE MENGE_D, "QUANTITY IN BASE UNIT

MEINS TYPE MEINS, "BASE UNIT

VORNR TYPE VORNR,
ARBPL TYPE ARBPL,

END OF TYPE_AUFM.

*DATA: AUFM_ITAB TYPE TYPE_AUFM OCCURS 0 WITH HEADER LINE.

DATA : AUFM_ITAB LIKE TYPE_AUFM.

DATA : AUFM_WA2 LIKE AUFM_ITAB.

SELECT AUFNR BWART MATNR BUDAT WERKS LGORT MENGE MEINS FROM AUFM INTO TYPE_AUFM WHERE AUFNR IN ORDER.

ENDSELECT.

LOOP AT TYPE_AUFM INTO AUFM_WA2.

READ TABLE TYPE_AUFM INDEX SY-TABIX.

WRITE 😕 AUFM_WA2-AUFNR.

ENDLOOP.

i wrote the above code, its not giving a short dump now, but it doesnt display any result ??

Re: ABAP Program

Former Member — Mon, 05 Feb 2007 21:48:54 GMT

Hi,

the problem could be with the internal table declaration.

Whenever you use SELECT ... INTO TABLE ....statement...make sure that the sequence of fields used in the select statement is same as the the sequence of fields in the internal table. If the sequence does not match, then the program gives a dump. To avoid this change the sequence of fields either in the internal table or in the select statement or use SELECT ... INTO CORRESPONDING FIELDS OF TABLE statement.

Regards,

Vara

Re: ABAP Program

Former Member — Mon, 05 Feb 2007 21:51:13 GMT

Try:


SELECT AUFNR BWART MATNR BUDAT WERKS LGORT MENGE MEINS  
  FROM AUFM 
  INTO TABLE TYPE_AUFM
  WHERE AUFNR IN ORDER.

No ENDSELECT.

rob

Re: ABAP Program

ferry_lianto — Mon, 05 Feb 2007 21:52:14 GMT

Hi,

Please try this.


SELECT AUFNR BWART MATNR BUDAT WERKS LGORT MENGE MEINS
FROM AUFM 
INTO TABLE TYPE_AUFM 
ORDER BY AUFNR.

LOOP AT TYPE_AUFM INTO AUFM_WA2.
READ TABLE TYPE_AUFM INDEX SY-TABIX.
WRITE :/ AUFM_WA2-AUFNR.
ENDLOOP.

Regards,

Ferry Lianto

Re: ABAP Program

Former Member — Mon, 05 Feb 2007 21:53:26 GMT

Hi,

Check the changes in bold..

SELECT AUFNR BWART MATNR BUDAT WERKS LGORT MENGE MEINS FROM AUFM INTO TYPE_AUFM WHERE AUFNR IN ORDER.

APPEND TYPE_AUFM.

ENDSELECT.

LOOP AT TYPE_AUFM INTO AUFM_WA2.

READ TABLE TYPE_AUFM INDEX SY-TABIX.

WRITE 😕 AUFM_WA2-AUFNR.

ENDLOOP.

SELECT AUFNR BWART MATNR BUDAT WERKS LGORT MENGE MEINS FROM AUFM INTO TABLE TYPE_AUFM WHERE AUFNR IN ORDER.

LOOP AT TYPE_AUFM INTO AUFM_WA2.

READ TABLE TYPE_AUFM INDEX SY-TABIX.

WRITE 😕 AUFM_WA2-AUFNR.

ENDLOOP.

Thanks,

Naren

Re: ABAP Program

Former Member — Mon, 05 Feb 2007 21:53:50 GMT

Hi,

Use the below code

types : BEGIN OF TYPE_AUFM OCCURS 0,

AUFNR TYPE AUFNR, "ORDER

BWART TYPE BWART, "MOVEMENT TYPE

MATNR TYPE MATNR, "MATERIAL

BUDAT TYPE BUDAT, "POSTING DATE

WERKS TYPE WERKS, "PLANT

LGORT TYPE LGORT_D, "STORAGE LOCATION

MENGE TYPE MENGE_D, "QUANTITY IN BASE UNIT

MEINS TYPE MEINS, "BASE UNIT

END OF TYPE_AUFM.

types: ITAB TYPE standard table of TYPE_AUFM.

DATA : AUFM_ITAB TYPE ITAB.

DATA : AUFM_WA2 TYPE TYPE_AUFM.

SELECT AUFNR BWART MATNR BUDAT WERKS LGORT MENGE MEINS FROM AUFM INTO TYPE_AUFM2 WHERE AUFNR IN ORDER.

APPEND TYPE_AUFM2 to AUFM_ITAB .

clear TYPE_AUFM2.

ENDSELECT

LOOP AT AUFM_ITAB INTO AUFM_WA2.

WRITE 😕 AUFM_WA2-AUFNR.

ENDLOOP.

Regards,

Vara