CICS STARTBROWSE CONTAINER (CHANNEL) - Channel Container Browse Initialization

1
2
3
4
EXEC CICS STARTBROWSE CONTAINER
    CHANNEL(channel-name)
    [RESP(response-code)]
END-EXEC

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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. STARTBROWSECONTAINERCHANNEL01.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  CHANNEL-NAME PIC X(8) VALUE 'MAINCHAN'.
       01  RESPONSE-CODE PIC S9(8) COMP.
       01  BROWSE-INITIALIZED PIC X(1) VALUE 'N'.
       
       PROCEDURE DIVISION.
           IF BROWSE-INITIALIZED = 'N'
               DISPLAY 'Initializing container browse for channel: ' CHANNEL-NAME
               
               EXEC CICS STARTBROWSE CONTAINER
                   CHANNEL(CHANNEL-NAME)
                   RESP(RESPONSE-CODE)
               END-EXEC
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   MOVE 'Y' TO BROWSE-INITIALIZED
                   DISPLAY 'Container browse initialized successfully'
               ELSE
                   DISPLAY 'Failed to initialize container browse'
               END-IF
           ELSE
               DISPLAY 'Container browse already initialized'
           END-IF
           
           EXEC CICS RETURN END-EXEC.

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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. STARTBROWSECONTAINERCHANNEL02.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  CHANNEL-NAME PIC X(8).
       01  RESPONSE-CODE PIC S9(8) COMP.
       01  CHANNEL-COUNT PIC S9(2) COMP VALUE 0.
       01  MAX-CHANNELS PIC S9(2) COMP VALUE 5.
       01  CHANNEL-LIST.
           05  CHANNEL-ITEM OCCURS 5 TIMES.
               10  CHANNEL-ID PIC X(8).
               10  CHANNEL-STATUS PIC X(1).
       
       PROCEDURE DIVISION.
           PERFORM INITIALIZE-MULTIPLE-CHANNEL-BROWSE
           
           EXEC CICS RETURN END-EXEC.
       
       INITIALIZE-MULTIPLE-CHANNEL-BROWSE.
           MOVE 'CHANNEL1' TO CHANNEL-ID(1)
           MOVE 'CHANNEL2' TO CHANNEL-ID(2)
           MOVE 'CHANNEL3' TO CHANNEL-ID(3)
           MOVE 'CHANNEL4' TO CHANNEL-ID(4)
           MOVE 'CHANNEL5' TO CHANNEL-ID(5)
           
           PERFORM VARYING CHANNEL-COUNT FROM 1 BY 1
               UNTIL CHANNEL-COUNT > MAX-CHANNELS
               
               MOVE CHANNEL-ID(CHANNEL-COUNT) TO CHANNEL-NAME
               PERFORM INITIALIZE-SINGLE-CHANNEL-BROWSE
               
               IF RESPONSE-CODE = DFHRESP(NORMAL)
                   MOVE 'I' TO CHANNEL-STATUS(CHANNEL-COUNT)
                   DISPLAY 'Initialized browse for: ' CHANNEL-NAME
               ELSE
                   MOVE 'F' TO CHANNEL-STATUS(CHANNEL-COUNT)
                   DISPLAY 'Failed to initialize browse for: ' CHANNEL-NAME
               END-IF
           END-PERFORM.
       
       INITIALIZE-SINGLE-CHANNEL-BROWSE.
           EXEC CICS STARTBROWSE CONTAINER
               CHANNEL(CHANNEL-NAME)
               RESP(RESPONSE-CODE)
           END-EXEC.

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
       IDENTIFICATION DIVISION.
       PROGRAM-ID. STARTBROWSECONTAINERCHANNEL03.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  CHANNEL-NAME PIC X(8) VALUE 'TESTCHAN'.
       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  INITIALIZATION-SUCCESSFUL PIC X(1) VALUE 'N'.
       
       PROCEDURE DIVISION.
           PERFORM INITIALIZE-CHANNEL-BROWSE-WITH-ERROR-HANDLING
           
           EXEC CICS RETURN END-EXEC.
       
       INITIALIZE-CHANNEL-BROWSE-WITH-ERROR-HANDLING.
           PERFORM INITIALIZE-CHANNEL-BROWSE
           
           IF RESPONSE-CODE NOT = DFHRESP(NORMAL)
               AND RETRY-COUNT < MAX-RETRIES
               ADD 1 TO RETRY-COUNT
               DISPLAY 'Retry ' RETRY-COUNT ' initializing channel browse'
               PERFORM INITIALIZE-CHANNEL-BROWSE-WITH-ERROR-HANDLING
           END-IF.
       
       INITIALIZE-CHANNEL-BROWSE.
           EXEC CICS STARTBROWSE CONTAINER
               CHANNEL(CHANNEL-NAME)
               RESP(RESPONSE-CODE)
           END-EXEC
           
           EVALUATE RESPONSE-CODE
               WHEN DFHRESP(NORMAL)
                   MOVE 'Y' TO INITIALIZATION-SUCCESSFUL
                   DISPLAY 'Channel container browse initialized successfully'
               WHEN DFHRESP(NOTFND)
                   DISPLAY 'Channel not found'
               WHEN DFHRESP(NOTAUTH)
                   DISPLAY 'Not authorized to browse containers'
               WHEN DFHRESP(INVREQ)
                   DISPLAY 'Invalid browse request'
               WHEN DFHRESP(CONTAINERERR)
                   DISPLAY 'Container browse error'
               WHEN OTHER
                   DISPLAY 'Unexpected error occurred'
           END-EVALUATE.