Report - Logic needed

I assume the lines are of fixed length or already correctly formatted in an internal table?

Rob

put two columns in your internal table.

while passing values (looping in the table) check the tabix or inserting number. if thats less than equal to 60 pass it in the first field and keep appending, if greater than 60 then keep updating that (rownumber- 60)th row passing the field into the 2nd field of the table.

reset the count when its 120( or even multiple of 60). again follow the same process.

hope this helps

Hi,

try something like this:

assuming you have a table for material texts IT_TEXT.

DATA: l_lines_p_page TYPE i value 60,
     ll_right_line TYPE i.
DO.

  "Loop reading left column
  LOOP AT it_text into ls_text_left FROM 1 TO l_lines_p_page. 
    l_right_line = sy-tabix + l_lines_p_page.
    "Read corresponding right column
    CLEAR ls_text_right.
    READ TABLE it_text into ls_text_right index l_right_line.

    WRITE: ls_text_left,
           space,
           ls_text_right.
    WRITE /.
  ENDLOOP.

  "Delete first N lines
  DO l_lines_p_page TIMES.
    DELETE it_text INDEX 1.
  ENDDO.
  
  IF it_text IS INITIAL.
    CONTINUE. "Exit DO.
  ENDIF.
ENDDO.

Hope can help you,

Frisoni

Hi ARS,

I developed a scenario as your and figured out a solution .

I create a internal table with two fields.

text1 and text.

data of internal table t_test is as follows---->>>

text1 text

1 1

1 2

1 3

1 4

1 5

1 6

....

.....

....

....

1 80

2 1

2 2

2 3

2 4

2 5

2 6

......

......

......

......

2 140

lets assume t_test- text1 entries as ur material '1' and '2'.

and t_test-text entries as ur material text description lines, for material 1 there are 80 lines and for material 2 there are 140 lines.

I wrote following code to get the output as u desired.....i create and tested at our IDES, and gives output exactly the same as u wanted.

REPORT  ZTEST_MYTEST1.

data: begin of t_test occurs 0,
      text1 type i,
      text type i,
      end of t_test.
data: wa_test like t_test.
DATA: L_TABIX TYPE SY-TABIX.
DATA: CNT TYPE I.

do 2 times.
wa_test-text1 =  wa_test-text1 + 1.
CLEAR wa_test-text.
IF wa_test-text1 = 1.
  do 80 TIMES.
  wa_test-text = wa_test-text + 1.
  APPEND wa_test to t_test.
  enddo.
ELSE.
  do 140 TIMES.
  wa_test-text = wa_test-text + 1.
  APPEND wa_test to t_test.
  enddo.

ENDIF.
ENDDO.

*****Till Now i just created a internal table as ur format and filled it with similar kind of data, now lets see the code to output*******

clear wa_test.
loop at t_test into wa_test.
 CNT = CNT + 1.
  at new text1.
  CLEAR CNT.
  CNT = CNT + 1.
  NEW-PAGE.
  BACK.

  write : wa_test-text1.
  ULINE.
  ENDAT.
*  RESERVE 60 LINES.
  IF CNT <= 60.
    WRITE /1(10) wa_test-text.
    IF CNT = 60.
      BACK.
      WRITE /.
      WRITE /.
    ENDIF.
  ELSEIF CNT >= 61 AND CNT <= 120.
    WRITE /13(10) wa_test-text.
    IF CNT = 120.
      NEW-PAGE.
      BACK.
*      WRITE /.
*      WRITE /.
    ENDIF.
  ELSEIF CNT > 120.
    WRITE /1(10) wa_test-text.
   ENDIF.

endloop.

Copy the above program and run to see the output.

This will definitely resolve your issue.

Regards,

Akash Rana

Edited by: AKASH RANA on Aug 12, 2009 11:51 PM

Edited by: AKASH RANA on Aug 12, 2009 11:53 PM

Thankyou All,

Problem solved by creating a output internal table with columns

data : begin of i_output_1 occurs 0.
data : matnr like mara-matnr.
data : mtext_1(40) type c,
data : mtext_2(40) type c,
data : end of i_output_1.
...
loop at i_output.
  CALL FUNCTION 'RKD_WORD_WRAP'
  EXPORTING
    textline                  = i_output-mtext
   DELIMITER                 = ' '
   OUTPUTLEN                 = 40
 TABLES
   OUT_LINES                 = text_table
...
Fill the I_OUTPUT_1 table and Print with control statement AT END OF

Thanks

a®