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.

The World's First All-glass Undersea Restaurant Opens

The World's First All-glass Undersea Restaurant Opens15th April marks the day that the first ever all-glass undersea restaurant in the world opens its doors for business at the Hilton Maldives Resort & Spa. It will sit five meters below the waves of the Indian Ocean , surrounded by a vibrant coral reef and encased in clear acrylic offering diners 270-degrees of panoramic underwater views. "We have used aquarium technology to put diners face-to-face with the stunning underwater environment of the Maldives ", says Carsten Schieck, General Manager of Hilton Maldives Resort & Spa. "Our guests always comment on being blown aw ay by the colour, clarity, and beauty of the underwater world in the Maldives, so it seemed the perfect idea to build a restaurant where diners can experience fine cuisine and take time to enjoy the views - without ever getting their feet wet." Created by MJ Murphy Ltd, a design consultancy based in New Zealand , Ithaa's distinctive feature is the use of curved transparent acrylic walls and roof, similar to those used in aquarium attractions. "The fact that the entire restaurant except for the floor is made of clear ac rylic makes this unique in the world," continues Schieck, "We are currently planting a coral garden on the reef to add to the spectacular views of the rays, sharks and many colorful fish that live around the area.

World's Fastest Elevator Installed In World's Tallest Building

Toshiba Elevator and Building Systems Corp announced the installation of the world's fastest passenger elevator just exactly where it is needed - in Taipei 101, the world's tallest building. The elevator runs at a top speed of 1,010 meters per minute when ascending (600 meters per minute on the way down), which works out to 60.6 kilometers per hour.The Elevator can go from the 5th floor to the 89th floor in 39 seconds. The world's fastest elevator offers the following new technologies: * The world's first pressure control system, which adjusts the atmospheric pressure inside a car by using suction and discharge blowers, preventing those riding inside the car experiencing 'ear popping'

First Air Conditioned Bus Station-Dubai!!

Parking in Germany !!

THE MILLAU VIADUCT

is part of the new E11 expressway connecting Paris and Barcelona and features the highest bridge piers ever constructed. The tallest is 240 meters high and the overall height will be an impressive 336 meters, making this the highest bridge in the world.

Old place but it occupied some space in our mind

Hi Friends, Comments please