Progress0 of 0 lessons

CICS ADD SUBEVENT - Event Management

CICS ADD SUBEVENT provides event management capabilities for programs and transactions. It enables programs to add subevents, manage event handling, and handle subevent operations in CICS environments.

What is CICS ADD SUBEVENT?

CICS ADD SUBEVENT is a command that allows programs to add subevents to existing events, manage event hierarchies, and handle subevent operations. It provides event management capabilities, event tracking, and subevent handling for CICS applications.

Command Syntax

cobol
1
2
3
4
5
6
7
EXEC CICS ADD SUBEVENT
    EVENT(event-name)
    SUBEVENT(subevent-name)
    [FROM(data-area)]
    [LENGTH(data-length)]
    [RESP(response-code)]
END-EXEC

Parameters

Required Parameters

  • EVENT(event-name) - Name of parent event
  • SUBEVENT(subevent-name) - Name of subevent to add

Optional Parameters

  • FROM(data-area) - Data area containing subevent data
  • LENGTH(data-length) - Length of subevent data
  • RESP(response-code) - Response code variable

Subevent Types

Data Subevents

Data-related subevents

  • • DATA PROCESSING - Add data processing subevent
  • • DATA VALIDATION - Add data validation subevent
  • • DATA TRANSFORMATION - Add data transformation subevent
  • • DATA STORAGE - Add data storage subevent

Process Subevents

Process-related subevents

  • • PROCESS START - Add process start subevent
  • • PROCESS END - Add process end subevent
  • • PROCESS ERROR - Add process error subevent
  • • PROCESS STATUS - Add process status subevent

User Subevents

User-related subevents

  • • USER LOGIN - Add user login subevent
  • • USER LOGOUT - Add user logout subevent
  • • USER ACTION - Add user action subevent
  • • USER SESSION - Add user session subevent

System Subevents

System-related subevents

  • • SYSTEM START - Add system start subevent
  • • SYSTEM STOP - Add system stop subevent
  • • SYSTEM ERROR - Add system error subevent
  • • SYSTEM STATUS - Add system status subevent

Programming Examples

Basic Subevent Addition

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SUBEVENT01.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  EVENT-NAME PIC X(8) VALUE 'MAINEVENT'.
       01  SUBEVENT-NAME PIC X(8) VALUE 'SUBEVENT1'.
       01  SUBEVENT-DATA PIC X(50) VALUE 'Sample subevent data'.
       01  DATA-LENGTH PIC S9(8) COMP VALUE 50.
       01  RESPONSE-CODE PIC S9(8) COMP.
       01  SUBEVENT-ADDED PIC X(1) VALUE 'N'.
       
       PROCEDURE DIVISION.
           IF SUBEVENT-ADDED = 'N'
               DISPLAY 'Adding subevent: ' SUBEVENT-NAME
               
               EXEC CICS ADD SUBEVENT
                   EVENT(EVENT-NAME)
                   SUBEVENT(SUBEVENT-NAME)
                   FROM(SUBEVENT-DATA)
                   LENGTH(DATA-LENGTH)
                   RESP(RESPONSE-CODE)
               END-EXEC
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   MOVE 'Y' TO SUBEVENT-ADDED
                   DISPLAY 'Subevent added successfully'
               ELSE
                   DISPLAY 'Failed to add subevent'
               END-IF
           ELSE
               DISPLAY 'Subevent already added'
           END-IF
           
           EXEC CICS RETURN END-EXEC.

Advanced Subevent Management

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SUBEVENT02.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  EVENT-NAME PIC X(8) VALUE 'MAINEVENT'.
       01  SUBEVENT-NAME PIC X(8).
       01  SUBEVENT-DATA PIC X(100).
       01  DATA-LENGTH PIC S9(8) COMP VALUE 100.
       01  RESPONSE-CODE PIC S9(8) COMP.
       01  SUBEVENT-COUNT PIC S9(2) COMP VALUE 0.
       01  MAX-SUBEVENTS PIC S9(2) COMP VALUE 5.
       01  SUBEVENT-LIST.
           05  SUBEVENT-ITEM OCCURS 5 TIMES.
               10  SUBEVENT-ID PIC X(8).
               10  SUBEVENT-STATUS PIC X(1).
       
       PROCEDURE DIVISION.
           PERFORM ADD-MULTIPLE-SUBEVENTS
           
           EXEC CICS RETURN END-EXEC.
       
       ADD-MULTIPLE-SUBEVENTS.
           MOVE 'SUBEV001' TO SUBEVENT-ID(1)
           MOVE 'SUBEV002' TO SUBEVENT-ID(2)
           MOVE 'SUBEV003' TO SUBEVENT-ID(3)
           MOVE 'SUBEV004' TO SUBEVENT-ID(4)
           MOVE 'SUBEV005' TO SUBEVENT-ID(5)
           
           PERFORM VARYING SUBEVENT-COUNT FROM 1 BY 1
               UNTIL SUBEVENT-COUNT > MAX-SUBEVENTS
               
               MOVE SUBEVENT-ID(SUBEVENT-COUNT) TO SUBEVENT-NAME
               MOVE 'Sample data for subevent' TO SUBEVENT-DATA
               PERFORM ADD-SINGLE-SUBEVENT
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   MOVE 'A' TO SUBEVENT-STATUS(SUBEVENT-COUNT)
                   DISPLAY 'Added: ' SUBEVENT-NAME
               ELSE
                   MOVE 'F' TO SUBEVENT-STATUS(SUBEVENT-COUNT)
                   DISPLAY 'Failed: ' SUBEVENT-NAME
               END-IF
           END-PERFORM.
       
       ADD-SINGLE-SUBEVENT.
           EXEC CICS ADD SUBEVENT
               EVENT(EVENT-NAME)
               SUBEVENT(SUBEVENT-NAME)
               FROM(SUBEVENT-DATA)
               LENGTH(DATA-LENGTH)
               RESP(RESPONSE-CODE)
           END-EXEC.

