在报表画面Draw a box with title

在abap报表的第二画面画一个带title的方框，这个功能在我们编写报表的时候会经常地用到

*&---------------------------------------------------------------------* *& Report ZJC20051014 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT ZJC20051014 NO STANDARD PAGE HEADING. PERFORM BOX USING 1 2 'TITLE1'. PERFORM BOX USING 5 4 'TITLE2'. PERFORM BOX USING 11 7 'TITLE3'. PERFORM BOX USING 20 7 'TITLE4'. *---------------------------------------------------------------------* * FORM BOX * * Draw a box with title * * YPOS: y coordinate of the upper left corner * * HEIGHT: height of the box * * TEXT: the title of te box * *---------------------------------------------------------------------* FORM BOX USING VALUE(YPOS) HEIGHT TEXT. * DATA: WIDTH TYPE I VALUE 84, R TYPE I, K TYPE I. * Bottom horizontal line R = HEIGHT + YPOS. SKIP TO LINE R. DO WIDTH TIMES. WRITE '-' NO-GAP. ENDDO. * Top horizontal line with text K = STRLEN( TEXT ). R = WIDTH - 2 - K. SKIP TO LINE YPOS. WRITE: '--'. WRITE AT 3(K) TEXT NO-GAP. DO R TIMES. WRITE: '-' NO-GAP. ENDDO. * Vertical lines DO HEIGHT TIMES. SKIP TO LINE YPOS. WRITE: '|'. POSITION WIDTH. WRITE: '|'. YPOS = YPOS + 1. ENDDO. ENDFORM.