- SAP Community
- Products and Technology
- Technology
- Technology Q&A
- Text Printing in Purchase Order SapScript
- Subscribe to RSS Feed
- Mark Question as New
- Mark Question as Read
- Bookmark
- Subscribe
- Printer Friendly Page
- Report Inappropriate Content
Text Printing in Purchase Order SapScript
- Subscribe to RSS Feed
- Mark Question as New
- Mark Question as Read
- Bookmark
- Subscribe
- Printer Friendly Page
- Report Inappropriate Content
on 12-01-2006 2:54 PM
Hi Abapers,
I am chaniging an existing SapScript that was not working properly. Client wants to print "Item Text" in output which is of 3 to 4 page. where as there is only one line item in PO. Also there is "Header Text" of 1 page. Client wants to display all line items then "Item Text" should displayed. and at last the "eader Text". The Format is Like as Follows:-
PO No. 12.12.2006
Vendor Name
Country
S.No. Mat. Desc. Qty. ...............and so on..........
1 abc 11 .....................
Item Text starts from here........................
..........................................
..............................
...............................
Problem is here
This text is of 3 page (say).
So text starts from here and est of text goes to next page.
Only 4 Lines are printed properly and rest of lines are not printed.
I also checked in debuging mode.
so attachibng the code for reference kindly go through this.
*........................
.............................................
...........................................................
Header Text Starts from here
..........................................
..............................
...............................
........................
.............................................
...........................................................
Total amt. in words......
*******************************8Code**************************************
IF &NEXTPAGE& EQ 0
PROTECT
PERFORM READ_TEXTS IN PROGRAM ZPERFORMS_ZMEDRUCK1
USING &EKKO-EBELN&
CHANGING &WRK_IT1&
CHANGING &WRK_IT2&
CHANGING &WRK_IT3&
CHANGING &WRK_IT4&
CHANGING &WRK_IT5&
CHANGING &WRK_IT6&
CHANGING &WRK_IT7&
CHANGING &WRK_IT8&
CHANGING &WRK_IT9&
CHANGING &WRK_IT10&
CHANGING &WRK_IT11&
CHANGING &WRK_IT12&
ENDPERFORM
PROTECT
IF &WRK_IT1& NE ' '
<S>&WRK_IT1&</>
ENDIF
IF &WRK_IT2& NE ' '
<S>&WRK_IT2&</>
................................
.................
.
..............
.............
and so on..............
then i also go to the Calling program.
************
FORM READ_TEXTSLO1 TABLES IN_TAB200 STRUCTURE ITCSY
OUT_TAB200 STRUCTURE ITCSY.
READ TABLE IN_TAB200 INDEX 1.
EBELN1 = IN_TAB200-VALUE.
READ TABLE IN_TAB200 INDEX 2.
EBELP = IN_TAB200-VALUE.
CONCATENATE EBELN1 EBELP INTO OBJNAME.
CLEAR WRK_IT1.
CLEAR WRK_IT2.
CLEAR WRK_IT3.
CLEAR WRK_IT4.
CLEAR WRK_IT5.
CLEAR WRK_IT6.
CLEAR WRK_IT7.
CLEAR WRK_IT8.
CLEAR WRK_IT9.
CLEAR WRK_IT10.
CLEAR WRK_IT11.
CLEAR WRK_IT12.
CLEAR WRK_IT13.
CLEAR WRK_IT14.
CLEAR WRK_IT15.
CLEAR WRK_IT16.
CLEAR WRK_IT17.
CLEAR WRK_IT18.
CLEAR WRK_IT19.
CLEAR WRK_IT20.
CLEAR WRK_IT21.
CLEAR WRK_IT22.
CLEAR WRK_IT23.
CLEAR WRK_IT24.
CLEAR WRK_IT25.
CLEAR WRK_IT26.
CLEAR WRK_IT27.
CLEAR WRK_IT28.
CLEAR WRK_IT29.
CLEAR WRK_IT30.
CLEAR WRK_IT31.
CLEAR WRK_IT32.
CLEAR WRK_IT33.
CLEAR WRK_IT34.
CLEAR WRK_IT35.
CLEAR WRK_IT36.
CLEAR WRK_IT37.
CLEAR WRK_IT38.
CLEAR WRK_IT39.
CLEAR WRK_IT40.
CLEAR WRK_IT41.
CLEAR WRK_IT42.
CLEAR WRK_IT43.
CLEAR WRK_IT44.
CLEAR WRK_IT45.
CLEAR WRK_IT46.
CLEAR WRK_IT47.
CLEAR WRK_IT48.
CLEAR WRK_IT49.
CLEAR WRK_IT50.
CLEAR WRK_IT51.
CLEAR WRK_IT52.
CLEAR WRK_IT53.
CLEAR WRK_IT54.
CLEAR WRK_IT55.
CLEAR WRK_IT56.
CLEAR WRK_IT57.
CLEAR WRK_IT58.
CLEAR WRK_IT59.
CLEAR WRK_IT60.
CLEAR WRK_IT61.
CLEAR WRK_IT62.
CLEAR WRK_IT63.
CLEAR WRK_IT64.
CLEAR WRK_IT65.
CLEAR WRK_IT66.
CLEAR WRK_IT67.
CLEAR WRK_IT68.
CLEAR WRK_IT69.
CLEAR WRK_IT70.
CLEAR WRK_IT71.
CLEAR WRK_IT72.
CLEAR WRK_IT73.
CLEAR WRK_IT74.
CLEAR WRK_IT75.
CLEAR WRK_IT76.
CLEAR WRK_IT77.
CLEAR WRK_IT78.
CLEAR WRK_IT79.
CLEAR WRK_IT80.
break abap7.
ITEM TEXT.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
WHERE TDOBJECT = 'EKPO'
AND TDNAME = OBJNAME
AND TDID EQ 'F01'.
IF SY-SUBRC = 0.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F01'
LANGUAGE = 'E'
NAME = OBJNAME
OBJECT = 'EKPO'
TABLES
LINES = IT_LINE.
IF SY-SUBRC = 0.
delete it_line where tdline EQ ' '.
BREAK ABAP7.
DESCRIBE TABLE it_line LINES wrk_lines1.
LOOP AT IT_LINE.
CLEAR WRK_TABIX.
WRK_TABIX = SY-TABIX.
IF WRK_TDLINE EQ ' '.
WRK_TDLINE = IT_LINE-TDLINE.
ELSE.
CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
Y = STRLEN( WRK_TDLINE ).
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 100
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*break abap7.
CASE WRK_TABIX.
WHEN 1 .
WRK_IT1 = OUT_LINE1.
WHEN 2 .
WRK_IT2 = OUT_LINE1.
WHEN 3 .
WRK_IT3 = OUT_LINE1.
WHEN 4 .
WRK_IT4 = OUT_LINE1.
ENDCASE.
IF OUT_LINE3 EQ ' '.
WRK_TDLINE = OUT_LINE2.
ELSE.
CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
IF WRK_IT4 NE ' '.
Y = STRLEN( WRK_TDLINE ).
IF Y GT 50.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
wrk_it4 = out_line1. " Change Uncommented"
WRK_ITA = OUT_LINE1.
WRK_ITA4 = OUT_LINE2.
ELSE.
WRK_ITA = WRK_TDLINE.
ENDIF.
ENDIF.
ENDIF.
CLEAR WRK_TDLINE.
CLEAR OUT_LINE1.
CLEAR OUT_LINE2.
CLEAR OUT_LINE3.
OUT_TAB200-VALUE = WRK_IT1.
MODIFY OUT_TAB200 INDEX 1 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT2.
MODIFY OUT_TAB200 INDEX 2 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT3.
MODIFY OUT_TAB200 INDEX 3 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT4.
MODIFY OUT_TAB200 INDEX 4 TRANSPORTING VALUE.
ENDIF.
break abap7. """"""""""""""""""''
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
WHERE TDOBJECT = 'EKPO'
AND TDNAME = OBJNAME
AND TDID EQ 'F02'.
IF SY-SUBRC = 0.
break abap7. """"""""""""""""""''
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F02'
LANGUAGE = 'E'
NAME = OBJNAME
OBJECT = 'EKPO'
TABLES
LINES = IT_LINE.
DESCRIBE TABLE it_line LINES wrk_lines2.
IF SY-SUBRC = 0.
LOOP AT IT_LINE.
CLEAR WRK_TABIX.
WRK_TABIX = SY-TABIX.
IF WRK_TDLINE EQ ' '.
WRK_TDLINE = IT_LINE-TDLINE.
ELSE.
CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
ENDIF.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CASE WRK_TABIX.
WHEN 1 .
WRK_IT5 = OUT_LINE1.
WHEN 2 .
WRK_IT6 = OUT_LINE1.
WHEN 3 .
WRK_IT7 = OUT_LINE1.
WHEN 4 .
WRK_IT8 = OUT_LINE1.
ENDCASE.
IF OUT_LINE3 EQ ' '.
WRK_TDLINE = OUT_LINE2.
ELSE.
CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
IF WRK_IT8 NE ' '.
Y = STRLEN( WRK_TDLINE ).
IF Y GT 50.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
wrk_it8 = out_line1.
WRK_ITB = OUT_LINE1.
WRK_ITB8 = OUT_LINE2.
ELSE.
WRK_ITB = WRK_TDLINE.
ENDIF.
ENDIF.
CLEAR WRK_TDLINE.
CLEAR OUT_LINE1.
CLEAR OUT_LINE2.
CLEAR OUT_LINE3.
MODIFY OUT_TAB200 INDEX 5 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT6.
MODIFY OUT_TAB200 INDEX 6 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT7.
MODIFY OUT_TAB200 INDEX 7 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT8.
MODIFY OUT_TAB200 INDEX 8 TRANSPORTING VALUE.
ENDIF.
ENDIF.
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
WHERE TDOBJECT = 'EKPO'
AND TDNAME = OBJNAME
AND TDID EQ 'F03'.
IF SY-SUBRC = 0.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F03'
LANGUAGE = 'E'
NAME = OBJNAME
OBJECT = 'EKPO'
TABLES
LINES = IT_LINE.
IF SY-SUBRC = 0.
LOOP AT IT_LINE.
CLEAR WRK_TABIX.
WRK_TABIX = SY-TABIX.
IF WRK_TDLINE EQ ' '.
WRK_TDLINE = IT_LINE-TDLINE.
ELSE.
CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
ENDIF.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CASE WRK_TABIX.
WHEN 1 .
WRK_IT9 = OUT_LINE1.
WHEN 2 .
WRK_IT10 = OUT_LINE1.
WHEN 3 .
WRK_IT11 = OUT_LINE1.
WHEN 4 .
WRK_IT12 = OUT_LINE1.
ENDCASE.
IF OUT_LINE3 EQ ' '.
WRK_TDLINE = OUT_LINE2.
ELSE.
CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
IF WRK_IT12 NE ' '.
Y = STRLEN( WRK_TDLINE ).
IF Y GT 50.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
wrk_it12 = out_line1.
WRK_ITC = OUT_LINE1.
WRK_ITC12 = OUT_LINE2.
ELSE.
WRK_ITC = WRK_TDLINE.
ENDIF.
ENDIF.
CLEAR WRK_TDLINE.
CLEAR OUT_LINE1.
CLEAR OUT_LINE2.
CLEAR OUT_LINE3.
OUT_TAB200-VALUE = WRK_IT9.
MODIFY OUT_TAB200 INDEX 9 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT10.
MODIFY OUT_TAB200 INDEX 10 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT11.
MODIFY OUT_TAB200 INDEX 11 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT12.
MODIFY OUT_TAB200 INDEX 12 TRANSPORTING VALUE.
ENDIF.
ENDIF.
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
WHERE TDOBJECT = 'EKPO'
AND TDNAME = OBJNAME
AND TDID EQ 'F04'.
IF SY-SUBRC = 0.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F04'
LANGUAGE = 'E'
NAME = OBJNAME
OBJECT = 'EKPO'
TABLES
LINES = IT_LINE.
IF SY-SUBRC = 0.
LOOP AT IT_LINE.
CLEAR WRK_TABIX.
WRK_TABIX = SY-TABIX.
IF WRK_TDLINE EQ ' '.
WRK_TDLINE = IT_LINE-TDLINE.
ELSE.
CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
ENDIF.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CASE WRK_TABIX.
WHEN 1 .
WRK_IT13 = OUT_LINE1.
WHEN 2 .
WRK_IT14 = OUT_LINE1.
WHEN 3 .
WRK_IT15 = OUT_LINE1.
WHEN 4 .
WRK_IT16 = OUT_LINE1.
ENDCASE.
IF OUT_LINE3 EQ ' '.
WRK_TDLINE = OUT_LINE2.
ELSE.
CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
IF WRK_IT16 NE ' '.
Y = STRLEN( WRK_TDLINE ).
IF Y GT 50.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
wrk_it16 = out_line1.
WRK_ITD = OUT_LINE1.
WRK_ITD16 = OUT_LINE2.
ELSE.
WRK_ITD = WRK_TDLINE.
ENDIF.
ENDIF.
CLEAR WRK_TDLINE.
CLEAR OUT_LINE1.
CLEAR OUT_LINE2.
CLEAR OUT_LINE3.
OUT_TAB200-VALUE = WRK_IT13.
MODIFY OUT_TAB200 INDEX 13 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT14.
MODIFY OUT_TAB200 INDEX 14 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT15.
MODIFY OUT_TAB200 INDEX 15 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT16.
MODIFY OUT_TAB200 INDEX 16 TRANSPORTING VALUE.
ENDIF.
ENDIF.
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
WHERE TDOBJECT = 'EKPO'
AND TDNAME = OBJNAME
AND TDID EQ 'F05'.
IF SY-SUBRC = 0.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F05'
LANGUAGE = 'E'
NAME = OBJNAME
OBJECT = 'EKPO'
TABLES
LINES = IT_LINE.
IF SY-SUBRC = 0.
LOOP AT IT_LINE.
CLEAR WRK_TABIX.
WRK_TABIX = SY-TABIX.
IF WRK_TDLINE EQ ' '.
WRK_TDLINE = IT_LINE-TDLINE.
ELSE.
CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
ENDIF.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CASE WRK_TABIX.
WHEN 1 .
WRK_IT17 = OUT_LINE1.
WHEN 2 .
WRK_IT18 = OUT_LINE1.
WHEN 3 .
WRK_IT19 = OUT_LINE1.
WHEN 4 .
WRK_IT20 = OUT_LINE1.
ENDCASE.
IF OUT_LINE3 EQ ' '.
WRK_TDLINE = OUT_LINE2.
ELSE.
CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
IF WRK_IT20 NE ' '.
Y = STRLEN( WRK_TDLINE ).
IF Y GT 50.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
wrk_it20 = out_line1.
WRK_ITE = OUT_LINE1.
WRK_ITE20 = OUT_LINE2.
ELSE.
WRK_IT20 = WRK_TDLINE.
ENDIF.
ENDIF.
CLEAR WRK_TDLINE.
CLEAR OUT_LINE1.
CLEAR OUT_LINE2.
CLEAR OUT_LINE3.
OUT_TAB200-VALUE = WRK_IT17.
MODIFY OUT_TAB200 INDEX 17 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT18.
MODIFY OUT_TAB200 INDEX 18 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT19.
MODIFY OUT_TAB200 INDEX 19 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT20.
MODIFY OUT_TAB200 INDEX 20 TRANSPORTING VALUE.
ENDIF.
ENDIF.
OUT_TAB200-VALUE = WRK_ITA.
MODIFY OUT_TAB200 INDEX 81 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITB.
MODIFY OUT_TAB200 INDEX 82 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITC.
MODIFY OUT_TAB200 INDEX 83 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITD.
MODIFY OUT_TAB200 INDEX 84 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITE.
MODIFY OUT_TAB200 INDEX 85 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITA4.
MODIFY OUT_TAB200 INDEX 86 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITB8.
MODIFY OUT_TAB200 INDEX 87 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITC12.
MODIFY OUT_TAB200 INDEX 88 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITD16.
MODIFY OUT_TAB200 INDEX 89 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITE20.
MODIFY OUT_TAB200 INDEX 90 TRANSPORTING VALUE.
CLEAR IT_LINE.
REFRESH IT_LINE.
ENDFORM. "read_textslo1
So kindly review this and let me know what should i do ?
Helpful answer rewarded.
---
Regards
Robin
- SAP Managed Tags:
- NW ABAP Print and Output Management
Accepted Solutions (0)
Answers (1)
Answers (1)
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Report Inappropriate Content
Do you have a custom driver program for this?
Regards,
-Ramesh
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Report Inappropriate Content
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Report Inappropriate Content
It is very confusing to read your code. If possible please post it in
block formatted properly.
If I read it right, looks like you have your texts in PROTECT ENDPROTECT block. If that is the case, then your text will not be written in multiple pages because the PROTECT ENDPROTECT statements will try to fit all the text on one page.
Hope that helps.
Regards,
-Ramesh
- Is PO Item Text output within form can be controlled at Purchase organization level ? in Technology Q&A
- F-58 Check using Smartforms in Technology Q&A
- Numeric output format on SAPscript: what am I missing? in Technology Q&A
- Adobe Forms : Print preview with Logo but printing wihtout Logo in Technology Q&A
- Become an SAP Builder and Win an Exclusive Hoodie! in Technology Blogs by SAP
| User | Count |
|---|---|
| 82 | |
| 10 | |
| 10 | |
| 9 | |
| 6 | |
| 6 | |
| 5 | |
| 5 | |
| 4 | |
| 3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.