Re: ALV grid

former_member191735 — Fri, 02 Jan 2009 16:10:03 GMT

Output in Background displays in ZIG ZAG manner (as you said) if the internal table length is more than 256 characters. I think there are reports in SDN forums to get it nice.

All you have to pass the spool number and from line and to line. If you cannot find one. try the following

Well, the following code is from SDN forum but i dont know where is this post now. Thanks to the person who posted this code.

report zrca_readspool line-size 80.

global data from LSPOXTOP

tables: tsp01, tst05, tspoptions,tsp02l.

data: rc(10) type c,

errmsg(100) type c,

status like sy-subrc,

dsn_type(8) type c.

data: begin of data_set_line,

data_length(5),

precol(1),

data_line(5000),

end of data_set_line,

data_set_length(5) type c.

data: temse_name like tst01-dname,

temse_client like tst01-dclient,

temse_handle like rststype-handle,

temse_part like tst01-dpart,

temse_objtyp like tst01-dtype,

temse_rectyp like rststype-rectyp,

temse_charco like tst01-dcharcod.

data: is_otf.

global data from LSPOCTOP

data: begin of spoc,

first_bytes(4), " collection of the first bytes of the

" escape sequences.

prtctrl_start_length type i,

prtctrl_total_length type i,

prtctrl_start(10),

symbol_low_start(10),

symbol_hgh_start(10),

symbol_start_length type i,

icon_start(10),

icon_start_length type i,

icon_sel type i value 1,

frame_start(10),

frame_start_length type i,

end of spoc.

field-symbols: <spoc_prtctrl> type c ,

<spoc_frame> type c ,

<spoc_icon> type c ,

<spoc_symbol_low> type c ,

<spoc_symbol_hgh> type c .

copied from RSPO_DISPLAY_ABAP_SPOOLJOB

data: buffer like data_set_line occurs 1000.

selection-screen begin of block blk1 with frame title text-t01.

parameters: p_rqid like tsp01-rqident obligatory,

p_firstl type i default 0,

p_lastl type i default 2000 obligatory.

selection-screen end of block blk1.

******************************************************************

start-of-selection.

******************************************************************

start-of-selection.

select single * from tsp01 where rqident = p_rqid.

if sy-subrc <> 0.

write: / 'Spool request does not exist:'(001), p_rqid.

exit.

endif.

call function 'RSPO_CHECK_JOB_PERMISSION'

exporting

access = 'DISP'

spoolreq = tsp01

exceptions

no_permission = 1

others = 2.

if sy-subrc <> 0.

write: / 'No authorization to display'(002).

exit.

endif.

perform read_data tables buffer using tsp01 p_firstl p_lastl.

if sy-subrc <> 0.

write: / 'Error reading spoolo request'(003).

exit.

endif.

if is_otf = 'X'.

write: / 'This spool request is not an ABAP list'(004).

exit.

endif.

perform display_data tables buffer using tsp01-rqpaper tsp01-rqident.

******************************************************************************

Form Routimes

******************************************************************************

Form GET_SPOOL_LINE

******************************************************************************

form get_spool_line.

do.

if temse_rectyp+1(1) = 'Y'.

call 'C_RSTS_READ'

id 'HANDLE' field temse_handle

id 'BUFF' field data_set_line

ID 'BUFFLG' FIELD 1006

id 'BUFFLG' field 5006 "MODAB

id 'ALLINE' field 'X'

id 'BINARY' field ' '

id 'SHOWLG' field 'X'

id 'RC' field rc

id 'ERRMSG' field errmsg.

status = sy-subrc.

else.

call 'C_RSTS_READ'

id 'HANDLE' field temse_handle

id 'BUFF' field data_set_line+1

id 'BUFFLG' field 1005

id 'BUFFLG' field 5005 "MODAB

id 'ALLINE' field 'X'

id 'BINARY' field ' '

id 'SHOWLG' field 'X'

id 'RC' field rc

id 'ERRMSG' field errmsg.

status = sy-subrc.

data_set_line(5) = data_set_line+1(5).

data_set_line-precol = ' '.

add 1 to data_set_line-data_length.

endif.

status = sy-subrc.

if status <> 6. " EOF, error condition, or got data

exit.

endif.

end of this part, try to open next part

add 1 to temse_part.

call 'C_RSTS_CLOSE'

id 'HANDLE' field temse_handle

id 'RC' field rc

id 'ERRMSG' field errmsg.

status = sy-subrc.

if status = 0.

