What is Natural RDC

1
What is Natural RDC?

• Remote Data Collector.
• Has Hooks in the Natural Nucleus.
• System buffer for log information.
• Two ASM user-exit points available.
• With user buffers for persistent data.

2
Components

• In Your Natural Nucleus

NATADA NATARI2 NATCMSG NATTEXT NATIO NATWKFO NAT3
270 NATRDC NATRDCX1 NATRDCX2 . . .
3
SYSRDC

• Library SYSRDC contains
• RDCSET
• RDCSTART
• RDCSTOP
• RDCDISP
• RDCUSER

4
CMRDC

• Example to set trace filter
• CALL 'CMRDC' 'T' 'PS' 'DA'
• CALL 'CMRDC' 'S' / start tracing
• By default everything is traced.

5
Overview

If RDCSIZE gt 2
CMRDC PL,PS,PT DB,DA CB,CA IB,IA E, U,N,NS
RDC buffer
If RDCSIZE gt 2 NATRDCX1 NATRDCX2
6
Trace Points

• Selecting captured data in SYSRDC from RDCSET
• PL program load
• PS program start
• PT program termination
• DB before database call
• DA after database call
• CB before external program call
• CA after external program call
• IB before terminal I/O
• IA after terminal I/O
• U Write a message in the log

7
SYSRDC Menu

• ETIME TY GCUID LV GPGM T GCAPL
  PRLIB PRNAM CO DB FN RC
• ----------- -- -------- -- -------- - --------
  -------- -------- -- --- --- --
• 
  
• 0.0000 CA DMDSAC 1 LOGONUS
  CMMASH S
• 0.0000 PL DMDSAC 1 LOGONUS
  SYSLIB SECUB
• 0.0001 PS DMDSAC 2 SECUB N
  SYSLIB SECUB 25
• 0.0001 CB DMDSAC 2 SECUB
  CMMASH S
• 0.0000 CA DMDSAC 2 SECUB
  CMMASH S
• 0.0000 CB DMDSAC 2 SECUB
  CMMASH S
• 0.0000 CA DMDSAC 2 SECUB
  CMMASH S
• 0.0000 CB DMDSAC 2 SECUB
  NATSGPF S
• 0.0000 CA DMDSAC 2 SECUB
  NATSGPF S
• 0.0001 CB DMDSAC 2 SECUB
  NATSGPF S
• 0.0000 CA DMDSAC 2 SECUB
  NATSGPF S
• 0.0000 CB DMDSAC 2 SECUB
  CMUB S
• 0.0000 CA DMDSAC 2 SECUB
  CMUB S
• 0.0000 CB DMDSAC 2 SECUB
  CMUB S
• 0.0000 CA DMDSAC 2 SECUB
  CMUB S
• 0.0001 CB DMDSAC 2 SECUB
  CMUB S

8
SYSRDC Data

• Local RDCDATA Library SYSRDC
  DBID 25 FNR 106
• Command
  gt
• I T L Name F Leng
  Index/Init/EM/Name/Comment
• Top - -------------------------------- - ----
  ---------------------------------
• 1 GDATA A 252 /
  GLOBAL DATA AREA
• R 1 GDATA /
  ----------------
• 2 GLENG I 2 /
  LENGTH OF GLOBAL DATA
• 2 GFILLER1 A 2
  
• 2 GWRKA B 4
  
• 2 GBASP A 8 /
  BASE SOFTWARE AG PRODUCT
• 2 GVER A 4 /
  PRODUCT VERSION AND SM-LEVEL
• 2 GFILLER2 A 4
  
• 2 GTPM A 8 /
  TP-MONITOR (TPSYS)
• 2 GOPS A 8 /
  OPERATING SYSTEM (OPSYS)
• 2 GMOD1 B 1 /
  RUN MODES (XA-ESA SYSTEMS)
• 2 GMOD2 B 1
  
• 2 GFILLER3 A 6
  
• 2 GCPUT B 4
  
• 2 GANCH B 4
  

9
SYSRDC Data

