Progress0 of 0 lessons

CICS GET64 CONTAINER - 64-bit Container Retrieval

CICS GET64 CONTAINER provides 64-bit container retrieval capabilities for programs and transactions. It enables programs to retrieve large data from containers, access 64-bit data, and handle 64-bit container operations in CICS environments.

What is CICS GET64 CONTAINER?

CICS GET64 CONTAINER is a command that allows programs to retrieve data from containers using 64-bit addressing. It provides large data access capabilities, 64-bit memory management, and 64-bit container handling for CICS applications.

Command Syntax

cobol
1
2
3
4
5
6
7
EXEC CICS GET64 CONTAINER
    [CHANNEL(channel-name)]
    [CONTAINER(container-name)]
    [INTO(data-area)]
    [LENGTH(data-length)]
    [RESP(response-code)]
END-EXEC

Parameters

Required Parameters

  • CHANNEL(channel-name) - Name of channel containing the container
  • CONTAINER(container-name) - Name of container to retrieve
  • INTO(data-area) - Data area to receive container data
  • LENGTH(data-length) - Length of data area

Optional Parameters

  • RESP(response-code) - Response code variable

64-bit Container Types

Large Data Containers

Containers with large data sets

  • • LARGE DATASETS - Retrieve large dataset containers
  • • BIG DATA - Retrieve big data containers
  • • MASSIVE FILES - Retrieve massive file containers
  • • HUGE RECORDS - Retrieve huge record containers

Memory Containers

Containers with memory data

  • • MEMORY BLOCKS - Retrieve memory block containers
  • • BUFFER DATA - Retrieve buffer data containers
  • • CACHE DATA - Retrieve cache data containers
  • • HEAP DATA - Retrieve heap data containers

Stream Containers

Containers with streaming data

  • • DATA STREAMS - Retrieve data stream containers
  • • CONTINUOUS DATA - Retrieve continuous data containers
  • • REAL-TIME DATA - Retrieve real-time data containers
  • • LIVE DATA - Retrieve live data containers

Binary Containers

Containers with binary data

  • • BINARY DATA - Retrieve binary data containers
  • • MEDIA FILES - Retrieve media file containers
  • • IMAGE DATA - Retrieve image data containers
  • • VIDEO DATA - Retrieve video data containers

Programming Examples

Basic 64-bit Container Retrieval

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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. GET64CONTAINER01.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  CHANNEL-NAME PIC X(8) VALUE 'MAINCHAN'.
       01  CONTAINER-NAME PIC X(8) VALUE 'LARGEDAT'.
       01  DATA-AREA PIC X(1000).
       01  DATA-LENGTH PIC S9(8) COMP VALUE 1000.
       01  RESPONSE-CODE PIC S9(8) COMP.
       01  CONTAINER-RETRIEVED PIC X(1) VALUE 'N'.
       
       PROCEDURE DIVISION.
           IF CONTAINER-RETRIEVED = 'N'
               DISPLAY 'Retrieving 64-bit container: ' CONTAINER-NAME
               DISPLAY 'From channel: ' CHANNEL-NAME
               
               EXEC CICS GET64 CONTAINER
                   CHANNEL(CHANNEL-NAME)
                   CONTAINER(CONTAINER-NAME)
                   INTO(DATA-AREA)
                   LENGTH(DATA-LENGTH)
                   RESP(RESPONSE-CODE)
               END-EXEC
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   MOVE 'Y' TO CONTAINER-RETRIEVED
                   DISPLAY '64-bit container retrieved successfully'
                   DISPLAY 'Container data length: ' DATA-LENGTH
               ELSE
                   DISPLAY 'Failed to retrieve 64-bit container'
               END-IF
           ELSE
               DISPLAY '64-bit container already retrieved'
           END-IF
           
           EXEC CICS RETURN END-EXEC.