call function 'RSTS_GET_ATTRIBUTES'

exporting

authority = 'SP01'

client = temse_client "hjl

name = temse_name

part = temse_part

importing

charco = temse_charco

rectyp = temse_rectyp

objtype = temse_objtyp

exceptions

fb_error = 1

fb_rsts_other = 2

no_object = 3

no_permission = 4

others = 5.

status = sy-subrc.

endif.

if status = 0.

call 'C_RSTS_OPEN_READ'

id 'HANDLE' field temse_handle

id 'CLIENT' field temse_client "hjl

id 'NAME' field temse_name

id 'PART' field temse_part

id 'TYPE' field temse_objtyp

id 'CONV' field ' '

id 'ALLINE' field 'X'

id 'BINARY' field ' '

id 'RECTYP' field temse_rectyp

id 'CHARCO' field temse_charco

id 'PROM' field 'I'

id 'RC' field rc

id 'ERRMSG' field errmsg.

status = sy-subrc.

endif.

enddo.

if status = 4.

status = 12. "EOF

endif.

if status = 8.

status = 40. "Line too long

endif.

data_set_length = data_set_line-data_length.

endform. "GET_SPOOL_LINE

&----

*& Form READ_DATA

&----

form read_data tables buffer

using tsp01 like tsp01

value(first) type i

value(last) type i.

data: lines type i.

refresh buffer.

clear is_otf.

temse_client = tsp01-rqclient.

temse_name = tsp01-rqo1name.

temse_part = 1.

call function 'RSTS_GET_ATTRIBUTES'

exporting

authority = 'SP01'

client = temse_client

name = temse_name

part = temse_part

importing

charco = temse_charco

rectyp = temse_rectyp

objtype = temse_objtyp

exceptions

fb_error = 1

fb_rsts_other = 2

no_object = 3

no_permission = 4

others = 5.

if sy-subrc = 0.

if temse_objtyp(3) = 'OTF'.

is_otf = 'X'.

endif.

else.

exit.

endif.

clear temse_handle.

call 'C_RSTS_OPEN_READ'

id 'HANDLE' field temse_handle

id 'CLIENT' field temse_client "hjl

id 'NAME' field temse_name

id 'PART' field temse_part

id 'TYPE' field temse_objtyp

id 'CONV' field ' '

id 'ALLINE' field 'X'

id 'BINARY' field ' '

id 'RECTYP' field temse_rectyp

id 'CHARCO' field temse_charco

id 'PROM' field 'I'

id 'RC' field rc

id 'ERRMSG' field errmsg.

status = sy-subrc.

if status = 0.

do.

perform get_spool_line.

if status <> 0 and status <> 40 and status <> 12.

perform close_job.

exit.

endif.

if status <> 12. " 12 = End

if not ( data_set_length is initial ).

data_set_line-data_length = data_set_length - 1.

endif.

add 1 to lines.

if lines >= first.

append data_set_line to buffer.

endif.

if ( not last is initial ) and ( lines >= last ).

exit.

endif.

else.

if lines = 0.

perform close_job.

exit.

endif.

if lines < first .

perform close_job.

exit.

endif.

exit.

endif.

enddo.

perform close_job.

endif.

endform. "READ_DATA

----

FORM CLOSE_JOB *

----

form close_job.

if status <> 0 and status <> 12.

call 'C_RSTS_CLOSE'

id 'HANDLE' field temse_handle

id 'RC' field rc

id 'ERRMSG' field errmsg.

message e112(po) with status rc errmsg raising read_error.

endif.

call 'C_RSTS_CLOSE'

id 'HANDLE' field temse_handle

id 'RC' field rc

id 'ERRMSG' field errmsg.

status = sy-subrc.

if status <> 0.

message e112(po) with status rc errmsg raising read_error.

endif.

endform. "CLOSE_JOB

&----

*& Form DISPLAY_DATA

&----

form display_data tables buffer using rqpaper like tsp01-rqpaper

rqid like tsp01-rqident.

data: line_length type i,

gcol type i,

glines type i,

line_length2 like rststype-linelength,

v2.

call function 'RSPO_SPOOLDATA_WRITE_INIT'.

perform spooldata_write_init. "MODAB

select single * from tspoptions where spoption = 'REALWIDTH'.

if sy-subrc = 0.

v = 'X'.

endif.

select single *

from tspoptions where spoption = 'REALHEIGHT'.

if sy-subrc = 0.

v2 = 'X'.

endif.

if not v is initial or not v2 is initial.

