Progress0 of 0 lessons

CICS EXTRACT WEB - Web Information Extraction

CICS EXTRACT WEB provides web information extraction capabilities for programs and transactions. It enables programs to extract web information, retrieve web configuration, and handle web information in CICS environments.

What is CICS EXTRACT WEB?

CICS EXTRACT WEB is a command that allows programs to extract web information from the system. It provides web information extraction capabilities, web configuration retrieval, and web information processing for CICS applications.

Command Syntax

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

Parameters

Required Parameters

  • INTO(data-area) - Data area to receive web information

Optional Parameters

  • LENGTH(data-length) - Length of web information
  • RESP(response-code) - Response code variable

Web Information Types

Web Configuration

Web configuration information

  • • WEB SERVER - Web server configuration
  • • WEB PORT - Web port configuration
  • • WEB PROTOCOL - Web protocol configuration
  • • WEB SECURITY - Web security configuration

Web Services

Web services information

  • • HTTP SERVICES - HTTP services configuration
  • • HTTPS SERVICES - HTTPS services configuration
  • • REST SERVICES - REST services configuration
  • • SOAP SERVICES - SOAP services configuration

Web Applications

Web applications information

  • • WEB APP ID - Web application identifier
  • • WEB APP NAME - Web application name
  • • WEB APP STATUS - Web application status
  • • WEB APP VERSION - Web application version

Web Performance

Web performance information

  • • RESPONSE TIME - Web response time
  • • THROUGHPUT - Web throughput
  • • CONCURRENT USERS - Concurrent web users
  • • ERROR RATE - Web error rate

Programming Examples

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

Advanced Web 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. EXTRACTWEB02.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WEB-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  WEB-LIST.
           05  WEB-ITEM OCCURS 3 TIMES.
               10  WEB-CONTENT PIC X(200).
               10  WEB-LEN PIC S9(4) COMP.
               10  WEB-TYPE PIC X(10).
       
       PROCEDURE DIVISION.
           PERFORM EXTRACT-MULTIPLE-WEB-INFO
           
           EXEC CICS RETURN END-EXEC.
       
       EXTRACT-MULTIPLE-WEB-INFO.
           PERFORM VARYING EXTRACTION-COUNT FROM 1 BY 1
               UNTIL EXTRACTION-COUNT > MAX-EXTRACTIONS
               
               PERFORM EXTRACT-SINGLE-WEB-INFO
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   MOVE WEB-INFO TO WEB-CONTENT(EXTRACTION-COUNT)
                   MOVE INFO-LENGTH TO WEB-LEN(EXTRACTION-COUNT)
                   PERFORM DETERMINE-WEB-TYPE
                   DISPLAY 'Extracted web info ' EXTRACTION-COUNT ': ' WEB-TYPE(EXTRACTION-COUNT)
                   DISPLAY 'Content: ' WEB-CONTENT(EXTRACTION-COUNT)(1:WEB-LEN(EXTRACTION-COUNT))
               ELSE
                   DISPLAY 'Failed to extract web info ' EXTRACTION-COUNT
               END-IF
           END-PERFORM.
       
       EXTRACT-SINGLE-WEB-INFO.
           EXEC CICS EXTRACT WEB
               INTO(WEB-INFO)
               LENGTH(INFO-LENGTH)
               RESP(RESPONSE-CODE)
           END-EXEC.
       
       DETERMINE-WEB-TYPE.
           IF WEB-CONTENT(EXTRACTION-COUNT)(1:10) = 'WEB SERVER'
               MOVE 'SERVER' TO WEB-TYPE(EXTRACTION-COUNT)
           ELSE IF WEB-CONTENT(EXTRACTION-COUNT)(1:10) = 'HTTP SERV'
               MOVE 'SERVICE' TO WEB-TYPE(EXTRACTION-COUNT)
           ELSE IF WEB-CONTENT(EXTRACTION-COUNT)(1:10) = 'WEB APP I'
               MOVE 'APPLICATION' TO WEB-TYPE(EXTRACTION-COUNT)
           ELSE
               MOVE 'UNKNOWN' TO WEB-TYPE(EXTRACTION-COUNT)
           END-IF.

