Progress0 of 0 lessons

CICS ADDRESSABLE MAPSET - Addressable Mapset Management

CICS ADDRESSABLE MAPSET provides addressable mapset management capabilities for programs and transactions. It enables programs to manage addressable mapsets, process mapset data, and handle addressable mapset operations in CICS environments.

What is CICS ADDRESSABLE MAPSET?

CICS ADDRESSABLE MAPSET is a command that allows programs to manage addressable mapsets in the system. It provides addressable mapset management capabilities, mapset processing, and addressable mapset operations for CICS applications.

Command Syntax

cobol
1
2
3
4
5
EXEC CICS ADDRESSABLE MAPSET
    [MAPSET(mapset-name)]
    [ACTION(action-type)]
    [RESP(response-code)]
END-EXEC

Parameters

Optional Parameters

  • MAPSET(mapset-name) - Name of addressable mapset to manage
  • ACTION(action-type) - Type of action to perform
  • RESP(response-code) - Response code variable

Addressable Mapset Types

Input Mapsets

Input mapset types

  • • INPUT MAPSET - Input addressable mapsets
  • • FORMAT MAPSET - Format addressable mapsets
  • • EDIT MAPSET - Edit addressable mapsets
  • • VALIDATE MAPSET - Validate addressable mapsets

Output Mapsets

Output mapset types

  • • OUTPUT MAPSET - Output addressable mapsets
  • • DISPLAY MAPSET - Display addressable mapsets
  • • PRINT MAPSET - Print addressable mapsets
  • • REPORT MAPSET - Report addressable mapsets

Interactive Mapsets

Interactive mapset types

  • • INTERACTIVE MAPSET - Interactive addressable mapsets
  • • CONVERSATIONAL MAPSET - Conversational addressable mapsets
  • • PSEUDO-CONVERSATIONAL MAPSET - Pseudo-conversational addressable mapsets
  • • BROWSER MAPSET - Browser addressable mapsets

System Mapsets

System mapset types

  • • SYSTEM MAPSET - System addressable mapsets
  • • ADMIN MAPSET - Admin addressable mapsets
  • • MONITOR MAPSET - Monitor addressable mapsets
  • • CONTROL MAPSET - Control addressable mapsets

Programming Examples

Basic Addressable Mapset 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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADDRESSABLEMAPSET01.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  MAPSET-NAME PIC X(8) VALUE 'MYMAP01'.
       01  ACTION-TYPE PIC X(8) VALUE 'LOAD'.
       01  RESPONSE-CODE PIC S9(8) COMP.
       
       PROCEDURE DIVISION.
           DISPLAY 'Managing addressable mapset'
           DISPLAY 'Mapset: ' MAPSET-NAME
           DISPLAY 'Action: ' ACTION-TYPE
           
           EXEC CICS ADDRESSABLE MAPSET
               MAPSET(MAPSET-NAME)
               ACTION(ACTION-TYPE)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           IF RESPONSE-CODE = DFHRESP(NORMAL)
               DISPLAY 'Addressable mapset managed successfully'
           ELSE
               DISPLAY 'Addressable mapset management failed'
           END-IF
           
           EXEC CICS RETURN END-EXEC.

Advanced Addressable Mapset 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
55
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADDRESSABLEMAPSET02.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  MAPSET-NAME PIC X(8).
       01  ACTION-TYPE PIC X(8).
       01  RESPONSE-CODE PIC S9(8) COMP.
       01  MAPSET-COUNT PIC S9(2) COMP VALUE 0.
       01  MAX-MAPSETS PIC S9(2) COMP VALUE 4.
       01  MAPSET-STATUS PIC X(1).
       01  MAPSET-LIST.
           05  MAPSET-ITEM OCCURS 4 TIMES.
               10  MAPSET-ID PIC X(8).
               10  MAPSET-ACTION PIC X(8).
               10  MAPSET-STATUS PIC X(1).
       
       PROCEDURE DIVISION.
           PERFORM INITIALIZE-MAPSETS
           PERFORM MANAGE-MULTIPLE-MAPSETS
           
           EXEC CICS RETURN END-EXEC.
       
       INITIALIZE-MAPSETS.
           MOVE 'MAP001' TO MAPSET-ID(1)
           MOVE 'LOAD' TO MAPSET-ACTION(1)
           MOVE 'MAP002' TO MAPSET-ID(2)
           MOVE 'UNLOAD' TO MAPSET-ACTION(2)
           MOVE 'MAP003' TO MAPSET-ID(3)
           MOVE 'RELOAD' TO MAPSET-ACTION(3)
           MOVE 'MAP004' TO MAPSET-ID(4)
           MOVE 'DELETE' TO MAPSET-ACTION(4).
       
       MANAGE-MULTIPLE-MAPSETS.
           PERFORM VARYING MAPSET-COUNT FROM 1 BY 1
               UNTIL MAPSET-COUNT > MAX-MAPSETS
               
               MOVE MAPSET-ID(MAPSET-COUNT) TO MAPSET-NAME
               MOVE MAPSET-ACTION(MAPSET-COUNT) TO ACTION-TYPE
               PERFORM MANAGE-SINGLE-MAPSET
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   MOVE 'S' TO MAPSET-STATUS(MAPSET-COUNT)
                   DISPLAY 'Mapset ' MAPSET-COUNT ' managed successfully'
               ELSE
                   MOVE 'F' TO MAPSET-STATUS(MAPSET-COUNT)
                   DISPLAY 'Mapset ' MAPSET-COUNT ' management failed'
               END-IF
           END-PERFORM.
       
       MANAGE-SINGLE-MAPSET.
           EXEC CICS ADDRESSABLE MAPSET
               MAPSET(MAPSET-NAME)
               ACTION(ACTION-TYPE)
               RESP(RESPONSE-CODE)
           END-EXEC.

