Progress0 of 0 lessons

CICS EXTRACT TCPIP - TCP/IP Information Extraction

CICS EXTRACT TCPIP provides TCP/IP information extraction capabilities for programs and transactions. It enables programs to extract TCP/IP information, retrieve network configuration, and handle TCP/IP information in CICS environments.

What is CICS EXTRACT TCPIP?

CICS EXTRACT TCPIP is a command that allows programs to extract TCP/IP information from the system. It provides TCP/IP information extraction capabilities, network configuration retrieval, and TCP/IP information processing for CICS applications.

Command Syntax

cobol
1
2
3
4
5
EXEC CICS EXTRACT TCPIP
    INTO(data-area)
    [LENGTH(data-length)]
    [RESP(response-code)]
END-EXEC

Parameters

Required Parameters

  • INTO(data-area) - Data area to receive TCP/IP information

Optional Parameters

  • LENGTH(data-length) - Length of TCP/IP information
  • RESP(response-code) - Response code variable

TCP/IP Information Types

Network Configuration

TCP/IP network configuration

  • • IP ADDRESS - IP address configuration
  • • SUBNET MASK - Subnet mask configuration
  • • GATEWAY - Gateway configuration
  • • DNS SERVER - DNS server configuration

Connection Information

TCP/IP connection information

  • • ACTIVE CONNECTIONS - Active TCP/IP connections
  • • LISTENING PORTS - Listening TCP/IP ports
  • • CONNECTION STATUS - Connection status information
  • • CONNECTION STATISTICS - Connection statistics

Protocol Information

TCP/IP protocol information

  • • TCP PROTOCOL - TCP protocol information
  • • UDP PROTOCOL - UDP protocol information
  • • IP PROTOCOL - IP protocol information
  • • PROTOCOL STATISTICS - Protocol statistics

Performance Information

TCP/IP performance information

  • • THROUGHPUT - Network throughput
  • • LATENCY - Network latency
  • • PACKET LOSS - Packet loss information
  • • BANDWIDTH - Network bandwidth

Programming Examples

Basic TCP/IP Information Extraction

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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. EXTRACTTCPIP01.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  TCPIP-INFO PIC X(200).
       01  INFO-LENGTH PIC S9(4) COMP.
       01  RESPONSE-CODE PIC S9(8) COMP.
       
       PROCEDURE DIVISION.
           DISPLAY 'Extracting TCP/IP information'
           
           EXEC CICS EXTRACT TCPIP
               INTO(TCPIP-INFO)
               LENGTH(INFO-LENGTH)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           IF RESPONSE-CODE = DFHRESP(NORMAL)
               DISPLAY 'TCP/IP information extracted successfully'
               DISPLAY 'Information: ' TCPIP-INFO(1:INFO-LENGTH)
               DISPLAY 'Length: ' INFO-LENGTH
           ELSE
               DISPLAY 'Failed to extract TCP/IP information'
           END-IF
           
           EXEC CICS RETURN END-EXEC.

