SAP Script Programe..

[Former Member]

Hi everybody,

I want some sample code for write sap script code. how to write sap script code inside se71?

Thanks

S.Muthu

[Former Member]

Hi Subramaniyan ,

do you need sample print program or you want to write inside se71?

regards ,

srikanth.

[Former Member]

Hi Srikanth,

I want Write code inside se71. How to use looping statement inside se71.

Thanks

S.Muthu

[Former Member]

&----

---

*& Report ZSCR84375 *

*& *

&----

---

*& *

*& *

&----

---

REPORT zscr84375 .

TABLES : vbrk, kna1, adrc, vbrp.

DATA : wa_kna1 LIKE kna1 OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF itab OCCURS 0,

matnr LIKE vbrp-matnr,

arktx LIKE vbrp-arktx,

fkimg LIKE vbrp-fkimg,

vrkme LIKE vbrp-vrkme,

netwr LIKE vbrp-netwr,

w_netwr LIKE vbrk-netwr,

waerk LIKE vbrk-waerk,

END OF itab.

----

---

SELECTION SCREEN -

---

SELECT-OPTIONS: S_VBELN FOR VBRK-VBELN NO INTERVALS.

----

---

SELECTING REQUIRED VALUES -

---

SELECT SINGLE * FROM VBRK WHERE VBELN IN S_VBELN.

SELECT SINGLE * FROM kna1 WHERE KUNNR = VBRK-KUNRG.

SELECT SINGLE * FROM aDRC WHERE addrnumber = kna1-adrnr AND date_from <=

sy-datum AND date_to >= sy-datum.

SELECT vp~matnr

vp~arktx

vp~fkimg

vp~vrkme

vp~netwr

vk~netwr

vk~waerk

INTO TABLE itab

FROM vbrk AS vk INNER JOIN vbrp AS vp ON vk_{vbeln = vp}vbeln

WHERE vp~vbeln IN s_vbeln.

CHECK SY-SUBRC = 0.

----

---

OPENING FORM -

---

CALL FUNCTION 'OPEN_FORM'

EXPORTING

• APPLICATION = 'TX'

• ARCHIVE_INDEX =

• ARCHIVE_PARAMS =

• DEVICE = 'PRINTER'

• DIALOG = 'X'

FORM = 'ZSCR_84375'

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.

--

---

READING HEAD IN MAIN--

---

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEAD'

WINDOW = 'MAIN'.

--

---

READING TABLE IN LOOP--

---

LOOP AT ITAB.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'ITEM_DETAILS '

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'MAIN'

• 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.

ENDLOOP.

----

---

CLOSING FORM -

---

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.