Advanced 64-bit Container 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
53
54
55
56
57
       IDENTIFICATION DIVISION.
       PROGRAM-ID. GET64CONTAINER02.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  CHANNEL-NAME PIC X(8) VALUE 'MAINCHAN'.
       01  CONTAINER-NAME PIC X(8).
       01  DATA-AREA PIC X(2000).
       01  DATA-LENGTH PIC S9(8) COMP VALUE 2000.
       01  RESPONSE-CODE PIC S9(8) COMP.
       01  CONTAINER-COUNT PIC S9(2) COMP VALUE 0.
       01  MAX-CONTAINERS PIC S9(2) COMP VALUE 5.
       01  TOTAL-DATA-LENGTH PIC S9(8) COMP VALUE 0.
       01  CONTAINER-LIST.
           05  CONTAINER-ITEM OCCURS 5 TIMES.
               10  CONTAINER-ID PIC X(8).
               10  CONTAINER-STATUS PIC X(1).
               10  CONTAINER-SIZE PIC S9(8) COMP.
       
       PROCEDURE DIVISION.
           PERFORM RETRIEVE-MULTIPLE-64BIT-CONTAINERS
           DISPLAY 'Total data retrieved: ' TOTAL-DATA-LENGTH ' bytes'
           
           EXEC CICS RETURN END-EXEC.
       
       RETRIEVE-MULTIPLE-64BIT-CONTAINERS.
           MOVE 'LARGE001' TO CONTAINER-ID(1)
           MOVE 'LARGE002' TO CONTAINER-ID(2)
           MOVE 'LARGE003' TO CONTAINER-ID(3)
           MOVE 'LARGE004' TO CONTAINER-ID(4)
           MOVE 'LARGE005' TO CONTAINER-ID(5)
           
           PERFORM VARYING CONTAINER-COUNT FROM 1 BY 1
               UNTIL CONTAINER-COUNT > MAX-CONTAINERS
               
               MOVE CONTAINER-ID(CONTAINER-COUNT) TO CONTAINER-NAME
               PERFORM RETRIEVE-SINGLE-64BIT-CONTAINER
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   MOVE 'R' TO CONTAINER-STATUS(CONTAINER-COUNT)
                   MOVE DATA-LENGTH TO CONTAINER-SIZE(CONTAINER-COUNT)
                   ADD DATA-LENGTH TO TOTAL-DATA-LENGTH
                   DISPLAY 'Retrieved: ' CONTAINER-NAME ' Size: ' DATA-LENGTH
               ELSE
                   MOVE 'F' TO CONTAINER-STATUS(CONTAINER-COUNT)
                   MOVE 0 TO CONTAINER-SIZE(CONTAINER-COUNT)
                   DISPLAY 'Failed: ' CONTAINER-NAME
               END-IF
           END-PERFORM.
       
       RETRIEVE-SINGLE-64BIT-CONTAINER.
           EXEC CICS GET64 CONTAINER
               CHANNEL(CHANNEL-NAME)
               CONTAINER(CONTAINER-NAME)
               INTO(DATA-AREA)
               LENGTH(DATA-LENGTH)
               RESP(RESPONSE-CODE)
           END-EXEC.

Error Handling with 64-bit Container Retrieval

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. GET64CONTAINER03.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  CHANNEL-NAME PIC X(8) VALUE 'TESTCHAN'.
       01  CONTAINER-NAME PIC X(8) VALUE 'TEST64'.
       01  DATA-AREA PIC X(500).
       01  DATA-LENGTH PIC S9(8) COMP VALUE 500.
       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  RETRIEVAL-SUCCESSFUL PIC X(1) VALUE 'N'.
       
       PROCEDURE DIVISION.
           PERFORM RETRIEVE-64BIT-CONTAINER-WITH-ERROR-HANDLING
           
           EXEC CICS RETURN END-EXEC.
       
       RETRIEVE-64BIT-CONTAINER-WITH-ERROR-HANDLING.
           PERFORM RETRIEVE-64BIT-CONTAINER
           
           IF RESPONSE-CODE NOT = DFHRESP(NORMAL)
               AND RETRY-COUNT < MAX-RETRIES
               ADD 1 TO RETRY-COUNT
               DISPLAY 'Retry ' RETRY-COUNT ' retrieving 64-bit container'
               PERFORM RETRIEVE-64BIT-CONTAINER-WITH-ERROR-HANDLING
           END-IF.
       
       RETRIEVE-64BIT-CONTAINER.
           EXEC CICS GET64 CONTAINER
               CHANNEL(CHANNEL-NAME)
               CONTAINER(CONTAINER-NAME)
               INTO(DATA-AREA)
               LENGTH(DATA-LENGTH)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           EVALUATE RESPONSE-CODE
               WHEN DFHRESP(NORMAL)
                   MOVE 'Y' TO RETRIEVAL-SUCCESSFUL
                   DISPLAY '64-bit container retrieved successfully'
               WHEN DFHRESP(NOTFND)
                   DISPLAY 'Channel or container not found'
               WHEN DFHRESP(NOTAUTH)
                   DISPLAY 'Not authorized to retrieve container'
               WHEN DFHRESP(INVREQ)
                   DISPLAY 'Invalid 64-bit container request'
               WHEN DFHRESP(LENGERR)
                   DISPLAY 'Data length error'
               WHEN DFHRESP(64BITERR)
                   DISPLAY '64-bit container error'
               WHEN OTHER
                   DISPLAY 'Unexpected error occurred'
           END-EVALUATE.

