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