More than 255 characters in background

Question

HI,
My report width is 275 which is displaying when run in front ground. but when run in background it truncates after the 255 characters.
We have created a format using 'SPAD' of width 300, area is showing but the data is not showing after 255.
I have mention line-size 275 in report, i tried this without mentioning line-size but the result is same. it gets truncates after 255, empty area is showing after 255 if we use width 300 format...
Thanks

Answer 1

Hi,
After creation of the new format, run the job with the new format ie. attach the new format to your printer, and run the job.
Now take the spool number and put it as a parameters to the following program .
Hope it work fine.
Rewards points if useful.
Here is the code: 
Display spool list > 255 columns 
This is a SAP utility report to allow display of 
spool request lists with more than 255 columns in 
releases 4.6B and 4.6C (4.6D kernel must be used) 
REPORT ZRSPOSHOWLIST LINE-SIZE 80. 
PARAMETERS: RQIDENT LIKE TSP01-RQIDENT, 
FIRSTL TYPE I DEFAULT 0, 
LASTL TYPE I DEFAULT 0. 
global data from LSPOXTOP 
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(1000), 
DATA_LINE(5000), "MODAB 
END OF DATA_SET_LINE, 
DATA_SET_LENGTH(5) TYPE C. 
TABLES: TSP01, TST05, TSPOPTIONS. 
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 
, escape 
, prtctrl 
, FIRST_BYTES(4) " collection of the first bytes of the 
" escape sequences, which I am searching for. 
, 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:  TYPE C 
copied from RSPO_DISPLAY_ABAP_SPOOLJOB 
DATA: BUFFER LIKE DATA_SET_LINE OCCURS 1000. 
TABLES: TSP02L. 
SELECT SINGLE * FROM TSP01 WHERE RQIDENT = RQIDENT. 
IF SY-SUBRC <> 0. 
WRITE: / 'Spool request does not exist:'(001), RQIDENT. 
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 FIRSTL 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 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 
CREATER = 
CREDATE = 
DELDATE = 
MAX_CREDATE = 
MAX_DELDATE = 
NON_UNIQ = 
NOOF_PARTS = 
RECTYP = TEMSE_RECTYP 
SIZE = 
STOTYP = 
type = 
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. 
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 
CREATER = 
CREDATE = 
DELDATE = 
MAX_CREDATE = 
MAX_DELDATE = 
NON_UNIQ = 
NOOF_PARTS = 
RECTYP = TEMSE_RECTYP 
SIZE = 
STOTYP = 
type = 
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. 
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. 
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, 
V, 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 
ANSWER = 
COLUMNS = GCOL 
LINES = GLINES 
PFORMAT = 
ENDIF. 
ENDIF. 
IF GCOL < 80 OR V IS INITIAL. 
GCOL = 255. 
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. 
Zeilenlänge 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. 
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:  
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. 
IF DATA_LENGTH = 0. 
" fine. 
ELSEIF DATA_LENGTH . 
MODAB
PERFORM WRITE_BIGFIELD USING  
NEXT_HOT 
LPOS. 
WRITE AT LPOS <PLAIN_TEXT> NO-GAP. 
ADD NEXT_HOT TO LPOS. 
SUBTRACT NEXT_HOT FROM REST_LEN. 
ASSIGN +6(1). 
ELSE. 
HOT7 = '?'. 
ENDIF. 
ELSE. 
HOT6 = '?'. 
ENDIF. 
ELSE. 
HOT5 = '?'. 
ENDIF. 
IF HOT5 = SPACE. 
IF HOT6 = SPACE. 
IF HOT7 = SPACE. 
IF SPOC-ICON_SEL = 1. 
WRITE AT LPOS(4) ICON_ID1 AS ICON. 
write at lpos icon_id1 as icon no-gap. 
ELSE. 
WRITE AT LPOS(4) ICON_ID2 AS ICON. 
write at lpos icon_id2 as icon no-gap. 
ENDIF. 
COLS = 4. 
BYTES = 7. 
ELSE. 
IF SPOC-ICON_SEL = 1. 
WRITE AT LPOS(3) ICON_ID1 AS ICON. 
write at lpos icon_id1 as icon no-gap. 
ELSE. 
WRITE AT LPOS(3) ICON_ID2 AS ICON. 
write at lpos icon_id2 as icon no-gap. 
ENDIF. 
COLS = 3. 
BYTES = 6. 
ENDIF. 
ELSE. 
IF SPOC-ICON_SEL = 1. 
WRITE AT LPOS(2) ICON_ID1 AS ICON. 
write at lpos icon_id1 as icon no-gap. 
ELSE. 
WRITE AT LPOS(2) ICON_ID2 AS ICON. 
write at lpos icon_id2 as icon no-gap. 
ENDIF. 
COLS = 2. 
BYTES = 5. 
ENDIF. 
ELSE. 
"rite at lpos(1) icon_id as icon. 
WRITE AT LPOS(1) '#' NO-GAP. " Not enough space for any icon. 
COLS = 1. 
BYTES = 4. 
ENDIF. 
ENDIF. 
IF . 
ELSE. 
EXIT. 
ENDIF. 
ENDWHILE. 
MODAB 
IF REST_LEN > 0. 
ASSIGN . 
SPOC-FIRST_BYTES+0(1) = SPOC-PRTCTRL_START(1). 
SPOC-FIRST_BYTES+1(1) = SPOC-FRAME_START(1). 
SPOC-FIRST_BYTES+2(1) = SPOC-ICON_START(1). 
SPOC-FIRST_BYTES+3(1) = SPOC-SYMBOL_LOW_START(1). 
ENDFORM.