64-bit Container Management

64-bit Memory Management

  • • 64-bit Addressing - Use 64-bit memory addressing
  • • Large Memory Blocks - Manage large memory blocks
  • • Memory Optimization - Optimize 64-bit memory usage
  • • Memory Monitoring - Monitor 64-bit memory usage

Large Data Handling

  • • Large Data Processing - Process large data sets
  • • Data Streaming - Handle data streaming
  • • Data Chunking - Process data in chunks
  • • Data Compression - Handle compressed data

Performance Optimization

  • • 64-bit Performance - Optimize 64-bit performance
  • • Memory Efficiency - Ensure memory efficiency
  • • Data Transfer - Optimize data transfer
  • • Resource Management - Manage 64-bit resources

Error Recovery

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

Error Handling

Common Response Codes

  • DFHRESP(NORMAL) - 64-bit container retrieved successfully
  • DFHRESP(NOTFND) - Channel or container not found
  • DFHRESP(NOTAUTH) - Not authorized to retrieve container
  • DFHRESP(INVREQ) - Invalid 64-bit container request
  • DFHRESP(LENGERR) - Data length error
  • DFHRESP(64BITERR) - 64-bit container error

Performance Considerations

64-bit Efficiency

  • • Optimize 64-bit operations - Use efficient 64-bit handling
  • • Minimize 64-bit overhead - Reduce 64-bit processing overhead
  • • Use 64-bit pooling - Implement 64-bit pooling
  • • Monitor 64-bit frequency - Track 64-bit usage patterns

System Impact

  • • Monitor system impact - Track how 64-bit operations affect the system
  • • Optimize 64-bit handling - Ensure efficient 64-bit processing
  • • Manage 64-bit usage - Monitor 64-bit resource consumption
  • • Track performance metrics - Monitor 64-bit handling performance

Best Practices

64-bit Container Management Best Practices

  • • Use 64-bit containers only for large data
  • • Implement proper error handling for 64-bit operations
  • • Validate 64-bit container requests before processing
  • • Use appropriate 64-bit memory management
  • • Monitor 64-bit container activities and performance
  • • Maintain 64-bit container audit trails
  • • Handle 64-bit container errors gracefully

Explain It Like I'm 5 Years Old

Think of CICS GET64 CONTAINER like getting a really big toy box:

  • • Big Toy Box: "Find a really big toy box" - Locate 64-bit container
  • • Open Big Box: "Open the big toy box" - Access 64-bit container
  • • Take Big Toys: "Take out the big toys" - Retrieve large data
  • • Use Big Toys: "Play with the big toys" - Process large data
  • • Put Back: "Put the big toys back" - Clean up 64-bit resources

Exercises

Exercise 1: Basic 64-bit Container Retrieval

Create a program that retrieves a specific 64-bit container.

Exercise 2: Advanced 64-bit Container Management

Write a program that manages multiple 64-bit container retrievals.

Exercise 3: Error Handling

Implement comprehensive error handling for 64-bit container retrieval failures.

Related Concepts

64-bit Addressing

Managing 64-bit addressing

Container Management

Managing channel containers

Large Data Processing

Processing large data

Memory Management

Managing 64-bit memory

Error Handling

Managing 64-bit errors