• Local RDCDATA Library SYSRDC
  DBID 25 FNR 106
• Command
  gt
• I T L Name F Leng
  Index/Init/EM/Name/Comment
• - - - -------------------------------- - ----
  ---------------------------------
• 2 GCUID A 8 /
  CURRENT USER ID (USER)
• 2 GGRP A 8 /
  CURRENT GROUP (GROUP)
• 2 GCAPL A 8 /
  CURRENT LOGON (APPLIC-ID)
• 2 GPGM A 8 /
  CURRENT PROGRAM (PROGRAM)
• 2 GLINE N 4 /
  CURRENT STATEMENT LINE NUMBER
• 2 GLEV I 1 /
  CURRENT PROGRAM LEVEL (LEVEL
• 2 GTYPE A 1 /
  CURRENT EVENT TYPE
• 1 LDATA A 252 /
  LOCAL DATA AREA
• R 1 LDATA /
  ---------------
• 2 LLENG I 2 /
  LENGTH OF LOCAL DATA
• 2 LTYPE A 1 /
  CURRENT EVENT SUBTYPE
• 1 LOCALS A 40 /
  SESSION CONTROL EVENT DATA
• R 1 LOCALS /
  --------------------------
• 2 SLENG I 2 /
  LENGTH OF SESSION CONTR. DATA
• 2 STYPE A 1 /
  SESSION EVENT SUBTYPE

10
SYSRDC Data

• Local RDCDATA Library SYSRDC
  DBID 25 FNR 106
• Command
  gt
• I T L Name F Leng
  Index/Init/EM/Name/Comment
• - - - -------------------------------- - ----
  ---------------------------------
• 2 SMSG A 8 /
  TERMINATION MESSAGE ID
• 2 SBPGM A 8 /
  SESSION BACKEND PROGRAM NAME
• 1 LOCALP A 40 /
  PROGRAM EVENT DATA
• R 1 LOCALP /
  ------------------
• 2 PLENG I 2 /
  LENGTH OF PROGRAM DATA
• 2 PTYPE A 1 /
  PROGRAM EVENT SUBTYPE
• 2 PPTYP A 1 /
  PROGRAM TYPE
• 2 PRLIB A 8 /
  PROGRAM LIBRARY
• 2 PRNAM A 8 /
  PROGRAM NAME
• 2 PDBID I 4 /
  SYSTEM FILE DBID
• 2 PFNR I 4 /
  SYSTEM FILE FNR
• 1 LOCALD A 40 /
  DATABASE CALL EVENT DATA
• R 1 LOCALD /
  -------------------------
• 2 DLENG I 2 /
  LENGTH OF DATABASE CALL DATA
• 2 DTYPE A 1 /
  BEFORE/AFTER DATABASE CALL

11
SYSRDC Data

• Local RDCDATA Library SYSRDC
  DBID 25 FNR 106
• Command
  gt
• I T L Name F Leng
  Index/Init/EM/Name/Comment
• - - - -------------------------------- - ----
  ---------------------------------
• 2 DCMD A 4 /
  COMMAND CODE
• 2 DCID B 4 /
  COMMAND ID
• 2 DDBID I 4 /
  DATABASE ID
• 2 DFNR I 4 /
  FILE NUMBER
• 2 DRSP I 4 /
  RESPONSE CODE
• 1 LOCALI A 40 /
  TERMINAL I/O EVENT DATA
• R 1 LOCALI /
  -----------------------
• 2 ILENG I 2 /
  LENGTH OF TERMINAL I/O DATA
• 2 ITYPE A 1 /
  BEFORE/AFTER TERMINAL I/O
• 2 IFILLER1 A 1
  
• 2 IOLNG I 4 /
  NUMBER OF BYTES SEND OUT
• 2 IILNG I 4 /
  NUMBER OF BYTES READ IN
• 2 ITSA I 4 /
  TOTAL SESSION STORAGE ALLOC.
• 2 ICMP I 4 /
  COMPRESSED STORAGE LENGTH
• 1 LOCALC A 40 /
  EXT. SUBPROG. CALL EVENT DATA

12
SYSRDC Data

• Local RDCDATA Library SYSRDC
  DBID 25 FNR 106
• Command
  gt
• I T L Name F Leng
  Index/Init/EM/Name/Comment
• - - - -------------------------------- - ----
  ---------------------------------
• 2 CTYPE A 1 /
  BEFORE/AFTER SUBPROGRAM CALL
• 2 CMODE A 1 /
  STATIC/DYNAMIC SUBPROGRAM
• 2 CLOC A 1 /
  STATIC SUBPROGRAM LOCATION
• 2 CCALL A 1 /
  CALL BY REFERENCE/VALUE
• 2 CFILLER1 A 2
  
• 2 CPADR B 4 /
  SUBPROGRAM PARAMETER ADDRESS
• 2 CDADR B 4 /
  PARAMETER DESCRIPTION ADDRESS
• 2 CNAME A 8 /
  SUBPROGRAM NAME
• 2 CRESP B 4 /
  SUBPROGRAM RESPONSE CODE

13
SYSRDC Data

• Local RDCDATA Library SYSRDC
  DBID 25 FNR 106
• Command
  gt
• I T L Name F Leng
  Index/Init/EM/Name/Comment
• Bot - -------------------------------- - ----
  ---------------------------------
• 1 LOCALE A 40 /
  RUNTIME ERROR EVENT DATA
• R 1 LOCALE /
  ------------------------
• 2 ELENG I 2 /
  LENGTH OF RUNTIME ERROR DATA
• 2 ETYPE A 1
  
• 2 EFILLER1 A 1
  
• 2 ENUM N 4 /
  ERROR NUMBER
• 2 EABC A 4 /
  EXTERNAL ABEND CODE (NAT0954)
• 2 ETA A 8 /
  ERROR HANDLING PGM (ERROR-TA
• 1 LOCALN A 253 /
  INTERNAL TRACE EVENT DATA
• R 1 LOCALN /
  --------------------
• 2 NLENG I 2 /
  LENGTH OF INTERNAL TRACE DATA
• 2 NTYPE A 1 /
  INTERNAL TRACE EVENT SUBTYPE
• 2 NDATA A 250 /
  INTERNAL TRACE DATA
• 1 LOCALU A 252 /
  USER TRACE CALL EVENT DATA
• R 1 LOCALU
  /--------------------------

14
Uses

• Debugging (online, batch, and even web).
• Setting limits (e.g. for non-conv. Writes).
• Security (e.g. protecting production).
• Logging activity (e.g. Downloads).
• Modifying DB calls (e.g. prefetch 1-N).
• Error reporting/logging.
• Remote monitoring (watching users).
• Transforming output (HTML, XML).
• Program aliasing.
• Dynamic Steplibs (used in web server).
• Dynamically changing a users parameters.

15
END

16
WSU Environment

Production
Development
Natural
ADABAS
Ent. Sys.Srv
NATRDCX1
NET-WORK
NET-WORK
Natural
ADABAS
Ent. Sys.Srv
17
WSU Web Server

https//www.wsumvs1.wsu.edu/websurf/wwbc/dfh
CICS web server
Natural session (thread)
Web Page buffer
WEBPARSE
WEBSEND
Calls
WEBGEN
Template Manager
18
Webtrace

PC With web browser
WEBTRACE Calls CMRDC Set and start
Natural CGI
WEBTRACE Calls CMRDC display
19
Download log

• This is an example of tracing activity. I write
  messages to the console when someone is doing a
  download with Entire Connection. This helps us
  understand our response time reports better, for
  example when we see a response of 10 minutes.
• 135747.51 JOB04293 NTC Download started.
  TCTST XDMD T006 05 DMDSAC
• 135752.93 JOB04293 NTC Download finished.
  XDMD T006 05 DMDSAC

20
Watching

Your Natural Session
User Natural Session
R D C
Batch Natural
R D C
Control file
Natural Web Server
R D C