Error Handling with Subevent Addition

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SUBEVENT03.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  EVENT-NAME PIC X(8) VALUE 'TESTEVENT'.
       01  SUBEVENT-NAME PIC X(8) VALUE 'TESTSUB'.
       01  SUBEVENT-DATA PIC X(50) VALUE 'Test subevent data'.
       01  DATA-LENGTH PIC S9(8) COMP VALUE 50.
       01  RESPONSE-CODE PIC S9(8) COMP.
       01  RETRY-COUNT PIC S9(2) COMP VALUE 0.
       01  MAX-RETRIES PIC S9(2) COMP VALUE 3.
       01  ADDITION-SUCCESSFUL PIC X(1) VALUE 'N'.
       
       PROCEDURE DIVISION.
           PERFORM ADD-WITH-ERROR-HANDLING
           
           EXEC CICS RETURN END-EXEC.
       
       ADD-WITH-ERROR-HANDLING.
           PERFORM ADD-SUBEVENT
           
           IF RESPONSE-CODE NOT = DFHRESP(NORMAL)
               AND RETRY-COUNT < MAX-RETRIES
               ADD 1 TO RETRY-COUNT
               DISPLAY 'Retry ' RETRY-COUNT ' adding subevent'
               PERFORM ADD-WITH-ERROR-HANDLING
           END-IF.
       
       ADD-SUBEVENT.
           EXEC CICS ADD SUBEVENT
               EVENT(EVENT-NAME)
               SUBEVENT(SUBEVENT-NAME)
               FROM(SUBEVENT-DATA)
               LENGTH(DATA-LENGTH)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           EVALUATE RESPONSE-CODE
               WHEN DFHRESP(NORMAL)
                   MOVE 'Y' TO ADDITION-SUCCESSFUL
                   DISPLAY 'Subevent added successfully'
               WHEN DFHRESP(NOTFND)
                   DISPLAY 'Event not found'
               WHEN DFHRESP(NOTAUTH)
                   DISPLAY 'Not authorized to add subevent'
               WHEN DFHRESP(INVREQ)
                   DISPLAY 'Invalid subevent request'
               WHEN DFHRESP(SUBEVENTERR)
                   DISPLAY 'Subevent addition error'
               WHEN OTHER
                   DISPLAY 'Unexpected error occurred'
           END-EVALUATE.

Event Management

Event Hierarchy

  • • Parent Events - Manage parent events
  • • Child Events - Manage child events
  • • Event Relationships - Define event relationships
  • • Event Dependencies - Handle event dependencies

Event Tracking

  • • Event Monitoring - Monitor event activities
  • • Event Logging - Log event information
  • • Event Auditing - Audit event operations
  • • Event Reporting - Generate event reports

Event Lifecycle

  • • Event Creation - Create new events
  • • Event Initialization - Initialize events
  • • Event Processing - Process events
  • • Event Cleanup - Clean up events

Error Recovery

  • • Error Detection - Detect event errors
  • • Error Recovery - Recover from event errors
  • • Retry Mechanisms - Implement retry logic
  • • Fallback Procedures - Use fallback procedures

Error Handling

Common Response Codes

  • DFHRESP(NORMAL) - Subevent added successfully
  • DFHRESP(NOTFND) - Event not found
  • DFHRESP(NOTAUTH) - Not authorized to add subevent
  • DFHRESP(INVREQ) - Invalid subevent request
  • DFHRESP(SUBEVENTERR) - Subevent addition error
  • DFHRESP(EVENTERR) - Event management error

Performance Considerations

Event Efficiency

  • • Optimize event operations - Use efficient event handling
  • • Minimize event overhead - Reduce event processing overhead
  • • Use event pooling - Implement event pooling
  • • Monitor event frequency - Track event occurrence patterns

System Impact

  • • Monitor system impact - Track how events affect the system
  • • Optimize event handling - Ensure efficient event processing
  • • Manage event usage - Monitor event consumption
  • • Track performance metrics - Monitor event handling performance

Best Practices

Subevent Management Best Practices

  • • Add subevents only when needed
  • • Implement proper error handling for subevent operations
  • • Maintain event hierarchy relationships
  • • Use meaningful subevent names
  • • Monitor subevent usage and performance
  • • Maintain subevent audit trails
  • • Handle subevent errors gracefully

Explain It Like I'm 5 Years Old

Think of CICS ADD SUBEVENT like adding stickers to a picture:

  • • Your Picture: "This is your main picture" - Parent event
  • • Add Sticker: "Put a sticker on your picture" - Add subevent
  • • More Stickers: "Add more stickers to make it pretty" - Multiple subevents
  • • Organize Stickers: "Put stickers in the right places" - Event hierarchy
  • • Show Your Picture: "Show everyone your decorated picture" - Event display

Exercises

Exercise 1: Basic Subevent Addition

Create a program that adds a subevent to an existing event.

Exercise 2: Advanced Event Management

Write a program that manages multiple subevents and their relationships.

Exercise 3: Error Handling

Implement comprehensive error handling for subevent addition failures.

Related Concepts

Event Management

Managing system events

Event Processing

Processing system events

Event Monitoring

Monitoring event activities

Event Logging

Logging event information

Error Handling

Managing event errors