Re: abap -spool file

Former Member — Mon, 07 May 2007 16:57:48 GMT

Hi,

If you run a report in the background that has more than 255 characters in the output, the spool cuts the output to 255 characters. An OSS Note has been applied to the system which created a new output format that allows for up to 380 characters of output in the spool. When you rerun the report, the TOP-OF-PAGE contents all get outputted in complete, but the data for the report (all WRITE statements after TOP-OF-PAGE) gets cut off at 255 characters. It works fine for an ALV report but it doesn't work for a regular WRITE statement report.

check the following ex:

If you have executed the report using the 380 format and you know the spool number, you can used this program which accepts the spool number and give the output of your required width.

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.

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

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.

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.

Regards,

Bhaskar

topic Re: abap -spool file in Application Development and Automation Discussions

abap -spool file

Re: abap -spool file

Re: abap -spool file