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 .Can you explain the difference between
1.open_form and Start form
2.end_form and Close_form.
whether all 4 modules are required in the driver pgm .
Open_form => It assign the form and printer, It should
be first.
Start_form => It start Writing mode. You can use
write_form in loop to write more than one lines befor End_form.
End_form => It end writing mode of current page and will
require to start again through Start_form.
Close_form=> it end the Form. After this you can not
start again for created file.
Rajiv singh.
