COACCT01

Source: app-vsam-mq/cbl/COACCT01.cbl

Type: CICS transaction program

LLM overview unavailable: Connection error.

CICS commands

RETRIEVE, READ, RETURN END

Copybooks

CMQGMOV, CMQMDV, CMQODV, CMQPMOV, CMQTML, CMQV, CVACT01Y, REPLACING

Calls

MQCLOSE, MQGET, MQOPEN, MQPUT

Paragraph flow

flowchart TD
    1000_CONTROL["1000-CONTROL"]
    2300_OPEN_INPUT_QUEUE["2300-OPEN-INPUT-QUEUE"]
    2400_OPEN_OUTPUT_QUEUE["2400-OPEN-OUTPUT-QUEUE"]
    2100_OPEN_ERROR_QUEUE["2100-OPEN-ERROR-QUEUE"]
    4000_MAIN_PROCESS["4000-MAIN-PROCESS"]
    3000_GET_REQUEST["3000-GET-REQUEST"]
    4000_PROCESS_REQUEST_REPLY["4000-PROCESS-REQUEST-REPLY"]
    4100_PUT_REPLY["4100-PUT-REPLY"]
    9000_ERROR["9000-ERROR"]
    8000_TERMINATION["8000-TERMINATION"]
    5000_CLOSE_INPUT_QUEUE["5000-CLOSE-INPUT-QUEUE"]
    5100_CLOSE_OUTPUT_QUEUE["5100-CLOSE-OUTPUT-QUEUE"]
    5200_CLOSE_ERROR_QUEUE["5200-CLOSE-ERROR-QUEUE"]
    1000_CONTROL --> 2100_OPEN_ERROR_QUEUE
    1000_CONTROL --> 2300_OPEN_INPUT_QUEUE
    1000_CONTROL --> 2400_OPEN_OUTPUT_QUEUE
    1000_CONTROL --> 3000_GET_REQUEST
    1000_CONTROL --> 4000_MAIN_PROCESS
    1000_CONTROL --> 8000_TERMINATION
    1000_CONTROL --> 9000_ERROR
    2100_OPEN_ERROR_QUEUE --> 8000_TERMINATION
    2300_OPEN_INPUT_QUEUE --> 8000_TERMINATION
    2300_OPEN_INPUT_QUEUE --> 9000_ERROR
    2400_OPEN_OUTPUT_QUEUE --> 8000_TERMINATION
    2400_OPEN_OUTPUT_QUEUE --> 9000_ERROR
    3000_GET_REQUEST --> 4000_PROCESS_REQUEST_REPLY
    3000_GET_REQUEST --> 8000_TERMINATION
    3000_GET_REQUEST --> 9000_ERROR
    4000_MAIN_PROCESS --> 3000_GET_REQUEST
    4000_PROCESS_REQUEST_REPLY --> 4100_PUT_REPLY
    4000_PROCESS_REQUEST_REPLY --> 8000_TERMINATION
    4000_PROCESS_REQUEST_REPLY --> 9000_ERROR
    4100_PUT_REPLY --> 8000_TERMINATION
    4100_PUT_REPLY --> 9000_ERROR
    5000_CLOSE_INPUT_QUEUE --> 8000_TERMINATION
    5100_CLOSE_OUTPUT_QUEUE --> 8000_TERMINATION
    5200_CLOSE_ERROR_QUEUE --> 8000_TERMINATION
    5200_CLOSE_ERROR_QUEUE --> 9000_ERROR
    8000_TERMINATION --> 5000_CLOSE_INPUT_QUEUE
    8000_TERMINATION --> 5100_CLOSE_OUTPUT_QUEUE
    8000_TERMINATION --> 5200_CLOSE_ERROR_QUEUE
    9000_ERROR --> 8000_TERMINATION

Paragraphs

Paragraph	Line	Performs
1000-CONTROL	178	2100-OPEN-ERROR-QUEUE, 9000-ERROR, 8000-TERMINATION, 2300-OPEN-INPUT-QUEUE, 2400-OPEN-OUTPUT-QUEUE, 3000-GET-REQUEST
2300-OPEN-INPUT-QUEUE	222	9000-ERROR, 8000-TERMINATION
2400-OPEN-OUTPUT-QUEUE	255	9000-ERROR, 8000-TERMINATION
2100-OPEN-ERROR-QUEUE	289	8000-TERMINATION
4000-MAIN-PROCESS	325	3000-GET-REQUEST
3000-GET-REQUEST	334	4000-PROCESS-REQUEST-REPLY, 9000-ERROR, 8000-TERMINATION
4000-PROCESS-REQUEST-REPLY	390	4100-PUT-REPLY, 4100-PUT-REPLY, 9000-ERROR, 8000-TERMINATION, 4100-PUT-REPLY
4100-PUT-REPLY	462	9000-ERROR, 8000-TERMINATION
9000-ERROR	501	8000-TERMINATION
8000-TERMINATION	538	5000-CLOSE-INPUT-QUEUE, 5100-CLOSE-OUTPUT-QUEUE, 5200-CLOSE-ERROR-QUEUE
5000-CLOSE-INPUT-QUEUE	552	8000-TERMINATION
5100-CLOSE-OUTPUT-QUEUE	574	8000-TERMINATION
5200-CLOSE-ERROR-QUEUE	597	9000-ERROR, 8000-TERMINATION