Progress0 of 0 lessons

CICS ADF - Application Development Framework

CICS ADF (Application Development Framework) provides application development capabilities for programs and transactions. It enables programs to develop applications, manage framework components, and handle ADF operations in CICS environments.

What is CICS ADF?

CICS ADF (Application Development Framework) is a framework that allows programs to develop applications in the system. It provides application development capabilities, framework management, and ADF operations for CICS applications.

Command Syntax

cobol
1
2
3
4
5
6
EXEC CICS ADF
    [APPLICATION(app-name)]
    [COMPONENT(component-name)]
    [ACTION(action-type)]
    [RESP(response-code)]
END-EXEC

Parameters

Optional Parameters

  • APPLICATION(app-name) - Name of application to develop
  • COMPONENT(component-name) - Name of framework component
  • ACTION(action-type) - Type of action to perform
  • RESP(response-code) - Response code variable

ADF Components

Application Components

Application component types

  • • APPLICATION MODULE - Application module components
  • • APPLICATION SERVICE - Application service components
  • • APPLICATION INTERFACE - Application interface components
  • • APPLICATION DATA - Application data components

Framework Components

Framework component types

  • • FRAMEWORK CORE - Framework core components
  • • FRAMEWORK UTILITIES - Framework utility components
  • • FRAMEWORK SERVICES - Framework service components
  • • FRAMEWORK TOOLS - Framework tool components

Development Components

Development component types

  • • DEVELOPMENT TOOLS - Development tool components
  • • DEVELOPMENT TEMPLATES - Development template components
  • • DEVELOPMENT LIBRARIES - Development library components
  • • DEVELOPMENT UTILITIES - Development utility components

Runtime Components

Runtime component types

  • • RUNTIME ENGINE - Runtime engine components
  • • RUNTIME SERVICES - Runtime service components
  • • RUNTIME MONITORING - Runtime monitoring components
  • • RUNTIME MANAGEMENT - Runtime management components

Programming Examples

Basic ADF Application Development

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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADF01.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  APP-NAME PIC X(8) VALUE 'MYAPP01'.
       01  COMPONENT-NAME PIC X(8) VALUE 'CORE'.
       01  ACTION-TYPE PIC X(8) VALUE 'CREATE'.
       01  RESPONSE-CODE PIC S9(8) COMP.
       
       PROCEDURE DIVISION.
           DISPLAY 'Developing ADF application'
           DISPLAY 'Application: ' APP-NAME
           DISPLAY 'Component: ' COMPONENT-NAME
           DISPLAY 'Action: ' ACTION-TYPE
           
           EXEC CICS ADF
               APPLICATION(APP-NAME)
               COMPONENT(COMPONENT-NAME)
               ACTION(ACTION-TYPE)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           IF RESPONSE-CODE = DFHRESP(NORMAL)
               DISPLAY 'ADF application developed successfully'
           ELSE
               DISPLAY 'ADF application development failed'
           END-IF
           
           EXEC CICS RETURN END-EXEC.

Advanced ADF Framework 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
60
61
62
63
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADF02.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  APP-NAME PIC X(8).
       01  COMPONENT-NAME PIC X(8).
       01  ACTION-TYPE PIC X(8).
       01  RESPONSE-CODE PIC S9(8) COMP.
       01  COMPONENT-COUNT PIC S9(2) COMP VALUE 0.
       01  MAX-COMPONENTS PIC S9(2) COMP VALUE 4.
       01  COMPONENT-STATUS PIC X(1).
       01  COMPONENT-LIST.
           05  COMPONENT-ITEM OCCURS 4 TIMES.
               10  COMPONENT-ID PIC X(8).
               10  COMPONENT-TYPE PIC X(8).
               10  COMPONENT-ACTION PIC X(8).
               10  COMPONENT-STATUS PIC X(1).
       
       PROCEDURE DIVISION.
           PERFORM INITIALIZE-COMPONENTS
           PERFORM MANAGE-MULTIPLE-COMPONENTS
           
           EXEC CICS RETURN END-EXEC.
       
       INITIALIZE-COMPONENTS.
           MOVE 'COMP001' TO COMPONENT-ID(1)
           MOVE 'CORE' TO COMPONENT-TYPE(1)
           MOVE 'CREATE' TO COMPONENT-ACTION(1)
           MOVE 'COMP002' TO COMPONENT-ID(2)
           MOVE 'UTIL' TO COMPONENT-TYPE(2)
           MOVE 'UPDATE' TO COMPONENT-ACTION(2)
           MOVE 'COMP003' TO COMPONENT-ID(3)
           MOVE 'SERVICE' TO COMPONENT-TYPE(3)
           MOVE 'DELETE' TO COMPONENT-ACTION(3)
           MOVE 'COMP004' TO COMPONENT-ID(4)
           MOVE 'TOOL' TO COMPONENT-TYPE(4)
           MOVE 'QUERY' TO COMPONENT-ACTION(4).
       
       MANAGE-MULTIPLE-COMPONENTS.
           PERFORM VARYING COMPONENT-COUNT FROM 1 BY 1
               UNTIL COMPONENT-COUNT > MAX-COMPONENTS
               
               MOVE COMPONENT-ID(COMPONENT-COUNT) TO APP-NAME
               MOVE COMPONENT-TYPE(COMPONENT-COUNT) TO COMPONENT-NAME
               MOVE COMPONENT-ACTION(COMPONENT-COUNT) TO ACTION-TYPE
               PERFORM MANAGE-SINGLE-COMPONENT
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   MOVE 'S' TO COMPONENT-STATUS(COMPONENT-COUNT)
                   DISPLAY 'Component ' COMPONENT-COUNT ' managed successfully'
               ELSE
                   MOVE 'F' TO COMPONENT-STATUS(COMPONENT-COUNT)
                   DISPLAY 'Component ' COMPONENT-COUNT ' management failed'
               END-IF
           END-PERFORM.
       
       MANAGE-SINGLE-COMPONENT.
           EXEC CICS ADF
               APPLICATION(APP-NAME)
               COMPONENT(COMPONENT-NAME)
               ACTION(ACTION-TYPE)
               RESP(RESPONSE-CODE)
           END-EXEC.