Error Handling with Addressable Mapset 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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADDRESSABLEMAPSET03.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  MAPSET-NAME PIC X(8) VALUE 'MYMAP01'.
       01  ACTION-TYPE PIC X(8) VALUE 'LOAD'.
       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  MAPSET-MANAGE-SUCCESSFUL PIC X(1) VALUE 'N'.
       
       PROCEDURE DIVISION.
           PERFORM MANAGE-MAPSET-WITH-RETRY
           
           EXEC CICS RETURN END-EXEC.
       
       MANAGE-MAPSET-WITH-RETRY.
           PERFORM MANAGE-MAPSET
           
           IF RESPONSE-CODE NOT = DFHRESP(NORMAL)
               AND RETRY-COUNT < MAX-RETRIES
               ADD 1 TO RETRY-COUNT
               DISPLAY 'Retry ' RETRY-COUNT ' addressable mapset management operation'
               PERFORM MANAGE-MAPSET-WITH-RETRY
           END-IF.
       
       MANAGE-MAPSET.
           EXEC CICS ADDRESSABLE MAPSET
               MAPSET(MAPSET-NAME)
               ACTION(ACTION-TYPE)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           EVALUATE RESPONSE-CODE
               WHEN DFHRESP(NORMAL)
                   MOVE 'Y' TO MAPSET-MANAGE-SUCCESSFUL
                   DISPLAY 'Addressable mapset management operation successful'
               WHEN DFHRESP(NOTAUTH)
                   DISPLAY 'Not authorized to manage addressable mapset'
               WHEN DFHRESP(INVREQ)
                   DISPLAY 'Invalid addressable mapset management request'
               WHEN DFHRESP(MAPSETERR)
                   DISPLAY 'Addressable mapset management error'
               WHEN DFHRESP(MAPSETNOTFOUND)
                   DISPLAY 'Addressable mapset not found'
               WHEN DFHRESP(MAPSETINUSE)
                   DISPLAY 'Addressable mapset is in use'
               WHEN OTHER
                   DISPLAY 'Unexpected addressable mapset management error'
           END-EVALUATE.

Addressable Mapset Management

Mapset Operations

  • • Mapset Load - Load addressable mapsets
  • • Mapset Unload - Unload addressable mapsets
  • • Mapset Reload - Reload addressable mapsets
  • • Mapset Delete - Delete addressable mapsets

Mapset Lifecycle

  • • Mapset Creation - Create addressable mapsets
  • • Mapset Processing - Process addressable mapsets
  • • Mapset Completion - Complete addressable mapsets
  • • Mapset Cleanup - Clean up addressable mapsets

Mapset Monitoring

  • • Mapset Tracking - Track addressable mapset usage
  • • Mapset Auditing - Audit addressable mapset operations
  • • Mapset Reporting - Report addressable mapset status
  • • Mapset Analysis - Analyze addressable mapset patterns

Mapset Error Recovery

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

Error Handling

Common Response Codes

  • DFHRESP(NORMAL) - Addressable mapset management operation successful
  • DFHRESP(NOTAUTH) - Not authorized to manage addressable mapset
  • DFHRESP(INVREQ) - Invalid addressable mapset management request
  • DFHRESP(MAPSETERR) - Addressable mapset management error
  • DFHRESP(MAPSETNOTFOUND) - Addressable mapset not found
  • DFHRESP(MAPSETINUSE) - Addressable mapset is in use

Performance Considerations

Mapset Efficiency

  • • Optimize mapset operations - Use efficient addressable mapset handling
  • • Minimize mapset overhead - Reduce addressable mapset processing overhead
  • • Use mapset pooling - Implement addressable mapset pooling
  • • Monitor mapset frequency - Track addressable mapset management patterns

System Impact

  • • Monitor system impact - Track how addressable mapset management affects the system
  • • Optimize mapset handling - Ensure efficient addressable mapset processing
  • • Manage mapset usage - Monitor addressable mapset consumption
  • • Track performance metrics - Monitor addressable mapset handling performance

Best Practices

Addressable Mapset Management Best Practices

  • • Manage addressable mapsets only when mapsets are needed
  • • Implement proper error handling for addressable mapset operations
  • • Validate mapset state before management
  • • Use appropriate addressable mapset management techniques
  • • Monitor addressable mapset management activities and performance
  • • Maintain addressable mapset management audit trails
  • • Handle addressable mapset management errors gracefully

Explain It Like I'm 5 Years Old

Think of CICS ADDRESSABLE MAPSET like managing a coloring book:

  • • Coloring Book: "You see a coloring book" - Addressable mapset available
  • • Open Book: "Open the coloring book" - Load addressable mapset
  • • Color Pages: "Color the pages" - Process addressable mapset
  • • Close Book: "Close the coloring book" - Unload addressable mapset
  • • Put Away: "Put the coloring book away" - Complete addressable mapset

Exercises

Exercise 1: Basic Addressable Mapset Management

Create a program that manages basic addressable mapsets.

Exercise 2: Advanced Addressable Mapset Processing

Write a program that processes multiple addressable mapset management operations.

Exercise 3: Error Handling

Implement comprehensive error handling for addressable mapset management failures.

Related Concepts

Addressable Mapset Management

Managing addressable mapsets

Mapset Processing

Processing addressable mapsets

Mapset Operations

Addressable mapset operations

Mapset Monitoring

Monitoring addressable mapsets

Error Handling

Managing addressable mapset errors