SAP 打印假脱机请求号Word文档下载推荐.docx

SAP 打印假脱机请求号Word文档下载推荐.docx

《SAP 打印假脱机请求号Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《SAP 打印假脱机请求号Word文档下载推荐.docx（15页珍藏版）》请在冰豆网上搜索。

SY-SUBRC,

TRC 

TI 

VALUE 

'

I'

TE 

E'

GDYN 

SY-DYNNR.

RQ 

TSP01SYS, 

COPY 

TSP01_SP0R.

DIS_FROM（10） 

N 

1,

DIS_TO（10） 

10,

DIS_END（10） 

DIS_SCROLL（10） 

COUNT（10） 

N,

ICOUNT 

I.

STARTING 

X'

ENDING,

GMODE 

HMODE, 

RMODE, 

SMODE, 

TMODE.

PAGE_COUNT 

I,

IS_ADOBE_JOB 

C 

COL_INFO（4） 

MORE, 

FOUND, 

COMP,

LSEL 

SLIS_SELFIELD,

LTAB 

SP01R_VIEW 

OCCURS 

1 

WITH 

HEADER 

LINE,

BUF 

SP01R_VIEW,

CINDEX 

SY-TABIX,

DISPLAY_STRUC_LINES 

SKIP.

PATTERN（60）, 

GSHORT.

SUPPRESS_PAGEINFO.

* 

RSPO_OUTPUT_JOB

LINE_BUFFERX 

RSPO_DSX 

1000,

LINE_BUFFERX2 

RSPO_DSX2 

LINE_BUFFER 

RSPO_DS 

LINE_BUFFER2 

RSPO_DS2 

PAGE_INDEX 

RSPO_INDEX 

1000 

CURPAGE 

I, 

CURLINE 

CURCOL 

GOTF_HEADER 

ITCOO,

GCOL_HEADER（6） 

IS_OTF,

HEX.

LGMODE, 

LHMODE, 

LRMODE,

LDIS_FROM（10） 

LDIS_TO（10） 

LDIS_END（10） 

LAST_PAGE（10） 

LENDING,

LSTARTING,

TEMP, 

SESSION, 

PERM, 

PROT_SCREEN.

BUFFERLINE2 

RSPO_DS2,

BUFFERLINE 

RSPO_DS.

BEGIN_ALV_TREE 

.

LINECOUNT 

SUPPRESSED_LINES_COUNT 

BUFLEN 

LISTRAW>

CHARLEN 

I 

2.

LANGUAGE 

SY-LANGU,

SYSCP 

TCP00-CPCODEPAGE.

LISTFONTMETRIC 

LINEINFO（10000）,

LINEINFO_USED 

NEXTL 

POS 

SY-FDPOS.

NOPAGE 

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

*

PARAMETERS:

RQIDENT 

TSP01-RQIDENT,

FIRSTL 

DEFAULT 

0,

LASTL 

0.

START-OF-SELECTION.

SELECT 

SINGLE 

INTO 

CORRESPONDING 

FIELDS 

OF 

FROM 

TSP01

WHERE 

= 

RQIDENT.

RQ-SYS 

SY-SYSID.

LDIS_FROM 

FIRSTL.

LDIS_TO 

LASTL.

DESCRIBE 

FIELD 

A'

LENGTH 

IN 

BYTE 

MODE.

CALL 

FUNCTION 

RSPO_L_RETURN_RAW_DATA'

EXPORTING

RQ

LIST_FIRST 

LDIS_FROM

LIST_COUNT 

LDIS_TO

LIST_END 

ENDING

SHORT 

GSHORT

DISPLAY_ACC_LINES 

DISPLAY_STRUC_LINES

SUPPRESS_PAGEINFO 

SUPPRESS_PAGEINFO

IMPORTING

MORE_DATA 

MORE

COL_HEADER 

GCOL_HEADER

OTF_HEADER 

GOTF_HEADER