gcol = 0.

glines = 0.

select single * from tsp02l where pjident = rqid and pjnummer = 0.

if sy-subrc = 0.

gcol = tsp02l-columns.

glines = tsp02l-lines.

else.

call function 'RSPO_GET_SIZE_OF_LAYOUT'

exporting

layout = rqpaper

importing

columns = gcol

lines = glines.

endif.

if gcol < 80 or v is initial.

gcol = 1023.

endif.

if glines < 5 or v2 is initial.

glines = 0.

endif.

if gcol >= 1024. "MODAB

gcol = 1023.

endif.

new-page no-heading no-title line-size gcol line-count glines. " make a wide list

set blank lines on.

loop at buffer.

data_set_line = buffer.

if data_set_line-precol = 'P'.

if data_set_line(1) = ' '. " Echter Vorschub ?"

new-page.

endif.

continue.

endif.

Zeilenlange berechnen, falls unbekannt.

if data_set_line-data_length is initial.

line_length = strlen( data_set_line-data_line ).

else.

line_length = data_set_line-data_length.

endif.

if line_length > 0.

line_length2 = line_length.

perform spooldata_write using data_set_line-data_line "MODAB

line_length2 1.

else. " Leerzeile

skip.

endif.

endloop.

endform. "DISPLAY_DATA

&----

*& Form SPOOLDATA_WRITE

&----

copied from RSPO_SPOOLDATA_WRITE

form spooldata_write

using value(spool_data)

value(data_length) like rststype-linelength

value(start_pos) like sy-colno.

function globals

data: lpos like sy-colno,

rest_len type i,

area_len type i,

next_hot type i, " offset of next special character

cols type i, " columns used by special character

bytes type i, " bytes used by special character

hot2,

hot3,

hot4,

hot5,

hot6,

hot7,

begin of escape_trick,

x1(1) type x,

end of escape_trick,

the_prtctrl(5) type c,

Because of a problem within the ABAP listprocessing, I shall
never output the same icon side by side with the same color
and without a gap.
As I don't know the data, I will use two different variables
alternatively.

icon_id1 like icons-l4,

icon_id2 like icons-l4.

field-symbols: <ldata> ,

<plain_text> ,

<prtctrl> ,

<hot_prtctrl> ,

<hot_frame> ,

<hot_icon> ,

<hot_symbol> ,

<p>.

if start_pos < 2.

write at / ' ' no-gap.

new-line.

lpos = 1.

else.

lpos = start_pos.

endif.

rest_len = strlen( spool_data ).

describe field spool_data length area_len in byte mode.

if data_length = 0. " fine.

elseif data_length <= area_len.

rest_len = data_length.

else.

write: / 'Fehler beim Decodieren der Listendaten'(005).

stop.

endif.

check rest_len > 0.

assign spool_data(rest_len) to <ldata>.

while <ldata> ca spoc-first_bytes.

next_hot = sy-fdpos.

if next_hot > 0.

assign <ldata>(next_hot) to <plain_text>.

perform write_bigfield using <plain_text> next_hot lpos.

write at lpos <plain_text> no-gap.

add next_hot to lpos.

subtract next_hot from rest_len.

assign <ldata>+next_hot(rest_len) to <ldata>.

endif.

if rest_len >= spoc-prtctrl_start_length.

assign <ldata>(spoc-prtctrl_start_length) to <hot_prtctrl>.

else.

assign 'too_short' to <hot_prtctrl>.

endif.

if rest_len >= spoc-frame_start_length.

assign <ldata>(spoc-frame_start_length) to <hot_frame>.

else.

assign 'too_short' to <hot_frame>.

endif.

if rest_len >= spoc-icon_start_length.

assign <ldata>(spoc-icon_start_length) to <hot_icon>.

else.

assign 'too_short' to <hot_icon>.

endif.

if rest_len >= spoc-symbol_start_length.

assign <ldata>(spoc-symbol_start_length) to <hot_symbol>.

else.

assign 'too_short' to <hot_symbol>.

endif.

if rest_len > 1.

hot2 = <ldata>+1(1).

if rest_len > 2.

hot3 = <ldata>+2(1).

if rest_len > 3.

hot4 = <ldata>+3(1).

else.

hot4 = '?'.

endif.

else.

hot3 = '?'.

endif.

else.

hot2 = '?'.

endif.

if <hot_frame> = <spoc_frame>.

cols = 1. " in most cases.

bytes = 2. " in most cases.

case hot2.

when '0'.