Skip to Content
0
Former Member
Dec 01, 2006 at 02:54 PM

Text Printing in Purchase Order SapScript

42 Views

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