RFC Trace
RFC Trace
RFC Trace
DATA:
BEGIN OF texttab OCCURS 100
, l(72)
, END OF texttab
, cmd
.
PERFORM show.
*---------------------------------------------------------------------*
* FORM show *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM show.
REFRESH texttab.
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.
*&--------------------------------------------------------------------*
*& 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