Progress0 of 0 lessons

CICS ISSUE PREPARE - Prepare Message Control

CICS ISSUE PREPARE provides prepare message capabilities for programs and transactions. It enables programs to send prepare messages, manage prepare notifications, and handle prepare messaging in CICS environments.

What is CICS ISSUE PREPARE?

CICS ISSUE PREPARE is a command that allows programs to send prepare messages to users or other systems. It provides prepare messaging capabilities, user notification, and prepare management for CICS applications.

Command Syntax

cobol
1
2
3
4
5
EXEC CICS ISSUE PREPARE
    [MESSAGE(message-text)]
    [LENGTH(message-length)]
    [RESP(response-code)]
END-EXEC

Parameters

Optional Parameters

  • MESSAGE(message-text) - Prepare message text
  • LENGTH(message-length) - Length of message text
  • RESP(response-code) - Response code variable

Prepare Types

Transaction Prepare

Preparing for transaction processing

  • • TRANSACTION PREPARE - Prepare for transaction execution
  • • PROCESSING PREPARE - Prepare for processing
  • • OPERATION PREPARE - Prepare for operation
  • • TASK PREPARE - Prepare for task execution

Data Prepare

Preparing for data operations

  • • DATA PREPARE - Prepare for data processing
  • • FILE PREPARE - Prepare for file operations
  • • DATABASE PREPARE - Prepare for database operations
  • • STORAGE PREPARE - Prepare for storage operations

Resource Prepare

Preparing for resource allocation

  • • RESOURCE PREPARE - Prepare for resource allocation
  • • MEMORY PREPARE - Prepare for memory allocation
  • • CONNECTION PREPARE - Prepare for connection
  • • SERVICE PREPARE - Prepare for service access

System Prepare

Preparing for system operations

  • • SYSTEM PREPARE - Prepare for system operations
  • • ENVIRONMENT PREPARE - Prepare environment
  • • CONFIGURATION PREPARE - Prepare configuration
  • • INITIALIZATION PREPARE - Prepare for initialization

Programming Examples

Basic Prepare Message

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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PREPARE01.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  MESSAGE-TEXT    PIC X(50) VALUE 'Preparing for transaction processing'.
       01  MESSAGE-LENGTH  PIC S9(8) COMP VALUE 50.
       01  RESPONSE-CODE   PIC S9(8) COMP.
       01  PREPARE-NEEDED  PIC X(1) VALUE 'Y'.
       
       PROCEDURE DIVISION.
           IF PREPARE-NEEDED = 'Y'
               DISPLAY 'Sending prepare message...'
               
               EXEC CICS ISSUE PREPARE
                   MESSAGE(MESSAGE-TEXT)
                   LENGTH(MESSAGE-LENGTH)
                   RESP(RESPONSE-CODE)
               END-EXEC
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   DISPLAY 'Prepare message sent successfully'
                   DISPLAY 'Message: ' MESSAGE-TEXT(1:MESSAGE-LENGTH)
               ELSE
                   DISPLAY 'Failed to send prepare message'
               END-IF
           ELSE
               DISPLAY 'No prepare needed'
           END-IF
           
           EXEC CICS RETURN END-EXEC.

Advanced Prepare 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
58
59
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PREPARE02.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  MESSAGE-TEXT    PIC X(100).
       01  MESSAGE-LENGTH  PIC S9(8) COMP.
       01  RESPONSE-CODE   PIC S9(8) COMP.
       01  PREPARE-TYPE    PIC X(1).
       01  PREPARE-STAGE   PIC X(1).
       01  TRANSACTION-ID  PIC X(8) VALUE 'TXN001'.
       
       PROCEDURE DIVISION.
           PERFORM PREPARE-TRANSACTION
           
           EXEC CICS RETURN END-EXEC.
       
       PREPARE-TRANSACTION.
           PERFORM DETERMINE-PREPARE-TYPE
           PERFORM SEND-PREPARE-MESSAGE
           PERFORM EXECUTE-TRANSACTION.
       
       DETERMINE-PREPARE-TYPE.
           *> Add logic to determine prepare type
           MOVE 'T' TO PREPARE-TYPE
           MOVE 'I' TO PREPARE-STAGE.
       
       SEND-PREPARE-MESSAGE.
           EVALUATE PREPARE-TYPE
               WHEN 'T'
                   MOVE 'Preparing transaction for execution' TO MESSAGE-TEXT
                   MOVE 35 TO MESSAGE-LENGTH
               WHEN 'D'
                   MOVE 'Preparing data for processing' TO MESSAGE-TEXT
                   MOVE 32 TO MESSAGE-LENGTH
               WHEN 'R'
                   MOVE 'Preparing resources for allocation' TO MESSAGE-TEXT
                   MOVE 37 TO MESSAGE-LENGTH
               WHEN 'S'
                   MOVE 'Preparing system for operation' TO MESSAGE-TEXT
                   MOVE 34 TO MESSAGE-LENGTH
               WHEN OTHER
                   MOVE 'Preparing for operation' TO MESSAGE-TEXT
                   MOVE 24 TO MESSAGE-LENGTH
           END-EVALUATE
           
           EXEC CICS ISSUE PREPARE
               MESSAGE(MESSAGE-TEXT)
               LENGTH(MESSAGE-LENGTH)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           IF RESPONSE-CODE = DFHRESP(NORMAL)
               DISPLAY 'Prepare sent: ' MESSAGE-TEXT(1:MESSAGE-LENGTH)
           ELSE
               DISPLAY 'Failed to send prepare message'
           END-IF.
       
       EXECUTE-TRANSACTION.
           DISPLAY 'Executing transaction: ' TRANSACTION-ID.