Advanced TCP/IP Information Processing

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
53
54
       IDENTIFICATION DIVISION.
       PROGRAM-ID. EXTRACTTCPIP02.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  TCPIP-INFO PIC X(200).
       01  INFO-LENGTH PIC S9(4) COMP.
       01  RESPONSE-CODE PIC S9(8) COMP.
       01  EXTRACTION-COUNT PIC S9(2) COMP VALUE 0.
       01  MAX-EXTRACTIONS PIC S9(2) COMP VALUE 3.
       01  TCPIP-LIST.
           05  TCPIP-ITEM OCCURS 3 TIMES.
               10  TCPIP-CONTENT PIC X(200).
               10  TCPIP-LEN PIC S9(4) COMP.
               10  TCPIP-TYPE PIC X(10).
       
       PROCEDURE DIVISION.
           PERFORM EXTRACT-MULTIPLE-TCPIP-INFO
           
           EXEC CICS RETURN END-EXEC.
       
       EXTRACT-MULTIPLE-TCPIP-INFO.
           PERFORM VARYING EXTRACTION-COUNT FROM 1 BY 1
               UNTIL EXTRACTION-COUNT > MAX-EXTRACTIONS
               
               PERFORM EXTRACT-SINGLE-TCPIP-INFO
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   MOVE TCPIP-INFO TO TCPIP-CONTENT(EXTRACTION-COUNT)
                   MOVE INFO-LENGTH TO TCPIP-LEN(EXTRACTION-COUNT)
                   PERFORM DETERMINE-TCPIP-TYPE
                   DISPLAY 'Extracted TCP/IP info ' EXTRACTION-COUNT ': ' TCPIP-TYPE(EXTRACTION-COUNT)
                   DISPLAY 'Content: ' TCPIP-CONTENT(EXTRACTION-COUNT)(1:TCPIP-LEN(EXTRACTION-COUNT))
               ELSE
                   DISPLAY 'Failed to extract TCP/IP info ' EXTRACTION-COUNT
               END-IF
           END-PERFORM.
       
       EXTRACT-SINGLE-TCPIP-INFO.
           EXEC CICS EXTRACT TCPIP
               INTO(TCPIP-INFO)
               LENGTH(INFO-LENGTH)
               RESP(RESPONSE-CODE)
           END-EXEC.
       
       DETERMINE-TCPIP-TYPE.
           IF TCPIP-CONTENT(EXTRACTION-COUNT)(1:10) = 'IP ADDRESS'
               MOVE 'NETWORK' TO TCPIP-TYPE(EXTRACTION-COUNT)
           ELSE IF TCPIP-CONTENT(EXTRACTION-COUNT)(1:10) = 'CONNECTION'
               MOVE 'CONNECTION' TO TCPIP-TYPE(EXTRACTION-COUNT)
           ELSE IF TCPIP-CONTENT(EXTRACTION-COUNT)(1:10) = 'PROTOCOL'
               MOVE 'PROTOCOL' TO TCPIP-TYPE(EXTRACTION-COUNT)
           ELSE
               MOVE 'UNKNOWN' TO TCPIP-TYPE(EXTRACTION-COUNT)
           END-IF.

Error Handling with TCP/IP Information Extraction

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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. EXTRACTTCPIP03.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  TCPIP-INFO PIC X(200).
       01  INFO-LENGTH PIC S9(4) COMP.
       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  EXTRACTION-SUCCESSFUL PIC X(1) VALUE 'N'.
       
       PROCEDURE DIVISION.
           PERFORM EXTRACT-TCPIP-INFO-WITH-RETRY
           
           EXEC CICS RETURN END-EXEC.
       
       EXTRACT-TCPIP-INFO-WITH-RETRY.
           PERFORM EXTRACT-TCPIP-INFO
           
           IF RESPONSE-CODE NOT = DFHRESP(NORMAL)
               AND RETRY-COUNT < MAX-RETRIES
               ADD 1 TO RETRY-COUNT
               DISPLAY 'Retry ' RETRY-COUNT ' TCP/IP information extraction'
               PERFORM EXTRACT-TCPIP-INFO-WITH-RETRY
           END-IF.
       
       EXTRACT-TCPIP-INFO.
           EXEC CICS EXTRACT TCPIP
               INTO(TCPIP-INFO)
               LENGTH(INFO-LENGTH)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           EVALUATE RESPONSE-CODE
               WHEN DFHRESP(NORMAL)
                   MOVE 'Y' TO EXTRACTION-SUCCESSFUL
                   DISPLAY 'TCP/IP information extracted successfully'
               WHEN DFHRESP(NOTAUTH)
                   DISPLAY 'Not authorized to extract TCP/IP information'
               WHEN DFHRESP(INVREQ)
                   DISPLAY 'Invalid TCP/IP information extraction request'
               WHEN DFHRESP(TCPIPERR)
                   DISPLAY 'TCP/IP information extraction error'
               WHEN DFHRESP(TCPIPNOTFOUND)
                   DISPLAY 'TCP/IP information not found'
               WHEN DFHRESP(TCPIPLENGTHERR)
                   DISPLAY 'TCP/IP information length error'
               WHEN OTHER
                   DISPLAY 'Unexpected TCP/IP information extraction error'
           END-EVALUATE.

