WRITE显示中 如何自动换行?

dreamgift

1. REPORT ZZTEST021.
   
2. 
   
3. TYPES: BEGIN OF TYP,
   
4.          A(10),
   
5.          B TYPE I,
   
6.        END   OF TYP.
   
7. 
   
8. DATA: TBL TYPE STANDARD TABLE OF TYP WITH KEY A WITH HEADER LINE.
   
9. DATA WORK_LINES TYPE I.
   
10. TBL-A = 'ABCDEFGHIJ'.
    
11. TBL-B = 1.
    
12. APPEND TBL.
    
13. TBL-A = 'A'.
    
14. TBL-B = 2.
    
15. APPEND TBL.
    
16. TBL-A = 'ABCDEFGHIJ'.
    
17. TBL-B = 3.
    
18. APPEND TBL.
    
19. TBL-A = 'B'.
    
20. TBL-B = 1.
    
21. APPEND TBL.
    
22. TBL-A = 'B'.
    
23. TBL-B = 2.
    
24. APPEND TBL.
    
25. 
    
26. LOOP AT TBL INTO TBL.
    
27.   WORK_LINES = STRLEN( TBL-A ).
    
28.   IF WORK_LINES > 5.
    
29.     WORK_LINES = WORK_LINES - 5.
    
30.     WRITE: /010 TBL-A+0(5),
    
31.             020 TBL-B,
    
32.            /010 TBL-A+5(WORK_LINES).
    
33.   ELSE.
    
34.     WRITE: /010 TBL-A,
    
35.             020 TBL-B.
    
36.   ENDIF.
    
37. ENDLOOP.

复制代码

结果:
ZZTEST021

         ABCDE              1
         FGHIJ
         A                  2
         ABCDE              3
         FGHIJ
         B                  1
         B                  2

ryq0000

楼上的可以,我测试的时候咱就不行了呢,奇怪了.

dreamgift

汗..  那就不晓得了!

tieshou444

学学大家的思想

ping4482000

諸君大德,
  
   在SAP的報表中, 用write的方式產生的報表, 不可能可以自動換行, 通常都是自行寫程式的, 因為SAP的輸出是一行一行的輸出, 所以通常這樣寫法:

loop at itab.

   write:/001 itab-matnr,
             020 itab-maktx+0(30),
             050 itab-meins,
             056 itab-labst unit itab-meins,
            /020 itab-maktx+31(20).
endloop.

讓料號說明分成兩行輸出, 自己做點手工業吧,