Error Handling with Prepare Messages

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. PREPARE03.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  MESSAGE-TEXT    PIC X(50) VALUE 'Preparing for operation'.
       01  MESSAGE-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.
       
       PROCEDURE DIVISION.
           PERFORM PREPARE-WITH-ERROR-HANDLING
           
           EXEC CICS RETURN END-EXEC.
       
       PREPARE-WITH-ERROR-HANDLING.
           PERFORM SEND-PREPARE-WITH-RETRY
           
           IF RESPONSE-CODE = DFHRESP(NORMAL)
               DISPLAY 'Prepare message sent successfully'
               PERFORM EXECUTE-OPERATION
           ELSE
               DISPLAY 'Failed to send prepare message after retries'
           END-IF.
       
       SEND-PREPARE-WITH-RETRY.
           PERFORM SEND-PREPARE-MESSAGE
           
           IF RESPONSE-CODE NOT = DFHRESP(NORMAL)
               AND RETRY-COUNT < MAX-RETRIES
               ADD 1 TO RETRY-COUNT
               DISPLAY 'Retry ' RETRY-COUNT ' sending prepare message'
               PERFORM SEND-PREPARE-WITH-RETRY
           END-IF.
       
       SEND-PREPARE-MESSAGE.
           EXEC CICS ISSUE PREPARE
               MESSAGE(MESSAGE-TEXT)
               LENGTH(MESSAGE-LENGTH)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           EVALUATE RESPONSE-CODE
               WHEN DFHRESP(NORMAL)
                   DISPLAY 'Prepare message sent successfully'
               WHEN DFHRESP(INVREQ)
                   DISPLAY 'Invalid prepare request'
               WHEN DFHRESP(LENGERR)
                   DISPLAY 'Message length error'
               WHEN DFHRESP(COMMERR)
                   DISPLAY 'Communication error occurred'
               WHEN OTHER
                   DISPLAY 'Unexpected error occurred'
           END-EVALUATE.
       
       EXECUTE-OPERATION.
           DISPLAY 'Executing prepared operation'.

Prepare Management

Prepare Control

  • • Prepare Initiation - Initiate prepare process
  • • Prepare Management - Manage prepare operations
  • • Prepare Monitoring - Monitor prepare status
  • • Prepare Completion - Complete prepare process

Resource Preparation

  • • Resource Allocation - Allocate required resources
  • • Resource Validation - Validate resource availability
  • • Resource Reservation - Reserve resources for use
  • • Resource Optimization - Optimize resource usage

Operation Preparation

  • • Operation Setup - Set up operation parameters
  • • Operation Validation - Validate operation requirements
  • • Operation Configuration - Configure operation settings
  • • Operation Initialization - Initialize operation state

Error Recovery

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

Error Handling

Common Response Codes

  • DFHRESP(NORMAL) - Prepare message sent successfully
  • DFHRESP(INVREQ) - Invalid prepare request
  • DFHRESP(LENGERR) - Message length error
  • DFHRESP(COMMERR) - Communication error
  • DFHRESP(NOTAUTH) - Not authorized to send prepare
  • DFHRESP(SYSTEMERR) - System error occurred

Performance Considerations

Prepare Efficiency

  • • Optimize prepare messages - Use clear, concise prepare messages
  • • Minimize prepare overhead - Reduce prepare processing overhead
  • • Use appropriate prepare types - Choose appropriate prepare classifications
  • • Monitor prepare frequency - Track prepare occurrence patterns

System Impact

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

Best Practices

Prepare Message Best Practices

  • • Use clear and descriptive prepare messages
  • • Provide meaningful prepare information
  • • Implement proper prepare handling
  • • Ensure prepare message delivery
  • • Monitor prepare message success rates
  • • Use appropriate prepare timing
  • • Maintain prepare message audit trails

Explain It Like I'm 5 Years Old

Think of CICS ISSUE PREPARE like getting ready to play a game:

  • • Get Ready: "Get ready to play the game" - Prepare for operation
  • • Tell Everyone: "Tell everyone you're getting ready" - Send prepare message
  • • Get Everything: "Get all your toys ready" - Prepare resources
  • • Check Rules: "Check the game rules" - Validate requirements
  • • Start Playing: "Now you can start playing" - Execute operation

Exercises

Exercise 1: Basic Prepare Message

Create a program that sends a basic prepare message before executing an operation.

Exercise 2: Conditional Prepare Messages

Write a program that sends different prepare messages based on operation type.

Exercise 3: Error Handling

Implement comprehensive error handling for prepare message failures.

Related Concepts

Transaction Management

Managing transactions

Resource Management

Managing system resources

Message Handling

Managing system messages

Operation Preparation

Preparing for operations

Error Handling

Managing prepare errors