Drawing collumn line

Question

Hi
can anyone let me know how to draw a collumn/vertical line in report display

Answer 1

hi,
check this sample example.
reward points if hlpful.
*& Report  ZGM_OPENPO                                                  *
REPORT  ZGM_OPENPO  NO STANDARD PAGE HEADING LINE-SIZE 132 LINE-COUNT 36(2).
TABLES: t001w, "Plants/Branches
ekko,  "Purchasing Document Header
ekpo,  "Purchasing Document Item
marc,  "Plant Data for Material
mara.  "General Material Data
     DATA:
BEGIN OF itab OCCURS 0,
     matnr LIKE marc-matnr,
     werks LIKE marc-werks,
     beskz LIKE marc-beskz,
     mmsta LIKE marc-mmsta,
  END OF itab.
     DATA: BEGIN OF iekpo OCCURS 0,
      ebeln LIKE ekpo-ebeln,
      menge LIKE ekpo-menge,
      aedat LIKE ekpo-aedat,
      wemng LIKE eket-wemng,
      END OF iekpo.
DATA: BEGIN OF iekko OCCURS 0,
      ebeln LIKE ekko-ebeln,
      lifnr LIKE ekko-lifnr,
      bedat LIKE ekko-bedat,
      ekgrp LIKE ekko-ekgrp,
      END OF iekko.
selection-screen:begin of block b1 with frame title text001.
SELECT-OPTIONS werks FOR ekpo-werks OBLIGATORY.
SELECT-OPTIONS matnr FOR ekpo-matnr.
SELECT-OPTIONS beskz FOR marc-beskz.
SELECT-OPTIONS bsart FOR ekko-bsart.
selection-screen:end of block b1.
INITIALIZATION.
AT SELECTION-SCREEN ON werks.              "Validate for werks
SELECT SINGLE * FROM t001w WHERE werks IN werks.
IF sy-subrc <> 0.  MESSAGE e429(mo). ENDIF.
AT SELECTION-SCREEN ON matnr.
SELECT SINGLE * FROM mara WHERE matnr IN matnr.
IF sy-subrc <> 0. MESSAGE e429(mo).ENDIF.
START-OF-SELECTION.
SELECT * FROM marc INTO CORRESPONDING FIELDS OF TABLE itab   WHERE werks IN werks AND beskz IN beskz AND
                        matnr IN matnr.
SELECT ebeln FROM ekpo INTO CORRESPONDING FIELDS OF TABLE iekpo
                    FOR ALL ENTRIES IN itab WHERE matnr = itab-matnr AND loekz EQ space.
SELECT ebeln  lifnr bedat ekgrp FROM ekko INTO CORRESPONDING FIELDS OF
TABLE iekko
                    FOR ALL ENTRIES IN iekpo WHERE ebeln = iekpo-ebeln AND bsart IN bsart.
SELECT ebeln menge aedat FROM ekpo INTO CORRESPONDING FIELDS OF iekpo
FOR ALL ENTRIES IN iekpo WHERE ebeln = iekpo-ebeln. MODIFY iekpo INDEX sy-dbcnt.
ENDSELECT.
SORT iekpo BY aedat.
DELETE ADJACENT DUPLICATES FROM iekpo COMPARING ebeln.
SELECT wemng FROM eket INTO CORRESPONDING FIELDS OF iekpo FOR ALL ENTRIES IN iekpo WHERE ebeln = iekpo-ebeln.
MODIFY iekpo INDEX sy-dbcnt.
ENDSELECT.
END-OF-SELECTION.
  DATA : file_name TYPE string.
  file_name = 'c:\pay_det\open_po1.xls'.
DATA : BEGIN OF it_join_fields OCCURS 0,
         field_name(20),
         END OF it_join_fields.
  CLEAR it_join_fields.
  it_join_fields-field_name = 'ebeln'.
  APPEND it_join_fields.
  CLEAR it_join_fields.
  it_join_fields-field_name = 'menge'.
  APPEND it_join_fields.
  CLEAR it_join_fields.
  it_join_fields-field_name = 'aedat'.
  APPEND it_join_fields.
  CLEAR it_join_fields.
  it_join_fields-field_name = 'wemng'.
  APPEND it_join_fields.
  CLEAR it_join_fields.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
  BIN_FILESIZE                    =
      filename                        = file_name
      filetype                        = 'ASC'
      APPEND                          = 'X'
      write_field_separator           = 'X'
    TABLES
      data_tab                        = iekpo
      FIELDNAMES                      = it_join_fields
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
LOOP AT iekpo.
IF iekpo-menge NE iekpo-wemng.
    WRITE:/4 iekpo-ebeln,21 iekpo-menge ,46 iekpo-aedat, 56 iekpo-wemng.
ENDIF.
ENDLOOP.
if sy-subrc <> 0. write / 'no data exist for this plant'. endif.
TOP-OF-PAGE.
uline 1(80).
WRITE :/ sy-vline, 20 ' OPEN purchase ORDERs report' color 5,
          80 sy-vline.
uline 1(80).
WRITE:/ sy-vline ,   4 'PURSCHASE ORDER'    COLOR COL_HEADING,
         20 sy-vline, 21 'ORDER QUANTITY'    COLOR COL_HEADING,
         45 sy-vline,  46 'item change' color col_heading, 55 sy-vline,
         56 'RECIEVED QUANTITY' COLOR COL_HEADING, 80 sy-vline.
uline 1(80).
END-OF-PAGE.
WRITE :/ 'PAGE NUMBER' ,SY-PAGNO.