print the data in boxes in program

*&---------------------------------------------------------------------**& Report ZADASH1*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT ZADASH1 no STANDARD PAGE HEADING LINE-COUNT 55 LINE-SIZE 530.TYPES: BEGIN OF ty_rep345, sno TYPE i, matnr TYPE mseg-matnr, desc(40) TYPE c, jan_qty TYPE mseg-menge, jan_val TYPE mseg-dmbtr, feb_qty TYPE mseg-menge, feb_val TYPE mseg-dmbtr, mar_qty TYPE mseg-menge, mar_val TYPE mseg-dmbtr, apr_qty TYPE mseg-menge, apr_val TYPE mseg-dmbtr, may_qty TYPE mseg-menge, may_val TYPE mseg-dmbtr, jun_qty TYPE mseg-menge, jun_val TYPE mseg-dmbtr, jul_qty TYPE mseg-menge, jul_val TYPE mseg-dmbtr, aug_qty TYPE mseg-menge, aug_val TYPE mseg-dmbtr, sep_qty TYPE mseg-menge, sep_val TYPE mseg-dmbtr, oct_qty TYPE mseg-menge, oct_val TYPE mseg-dmbtr, nov_qty TYPE mseg-menge, nov_val TYPE mseg-dmbtr, dec_qty TYPE mseg-menge, dec_val TYPE mseg-dmbtr, tot_qty TYPE mseg-menge, tot_val TYPE mseg-dmbtr, mavg TYPE mseg-dmbtr, END OF ty_rep345. data:t_rep345 type STANDARD TABLE OF ty_rep345, rep345_rec type ty_rep345, v_date(2) value '10'.* TOP-OF-PAGE. Write:/2 'NEW DAR ALSHIFA HOSPITAL'. WRITE:/2 'HAWALLY,KUWAIT'. WRITE:/510 'From:'. Write:/2 'Consumption/Issue report for the cost center by material', 512 'To:'. write:/2 'Material Group'. write:/1(529) sy-uline. write:/1 sy-vline. write: 2(5) 'SL',7 sy-vline,8(49) 'Items',57 sy-vline,58(4) 'Jan-',62(30) v_date,92 sy-Vline,93(4) 'Feb-',97(30) v_date,127 sy-vline, 128(4) 'Mar-',132(30) v_date,162 sy-vline,163(4) 'Apr-',167(30) v_date,197 sy-vline,198(4) 'May-',202(30) v_date,232 sy-vline, 233(4) 'Jun-',237(30) v_date,267 sy-vline,268(4) 'Jul-',272(30) v_date,302 sy-vline,303(4) 'Aug-',307(30) v_date,337 sy-vline, 338(4) 'Sep-',342(30) v_date,372 sy-vline,373(4) 'Oct-',377(30) v_date,407 sy-vline,408(4) 'Nov-',412(30) v_date,442 sy-vline, 443(4) 'Dec-',447(30) v_date,477 sy-vline,478(34) 'Total',512 sy-vline,513(16) 'Monthly Avgs',529 sy-vline. write:/1 sy-vline. write:7(505) sy-uline. write:512 sy-vline. write:529 sy-vline. write:/1 sy-vline. write:2(5) 'No.',7 sy-vline,8(8) 'Code',16 sy-vline,17(40) 'Desc',57 sy-vline,58(17) 'Qty',75 sy-vline,76(16) 'Value',92 sy-vline, 93(17) 'Qty',110 sy-vline,111(16) 'Value',127 sy-vline, 128(17) 'Qty',145 sy-vline,146(16) 'Value',162 sy-vline, 163(17) 'Qty',180 sy-vline,181(16) 'Value',197 sy-vline, 198(17) 'Qty',215 sy-vline,216(16) 'Value',232 sy-vline, 233(17) 'Qty',250 sy-vline,251(16) 'Value',267 sy-vline, 268(17) 'Qty',285 sy-vline,286(16) 'Value',302 sy-vline, 303(17) 'Qty',320 sy-vline,321(16) 'Value',337 sy-vline, 338(17) 'Qty',355 sy-vline,356(16) 'Value',372 sy-vline, 373(17) 'Qty',390 sy-vline,391(16) 'Value',407 sy-vline, 408(17) 'Qty',425 sy-vline,426(16) 'Value',442 sy-vline, 443(17) 'Qty',460 sy-vline,461(16) 'Value',477 sy-vline, 478(17) 'Qty',495 sy-vline,496(16) 'Value',512 sy-vline, 513(16) 'Of last yesr',529 sy-vline. write:/1(529) sy-uline.loop at t_rep345 into rep345_rec. write:/2(5) rep345_rec-sno,7 sy-vline,8(8) rep345_rec-matnr,16 sy-vline,17(40) rep345_rec-desc,57 sy-vline, 58(17) rep345_rec-jan_qty,75 sy-vline,76(16) rep345_rec-jan_val,92 sy-vline, 93(17) rep345_rec-feb_qty,110 sy-vline,111(16) rep345_rec-feb_val,127 sy-vline, 128(17) rep345_rec-mar_qty,145 sy-vline,146(16) rep345_rec-mar_val,162 sy-vline, 163(17) rep345_rec-apr_qty,180 sy-vline,181(16) rep345_rec-apr_val,197 sy-vline, 198(17) rep345_rec-may_qty,215 sy-vline,216(16) rep345_rec-may_val,232 sy-vline, 233(17) rep345_rec-jun_qty,250 sy-vline,251(16) rep345_rec-jun_val,267 sy-vline, 268(17) rep345_rec-jul_qty,285 sy-vline,286(16) rep345_rec-jul_val,302 sy-vline, 303(17) rep345_rec-aug_qty,320 sy-vline,321(16) rep345_rec-aug_val,337 sy-vline, 338(17) rep345_rec-sep_qty,355 sy-vline,356(16) rep345_rec-sep_val,372 sy-vline, 373(17) rep345_rec-oct_qty,390 sy-vline,391(16) rep345_rec-oct_val,407 sy-vline, 408(17) rep345_rec-nov_qty,425 sy-vline,426(16) rep345_rec-nov_val,442 sy-vline, 443(17) rep345_rec-dec_qty,460 sy-vline,461(16) rep345_rec-dec_val,477 sy-vline, 478(17) rep345_rec-tot_qty,495 sy-vline,496(16) rep345_rec-tot_val,512 sy-vline, 513(16) rep345_rec-mavg,529 sy-vline. write:/1(529) sy-uline. endloop.