‎2008 Jan 21 8:07 AM
Hi All,
im generating a SAP script ini which im trying to get the text element name1 to print in it. this data element i have declared in the driver prog.
the point is all the things are coming in the print like the logo the address etc bt the point is the data that i have declared in the prog that is not printed in the prog.
please kindly help me out.
im just putting the code below.
&----
*& Report ZSCRIPT1_PROG
*&
&----
*&
*&
&----
REPORT ZSCRIPT1_PROG.
data: NAME1(6) type c value 'Madhvi'.
data: ID type i value '13363'.
data: break type i value '100'.
data: lunch type i value '200'.
data: total type i value 0.
data: melement(11) type c value 'ITEM_HEADER'.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =
DEVICE = 'PRINTER'
DIALOG = 'X'
FORM = 'ZSCRIPT_1'
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 = 'ZSCRIPT_1'
LANGUAGE = ' '
STARTPAGE = 'X'
PROGRAM = 'ZSCRIPT1_prog'
MAIL_APPL_OBJECT =
IMPORTING
LANGUAGE =
EXCEPTIONS
.
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 = NAME1
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
OTHERS = 9
.
IF SY-SUBRC <> 0.
*count = count + 1.
*write:/ count.
*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
.
reward points for all useful ans.
‎2008 Jan 21 8:14 AM
Hi Madhavi,
Check whether u are using "/E' for tab column for your text element.
Regards,
DVNS
‎2008 Jan 21 8:35 AM
Hi..
In SAP Script Text Editor..
Did you write like this?
/E : NAME1
:&NAME1&
:&id&
:&break&
:&lunch&
If you did like this it should come.
Regards
Sandeep.
‎2008 Jan 21 8:38 AM
Hi,
keep ELEMENT = 'NAME1'
REPORT ZSCRIPT1_PROG .
data: NAME1(6) type c value 'Madhvi'.
data: ID type i value '13363'.
data: break type i value '100'.
data: lunch type i value '200'.
data: total type i value 0.
data: melement(11) type c value 'ITEM_HEADER'.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =
DEVICE = 'PRINTER'
DIALOG = 'X'
FORM = 'ZSCRIPT_1'
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 = 'ZSCRIPT_1'
LANGUAGE = ' '
STARTPAGE = 'X'
PROGRAM = 'ZSCRIPT1_PROG'
MAIL_APPL_OBJECT =
IMPORTING
LANGUAGE =
EXCEPTIONS
.
*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 = 'NAME1'
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
OTHERS = 9
.
IF SY-SUBRC ne 0.
*count = count + 1.
*write:/ count.
*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
.
‎2008 Jan 21 8:57 AM
hi shrikanth,
i have writen your code and then executed the prog thn a pop up window is shown its says that the element name1 is not defined.