Not able to see full output when run in backgroun

Question

This is a continuation of my question I previously asked:
I was trying to write a simple list with lot of headings.
For example:
WRITE: /6 'TitleA', 29 'TitleB', 55 'TitleC', 80 'TitleD', 106 'TitleE',
131 'TitleF', 157 'TitleG', 172 'TitleH', 198 'TitleI'.(it goes upto 400 characters)
I could not see the list titles after a particular length. So, I adjusted the settings to more than 255 in the report title and yes I can see the full output now. But I can not see the full output (and not able to print full) when I run the report in background.
So what can I do to see (and able to print) the full output even when I run in background or normal mode? I think there should be some solution for this.
Thanks.

Answer 1

Hi,
Execute this report with spool number. this program will increase the width of the spool.it is SAP utility program.
Laxman
*& Report  Y_SPOOL_WIDTH_INCRESE                                       *
REPORT  y_spool_width_increse     LINE-SIZE 80.              .
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)
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.                    "GET_SPOOL_LINE
*&      Form  READ_DATA
      text
     -->BUFFER     text
     -->TSP01      text
     -->VALUE(FIRSTtext
     -->VALUE(LAST)text
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.                    "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
      text
     -->BUFFER     text
     -->RQPAPER    text
     -->RQID       text
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.                    "DISPLAY_DATA
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 IN CHARACTER MODE.
  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
    rest_len
    lpos.
  ENDIF.
ENDFORM.                    "SPOOLDATA_WRITE
*&      Form  WRITE_BIGFIELD
      text
     -->VALUE(FIELDtext
     -->VALUE(LEN) text
     -->VALUE(POS) text
FORM write_bigfield USING value(field) TYPE c
value(len)
value(pos).
  FIELD-SYMBOLS
DATA: chunk TYPE i.
WHILE len > 0.
IF len > 255.
chunk = 255.
ELSE.
chunk = len.
ENDIF.
WRITE AT pos field(chunk) NO-GAP.
ADD chunk TO pos.
len = len - chunk.
IF len >
0.
      field = field+chunk.
    ENDIF.
  ENDWHILE.
ENDFORM.                    "WRITE_BIGFIELD
*&      Form  SPOOLDATA_WRITE_INIT
      text
FORM spooldata_write_init.
  DATA: BEGIN OF escape_trick
  , x1(1) TYPE x
  , END OF escape_trick
  FIELD-SYMBOLS: .
  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.                    "SPOOLDATA_WRITE_INIT