SAP Script - calling SAP layout set from ABAP/4

[Former Member]

Hi,

Help me in calling SAP layout set from ABAP/4

Thanks

[kiran_k8]

Ashish,

create a driver program

create a script

A script is called using the function modules open_form,write_form,close_form.

Check this dummy program.

REPORT ZF3 .

tables makt.

data:begin of imakt occurs 0,

matnr like makt-matnr,

spras like makt-spras,

maktx like makt-maktx,

end of imakt.

DATA : ITEXT LIKE TLINE OCCURS 0 WITH HEADER LINE.

DATA : TEXTNAME LIKE STXH-TDNAME.

select matnr spras maktx from makt into table imakt up to 100 rows where

spras = sy-langu.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

• APPLICATION = 'TX'

• ARCHIVE_INDEX =

• ARCHIVE_PARAMS =

• DEVICE = 'PRINTER'

• DIALOG = 'X'

FORM = 'ZF3'

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

LOOP AT IMAKT.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'MAIN'

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

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.

K.Kiran.

[Former Member]

Hi,

Table ITCPO - SAPscript output interface

Spool Control

Print Immediately - itcpo-tdimmed = 'X'.

Delete after print - itcpo-tddelete = 'X'.

New spool request - itcpo-tdnewid = 'X'.

Output device - itcpo-tddest = 'SAP1'.

Calling layout script from ABAP/4

call function 'OPEN_FORM'

exporting

form = space

language = 'E'

device = 'PRINTER'

options = itcpo

dialog = 'X'

exceptions form = 5.

call function 'START_FORM'

exporting

form = 'ZSAP_FORM'

language = 'E'

startpage = 'FIRST'.

call function 'WRITE_FORM'

exporting

window = 'MAIN'

type = 'BODY'

element = 'HEADER_TEXT'.

call function 'END_FORM'.

call function 'CLOSE_FORM'.

Reward if helpful..

Sravani.