Progress0 of 0 lessons

CICS EXTRACT TCT - Terminal Control Table Extraction

CICS EXTRACT TCT provides Terminal Control Table extraction capabilities for programs and transactions. It enables programs to extract terminal control information, retrieve terminal configuration, and handle terminal control information in CICS environments.

What is CICS EXTRACT TCT?

CICS EXTRACT TCT is a command that allows programs to extract Terminal Control Table information from the system. It provides terminal control information extraction capabilities, terminal configuration retrieval, and terminal control information processing for CICS applications.

Command Syntax

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

Parameters

Required Parameters

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

Optional Parameters

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

TCT Information Types

Terminal Configuration

Terminal configuration information

  • • TERMINAL ID - Terminal identifier
  • • TERMINAL TYPE - Terminal type
  • • TERMINAL MODEL - Terminal model
  • • TERMINAL STATUS - Terminal status

Terminal Attributes

Terminal attribute information

  • • SCREEN SIZE - Screen size attributes
  • • KEYBOARD TYPE - Keyboard type attributes
  • • DISPLAY CAPABILITIES - Display capabilities
  • • INPUT CAPABILITIES - Input capabilities

Terminal Control

Terminal control information

  • • CONTROL CHARACTERS - Control character settings
  • • TERMINAL PROTOCOL - Terminal protocol settings
  • • COMMUNICATION MODE - Communication mode settings
  • • ERROR HANDLING - Error handling settings

Terminal Security

Terminal security information

  • • SECURITY LEVEL - Security level settings
  • • ACCESS CONTROL - Access control settings
  • • AUTHENTICATION - Authentication settings
  • • AUTHORIZATION - Authorization settings

Programming Examples

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

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

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

TCT Information Management

Information Extraction

  • • TCT Retrieval - Retrieve TCT information
  • • TCT Processing - Process TCT information
  • • TCT Validation - Validate TCT information
  • • TCT Formatting - Format TCT information

Terminal Analysis

  • • Terminal Parsing - Parse TCT information
  • • Terminal Classification - Classify TCT information
  • • Terminal Filtering - Filter TCT information
  • • Terminal Aggregation - Aggregate TCT information

Terminal Storage

  • • Terminal Storage - Store TCT information
  • • Terminal Archiving - Archive TCT information
  • • Terminal Indexing - Index TCT information
  • • Terminal Retrieval - Retrieve stored TCT information

Error Recovery

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

Error Handling

Common Response Codes

  • DFHRESP(NORMAL) - TCT information extracted successfully
  • DFHRESP(NOTAUTH) - Not authorized to extract TCT information
  • DFHRESP(INVREQ) - Invalid TCT information extraction request
  • DFHRESP(TCTERR) - TCT information extraction error
  • DFHRESP(TCTNOTFOUND) - TCT information not found
  • DFHRESP(TCTLENGTHERR) - TCT information length error

Performance Considerations

Terminal Efficiency

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

System Impact

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

Best Practices

TCT Information Extraction Best Practices

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

Explain It Like I'm 5 Years Old

Think of CICS EXTRACT TCT like asking about a computer screen:

  • • Ask About Screen: "Ask about the computer screen" - Extract TCT info
  • • Get Information: "Get information about the screen" - Receive TCT info
  • • Understand Info: "Understand what the information means" - Process TCT info
  • • Use Information: "Use the information to fix the screen" - Use TCT info
  • • Keep Information: "Keep the information safe" - Store TCT info

Exercises

Exercise 1: Basic TCT Information Extraction

Create a program that extracts basic TCT information.

Exercise 2: Advanced TCT Information Processing

Write a program that processes multiple TCT information extractions.

Exercise 3: Error Handling

Implement comprehensive error handling for TCT information extraction failures.

Related Concepts

Terminal Control Table

Managing terminal control tables

Terminal Information

Terminal information handling

Terminal Monitoring

Monitoring terminal activities

Terminal Configuration

Terminal configuration management

Error Handling

Managing terminal errors