Error Handling with ADF Operations

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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADF03.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  APP-NAME PIC X(8) VALUE 'MYAPP01'.
       01  COMPONENT-NAME PIC X(8) VALUE 'CORE'.
       01  ACTION-TYPE PIC X(8) VALUE 'CREATE'.
       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  ADF-OPERATION-SUCCESSFUL PIC X(1) VALUE 'N'.
       
       PROCEDURE DIVISION.
           PERFORM ADF-OPERATION-WITH-RETRY
           
           EXEC CICS RETURN END-EXEC.
       
       ADF-OPERATION-WITH-RETRY.
           PERFORM ADF-OPERATION
           
           IF RESPONSE-CODE NOT = DFHRESP(NORMAL)
               AND RETRY-COUNT < MAX-RETRIES
               ADD 1 TO RETRY-COUNT
               DISPLAY 'Retry ' RETRY-COUNT ' ADF operation'
               PERFORM ADF-OPERATION-WITH-RETRY
           END-IF.
       
       ADF-OPERATION.
           EXEC CICS ADF
               APPLICATION(APP-NAME)
               COMPONENT(COMPONENT-NAME)
               ACTION(ACTION-TYPE)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           EVALUATE RESPONSE-CODE
               WHEN DFHRESP(NORMAL)
                   MOVE 'Y' TO ADF-OPERATION-SUCCESSFUL
                   DISPLAY 'ADF operation successful'
               WHEN DFHRESP(NOTAUTH)
                   DISPLAY 'Not authorized to perform ADF operation'
               WHEN DFHRESP(INVREQ)
                   DISPLAY 'Invalid ADF operation request'
               WHEN DFHRESP(ADFERR)
                   DISPLAY 'ADF operation error'
               WHEN DFHRESP(ADFNOTFOUND)
                   DISPLAY 'ADF component not found'
               WHEN DFHRESP(ADFINUSE)
                   DISPLAY 'ADF component is in use'
               WHEN OTHER
                   DISPLAY 'Unexpected ADF operation error'
           END-EVALUATE.

ADF Framework Management

ADF Operations

  • • ADF Create - Create ADF applications
  • • ADF Update - Update ADF applications
  • • ADF Delete - Delete ADF applications
  • • ADF Query - Query ADF applications

ADF Lifecycle

  • • ADF Development - Develop ADF applications
  • • ADF Testing - Test ADF applications
  • • ADF Deployment - Deploy ADF applications
  • • ADF Maintenance - Maintain ADF applications

ADF Monitoring

  • • ADF Tracking - Track ADF application usage
  • • ADF Auditing - Audit ADF operations
  • • ADF Reporting - Report ADF application status
  • • ADF Analysis - Analyze ADF application patterns

ADF Error Recovery

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

Error Handling

Common Response Codes

  • DFHRESP(NORMAL) - ADF operation successful
  • DFHRESP(NOTAUTH) - Not authorized to perform ADF operation
  • DFHRESP(INVREQ) - Invalid ADF operation request
  • DFHRESP(ADFERR) - ADF operation error
  • DFHRESP(ADFNOTFOUND) - ADF component not found
  • DFHRESP(ADFINUSE) - ADF component is in use

Performance Considerations

ADF Efficiency

  • • Optimize ADF operations - Use efficient ADF handling
  • • Minimize ADF overhead - Reduce ADF processing overhead
  • • Use ADF pooling - Implement ADF pooling
  • • Monitor ADF frequency - Track ADF operation patterns

System Impact

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

Best Practices

ADF Best Practices

  • • Use ADF operations only when ADF functionality is needed
  • • Implement proper error handling for ADF operations
  • • Validate ADF component state before operations
  • • Use appropriate ADF management techniques
  • • Monitor ADF operations activities and performance
  • • Maintain ADF operations audit trails
  • • Handle ADF operations errors gracefully

Explain It Like I'm 5 Years Old

Think of CICS ADF like building with LEGO blocks:

  • • LEGO Box: "You see a box of LEGO blocks" - ADF framework available
  • • Choose Blocks: "Choose the LEGO blocks you need" - Select ADF components
  • • Build Structure: "Build a structure with the blocks" - Create ADF application
  • • Use Structure: "Use the structure you built" - Process ADF application
  • • Take Apart: "Take apart the structure" - Complete ADF application

Exercises

Exercise 1: Basic ADF Application Development

Create a program that develops basic ADF applications.

Exercise 2: Advanced ADF Framework Management

Write a program that manages multiple ADF framework components.

Exercise 3: Error Handling

Implement comprehensive error handling for ADF operation failures.

Related Concepts

ADF Framework Management

Managing ADF framework

ADF Application Development

Developing ADF applications

ADF Component Management

Managing ADF components

ADF Operations

ADF operations

Error Handling

Managing ADF errors