LAST_PAGE 

LAST_PAGE

TABLES

LINE_BUFFER

PAGE_INDEX

LINE_BUFFER2

EXCEPTIONS

ERROR_IN_STRUC_DETECTION 

1

OTHERS 

SYSTEM_CODEPAGE'

CURRENT_DYNAMIC_CODEPAGE 

SYSCP.

Message 

that 

only 

part 

of 

the 

spool 

request 

is 

displayed

IF 

MORE 

RQ-RQTELENUME+10（3） 

ACC'

AND 

MESSAGE 

ID 

SP01R'

S'

NUMBER 

150.

ELSE.

PERFORM 

ENDMESS 

USING 

LAST_PAGE.

ENDIF.

Initial 

new-page

NEW-PAGE 

NO-HEADING 

NO-TITLE 

GCOL 

LINE-COUNT 

GLINES.

Loop 

over 

lines

LOOP 

AT 

BUFFERLINE2.

- 

1.

CHECK 

SY-TABIX 

>

5.

BUFFERLINE2-PRECOL 

P'

BUFFERLINE2-DATA_LINE

（2） 

NEW-PAGE.

6.

Call 

kernel 

method 

to 

display 

top 

page 

area

BUFFERLINE2-DATA_LINE 

IS 

INITIAL.

METHOD 

CL_ABAP_LIST_UTIL_INTERNAL=>

TOP_OF_PAGE_AREA.

ELSEIF 

TT'

MOVE 

TO 

SUPPRESSED_LINES_COUNT.

SUPPRESSED_LINES

COUNT 

ASSIGN 

Parse 

ABAP 

list 

line

（ 

BUFFERLINE2-DATA_LEN 

）. 

"

subtract 

precolumn

LIST_PARSE_LINE 

BUFLEN

SYSCP

LISTFONTMETRIC

LINEINFO

LINEINFO_USED.

Write 

SPOOLDATA_WRITE 

LINEINFO_USED

BEGIN_ALV_TREE.

CLEAR 

ENDLOOP.

END-OF-SELECTION.

Form 

LIST_PARSE_LINE

text

*----------------------------------------------------------------------*

-->

BUFFER 

VALUE（BUFLEN） 

CODEPAGE 

LINEINFO 

FORM 

X

I

TCP00-CPCODEPAGE

CP（4）.

LINEINFOLEN 

CP 

CODEPAGE.

CHARACTER 

RSPO_CACHE_CONTROL'

AREA'

PDFUTIL'

OP'

LISTPARSELINE_SP01'

BUFFER'

BUFFER

LENGTH'

OUTBUFFER'

OUTLENGTH'

LINEINFOLEN

CODEPAGE'

CP

LISTFONTMETRICS'

OUTBUFOFS'

ENDFORM. 

SPOOLDATA_WRITE

LISTDATA 

C

C.

STATICS:

OFS 

LINEINFOOFS（5） 

CHARLEN（4） 

VISLEN（4） 

MAX（4） 

PC（5） 

FRAME,

SYMBOL

（1）,

ICON

（2）,

ICON_INT（4）,

FIELD-SYMBOLS 

P>

NUM_FILLERSPACES 

COLUMNS 

RESULT 

C, 

IGNORE_QI 

+ 

4.

WRITE 

/ 

NO-GAP 

INTENSIFIED 

OFF 

INVERSE 

COLOR 

OFF.

** 

OFS.

Kernel 

must 

be 

called 

immediately 

before 

writing 

signal 

begin 

alv 

tree

ALV_TREE_HEADER_LINE.

WHILE 

LINEINFO+OFS

（1）.

LINEINFO+0

（1）.

ADD 

CASE 

TYPE.

WHEN 

C'

. 

CHAR

LINEINFOOFS 

LINEINFO+OFS（5）. 

5 

LINEINFO+OFS（4）. 

4 

VISLEN 

LISTDATA+LINEINFOOFS（*）