COTRTUPC
Source: app-transaction-type-db2/cbl/COTRTUPC.cbl
Type: CICS transaction program (DB2)
LLM overview unavailable: 'ThinkingBlock' object has no attribute 'text'
DB2 tables
CARDDEMO.TRANSACTION, CARDDEMO.TRANSACTION, CARDDEMO.TRANSACTION, CARDDEMO.TRANSACTION
CICS commands
HANDLE ABEND, XCTL, RETURN, RECEIVE MAP, SEND MAP, SYNCPOINT END, SEND, ABEND
Copybooks
COCOM01Y, COTRTUP, COTTL01Y, CSDAT01Y, CSMSG01Y, CSMSG02Y, CSSETATY, CSUSR01Y, CVCRD01Y, DFHAID, DFHBMSCA
Paragraph flow
flowchart TD
0000_MAIN["0000-MAIN"]
COMMON_RETURN["COMMON-RETURN"]
0000_MAIN_EXIT["0000-MAIN-EXIT"]
0001_CHECK_PFKEYS["0001-CHECK-PFKEYS"]
0001_CHECK_PFKEYS_EXIT["0001-CHECK-PFKEYS-EXIT"]
1000_PROCESS_INPUTS["1000-PROCESS-INPUTS"]
1000_PROCESS_INPUTS_EXIT["1000-PROCESS-INPUTS-EXIT"]
1100_RECEIVE_MAP["1100-RECEIVE-MAP"]
1100_RECEIVE_MAP_EXIT["1100-RECEIVE-MAP-EXIT"]
1150_STORE_MAP_IN_NEW["1150-STORE-MAP-IN-NEW"]
1150_STORE_MAP_IN_NEW_EXIT["1150-STORE-MAP-IN-NEW-EXIT"]
1200_EDIT_MAP_INPUTS["1200-EDIT-MAP-INPUTS"]
1200_EDIT_MAP_INPUTS_EXIT["1200-EDIT-MAP-INPUTS-EXIT"]
1205_COMPARE_OLD_NEW["1205-COMPARE-OLD-NEW"]
1205_COMPARE_OLD_NEW_EXIT["1205-COMPARE-OLD-NEW-EXIT"]
1210_EDIT_TRANTYPE["1210-EDIT-TRANTYPE"]
1210_EDIT_TRANTYPE_EXIT["1210-EDIT-TRANTYPE-EXIT"]
1230_EDIT_ALPHANUM_REQD["1230-EDIT-ALPHANUM-REQD"]
1230_EDIT_ALPHANUM_REQD_EXIT["1230-EDIT-ALPHANUM-REQD-EXIT"]
1245_EDIT_NUM_REQD["1245-EDIT-NUM-REQD"]
1245_EDIT_NUM_REQD_EXIT["1245-EDIT-NUM-REQD-EXIT"]
2000_DECIDE_ACTION["2000-DECIDE-ACTION"]
2000_DECIDE_ACTION_EXIT["2000-DECIDE-ACTION-EXIT"]
3000_SEND_MAP["3000-SEND-MAP"]
3000_SEND_MAP_EXIT["3000-SEND-MAP-EXIT"]
3100_SCREEN_INIT["3100-SCREEN-INIT"]
3100_SCREEN_INIT_EXIT["3100-SCREEN-INIT-EXIT"]
3200_SETUP_SCREEN_VARS["3200-SETUP-SCREEN-VARS"]
3200_SETUP_SCREEN_VARS_EXIT["3200-SETUP-SCREEN-VARS-EXIT"]
3201_SHOW_INITIAL_VALUES["3201-SHOW-INITIAL-VALUES"]
3201_SHOW_INITIAL_VALUES_EXIT["3201-SHOW-INITIAL-VALUES-EXIT"]
3202_SHOW_ORIGINAL_VALUES["3202-SHOW-ORIGINAL-VALUES"]
3202_SHOW_ORIGINAL_VALUES_EXIT["3202-SHOW-ORIGINAL-VALUES-EXIT"]
3203_SHOW_UPDATED_VALUES["3203-SHOW-UPDATED-VALUES"]
3203_SHOW_UPDATED_VALUES_EXIT["3203-SHOW-UPDATED-VALUES-EXIT"]
3250_SETUP_INFOMSG["3250-SETUP-INFOMSG"]
3250_SETUP_INFOMSG_EXIT["3250-SETUP-INFOMSG-EXIT"]
3300_SETUP_SCREEN_ATTRS["3300-SETUP-SCREEN-ATTRS"]
3300_SETUP_SCREEN_ATTRS_EXIT["3300-SETUP-SCREEN-ATTRS-EXIT"]
3310_PROTECT_ALL_ATTRS["3310-PROTECT-ALL-ATTRS"]
3310_PROTECT_ALL_ATTRS_EXIT["3310-PROTECT-ALL-ATTRS-EXIT"]
3320_UNPROTECT_FEW_ATTRS["3320-UNPROTECT-FEW-ATTRS"]
3320_UNPROTECT_FEW_ATTRS_EXIT["3320-UNPROTECT-FEW-ATTRS-EXIT"]
3390_SETUP_INFOMSG_ATTRS["3390-SETUP-INFOMSG-ATTRS"]
3390_SETUP_INFOMSG_ATTRS_EXIT["3390-SETUP-INFOMSG-ATTRS-EXIT"]
3391_SETUP_PFKEY_ATTRS["3391-SETUP-PFKEY-ATTRS"]
3391_SETUP_PFKEY_ATTRS_EXIT["3391-SETUP-PFKEY-ATTRS-EXIT"]
3400_SEND_SCREEN["3400-SEND-SCREEN"]
3400_SEND_SCREEN_EXIT["3400-SEND-SCREEN-EXIT"]
9000_READ_TRANTYPE["9000-READ-TRANTYPE"]
9000_READ_TRANTYPE_EXIT["9000-READ-TRANTYPE-EXIT"]
9100_GET_TRANSACTION_TYPE["9100-GET-TRANSACTION-TYPE"]
9100_GET_TRANSACTION_TYPE_EXIT["9100-GET-TRANSACTION-TYPE-EXIT"]
9500_STORE_FETCHED_DATA["9500-STORE-FETCHED-DATA"]
9500_STORE_FETCHED_DATA_EXIT["9500-STORE-FETCHED-DATA-EXIT"]
9600_WRITE_PROCESSING["9600-WRITE-PROCESSING"]
9600_WRITE_PROCESSING_EXIT["9600-WRITE-PROCESSING-EXIT"]
9700_INSERT_RECORD["9700-INSERT-RECORD"]
9700_INSERT_RECORD_EXIT["9700-INSERT-RECORD-EXIT"]
9800_DELETE_PROCESSING["9800-DELETE-PROCESSING"]
9800_DELETE_PROCESSING_EXIT["9800-DELETE-PROCESSING-EXIT"]
ABEND_ROUTINE["ABEND-ROUTINE"]
ABEND_ROUTINE_EXIT["ABEND-ROUTINE-EXIT"]
0000_MAIN --> 0001_CHECK_PFKEYS
0000_MAIN --> 1000_PROCESS_INPUTS
0000_MAIN --> 2000_DECIDE_ACTION
0000_MAIN --> 3000_SEND_MAP
0000_MAIN --> 9600_WRITE_PROCESSING
0000_MAIN --> 9800_DELETE_PROCESSING
0000_MAIN -.-> COMMON_RETURN
1000_PROCESS_INPUTS --> 1100_RECEIVE_MAP
1000_PROCESS_INPUTS --> 1150_STORE_MAP_IN_NEW
1000_PROCESS_INPUTS --> 1200_EDIT_MAP_INPUTS
1150_STORE_MAP_IN_NEW -.-> 1150_STORE_MAP_IN_NEW_EXIT
1200_EDIT_MAP_INPUTS -.-> 1200_EDIT_MAP_INPUTS_EXIT
1200_EDIT_MAP_INPUTS --> 1205_COMPARE_OLD_NEW
1200_EDIT_MAP_INPUTS --> 1210_EDIT_TRANTYPE
1200_EDIT_MAP_INPUTS --> 1230_EDIT_ALPHANUM_REQD
1205_COMPARE_OLD_NEW -.-> 1205_COMPARE_OLD_NEW_EXIT
1210_EDIT_TRANTYPE --> 1245_EDIT_NUM_REQD
1230_EDIT_ALPHANUM_REQD -.-> 1230_EDIT_ALPHANUM_REQD_EXIT
1245_EDIT_NUM_REQD -.-> 1245_EDIT_NUM_REQD_EXIT
2000_DECIDE_ACTION --> 9000_READ_TRANTYPE
2000_DECIDE_ACTION --> ABEND_ROUTINE
3000_SEND_MAP --> 3100_SCREEN_INIT
3000_SEND_MAP --> 3200_SETUP_SCREEN_VARS
3000_SEND_MAP --> 3250_SETUP_INFOMSG
3000_SEND_MAP --> 3300_SETUP_SCREEN_ATTRS
3000_SEND_MAP --> 3390_SETUP_INFOMSG_ATTRS
3000_SEND_MAP --> 3391_SETUP_PFKEY_ATTRS
3000_SEND_MAP --> 3400_SEND_SCREEN
3200_SETUP_SCREEN_VARS --> 3201_SHOW_INITIAL_VALUES
3200_SETUP_SCREEN_VARS --> 3202_SHOW_ORIGINAL_VALUES
3200_SETUP_SCREEN_VARS --> 3203_SHOW_UPDATED_VALUES
3300_SETUP_SCREEN_ATTRS -.-> 3300_SETUP_SCREEN_ATTRS_EXIT
3300_SETUP_SCREEN_ATTRS --> 3310_PROTECT_ALL_ATTRS
3300_SETUP_SCREEN_ATTRS --> 3320_UNPROTECT_FEW_ATTRS
9000_READ_TRANTYPE -.-> 9000_READ_TRANTYPE_EXIT
9000_READ_TRANTYPE --> 9100_GET_TRANSACTION_TYPE
9000_READ_TRANTYPE --> 9500_STORE_FETCHED_DATA
9600_WRITE_PROCESSING --> 9700_INSERT_RECORD
9700_INSERT_RECORD -.-> 9700_INSERT_RECORD_EXITParagraphs
| Paragraph | Line | Performs |
|---|---|---|
| 0000-MAIN | 345 | YYYY-STORE-PFKEY, 0001-CHECK-PFKEYS, 3000-SEND-MAP, 9800-DELETE-PROCESSING, 3000-SEND-MAP, 3000-SEND-MAP |
| COMMON-RETURN | 559 | |
| 0000-MAIN-EXIT | 573 | |
| 0001-CHECK-PFKEYS | 577 | |
| 0001-CHECK-PFKEYS-EXIT | 621 | |
| 1000-PROCESS-INPUTS | 625 | 1100-RECEIVE-MAP, 1150-STORE-MAP-IN-NEW, 1200-EDIT-MAP-INPUTS |
| 1000-PROCESS-INPUTS-EXIT | 638 | |
| 1100-RECEIVE-MAP | 641 | |
| 1100-RECEIVE-MAP-EXIT | 649 | |
| 1150-STORE-MAP-IN-NEW | 652 | |
| 1150-STORE-MAP-IN-NEW-EXIT | 686 | |
| 1200-EDIT-MAP-INPUTS | 689 | 1210-EDIT-TRANTYPE, 1205-COMPARE-OLD-NEW, 1230-EDIT-ALPHANUM-REQD |
| 1200-EDIT-MAP-INPUTS-EXIT | 779 | |
| 1205-COMPARE-OLD-NEW | 783 | |
| 1205-COMPARE-OLD-NEW-EXIT | 814 | |
| 1210-EDIT-TRANTYPE | 820 | 1245-EDIT-NUM-REQD |
| 1210-EDIT-TRANTYPE-EXIT | 845 | |
| 1230-EDIT-ALPHANUM-REQD | 849 | |
| 1230-EDIT-ALPHANUM-REQD-EXIT | 903 | |
| 1245-EDIT-NUM-REQD | 907 | |
| 1245-EDIT-NUM-REQD-EXIT | 974 | |
| 2000-DECIDE-ACTION | 978 | 9000-READ-TRANTYPE, ABEND-ROUTINE |
| 2000-DECIDE-ACTION-EXIT | 1083 | |
| 3000-SEND-MAP | 1089 | 3100-SCREEN-INIT, 3200-SETUP-SCREEN-VARS, 3250-SETUP-INFOMSG, 3300-SETUP-SCREEN-ATTRS, 3390-SETUP-INFOMSG-ATTRS, 3391-SETUP-PFKEY-ATTRS |
| 3000-SEND-MAP-EXIT | 1106 | |
| 3100-SCREEN-INIT | 1110 | |
| 3100-SCREEN-INIT-EXIT | 1136 | |
| 3200-SETUP-SCREEN-VARS | 1140 | 3201-SHOW-INITIAL-VALUES, 3202-SHOW-ORIGINAL-VALUES, 3203-SHOW-UPDATED-VALUES, 3202-SHOW-ORIGINAL-VALUES |
| 3200-SETUP-SCREEN-VARS-EXIT | 1172 | |
| 3201-SHOW-INITIAL-VALUES | 1176 | |
| 3201-SHOW-INITIAL-VALUES-EXIT | 1181 | |
| 3202-SHOW-ORIGINAL-VALUES | 1185 | |
| 3202-SHOW-ORIGINAL-VALUES-EXIT | 1194 | |
| 3203-SHOW-UPDATED-VALUES | 1197 | |
| 3203-SHOW-UPDATED-VALUES-EXIT | 1203 | |
| 3250-SETUP-INFOMSG | 1210 | |
| 3250-SETUP-INFOMSG-EXIT | 1266 | |
| 3300-SETUP-SCREEN-ATTRS | 1269 | 3310-PROTECT-ALL-ATTRS, 3320-UNPROTECT-FEW-ATTRS |
| 3300-SETUP-SCREEN-ATTRS-EXIT | 1364 | |
| 3310-PROTECT-ALL-ATTRS | 1368 | |
| 3310-PROTECT-ALL-ATTRS-EXIT | 1373 | |
| 3320-UNPROTECT-FEW-ATTRS | 1377 | |
| 3320-UNPROTECT-FEW-ATTRS-EXIT | 1382 | |
| 3390-SETUP-INFOMSG-ATTRS | 1386 | |
| 3390-SETUP-INFOMSG-ATTRS-EXIT | 1393 | |
| 3391-SETUP-PFKEY-ATTRS | 1397 | |
| 3391-SETUP-PFKEY-ATTRS-EXIT | 1424 | |
| 3400-SEND-SCREEN | 1428 | |
| 3400-SEND-SCREEN-EXIT | 1442 | |
| 9000-READ-TRANTYPE | 1447 | 9100-GET-TRANSACTION-TYPE, 9500-STORE-FETCHED-DATA |
| 9000-READ-TRANTYPE-EXIT | 1466 | |
| 9100-GET-TRANSACTION-TYPE | 1469 | |
| 9100-GET-TRANSACTION-TYPE-EXIT | 1512 | |
| 9500-STORE-FETCHED-DATA | 1517 | |
| 9500-STORE-FETCHED-DATA-EXIT | 1528 | |
| 9600-WRITE-PROCESSING | 1531 | 9700-INSERT-RECORD |
| 9600-WRITE-PROCESSING-EXIT | 1593 | |
| 9700-INSERT-RECORD | 1596 | |
| 9700-INSERT-RECORD-EXIT | 1621 | |
| 9800-DELETE-PROCESSING | 1624 | |
| 9800-DELETE-PROCESSING-EXIT | 1664 | |
| ABEND-ROUTINE | 1675 | |
| ABEND-ROUTINE-EXIT | 1699 |