sap script

[Former Member]

Hai All Experts,

i have problem with my script,i created script but i dont how to link all the tables to get the data in script,

here,

po = purchsae order no.

date = created date,

to = company address,

deliver to = plant address,

so in this i should get the data related to particular purchase order, n it should display all quantity ,decription, total amount n so on,

TABLES : LFA1,

EKKO,

EKPO,

MAKT,

T001W.

SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN.

*TYPES : BEGIN OF ITAB,

• EBELN TYPE EKKO-EBELN, "P.O.NUMBER

• AEDAT TYPE EKKO-AEDAT, "DATE

• NETWR TYPE EKPO-NETWR, "UNIT PRICE

• MENGE TYPE EKPO-MENGE, "Purchase order quantity

• WERKS TYPE T001W-WERKS, "PLANT

• BRTWR TYPE EKPO-BRTWR, "Gross order value in PO

• STRAS TYPE LFA1-STRAS, "House number and street

• LIFNR TYPE T001W-LIFNR, "VENDOR NO

• NAME1 TYPE LFA1-NAME1, "V NAME

• ORT01 TYPE LFA1-ORT01, "CITY

• LAND1 TYPE LFA1-LAND1, "LAND

• PSTLZ TYPE LFA1-PSTLZ, "POSTAL CODE

• MAKTX TYPE MAKT-MAKTX, "DESCRIPTION

*END OF ITAB.

*DATA : W_ITAB TYPE ITAB.

*DATA : T_ITAB TYPE STANDARD TABLE OF ITAB INITIAL SIZE 1.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

• APPLICATION = 'TX'

• ARCHIVE_INDEX =

• ARCHIVE_PARAMS =

• DEVICE = 'PRINTER'

• DIALOG = 'X'

FORM = 'Z_RA_FORM2'

LANGUAGE = SY-LANGU

• OPTIONS =

• MAIL_SENDER =

• MAIL_RECIPIENT =

• MAIL_APPL_OBJECT =

• RAW_DATA_INTERFACE = '*'

• IMPORTING

• LANGUAGE =

• NEW_ARCHIVE_PARAMS =

• RESULT =

• EXCEPTIONS

• CANCELED = 1

• DEVICE = 2

• FORM = 3

• OPTIONS = 4

• UNCLOSED = 5

• MAIL_OPTIONS = 6

• ARCHIVE_ERROR = 7

• INVALID_FAX_NUMBER = 8

• MORE_PARAMS_NEEDED_IN_BATCH = 9

• SPOOL_ERROR = 10

• CODEPAGE = 11

• OTHERS = 12

.

IF SY-SUBRC <> 0.

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

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

ENDIF.

*SELECT EKKO~EBELN

• EKKO~AEDAT

*EKPO~netwr

*EKPO~MENGE

*EKPO~WERKS

*EKPO~BRTWR

*LFA1~LIFNR

*LFA1~STRAS

*LFA1~NAME1

*LFA1~ORT01

*LFA1~LAND1

*LFA1~PSTLZ

*MAKT~MAKTX

*INTO TABLE T_ITAB

*FROM EKKO

*INNER JOIN EKPO

*ON EKKO_{EBELN = EKPO}EBELN join LFA1 on EKKO_{lifnr = lfa1}lifnr join

*T001W on ekPo_{werks = t001W}werks join MAKT ON

*EKpO_{matnr = makt}matnr

*WHERE EKKO~EBELN IN S_EBELN.

SELECT * FROM LFA1.

ENDSELECT.

SELECT * FROM EKPO.

ENDSELECT.

SELECT * FROM MAKT.

ENDSELECT.

SELECT * FROM EKKO WHERE EBELN IN S_EBELN.

ENDSELECT.

SELECT * FROM T001W.

ENDSELECT.

CALL FUNCTION 'START_FORM'

EXPORTING

• ARCHIVE_INDEX =

FORM = 'Z_RA_FORM2'

LANGUAGE = SY-LANGU

STARTPAGE = 'PAGE1'

PROGRAM = 'Z_RA_FORM2'

• MAIL_APPL_OBJECT =

• IMPORTING

• LANGUAGE =

• EXCEPTIONS

• FORM = 1

• FORMAT = 2

• UNENDED = 3

• UNOPENED = 4

• UNUSED = 5

• SPOOL_ERROR = 6

• CODEPAGE = 7

• OTHERS = 8

.

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 'WRITE_FORM'

EXPORTING

• ELEMENT = ' '

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'ADDRESS'

• IMPORTING

• PENDING_LINES =

• EXCEPTIONS

• ELEMENT = 1

• FUNCTION = 2

• TYPE = 3

• UNOPENED = 4

• UNSTARTED = 5

• WINDOW = 6

• BAD_PAGEFORMAT_FOR_PRINT = 7

• SPOOL_ERROR = 8

• CODEPAGE = 9

• OTHERS = 10

.

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 'END_FORM'

• IMPORTING

• RESULT =

• EXCEPTIONS

• UNOPENED = 1

• BAD_PAGEFORMAT_FOR_PRINT = 2

• SPOOL_ERROR = 3

• CODEPAGE = 4

• OTHERS = 5

.

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 'CLOSE_FORM'

• IMPORTING

• RESULT =

• RDI_RESULT =

• TABLES

• OTFDATA =

• EXCEPTIONS

• UNOPENED = 1

• BAD_PAGEFORMAT_FOR_PRINT = 2

• SEND_ERROR = 3

• SPOOL_ERROR = 4

• CODEPAGE = 5

• OTHERS = 6

.

IF SY-SUBRC <> 0.

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

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

ENDIF.

this is my code plz relate all this in correct form,n my form is like this

[Former Member]

get all the data from different tables into one internal table.

call function modules open_form,write_form,close_form.

pass your final internal table to function module.

your data will be passed to script automatically.