Progress0 of 0 lessons

CICS GDS SEND - GDS Data Transmission

CICS GDS SEND provides GDS data transmission capabilities for programs and transactions. It enables programs to send GDS data, handle GDS message transmission, and manage GDS data communication in CICS environments.

What is CICS GDS SEND?

CICS GDS SEND is a command that allows programs to send data to GDS processes in the system. It provides GDS data transmission capabilities, GDS message sending, and GDS data communication for CICS applications.

Command Syntax

cobol
1
2
3
4
5
6
EXEC CICS GDS SEND
    FROM(data-area)
    [LENGTH(data-length)]
    [CONVID(conversation-id)]
    [RESP(response-code)]
END-EXEC

Parameters

Required Parameters

  • FROM(data-area) - Data area containing data to send

Optional Parameters

  • LENGTH(data-length) - Length of data to send
  • CONVID(conversation-id) - Conversation ID variable
  • RESP(response-code) - Response code variable

GDS Data Types

GDS Message Types

GDS message data types

  • • GDS DATA MESSAGE - GDS data messages
  • • GDS CONTROL MESSAGE - GDS control messages
  • • GDS STATUS MESSAGE - GDS status messages
  • • GDS ERROR MESSAGE - GDS error messages

GDS Data Formats

GDS data format types

  • • GDS TEXT DATA - GDS text data
  • • GDS BINARY DATA - GDS binary data
  • • GDS STRUCTURED DATA - GDS structured data
  • • GDS XML DATA - GDS XML data

GDS Communication Types

GDS communication data types

  • • GDS CONVERSATION DATA - GDS conversation data
  • • GDS SESSION DATA - GDS session data
  • • GDS CONNECTION DATA - GDS connection data
  • • GDS CHANNEL DATA - GDS channel data

GDS Process Data

GDS process data types

  • • GDS PROCESS DATA - GDS process data
  • • GDS BUFFER DATA - GDS buffer data
  • • GDS QUEUE DATA - GDS queue data
  • • GDS EVENT DATA - GDS event data

Programming Examples

Basic GDS Data Transmission

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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. GDSSEND01.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  DATA-AREA PIC X(100) VALUE 'Hello GDS World'.
       01  DATA-LENGTH PIC S9(4) COMP VALUE 15.
       01  CONVERSATION-ID PIC S9(8) COMP.
       01  RESPONSE-CODE PIC S9(8) COMP.
       
       PROCEDURE DIVISION.
           DISPLAY 'Sending GDS data'
           DISPLAY 'Data: ' DATA-AREA
           
           EXEC CICS GDS SEND
               FROM(DATA-AREA)
               LENGTH(DATA-LENGTH)
               CONVID(CONVERSATION-ID)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           IF RESPONSE-CODE = DFHRESP(NORMAL)
               DISPLAY 'GDS data sent successfully'
           ELSE
               DISPLAY 'GDS data send failed'
           END-IF
           
           EXEC CICS RETURN END-EXEC.

Advanced GDS Message Transmission

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. GDSSEND02.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  DATA-AREA PIC X(100).
       01  DATA-LENGTH PIC S9(4) COMP VALUE 100.
       01  CONVERSATION-ID PIC S9(8) COMP.
       01  RESPONSE-CODE PIC S9(8) COMP.
       01  SEND-COUNT PIC S9(2) COMP VALUE 0.
       01  MAX-SENDS PIC S9(2) COMP VALUE 3.
       01  GDS-STATUS PIC X(1).
       01  MESSAGE-LIST.
           05  MESSAGE-ITEM OCCURS 3 TIMES.
               10  MESSAGE-ID PIC X(8).
               10  MESSAGE-TYPE PIC X(8).
               10  MESSAGE-DATA PIC X(50).
               10  MESSAGE-STATUS PIC X(1).
       
       PROCEDURE DIVISION.
           PERFORM INITIALIZE-GDS-MESSAGES
           PERFORM SEND-MULTIPLE-GDS-MESSAGES
           
           EXEC CICS RETURN END-EXEC.
       
       INITIALIZE-GDS-MESSAGES.
           MOVE 'MSG001' TO MESSAGE-ID(1)
           MOVE 'DATA' TO MESSAGE-TYPE(1)
           MOVE 'Hello from GDS Message 1' TO MESSAGE-DATA(1)
           MOVE 'MSG002' TO MESSAGE-ID(2)
           MOVE 'CONTROL' TO MESSAGE-TYPE(2)
           MOVE 'Control message from GDS' TO MESSAGE-DATA(2)
           MOVE 'MSG003' TO MESSAGE-ID(3)
           MOVE 'STATUS' TO MESSAGE-TYPE(3)
           MOVE 'Status update from GDS' TO MESSAGE-DATA(3).
       
       SEND-MULTIPLE-GDS-MESSAGES.
           PERFORM VARYING SEND-COUNT FROM 1 BY 1
               UNTIL SEND-COUNT > MAX-SENDS
               
               MOVE MESSAGE-DATA(SEND-COUNT) TO DATA-AREA
               MOVE 50 TO DATA-LENGTH
               PERFORM SEND-SINGLE-GDS-MESSAGE
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   MOVE 'S' TO MESSAGE-STATUS(SEND-COUNT)
                   DISPLAY 'GDS message ' SEND-COUNT ' sent successfully'
               ELSE
                   MOVE 'F' TO MESSAGE-STATUS(SEND-COUNT)
                   DISPLAY 'GDS message ' SEND-COUNT ' send failed'
               END-IF
           END-PERFORM.
       
       SEND-SINGLE-GDS-MESSAGE.
           EXEC CICS GDS SEND
               FROM(DATA-AREA)
               LENGTH(DATA-LENGTH)
               CONVID(CONVERSATION-ID)
               RESP(RESPONSE-CODE)
           END-EXEC.

