drawing collumn line

[Former Member]

Hi

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

[Former Member]

Hi ,

You have to Use SY-VLINE after your field. you will get doted vertical line for that field column,

Regards,

Vishvesh.

if helpful, rewards it.

[Former Member]

hi

can u send me a sample write statement using this sy-vline.

i am getting error that " as line to be used instead of sy-vline"

please do send me.

will reward with points

[GauthamV]

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.

[Former Member]

Hi ,

U can use SY-VLINE for verticle line and

SY-ULINE for horizontle line

Reward points if helpful.

Regards,

Mukul

[Former Member]

Hi ,

U can write like this

WRITE : sy-vline.

revert back if any issues

[Former Member]

Hi Venkat,

Using Constants we will easily display vertical and horizontal line. Plz refer the following codes as u asked.

CONSTANTS : pos_1 type i value 1,

pos_2 type i value 10,

pos_3 type i value 20,

pos_4 type i value 30.

uline /1(30).

write:at /pos_1 sy-vline no-gap,' colum 1',

at pos_2 sy-vline no-gap,' colum 2 ',

at pos_3 sy-vline no-gap,' colum 3',

at pos_4 sy-vline no-gap.

uline /1(30).

Thanks & Regards,

T.Durai murugan.