2007 Oct 12 12:44 PM
REPORT ZTABLEDATA .
TABLES: VBUK,VBAP,LIKP.
*DATA: BEGIN OF ITAB1 OCCURS 0,
VBELN TYPE VBUK-VBELN,
RFSTK TYPE VBUK-RFSTK,
RFGSK TYPE VBUK-RFGSK,
BESTK TYPE VBUK-BESTK,
LFSTK TYPE VBUK-LFSTK,
LFGSK TYPE VBUK-LFGSK,
WBSTK TYPE VBUK-WBSTK,
FKSTK TYPE VBUK-FKSTK,
FKSAK TYPE VBUK-FKSAK,
VBOBJ TYPE VBUK-VBOBJ,
END OF ITAB1.
*DATA: BEGIN OF ITAB2 OCCURS 0,
ERZET TYPE LIKP-ERZET,
ERDAT TYPE LIKP-ERDAT,
BZIRK TYPE LIKP-BZIRK,
VSTEL TYPE LIKP-VSTEL,
VKORG TYPE LIKP-VKORG,
POTIM TYPE LIKP-POTIM,
END OF ITAB2.
DATA: BEGIN OF ITAB3 OCCURS 0,
VBELN TYPE VBUK-VBELN,
RFSTK TYPE VBUK-RFSTK,
RFGSK TYPE VBUK-RFGSK,
BESTK TYPE VBUK-BESTK,
LFSTK TYPE VBUK-LFSTK,
LFGSK TYPE VBUK-LFGSK,
WBSTK TYPE VBUK-WBSTK,
FKSTK TYPE VBUK-FKSTK,
FKSAK TYPE VBUK-FKSAK,
VBOBJ TYPE VBUK-VBOBJ,
ERZET TYPE LIKP-ERZET,
ERDAT TYPE LIKP-ERDAT,
BZIRK TYPE LIKP-BZIRK,
VSTEL TYPE LIKP-VSTEL,
VKORG TYPE LIKP-VKORG,
POTIM TYPE LIKP-POTIM,
END OF ITAB3.
PARAMETERS: SALESORD LIKE VBUK-VBELN.
*SELECT * FROM LIKP INTO CORRESPONDING FIELDS OF TABLE itab2.
*SELECT * FROM VBUK INTO CORRESPONDING FIELDS OF TABLE itab1.
SELECT VBUK~VBELN
VBUK~RFSTK
VBUK~RFGSK
VBUK~BESTK
VBUK~LFSTK
VBUK~LFGSK
VBUK~WBSTK
VBUK~FKSTK
VBUK~FKSAK
VBUK~VBOBJ
LIKP~ERZET
LIKP~ERDAT
LIKP~BZIRK
LIKP~VSTEL
LIKP~VKORG
LIKP~POTIM
into corresponding fields of table ITAB3 FROM VBUK INNER JOIN LIKP
ON VBUKVBELN = LIKPVBELN WHERE VBELN = SALESORD.
LOOP AT ITAB3.
WRITE: / ITAB3-VBELN,
ITAB3-RFSTK,
ITAB3-RFGSK,
ITAB3-BESTK,
ITAB3-LFSTK,
ITAB3-LFGSK,
ITAB3-WBSTK,
ITAB3-FKSTK,
ITAB3-FKSAK,
ITAB3-VBOBJ,
ITAB3-ERZET,
ITAB3-ERDAT,
ITAB3-BZIRK,
ITAB3-VSTEL,
ITAB3-VKORG,
ITAB3-POTIM,
SY-ULINE.
ENDLOOP.
IF SY-SUBRC <> 0.
WRITE:/'NO DATA FOUND IN THE TABLE'.
ENDIF.
ITS GIVING ERROR PLEASE CHECK.
REPORT ZTABLEDATA .
TABLES: VBUK,VBAP,LIKP.
*DATA: BEGIN OF ITAB1 OCCURS 0,
VBELN TYPE VBUK-VBELN,
RFSTK TYPE VBUK-RFSTK,
RFGSK TYPE VBUK-RFGSK,
BESTK TYPE VBUK-BESTK,
LFSTK TYPE VBUK-LFSTK,
LFGSK TYPE VBUK-LFGSK,
WBSTK TYPE VBUK-WBSTK,
FKSTK TYPE VBUK-FKSTK,
FKSAK TYPE VBUK-FKSAK,
VBOBJ TYPE VBUK-VBOBJ,
END OF ITAB1.
*DATA: BEGIN OF ITAB2 OCCURS 0,
ERZET TYPE LIKP-ERZET,
ERDAT TYPE LIKP-ERDAT,
BZIRK TYPE LIKP-BZIRK,
VSTEL TYPE LIKP-VSTEL,
VKORG TYPE LIKP-VKORG,
POTIM TYPE LIKP-POTIM,
END OF ITAB2.
DATA: BEGIN OF ITAB3 OCCURS 0,
VBELN TYPE VBUK-VBELN,
RFSTK TYPE VBUK-RFSTK,
RFGSK TYPE VBUK-RFGSK,
BESTK TYPE VBUK-BESTK,
LFSTK TYPE VBUK-LFSTK,
LFGSK TYPE VBUK-LFGSK,
WBSTK TYPE VBUK-WBSTK,
FKSTK TYPE VBUK-FKSTK,
FKSAK TYPE VBUK-FKSAK,
VBOBJ TYPE VBUK-VBOBJ,
ERZET TYPE LIKP-ERZET,
ERDAT TYPE LIKP-ERDAT,
BZIRK TYPE LIKP-BZIRK,
VSTEL TYPE LIKP-VSTEL,
VKORG TYPE LIKP-VKORG,
POTIM TYPE LIKP-POTIM,
END OF ITAB3.
PARAMETERS: SALESORD LIKE VBUK-VBELN.
*SELECT * FROM LIKP INTO CORRESPONDING FIELDS OF TABLE itab2.
*SELECT * FROM VBUK INTO CORRESPONDING FIELDS OF TABLE itab1.
SELECT VBUK~VBELN
VBUK~RFSTK
VBUK~RFGSK
VBUK~BESTK
VBUK~LFSTK
VBUK~LFGSK
VBUK~WBSTK
VBUK~FKSTK
VBUK~FKSAK
VBUK~VBOBJ
LIKP~ERZET
LIKP~ERDAT
LIKP~BZIRK
LIKP~VSTEL
LIKP~VKORG
LIKP~POTIM
into corresponding fields of table ITAB3 FROM VBUK INNER JOIN LIKP
ON VBUKVBELN = LIKPVBELN WHERE VBELN = SALESORD.
LOOP AT ITAB3.
WRITE: / ITAB3-VBELN,
ITAB3-RFSTK,
ITAB3-RFGSK,
ITAB3-BESTK,
ITAB3-LFSTK,
ITAB3-LFGSK,
ITAB3-WBSTK,
ITAB3-FKSTK,
ITAB3-FKSAK,
ITAB3-VBOBJ,
ITAB3-ERZET,
ITAB3-ERDAT,
ITAB3-BZIRK,
ITAB3-VSTEL,
ITAB3-VKORG,
ITAB3-POTIM,
SY-ULINE.
ENDLOOP.
IF SY-SUBRC <> 0.
WRITE:/'NO DATA FOUND IN THE TABLE'.
ENDIF.
ITS GIVING ERROR PLEASE CHECK.
2007 Oct 12 12:45 PM
HI,
in where condition u have to mention the table name to which the field belongs to.here it was there in two tables so,u can give any one(<b>VBUK~ or LIKP~</b>)
TABLES: VBUK,VBAP,LIKP.
*DATA: BEGIN OF ITAB1 OCCURS 0,
VBELN TYPE VBUK-VBELN,
RFSTK TYPE VBUK-RFSTK,
RFGSK TYPE VBUK-RFGSK,
BESTK TYPE VBUK-BESTK,
LFSTK TYPE VBUK-LFSTK,
LFGSK TYPE VBUK-LFGSK,
WBSTK TYPE VBUK-WBSTK,
FKSTK TYPE VBUK-FKSTK,
FKSAK TYPE VBUK-FKSAK,
VBOBJ TYPE VBUK-VBOBJ,
END OF ITAB1.
*DATA: BEGIN OF ITAB2 OCCURS 0,
ERZET TYPE LIKP-ERZET,
ERDAT TYPE LIKP-ERDAT,
BZIRK TYPE LIKP-BZIRK,
VSTEL TYPE LIKP-VSTEL,
VKORG TYPE LIKP-VKORG,
POTIM TYPE LIKP-POTIM,
END OF ITAB2.
DATA: BEGIN OF ITAB3 OCCURS 0,
VBELN TYPE VBUK-VBELN,
RFSTK TYPE VBUK-RFSTK,
RFGSK TYPE VBUK-RFGSK,
BESTK TYPE VBUK-BESTK,
LFSTK TYPE VBUK-LFSTK,
LFGSK TYPE VBUK-LFGSK,
WBSTK TYPE VBUK-WBSTK,
FKSTK TYPE VBUK-FKSTK,
FKSAK TYPE VBUK-FKSAK,
VBOBJ TYPE VBUK-VBOBJ,
ERZET TYPE LIKP-ERZET,
ERDAT TYPE LIKP-ERDAT,
BZIRK TYPE LIKP-BZIRK,
VSTEL TYPE LIKP-VSTEL,
VKORG TYPE LIKP-VKORG,
POTIM TYPE LIKP-POTIM,
END OF ITAB3.
PARAMETERS: SALESORD LIKE VBUK-VBELN.
*SELECT * FROM LIKP INTO CORRESPONDING FIELDS OF TABLE itab2.
*SELECT * FROM VBUK INTO CORRESPONDING FIELDS OF TABLE itab1.
SELECT VBUK~VBELN
VBUK~RFSTK
VBUK~RFGSK
VBUK~BESTK
VBUK~LFSTK
VBUK~LFGSK
VBUK~WBSTK
VBUK~FKSTK
VBUK~FKSAK
VBUK~VBOBJ
LIKP~ERZET
LIKP~ERDAT
LIKP~BZIRK
LIKP~VSTEL
LIKP~VKORG
LIKP~POTIM
into corresponding fields of table ITAB3 FROM VBUK INNER JOIN LIKP
ON VBUKVBELN = LIKPVBELN WHERE <b>LIKP~</b>VBELN = SALESORD.
LOOP AT ITAB3.
WRITE: / ITAB3-VBELN,
ITAB3-RFSTK,
ITAB3-RFGSK,
ITAB3-BESTK,
ITAB3-LFSTK,
ITAB3-LFGSK,
ITAB3-WBSTK,
ITAB3-FKSTK,
ITAB3-FKSAK,
ITAB3-VBOBJ,
ITAB3-ERZET,
ITAB3-ERDAT,
ITAB3-BZIRK,
ITAB3-VSTEL,
ITAB3-VKORG,
ITAB3-POTIM,
SY-ULINE.
ENDLOOP.
IF SY-SUBRC <> 0.
WRITE:/'NO DATA FOUND IN THE TABLE'.
ENDIF.
rgds,
bharat.
2007 Oct 12 12:53 PM
Hi
into corresponding fields of table ITAB3 FROM VBUK INNER JOIN LIKP
ON VBUKVBELN = LIKPVBELN WHERE <b>VBELN = SALESORD</b>
here ur ferering to the field directly thats why it showing error
in that ur joining 2 tables
from which table u want to refer that
VBUK~VBELN = SALESORD
or
LIKP~VBELN = SALESORD
<b>Reward if usefull</b>
2007 Oct 12 1:02 PM
Hi ,
Try This.
REPORT ZTABLEDATA .
TABLES: VBUK,VBAP,LIKP.
*DATA: BEGIN OF ITAB1 OCCURS 0,
VBELN TYPE VBUK-VBELN,
RFSTK TYPE VBUK-RFSTK,
RFGSK TYPE VBUK-RFGSK,
BESTK TYPE VBUK-BESTK,
LFSTK TYPE VBUK-LFSTK,
LFGSK TYPE VBUK-LFGSK,
WBSTK TYPE VBUK-WBSTK,
FKSTK TYPE VBUK-FKSTK,
FKSAK TYPE VBUK-FKSAK,
VBOBJ TYPE VBUK-VBOBJ,
END OF ITAB1.
*DATA: BEGIN OF ITAB2 OCCURS 0,
ERZET TYPE LIKP-ERZET,
ERDAT TYPE LIKP-ERDAT,
BZIRK TYPE LIKP-BZIRK,
VSTEL TYPE LIKP-VSTEL,
VKORG TYPE LIKP-VKORG,
POTIM TYPE LIKP-POTIM,
END OF ITAB2.
DATA: BEGIN OF ITAB3 OCCURS 0,
VBELN TYPE VBUK-VBELN,
RFSTK TYPE VBUK-RFSTK,
RFGSK TYPE VBUK-RFGSK,
BESTK TYPE VBUK-BESTK,
LFSTK TYPE VBUK-LFSTK,
LFGSK TYPE VBUK-LFGSK,
WBSTK TYPE VBUK-WBSTK,
FKSTK TYPE VBUK-FKSTK,
FKSAK TYPE VBUK-FKSAK,
VBOBJ TYPE VBUK-VBOBJ,
ERZET TYPE LIKP-ERZET,
ERDAT TYPE LIKP-ERDAT,
BZIRK TYPE LIKP-BZIRK,
VSTEL TYPE LIKP-VSTEL,
VKORG TYPE LIKP-VKORG,
POTIM TYPE LIKP-POTIM,
END OF ITAB3.
PARAMETERS: SALESORD LIKE VBUK-VBELN.
*SELECT * FROM LIKP INTO CORRESPONDING FIELDS OF TABLE itab2.
*SELECT * FROM VBUK INTO CORRESPONDING FIELDS OF TABLE itab1.
SELECT VBUK~VBELN
VBUK~RFSTK
VBUK~RFGSK
VBUK~BESTK
VBUK~LFSTK
VBUK~LFGSK
VBUK~WBSTK
VBUK~FKSTK
VBUK~FKSAK
VBUK~VBOBJ
LIKP~ERZET
LIKP~ERDAT
LIKP~BZIRK
LIKP~VSTEL
LIKP~VKORG
LIKP~POTIM
into corresponding fields of table ITAB3 FROM VBUK INNER JOIN LIKP
ON VBUKVBELN = LIKPVBELN WHERE <b>VBUK~VBELN</b> = SALESORD.
LOOP AT ITAB3.
WRITE: / ITAB3-VBELN,
ITAB3-RFSTK,
ITAB3-RFGSK,
ITAB3-BESTK,
ITAB3-LFSTK,
ITAB3-LFGSK,
ITAB3-WBSTK,
ITAB3-FKSTK,
ITAB3-FKSAK,
ITAB3-VBOBJ,
ITAB3-ERZET,
ITAB3-ERDAT,
ITAB3-BZIRK,
ITAB3-VSTEL,
ITAB3-VKORG,
ITAB3-POTIM,
SY-ULINE.
ENDLOOP.
IF SY-SUBRC <> 0.
WRITE:/'NO DATA FOUND IN THE TABLE'.
ENDIF.
Reward if useful.
Regards,
Chitra
2007 Oct 12 2:04 PM
Hi,
In your select statement in where condition either use VBELN from VBUK or LIKP
<b>example VBUKVBELN or LIKPVBELN. Use any one.</b>
Thanks,
Sriram Ponna.
| User | Count |
|---|---|
| 3 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |