0% found this document useful (0 votes)
40 views2 pages

RFC Trace

Download as txt, pdf, or txt
Download as txt, pdf, or txt
Download as txt, pdf, or txt
You are on page 1/ 2

*&---------------------------------------------------------------------*

*& Report RSCP_RFCTRACE_SWITCH


*&
*&---------------------------------------------------------------------*
* Switches:
* 1: MDMP Code page usage by RFC.
* the Unicode system sees language key in data and needs MDMP code page
* to convert text between Unicode and that MDMP code page.
* Unicode is client: use list stored with RFC destination.
* Unicode is server:
* client has given its list, then use it.
* (old) client gave no list: use built in default.
* 2: RFC text conversions.
* calls of ab_cnvstrFull (only in Unicode system).
*
*& Show switch settings:
* read CCC statistics into internal table, select line with switch
* settings from it.
*
*& Modify switches:
* call C Kernel function which sets switch in CCC shared memory.
*---
* Implementation gleaned from RSCP0035.
*&---------------------------------------------------------------------*
REPORT rscp_rfctrace_switch NO STANDARD PAGE HEADING .

DATA:
BEGIN OF texttab OCCURS 100
, l(72)
, END OF texttab
, cmd
.

PERFORM show.

*---------------------------------------------------------------------*
* FORM show *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM show.

REFRESH texttab.

*To get CCC statistics call krn/rscp/rscpac1.c:


* rscpa04_ccc_stat()
CALL 'RSCP_CCC_STAT' ID 'TXTTAB' FIELD texttab-*sys*
ID 'CODES' FIELD ' '
ID 'INCLP' FIELD ' '
.
ULINE.
LOOP AT texttab.
IF texttab CS 'RFC Trace'.
WRITE / texttab.
ENDIF.
ENDLOOP.
ULINE.
WRITE: / '(Double click ON, OFF, or REFRESH below.)'. "#EC NOTEXT
SKIP 1.
WRITE: / 'Trace MDMP Code Page Usage:'. "#EC NOTEXT
cmd = '0'. WRITE: / 'ON'. HIDE cmd. "#EC NOTEXT
cmd = '1'. WRITE: / 'OFF'. HIDE cmd. "#EC NOTEXT
* SKIP 1.
WRITE: / 'Trace CCC Conversions:'. "#EC NOTEXT
cmd = '2'. WRITE: / 'ON'. HIDE cmd. "#EC NOTEXT
cmd = '3'. WRITE: / 'OFF'. HIDE cmd. "#EC NOTEXT
* SKIP 1.
WRITE: / 'Display Switch Settings:'. "#EC NOTEXT
cmd = 'R'. WRITE: / 'REFRESH'. HIDE cmd. "#EC NOTEXT
ENDFORM. "show

AT LINE-SELECTION.
*calls to krn/rscp/rscpac1.c:
* rscpa22_invalid_ccc()
CASE cmd.
WHEN '0'.
CALL 'RSCPICT' ID 'RFCTRC' FIELD '1'.
WHEN '1'.
CALL 'RSCPICT' ID 'RFCTRC' FIELD '0'.
WHEN '2'.
CALL 'RSCPICT' ID 'RFCTRC' FIELD '3'.
WHEN '3'.
CALL 'RSCPICT' ID 'RFCTRC' FIELD '2'.
WHEN OTHERS.
PERFORM show.
ENDCASE.
CLEAR cmd.

TOP-OF-PAGE.
PERFORM top_of_page.

TOP-OF-PAGE DURING LINE-SELECTION.


PERFORM top_of_page.

*&--------------------------------------------------------------------*
*& Form top_of_page
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM top_of_page.
WRITE: / 'RFC Traces: MDMP Code Pages, Conversions.'. "#EC NOTEXT
SKIP.
GET TIME.
WRITE:
/ sy-datum, sy-uzeit, '.',
syst-sysid, syst-host,
syst-saprl, syst-mandt, syst-uname, syst-langu
.
SKIP.
ENDFORM. "top_of_page

You might also like