TCP/IP Information Management

Information Extraction

  • • TCP/IP Retrieval - Retrieve TCP/IP information
  • • TCP/IP Processing - Process TCP/IP information
  • • TCP/IP Validation - Validate TCP/IP information
  • • TCP/IP Formatting - Format TCP/IP information

Network Analysis

  • • Network Parsing - Parse TCP/IP information
  • • Network Classification - Classify TCP/IP information
  • • Network Filtering - Filter TCP/IP information
  • • Network Aggregation - Aggregate TCP/IP information

Network Storage

  • • Network Storage - Store TCP/IP information
  • • Network Archiving - Archive TCP/IP information
  • • Network Indexing - Index TCP/IP information
  • • Network Retrieval - Retrieve stored TCP/IP information

Error Recovery

  • • Error Detection - Detect TCP/IP information errors
  • • Error Recovery - Recover from TCP/IP information errors
  • • Retry Mechanisms - Implement retry logic
  • • Fallback Procedures - Use fallback procedures

Error Handling

Common Response Codes

  • DFHRESP(NORMAL) - TCP/IP information extracted successfully
  • DFHRESP(NOTAUTH) - Not authorized to extract TCP/IP information
  • DFHRESP(INVREQ) - Invalid TCP/IP information extraction request
  • DFHRESP(TCPIPERR) - TCP/IP information extraction error
  • DFHRESP(TCPIPNOTFOUND) - TCP/IP information not found
  • DFHRESP(TCPIPLENGTHERR) - TCP/IP information length error

Performance Considerations

Network Efficiency

  • • Optimize network operations - Use efficient network handling
  • • Minimize network overhead - Reduce network processing overhead
  • • Use network caching - Implement network caching
  • • Monitor network frequency - Track network extraction patterns

System Impact

  • • Monitor system impact - Track how network extraction affects the system
  • • Optimize network handling - Ensure efficient network processing
  • • Manage network usage - Monitor network consumption
  • • Track performance metrics - Monitor network handling performance

Best Practices

TCP/IP Information Extraction Best Practices

  • • Extract TCP/IP information only when needed
  • • Implement proper error handling for network operations
  • • Validate TCP/IP information data before processing
  • • Use appropriate network management techniques
  • • Monitor TCP/IP information activities and performance
  • • Maintain TCP/IP information audit trails
  • • Handle TCP/IP information errors gracefully

Explain It Like I'm 5 Years Old

Think of CICS EXTRACT TCPIP like asking about the internet connection:

  • • Ask About Internet: "Ask about the internet connection" - Extract TCP/IP info
  • • Get Information: "Get information about the internet" - Receive TCP/IP info
  • • Understand Info: "Understand what the information means" - Process TCP/IP info
  • • Use Information: "Use the information to fix problems" - Use TCP/IP info
  • • Keep Information: "Keep the information safe" - Store TCP/IP info

Exercises

Exercise 1: Basic TCP/IP Information Extraction

Create a program that extracts basic TCP/IP information.

Exercise 2: Advanced TCP/IP Information Processing

Write a program that processes multiple TCP/IP information extractions.

Exercise 3: Error Handling

Implement comprehensive error handling for TCP/IP information extraction failures.

Related Concepts

TCP/IP Management

Managing TCP/IP operations

Network Information

Network information handling

Network Monitoring

Monitoring network activities

Network Configuration

Network configuration management

Error Handling

Managing network errors