Question & Answer
Question
How to send messages from a Natural program to Trace Browse using ACI API
Answer
Move the intended trace message to Send Area and use a SEND Message function 125 to send the message to the Server's Trace Browse.
Example:
MOVE 'HELLO WORLD' TO #SQL-ERROR
PERFORM TRACEBROWSE
* -------------------------------------------------------------------*
* --- SEND TRACE BROWSE MESSAGE ---*
* -------------------------------------------------------------------*
DEFINE SUBROUTINE TRACEBROWSE
ASSIGN #ETBCB.#ETBCB-FUNCTION = 125
ASSIGN #ETBCB.#ETBCB-SEND-LENGTH = 80
ASSIGN #ETBCB.#ETBCB-RECEIVE-LENGTH = 0
ASSIGN #ETBCB.#ETBCB-WAIT = 'NO'
CALL 'DVSACI' #ETBCB-API #SEND-AREA(*) #RECEIVE-AREA(*) #ERROR-AREA
END-SUBROUTINE
Then to view trace, set PRODTRACE -> TRACE ACI EVENTS to YES. Run transaction. View Trace Browse and zoom on Trace line that proceeds the TRACE RC:00000000 message line.
BKR ACI 00000178 00152611 RECEIVE RC:00000000 JOB:ACIBQ054 ASID:0184 WAIT:
BKR ACI 00000178 00152611 RECEIVE RC:00000000 JOB:ACIBQ054 ASID:0184 WAIT:
BKR A8ET...ЫBROK................................4502.Ms0.N...MwмjMw..9.з.....іu
BKR ACI 00000178 00152611 TRACE RC:00000000 JOB:ACIBQ054 ASID:0184 WAIT:
BKR ACI 00000178 00152611 SEND RC:00000000 JOB:ACIBQ054 ASID:0184 WAIT:
Locate Client trace within zoom:
ACI Client Trace Text (001E)
+0000 C8C5D3D3 D640E6D6 D9D3C440 40404040 *HELLO WORLD *
+0010 40404040 40404040 40404040 4040 * *
[{"Business Unit":{"code":"BU059","label":"IBM Software w\/o TPS"},"Product":{"code":"SS4NKG","label":"IBM Data Virtualization Manager for z\/OS"},"Component":"","Platform":[{"code":"PF035","label":"z\/OS"}],"Version":"","Edition":"","Line of Business":{"code":"LOB10","label":"Data and AI"}}]
Was this topic helpful?
Document Information
Modified date:
02 October 2020
UID
ibm16220789