topic Re: sapscript example in Application Development and Automation Discussions

sapscript example

Former Member — Sun, 08 Apr 2007 07:02:19 GMT

can anyone copy example of script driver program

progrm should include

open form

start form

write form

end form

close form

Re: sapscript example

Former Member — Sun, 08 Apr 2007 08:05:41 GMT

Hi deepa,

Check this sample code ...

REPORT ZPSAPSCRIPT.

TABLES : EKKO,

EKPO,

KNA1,

USR01,

MARA,

MAKT.

DATA : BEGIN OF ZOPTION.

INCLUDE STRUCTURE ITCPO.

DATA : END OF ZOPTION.

PARAMETERS: P_EBELN LIKE EKKO-EBELN,

P_EBELP LIKE EKPO-EBELP.

CLEAR EKPO.

SELECT SINGLE * FROM EKPO

WHERE EBELN = P_EBELN AND

EBELP = P_EBELP.

CLEAR KNA1.

SELECT SINGLE NAME1 FROM KNA1

INTO KNA1-NAME1

WHERE KUNNR = EKPO-KUNNR.

CLEAR MAKT.

SELECT SINGLE MAKTX FROM MAKT

INTO MAKT-MAKTX

WHERE MATNR = EKPO-MATNR AND

SPRAS = SY-LANGU.

CLEAR USR01.

SELECT SINGLE * FROM USR01 WHERE BNAME = SY-UNAME.

ZOPTION-TDDEST = USR01-SPLD. "Output device (printer)

ZOPTION-TDIMMED = 'X'. "Print immediately

ZOPTION-TDDELETE = 'X'. "Delete after printing

ZOPTION-TDPROGRAM = 'ZPQRPRNT'. "Program Name

CALL FUNCTION 'OPEN_FORM'

EXPORTING

APPLICATION = 'TX'

ARCHIVE_INDEX = ' '
ARCHIVE_PARAMS = ' '

DEVICE = 'PRINTER'

DIALOG = ' '

FORM = 'Z_TESTSCRIPT'

LANGUAGE = SY-LANGU

OPTIONS = ZOPTION

IMPORTING

LANGUAGE = SY-LANGU

EXCEPTIONS

OTHERS = 1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER'

FUNCTION = 'SET'
TYPE = 'BODY'

WINDOW = 'HEADER'

EXCEPTIONS

ELEMENT = 1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'MAIN'

FUNCTION = 'SET'
TYPE = 'BODY'

WINDOW = 'MAIN'

EXCEPTIONS

ELEMENT = 1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FOOTER'

FUNCTION = 'SET'
TYPE = 'BODY'

WINDOW = 'FOOTER'

EXCEPTIONS

ELEMENT = 1.

CALL FUNCTION 'CLOSE_FORM'

EXCEPTIONS

UNOPENED = 1

OTHERS = 2.

regards,

sai ramesh

Re: sapscript example

Former Member — Sun, 08 Apr 2007 08:16:22 GMT

Hi Ramesh,

If u have driver programme

with start form

end form

quite useful for me

Deepa

Re: sapscript example

Former Member — Sun, 08 Apr 2007 08:33:28 GMT

Hi deepa !!

go through this link .. it helps u a lot !!!

http://sap.niraj.tripod.com/id20.html

reward if it helps u..

sai ramesh

Re: sapscript example

Vijay — Mon, 09 Apr 2007 06:40:14 GMT

plz find the sample sapscrip print program code.....

TABLES :vbrk , kna1 , adrc ,vbrp.

SELECT-OPTIONS : s_vbeln FOR vbrk-vbeln.

TYPES: BEGIN OF st_itab,

vbeln TYPE vbrk-vbeln,

fkdat TYPE vbrk-fkdat,

kunrg TYPE vbrk-kunrg,

xblnr TYPE vbrk-xblnr,

netwr TYPE vbrk-netwr ,

waerk TYPE vbrk-waerk,

END OF st_itab.

DATA: itab TYPE STANDARD TABLE OF st_itab,

wa_itab TYPE st_itab.

DATA :adr_no TYPE kna1-adrnr,

v_kunrg TYPE vbrk-kunrg.

TYPES : BEGIN OF st_itab1,

name1 TYPE adrc-name1,

street TYPE adrc-street ,

city1 TYPE adrc-city1 ,

post_code1 TYPE adrc-post_code1 ,

country TYPE adrc-country ,

tel_number TYPE adrc-tel_number ,

END OF st_itab1.

DATA: itab1 TYPE STANDARD TABLE OF st_itab1,

wa_itab1 TYPE st_itab1.

TYPES:BEGIN OF st_itab3,

matnr TYPE vbrp-matnr,

arktx TYPE vbrp-arktx,

fkimg TYPE vbrp-fkimg,

vrkme TYPE vbrp-vrkme,

