COTRTLIC
Source: app-transaction-type-db2/cbl/COTRTLIC.cbl
Type: CICS transaction program (DB2)
LLM overview unavailable: 'ThinkingBlock' object has no attribute 'text'
Files
| Logical file | DD name |
|---|---|
| PIC | |
| ONLY |
DB2 tables
CARDDEMO.TRANSACTION, CARDDEMO.TRANSACTION, CARDDEMO.TRANSACTION, CARDDEMO.TRANSACTION, CARDDEMO.TRANSACTION
CICS commands
XCTL, RETURN, RECEIVE MAP, SEND MAP, SYNCPOINT END, SEND TEXT
Copybooks
COCOM01Y, COTRTLI, COTTL01Y, CSDAT01Y, CSMSG01Y, CSUSR01Y, CVACT02Y, CVCRD01Y, DFHAID, DFHBMSCA
Paragraph flow
flowchart TD
0000_MAIN["0000-MAIN"]
COMMON_RETURN["COMMON-RETURN"]
0000_MAIN_EXIT["0000-MAIN-EXIT"]
1000_RECEIVE_MAP["1000-RECEIVE-MAP"]
1000_RECEIVE_MAP_EXIT["1000-RECEIVE-MAP-EXIT"]
1100_RECEIVE_SCREEN["1100-RECEIVE-SCREEN"]
1100_RECEIVE_SCREEN_EXIT["1100-RECEIVE-SCREEN-EXIT"]
1200_EDIT_INPUTS["1200-EDIT-INPUTS"]
1200_EDIT_INPUTS_EXIT["1200-EDIT-INPUTS-EXIT"]
1210_EDIT_ARRAY["1210-EDIT-ARRAY"]
1210_EDIT_ARRAY_EXIT["1210-EDIT-ARRAY-EXIT"]
1211_EDIT_ARRAY_DESC["1211-EDIT-ARRAY-DESC"]
1211_EDIT_ARRAY_DESC_EXIT["1211-EDIT-ARRAY-DESC-EXIT"]
1220_EDIT_TYPECD["1220-EDIT-TYPECD"]
1220_EDIT_TYPECD_EXIT["1220-EDIT-TYPECD-EXIT"]
1230_EDIT_DESC["1230-EDIT-DESC"]
1230_EDIT_DESC_EXIT["1230-EDIT-DESC-EXIT"]
1240_EDIT_ALPHANUM_REQD["1240-EDIT-ALPHANUM-REQD"]
1240_EDIT_ALPHANUM_REQD_EXIT["1240-EDIT-ALPHANUM-REQD-EXIT"]
1290_CROSS_EDITS["1290-CROSS-EDITS"]
1290_CROSS_EDITS_EXIT["1290-CROSS-EDITS-EXIT"]
2000_SEND_MAP_EXIT["2000-SEND-MAP-EXIT"]
2100_SCREEN_INIT["2100-SCREEN-INIT"]
2100_SCREEN_INIT_EXIT["2100-SCREEN-INIT-EXIT"]
2200_SETUP_ARRAY_ATTRIBS["2200-SETUP-ARRAY-ATTRIBS"]
2200_SETUP_ARRAY_ATTRIBS_EXIT["2200-SETUP-ARRAY-ATTRIBS-EXIT"]
2300_SCREEN_ARRAY_INIT["2300-SCREEN-ARRAY-INIT"]
2300_SCREEN_ARRAY_INIT_EXIT["2300-SCREEN-ARRAY-INIT-EXIT"]
2400_SETUP_SCREEN_ATTRS["2400-SETUP-SCREEN-ATTRS"]
2400_SETUP_SCREEN_ATTRS_EXIT["2400-SETUP-SCREEN-ATTRS-EXIT"]
2500_SETUP_MESSAGE["2500-SETUP-MESSAGE"]
2500_SETUP_MESSAGE_EXIT["2500-SETUP-MESSAGE-EXIT"]
2600_SEND_SCREEN["2600-SEND-SCREEN"]
2600_SEND_SCREEN_EXIT["2600-SEND-SCREEN-EXIT"]
8000_READ_FORWARD["8000-READ-FORWARD"]
8000_READ_FORWARD_EXIT["8000-READ-FORWARD-EXIT"]
8100_READ_BACKWARDS["8100-READ-BACKWARDS"]
8100_READ_BACKWARDS_EXIT["8100-READ-BACKWARDS-EXIT"]
9100_CHECK_FILTERS["9100-CHECK-FILTERS"]
9100_CHECK_FILTERS_EXIT["9100-CHECK-FILTERS-EXIT"]
9200_UPDATE_RECORD["9200-UPDATE-RECORD"]
9200_UPDATE_RECORD_EXIT["9200-UPDATE-RECORD-EXIT"]
9300_DELETE_RECORD["9300-DELETE-RECORD"]
9300_DELETE_RECORD_EXIT["9300-DELETE-RECORD-EXIT"]
9400_OPEN_FORWARD_CURSOR["9400-OPEN-FORWARD-CURSOR"]
9400_OPEN_FORWARD_CURSOR_EXIT["9400-OPEN-FORWARD-CURSOR-EXIT"]
9450_CLOSE_FORWARD_CURSOR["9450-CLOSE-FORWARD-CURSOR"]
9450_CLOSE_FORWARD_CURSOR_EXIT["9450-CLOSE-FORWARD-CURSOR-EXIT"]
9500_OPEN_BACKWARD_CURSOR["9500-OPEN-BACKWARD-CURSOR"]
9500_OPEN_BACKWARD_CURSOR_EXIT["9500-OPEN-BACKWARD-CURSOR-EXIT"]
9550_CLOSE_BACK_CURSOR["9550-CLOSE-BACK-CURSOR"]
9550_CLOSE_BACK_CURSOR_EXIT["9550-CLOSE-BACK-CURSOR-EXIT"]
SEND_PLAIN_TEXT["SEND-PLAIN-TEXT"]
SEND_PLAIN_TEXT_EXIT["SEND-PLAIN-TEXT-EXIT"]
SEND_LONG_TEXT["SEND-LONG-TEXT"]
SEND_LONG_TEXT_EXIT["SEND-LONG-TEXT-EXIT"]
0000_MAIN --> 1000_RECEIVE_MAP
0000_MAIN --> 8000_READ_FORWARD
0000_MAIN --> 8100_READ_BACKWARDS
0000_MAIN --> 9200_UPDATE_RECORD
0000_MAIN --> 9300_DELETE_RECORD
0000_MAIN -.-> COMMON_RETURN
0000_MAIN --> SEND_LONG_TEXT
1000_RECEIVE_MAP --> 1100_RECEIVE_SCREEN
1000_RECEIVE_MAP --> 1200_EDIT_INPUTS
1200_EDIT_INPUTS --> 1210_EDIT_ARRAY
1200_EDIT_INPUTS --> 1220_EDIT_TYPECD
1200_EDIT_INPUTS --> 1230_EDIT_DESC
1200_EDIT_INPUTS --> 1290_CROSS_EDITS
1210_EDIT_ARRAY -.-> 1210_EDIT_ARRAY_EXIT
1210_EDIT_ARRAY --> 1211_EDIT_ARRAY_DESC
1211_EDIT_ARRAY_DESC -.-> 1211_EDIT_ARRAY_DESC_EXIT
1211_EDIT_ARRAY_DESC --> 1240_EDIT_ALPHANUM_REQD
1220_EDIT_TYPECD -.-> 1220_EDIT_TYPECD_EXIT
1230_EDIT_DESC -.-> 1230_EDIT_DESC_EXIT
1240_EDIT_ALPHANUM_REQD -.-> 1240_EDIT_ALPHANUM_REQD_EXIT
1290_CROSS_EDITS -.-> 1290_CROSS_EDITS_EXIT
1290_CROSS_EDITS --> 9100_CHECK_FILTERS
1290_CROSS_EDITS_EXIT --> 2100_SCREEN_INIT
1290_CROSS_EDITS_EXIT --> 2200_SETUP_ARRAY_ATTRIBS
1290_CROSS_EDITS_EXIT --> 2300_SCREEN_ARRAY_INIT
1290_CROSS_EDITS_EXIT --> 2400_SETUP_SCREEN_ATTRS
1290_CROSS_EDITS_EXIT --> 2500_SETUP_MESSAGE
1290_CROSS_EDITS_EXIT --> 2600_SEND_SCREEN
8000_READ_FORWARD -.-> 8000_READ_FORWARD_EXIT
8000_READ_FORWARD --> 9400_OPEN_FORWARD_CURSOR
8000_READ_FORWARD --> 9450_CLOSE_FORWARD_CURSOR
8100_READ_BACKWARDS --> 9500_OPEN_BACKWARD_CURSOR
8100_READ_BACKWARDS_EXIT --> 9550_CLOSE_BACK_CURSOR
9100_CHECK_FILTERS -.-> 9100_CHECK_FILTERS_EXIT
9200_UPDATE_RECORD -.-> 9200_UPDATE_RECORD_EXIT
9300_DELETE_RECORD -.-> 9300_DELETE_RECORD_EXITParagraphs
| Paragraph | Line | Performs |
|---|---|---|
| 0000-MAIN | 498 | YYYY-STORE-PFKEY, 1000-RECEIVE-MAP, 9998-PRIMING-QUERY, SEND-LONG-TEXT, 8000-READ-FORWARD, 2000-SEND-MAP |
| COMMON-RETURN | 899 | |
| 0000-MAIN-EXIT | 916 | |
| 1000-RECEIVE-MAP | 919 | 1100-RECEIVE-SCREEN, 1200-EDIT-INPUTS |
| 1000-RECEIVE-MAP-EXIT | 926 | |
| 1100-RECEIVE-SCREEN | 930 | |
| 1100-RECEIVE-SCREEN-EXIT | 956 | |
| 1200-EDIT-INPUTS | 960 | 1210-EDIT-ARRAY, 1230-EDIT-DESC, 1220-EDIT-TYPECD, 1290-CROSS-EDITS |
| 1200-EDIT-INPUTS-EXIT | 978 | |
| 1210-EDIT-ARRAY | 982 | 1211-EDIT-ARRAY-DESC |
| 1210-EDIT-ARRAY-EXIT | 1055 | |
| 1211-EDIT-ARRAY-DESC | 1060 | 1240-EDIT-ALPHANUM-REQD |
| 1211-EDIT-ARRAY-DESC-EXIT | 1092 | |
| 1220-EDIT-TYPECD | 1096 | |
| 1220-EDIT-TYPECD-EXIT | 1125 | |
| 1230-EDIT-DESC | 1142 | |
| 1230-EDIT-DESC-EXIT | 1165 | |
| 1240-EDIT-ALPHANUM-REQD | 1181 | |
| 1240-EDIT-ALPHANUM-REQD-EXIT | 1235 | |
| 1290-CROSS-EDITS | 1239 | 9100-CHECK-FILTERS |
| 1290-CROSS-EDITS-EXIT | 1269 | 2100-SCREEN-INIT, 2200-SETUP-ARRAY-ATTRIBS, 2300-SCREEN-ARRAY-INIT, 2400-SETUP-SCREEN-ATTRS, 2500-SETUP-MESSAGE, 2600-SEND-SCREEN |
| 2000-SEND-MAP-EXIT | 1290 | |
| 2100-SCREEN-INIT | 1293 | |
| 2100-SCREEN-INIT-EXIT | 1325 | |
| 2200-SETUP-ARRAY-ATTRIBS | 1329 | |
| 2200-SETUP-ARRAY-ATTRIBS-EXIT | 1377 | |
| 2300-SCREEN-ARRAY-INIT | 1383 | |
| 2300-SCREEN-ARRAY-INIT-EXIT | 1433 | |
| 2400-SETUP-SCREEN-ATTRS | 1438 | |
| 2400-SETUP-SCREEN-ATTRS-EXIT | 1499 | |
| 2500-SETUP-MESSAGE | 1504 | |
| 2500-SETUP-MESSAGE-EXIT | 1582 | |
| 2600-SEND-SCREEN | 1587 | |
| 2600-SEND-SCREEN-EXIT | 1597 | |
| 8000-READ-FORWARD | 1603 | 9400-OPEN-FORWARD-CURSOR, 9999-FORMAT-DB2-MESSAGE, 9999-FORMAT-DB2-MESSAGE, 9450-CLOSE-FORWARD-CURSOR |
| 8000-READ-FORWARD-EXIT | 1724 | |
| 8100-READ-BACKWARDS | 1727 | 9500-OPEN-BACKWARD-CURSOR, 9999-FORMAT-DB2-MESSAGE |
| 8100-READ-BACKWARDS-EXIT | 1794 | 9550-CLOSE-BACK-CURSOR |
| 9100-CHECK-FILTERS | 1801 | 9999-FORMAT-DB2-MESSAGE |
| 9100-CHECK-FILTERS-EXIT | 1834 | |
| 9200-UPDATE-RECORD | 1837 | 9999-FORMAT-DB2-MESSAGE, 9999-FORMAT-DB2-MESSAGE, 9999-FORMAT-DB2-MESSAGE |
| 9200-UPDATE-RECORD-EXIT | 1892 | |
| 9300-DELETE-RECORD | 1896 | 9999-FORMAT-DB2-MESSAGE, 9999-FORMAT-DB2-MESSAGE |
| 9300-DELETE-RECORD-EXIT | 1938 | |
| 9400-OPEN-FORWARD-CURSOR | 1942 | 9999-FORMAT-DB2-MESSAGE |
| 9400-OPEN-FORWARD-CURSOR-EXIT | 1965 | |
| 9450-CLOSE-FORWARD-CURSOR | 1970 | 9999-FORMAT-DB2-MESSAGE |
| 9450-CLOSE-FORWARD-CURSOR-EXIT | 1993 | |
| 9500-OPEN-BACKWARD-CURSOR | 1997 | 9999-FORMAT-DB2-MESSAGE |
| 9500-OPEN-BACKWARD-CURSOR-EXIT | 2021 | |
| 9550-CLOSE-BACK-CURSOR | 2026 | 9999-FORMAT-DB2-MESSAGE |
| 9550-CLOSE-BACK-CURSOR-EXIT | 2049 | |
| SEND-PLAIN-TEXT | 2066 | |
| SEND-PLAIN-TEXT-EXIT | 2077 | |
| SEND-LONG-TEXT | 2085 | |
| SEND-LONG-TEXT-EXIT | 2096 |