Error Handling with Web 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. EXTRACTWEB03.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WEB-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-WEB-INFO-WITH-RETRY
           
           EXEC CICS RETURN END-EXEC.
       
       EXTRACT-WEB-INFO-WITH-RETRY.
           PERFORM EXTRACT-WEB-INFO
           
           IF RESPONSE-CODE NOT = DFHRESP(NORMAL)
               AND RETRY-COUNT < MAX-RETRIES
               ADD 1 TO RETRY-COUNT
               DISPLAY 'Retry ' RETRY-COUNT ' web information extraction'
               PERFORM EXTRACT-WEB-INFO-WITH-RETRY
           END-IF.
       
       EXTRACT-WEB-INFO.
           EXEC CICS EXTRACT WEB
               INTO(WEB-INFO)
               LENGTH(INFO-LENGTH)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           EVALUATE RESPONSE-CODE
               WHEN DFHRESP(NORMAL)
                   MOVE 'Y' TO EXTRACTION-SUCCESSFUL
                   DISPLAY 'Web information extracted successfully'
               WHEN DFHRESP(NOTAUTH)
                   DISPLAY 'Not authorized to extract web information'
               WHEN DFHRESP(INVREQ)
                   DISPLAY 'Invalid web information extraction request'
               WHEN DFHRESP(WEBERR)
                   DISPLAY 'Web information extraction error'
               WHEN DFHRESP(WEBNOTFOUND)
                   DISPLAY 'Web information not found'
               WHEN DFHRESP(WEBLENGTHERR)
                   DISPLAY 'Web information length error'
               WHEN OTHER
                   DISPLAY 'Unexpected web information extraction error'
           END-EVALUATE.

Web Information Management

Information Extraction

  • • Web Retrieval - Retrieve web information
  • • Web Processing - Process web information
  • • Web Validation - Validate web information
  • • Web Formatting - Format web information

Web Analysis

  • • Web Parsing - Parse web information
  • • Web Classification - Classify web information
  • • Web Filtering - Filter web information
  • • Web Aggregation - Aggregate web information

Web Storage

  • • Web Storage - Store web information
  • • Web Archiving - Archive web information
  • • Web Indexing - Index web information
  • • Web Retrieval - Retrieve stored web information

Error Recovery

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

Error Handling

Common Response Codes

  • DFHRESP(NORMAL) - Web information extracted successfully
  • DFHRESP(NOTAUTH) - Not authorized to extract web information
  • DFHRESP(INVREQ) - Invalid web information extraction request
  • DFHRESP(WEBERR) - Web information extraction error
  • DFHRESP(WEBNOTFOUND) - Web information not found
  • DFHRESP(WEBLENGTHERR) - Web information length error

Performance Considerations

Web Efficiency

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

System Impact

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

Best Practices

Web Information Extraction Best Practices

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

Explain It Like I'm 5 Years Old

Think of CICS EXTRACT WEB like asking about a website:

  • • Ask About Website: "Ask about the website" - Extract web info
  • • Get Information: "Get information about the website" - Receive web info
  • • Understand Info: "Understand what the information means" - Process web info
  • • Use Information: "Use the information to fix the website" - Use web info
  • • Keep Information: "Keep the information safe" - Store web info

Exercises

Exercise 1: Basic Web Information Extraction

Create a program that extracts basic web information.

Exercise 2: Advanced Web Information Processing

Write a program that processes multiple web information extractions.

Exercise 3: Error Handling

Implement comprehensive error handling for web information extraction failures.

Related Concepts

Web Management

Managing web operations

Web Information

Web information handling

Web Monitoring

Monitoring web activities

Web Configuration

Web configuration management

Error Handling

Managing web errors