Error Handling with GDS Data Transmission

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. GDSSEND03.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  DATA-AREA PIC X(100) VALUE 'Hello GDS World'.
       01  DATA-LENGTH PIC S9(4) COMP VALUE 15.
       01  CONVERSATION-ID PIC S9(8) 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  GDS-SEND-SUCCESSFUL PIC X(1) VALUE 'N'.
       
       PROCEDURE DIVISION.
           PERFORM SEND-GDS-DATA-WITH-RETRY
           
           EXEC CICS RETURN END-EXEC.
       
       SEND-GDS-DATA-WITH-RETRY.
           PERFORM SEND-GDS-DATA
           
           IF RESPONSE-CODE NOT = DFHRESP(NORMAL)
               AND RETRY-COUNT < MAX-RETRIES
               ADD 1 TO RETRY-COUNT
               DISPLAY 'Retry ' RETRY-COUNT ' GDS data send operation'
               PERFORM SEND-GDS-DATA-WITH-RETRY
           END-IF.
       
       SEND-GDS-DATA.
           EXEC CICS GDS SEND
               FROM(DATA-AREA)
               LENGTH(DATA-LENGTH)
               CONVID(CONVERSATION-ID)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           EVALUATE RESPONSE-CODE
               WHEN DFHRESP(NORMAL)
                   MOVE 'Y' TO GDS-SEND-SUCCESSFUL
                   DISPLAY 'GDS data send operation successful'
               WHEN DFHRESP(NOTAUTH)
                   DISPLAY 'Not authorized to send GDS data'
               WHEN DFHRESP(INVREQ)
                   DISPLAY 'Invalid GDS data send request'
               WHEN DFHRESP(SENDERR)
                   DISPLAY 'GDS data send operation error'
               WHEN DFHRESP(NOCONNECTION)
                   DISPLAY 'No GDS connection available'
               WHEN DFHRESP(DATAERR)
                   DISPLAY 'GDS data error'
               WHEN OTHER
                   DISPLAY 'Unexpected GDS data send error'
           END-EVALUATE.

GDS Data Communication

GDS Data Transmission

  • • GDS Data Send - Send GDS data
  • • GDS Message Transmission - Transmit GDS messages
  • • GDS Data Validation - Validate GDS data
  • • GDS Data Processing - Process GDS data

GDS Data Lifecycle

  • • GDS Data Preparation - Prepare GDS data
  • • GDS Data Transmission - Transmit GDS data
  • • GDS Data Processing - Process GDS data
  • • GDS Data Storage - Store GDS data

GDS Data Monitoring

  • • GDS Data Tracking - Track GDS data flow
  • • GDS Data Auditing - Audit GDS data operations
  • • GDS Data Reporting - Report GDS data status
  • • GDS Data Analysis - Analyze GDS data patterns

GDS Error Recovery

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

Error Handling

Common Response Codes

  • DFHRESP(NORMAL) - GDS data send operation successful
  • DFHRESP(NOTAUTH) - Not authorized to send GDS data
  • DFHRESP(INVREQ) - Invalid GDS data send request
  • DFHRESP(SENDERR) - GDS data send operation error
  • DFHRESP(NOCONNECTION) - No GDS connection available
  • DFHRESP(DATAERR) - GDS data error

Performance Considerations

GDS Data Efficiency

  • • Optimize GDS data operations - Use efficient GDS data handling
  • • Minimize GDS data overhead - Reduce GDS data processing overhead
  • • Use GDS data buffering - Implement GDS data buffering
  • • Monitor GDS data frequency - Track GDS data send patterns

System Impact

  • • Monitor system impact - Track how GDS data send affects the system
  • • Optimize GDS data handling - Ensure efficient GDS data processing
  • • Manage GDS data usage - Monitor GDS data consumption
  • • Track performance metrics - Monitor GDS data handling performance

Best Practices

GDS Data Transmission Best Practices

  • • Send GDS data only when needed
  • • Implement proper error handling for GDS data operations
  • • Validate GDS data before sending
  • • Use appropriate GDS data management techniques
  • • Monitor GDS data transmission activities and performance
  • • Maintain GDS data transmission audit trails
  • • Handle GDS data transmission errors gracefully

Explain It Like I'm 5 Years Old

Think of CICS GDS SEND like sending mail:

  • • Write Letter: "Write a letter to your friend" - Prepare GDS data
  • • Put in Envelope: "Put the letter in an envelope" - Format GDS data
  • • Send Mail: "Send the mail to your friend" - Send GDS data
  • • Mail Delivered: "Your friend gets the mail" - GDS data received
  • • Friend Reads: "Your friend reads the mail" - GDS data processed

Exercises

Exercise 1: Basic GDS Data Transmission

Create a program that sends basic GDS data.

Exercise 2: Advanced GDS Message Transmission

Write a program that manages multiple GDS message transmissions.

Exercise 3: Error Handling

Implement comprehensive error handling for GDS data transmission failures.

Related Concepts

GDS Data Communication

Communicating GDS system data

GDS Data Transmission

Transmitting GDS data

GDS Message Sending

Sending GDS messages

GDS Data Validation

Validating GDS data

Error Handling

Managing GDS data errors