netwr TYPE vbrp-netwr,

END OF st_itab3.

DATA: itab3 TYPE STANDARD TABLE OF st_itab3,

wa_itab3 TYPE st_itab3,

v_total TYPE vbrp-netwr value 0.

data : s1(3) type p decimals 1, "Box Y position

s2(3) type p decimals 1 value '0.5'. "Box Height

***************

***OPEN FORM

*****************

CALL FUNCTION 'OPEN_FORM'

EXPORTING

APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =
DEVICE = 'PRINTER'
DIALOG = 'X'

form = 'Z_CHALLENGE'

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.

******************

*PAGE NUMBER

******************

SELECT vbeln

fkdat

kunrg

xblnr

netwr

waerk

FROM vbrk

INTO TABLE itab

WHERE vbeln IN s_vbeln .

LOOP AT itab INTO wa_itab.

clear : s1.

s1 = '0.5'.

CLEAR V_TOTAL.

CALL FUNCTION 'START_FORM'

EXPORTING

ARCHIVE_INDEX =

form = 'Z_CHALLENGE'

language = sy-langu

STARTPAGE = ' '
PROGRAM = ' '
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 = 'HEADER'

FUNCTION = 'SET'
TYPE = 'BODY'

window = 'HEADER'

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.

SELECT SINGLE kunrg INTO v_kunrg FROM vbrk WHERE vbeln = wa_itab-vbeln.

SELECT SINGLE adrnr FROM kna1 INTO adr_no WHERE kunnr = v_kunrg.

SELECT SINGLE name1

street

city1

post_code1

country

tel_number

INTO wa_itab1

FROM adrc WHERE addrnumber = adr_no

AND date_from <= sy-datum AND date_to >= sy-datum.

*****************

INVOICE DIPLAY

****************

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'INVOICE'

function = 'APPEND'

type = 'BODY'

window = 'INVOICE'

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.

*********************

*ADDRESS

*******************

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ADDRESS'

function = 'APPEND'

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.

*****************

MAIN HEADER

*****************

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_MAIN'

function = 'APPEND'

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.

***********************

*DISPLAYING DATA

***********************

SELECT matnr

arktx

fkimg

vrkme

netwr

INTO CORRESPONDING FIELDS OF TABLE itab3

FROM vbrp

WHERE vbeln = wa_itab-vbeln.

LOOP AT itab3 INTO wa_itab3 .

compute v_total = v_total + wa_itab3-netwr .

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'DATA'

function = 'APPEND'

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.

****************************

*FOOTER

****************************

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'FOOTER'

FUNCTION = 'SET'
TYPE = 'BODY'

window = 'FOOTER'

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.

s1 = s1 + '0.4' .

ENDLOOP.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'TOTAL'

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.

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.

ENDLOOP.

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.

plz reward pts if helpful.

regards

vijay

Re: sapscript example

Former Member — Mon, 09 Apr 2007 06:42:47 GMT

Hi Deepa,

Check this code.

CALL FUNCTION 'OPEN_FORM'

EXPORTING
APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =
DEVICE = 'PRINTER'
DIALOG = 'X'
FORM = 'ZSCRIPT1'
LANGUAGE = SY-LANGU
OPTIONS =
MAIL_SENDER =
MAIL_RECIPIENT =
MAIL_APPL_OBJECT =
RAW_DATA_INTERFACE = '*'
SPONUMIV =
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.

CALL FUNCTION 'START_FORM'

EXPORTING

ARCHIVE_INDEX =

FORM = 'ZFORM1'

LANGUAGE = ' '
STARTPAGE = 'X'

PROGRAM = 'ZSCRIPT1'

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 = 'HEADER'

IMPORTING
PENDING_LINES =

EXCEPTIONS

ELEMENT = 1

FUNCTION = 2

TYPE = 3

UNOPENED = 4

UNSTARTED = 5

WINDOW = 6

BAD_PAGEFORMAT_FOR_PRINT = 7

SPOOL_ERROR = 8

OTHERS = 9

IF SY-SUBRC <> 0.

write:/ 'ERROR IN HEADER'.

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

OTHERS = 9

IF SY-SUBRC <> 0.

write:/ 'ERROR IN HEADER'.

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 = 'FOOTER'

IMPORTING
PENDING_LINES =

EXCEPTIONS

ELEMENT = 1

FUNCTION = 2

TYPE = 3

UNOPENED = 4

UNSTARTED = 5

WINDOW = 6

BAD_PAGEFORMAT_FOR_PRINT = 7

SPOOL_ERROR = 8

OTHERS = 9

IF SY-SUBRC <> 0.

write:/ 'ERROR IN HEADER'.

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

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

Hope this resolves your query.

Reward all the helpful answers.

Regards

Re: sapscript example

