The following sample illustrates how to send an Unsolicited Alert message to Hawk or Mainframe WebUI through a Tracker Server subsystem with an API call. The full version of the batch program is
userhlq.COB(SXKCNUEV) and the CICS online program is
userhlq.COB(SXKCCUEV).
05 WS-SSID PIC X(4) VALUE 'SXK1'.
05 ERROR-MSG-POINTER USAGE POINTER.
MOVE SXK-REQ-ALERT-ID TO SXK-ALERT-REQUEST-ID.
MOVE 'SXK9999I' TO SXK-ALERT-MSG-ID.
MOVE ' A Test Message' TO SXK-ALERT-DATA.
COMPUTE SXK-ALERT-SEG-LEN = 15 + 12.
SET ERROR-MSG-POINTER TO NULL.
USING BY REFERENCE WS-SSID,
BY REFERENCE SXK-ALERT-REQUEST,
BY VALUE SXK-FUNCTION-ID,
RETURNING ERROR-MSG-POINTER
IF ERROR-MSG-POINTER NOT = NULL
PERFORM 850-ON-CALL-ERROR
The following sample illustrates how to send a Notification message to Hawk or Mainframe WebUI through a Tracker Server subsystem with an API call. The full version of the batch program is
userhlq.COB(SXKCNUEV) and the CICS online program is
userhlq.COB(SXKCCUEV).
05 WS-SSID PIC X(4) VALUE 'SXK1'.
05 ERROR-MSG-POINTER USAGE POINTER.
MOVE SXK-REQ-NOTIFICATION-ID TO SXK-NOTIFY-REQUEST-ID.
MOVE 'SXK9999I' TO SXK-NOTIFY-MSG-ID.
MOVE ' A Notify Message' TO SXK-NOTIFY-DATA.
MOVE ' SXKCNUEV' TO SXK-NOTIFY-SOURCE.
MOVE 'Function Name' TO SXK-NOTIFY-SUBSOURCE.
MOVE 'BATCH' TO SXK-NOTIFY-PLATFORM.
MOVE LENGTH OF SXK-NOTIFICATION-REQUEST TO SXK-NOTIFY-SEG-LEN.
SET ERROR-MSG-POINTER TO NULL.
USING BY REFERENCE WS-SSID,
BY REFERENCE SXK-NOTIFICATION-REQUEST,
BY VALUE SXK-FUNCTION-ID,
RETURNING ERROR-MSG-POINTER
IF ERROR-MSG-POINTER NOT = NULL
PERFORM 850-ON-CALL-ERROR