Former Member — Mon, 09 Apr 2007 08:57:37 GMT

here is an eg code for sap script

QUESTION

Header

In the header, print the general data valid for the entire billing document

• Document number

• Identification number of the payer and his address

• Billing date

• Net value of the entire billing document

• Document currency

Items

• Material number

• Billing quantity

• Net value

• Currency

Input: A selection screen with a select option for entering billing document(s). Search help should be enabled.

Output: All the entered billing documents should be displayed once

TABLES :vbrk , kna1 , adrc ,vbrp.

SELECT-OPTIONS : s_vbeln FOR vbrk-vbeln.

TYPES: BEGIN OF st_itab,

vbeln TYPE vbrk-vbeln,

fkdat TYPE vbrk-fkdat,

kunrg TYPE vbrk-kunrg,

xblnr TYPE vbrk-xblnr,

netwr TYPE vbrk-netwr ,

waerk TYPE vbrk-waerk,

END OF st_itab.

DATA: itab TYPE STANDARD TABLE OF st_itab,

wa_itab TYPE st_itab.

DATA :adr_no TYPE kna1-adrnr,

v_kunrg TYPE vbrk-kunrg.

TYPES : BEGIN OF st_itab1,

name1 TYPE adrc-name1,

street TYPE adrc-street ,

city1 TYPE adrc-city1 ,

post_code1 TYPE adrc-post_code1 ,

country TYPE adrc-country ,

tel_number TYPE adrc-tel_number ,

END OF st_itab1.

DATA: itab1 TYPE STANDARD TABLE OF st_itab1,

wa_itab1 TYPE st_itab1.

TYPES:BEGIN OF st_itab3,

matnr TYPE vbrp-matnr,

arktx TYPE vbrp-arktx,

fkimg TYPE vbrp-fkimg,

vrkme TYPE vbrp-vrkme,

netwr TYPE vbrp-netwr,

END OF st_itab3.

DATA: itab3 TYPE STANDARD TABLE OF st_itab3,

wa_itab3 TYPE st_itab3,

v_total TYPE vbrp-netwr value 0.

data : s1(3) type p decimals 1, "Box Y position

s2(3) type p decimals 1 value '0.5'. "Box Height

***************

***OPEN FORM

*****************

CALL FUNCTION 'OPEN_FORM'

EXPORTING

APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =
DEVICE = 'PRINTER'
DIALOG = 'X'

form = 'Z_CHALLENGE'

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.

******************

*PAGE NUMBER

******************

SELECT vbeln

fkdat

kunrg

xblnr

netwr

waerk

FROM vbrk

INTO TABLE itab

WHERE vbeln IN s_vbeln .

LOOP AT itab INTO wa_itab.

clear : s1.

s1 = '0.5'.

CLEAR V_TOTAL.

CALL FUNCTION 'START_FORM'

EXPORTING

ARCHIVE_INDEX =

form = 'Z_CHALLENGE'

language = sy-langu

STARTPAGE = ' '
PROGRAM = ' '
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 = 'HEADER'

FUNCTION = 'SET'
TYPE = 'BODY'

window = 'HEADER'

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.

SELECT SINGLE kunrg INTO v_kunrg FROM vbrk WHERE vbeln = wa_itab-vbeln.

SELECT SINGLE adrnr FROM kna1 INTO adr_no WHERE kunnr = v_kunrg.

SELECT SINGLE name1

street

city1

post_code1

country

tel_number

INTO wa_itab1

FROM adrc WHERE addrnumber = adr_no

AND date_from <= sy-datum AND date_to >= sy-datum.

*****************

INVOICE DIPLAY

****************

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'INVOICE'

function = 'APPEND'

type = 'BODY'

window = 'INVOICE'

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.

*********************

*ADDRESS

*******************

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ADDRESS'

function = 'APPEND'

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.

*****************

MAIN HEADER

*****************

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_MAIN'

function = 'APPEND'

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.

***********************

*DISPLAYING DATA

***********************

SELECT matnr

arktx

fkimg

vrkme

netwr

INTO CORRESPONDING FIELDS OF TABLE itab3

FROM vbrp

WHERE vbeln = wa_itab-vbeln.

LOOP AT itab3 INTO wa_itab3 .

compute v_total = v_total + wa_itab3-netwr .

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'DATA'

function = 'APPEND'

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.

****************************

*FOOTER

****************************

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'FOOTER'

FUNCTION = 'SET'
TYPE = 'BODY'

window = 'FOOTER'

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.

s1 = s1 + '0.4' .

ENDLOOP.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'TOTAL'

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.

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.

ENDLOOP.

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.

reward if useful

regards

ravish

Re: sapscript example

Former Member — Mon, 09 Apr 2007 09:07:44 GMT

Hi Deepa,

Reward Points if helpful.

Regards,

Tejas