COACTUPC
Source: cbl/COACTUPC.cbl
Type: CICS transaction program
LLM overview unavailable: Connection error.
CICS commands
HANDLE ABEND, XCTL, RETURN, RECEIVE MAP, SEND MAP, READ, SEND, ABEND
Copybooks
COACTUP, COCOM01Y, COTTL01Y, CSDAT01Y, CSLKPCDY, CSMSG01Y, CSMSG02Y, CSSETATY, CSUSR01Y, CSUTLDPY, CVACT01Y, CVACT03Y, CVCRD01Y, CVCUS01Y, DFHAID, DFHBMSCA
Paragraph flow
flowchart TD
0000_MAIN["0000-MAIN"]
COMMON_RETURN["COMMON-RETURN"]
0000_MAIN_EXIT["0000-MAIN-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"]
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_ACCOUNT["1210-EDIT-ACCOUNT"]
1210_EDIT_ACCOUNT_EXIT["1210-EDIT-ACCOUNT-EXIT"]
1215_EDIT_MANDATORY["1215-EDIT-MANDATORY"]
1215_EDIT_MANDATORY_EXIT["1215-EDIT-MANDATORY-EXIT"]
1220_EDIT_YESNO["1220-EDIT-YESNO"]
1220_EDIT_YESNO_EXIT["1220-EDIT-YESNO-EXIT"]
1225_EDIT_ALPHA_REQD["1225-EDIT-ALPHA-REQD"]
1225_EDIT_ALPHA_REQD_EXIT["1225-EDIT-ALPHA-REQD-EXIT"]
1230_EDIT_ALPHANUM_REQD["1230-EDIT-ALPHANUM-REQD"]
1230_EDIT_ALPHANUM_REQD_EXIT["1230-EDIT-ALPHANUM-REQD-EXIT"]
1235_EDIT_ALPHA_OPT["1235-EDIT-ALPHA-OPT"]
1235_EDIT_ALPHA_OPT_EXIT["1235-EDIT-ALPHA-OPT-EXIT"]
1240_EDIT_ALPHANUM_OPT["1240-EDIT-ALPHANUM-OPT"]
1240_EDIT_ALPHANUM_OPT_EXIT["1240-EDIT-ALPHANUM-OPT-EXIT"]
1245_EDIT_NUM_REQD["1245-EDIT-NUM-REQD"]
1245_EDIT_NUM_REQD_EXIT["1245-EDIT-NUM-REQD-EXIT"]
1250_EDIT_SIGNED_9V2["1250-EDIT-SIGNED-9V2"]
1250_EDIT_SIGNED_9V2_EXIT["1250-EDIT-SIGNED-9V2-EXIT"]
1260_EDIT_US_PHONE_NUM["1260-EDIT-US-PHONE-NUM"]
EDIT_AREA_CODE["EDIT-AREA-CODE"]
EDIT_US_PHONE_PREFIX["EDIT-US-PHONE-PREFIX"]
EDIT_US_PHONE_LINENUM["EDIT-US-PHONE-LINENUM"]
EDIT_US_PHONE_EXIT["EDIT-US-PHONE-EXIT"]
1260_EDIT_US_PHONE_NUM_EXIT["1260-EDIT-US-PHONE-NUM-EXIT"]
1265_EDIT_US_SSN["1265-EDIT-US-SSN"]
1265_EDIT_US_SSN_EXIT["1265-EDIT-US-SSN-EXIT"]
1270_EDIT_US_STATE_CD["1270-EDIT-US-STATE-CD"]
1270_EDIT_US_STATE_CD_EXIT["1270-EDIT-US-STATE-CD-EXIT"]
1275_EDIT_FICO_SCORE["1275-EDIT-FICO-SCORE"]
1275_EDIT_FICO_SCORE_EXIT["1275-EDIT-FICO-SCORE-EXIT"]
1280_EDIT_US_STATE_ZIP_CD["1280-EDIT-US-STATE-ZIP-CD"]
1280_EDIT_US_STATE_ZIP_CD_EXIT["1280-EDIT-US-STATE-ZIP-CD-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"]
3400_SEND_SCREEN["3400-SEND-SCREEN"]
3400_SEND_SCREEN_EXIT["3400-SEND-SCREEN-EXIT"]
9000_READ_ACCT["9000-READ-ACCT"]
9000_READ_ACCT_EXIT["9000-READ-ACCT-EXIT"]
9200_GETCARDXREF_BYACCT["9200-GETCARDXREF-BYACCT"]
9200_GETCARDXREF_BYACCT_EXIT["9200-GETCARDXREF-BYACCT-EXIT"]
9300_GETACCTDATA_BYACCT["9300-GETACCTDATA-BYACCT"]
9300_GETACCTDATA_BYACCT_EXIT["9300-GETACCTDATA-BYACCT-EXIT"]
9400_GETCUSTDATA_BYCUST["9400-GETCUSTDATA-BYCUST"]
9400_GETCUSTDATA_BYCUST_EXIT["9400-GETCUSTDATA-BYCUST-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_CHECK_CHANGE_IN_REC["9700-CHECK-CHANGE-IN-REC"]
9700_CHECK_CHANGE_IN_REC_EXIT["9700-CHECK-CHANGE-IN-REC-EXIT"]
ABEND_ROUTINE["ABEND-ROUTINE"]
ABEND_ROUTINE_EXIT["ABEND-ROUTINE-EXIT"]
0000_MAIN --> 1000_PROCESS_INPUTS
0000_MAIN --> 2000_DECIDE_ACTION
0000_MAIN --> 3000_SEND_MAP
0000_MAIN -.-> COMMON_RETURN
1000_PROCESS_INPUTS --> 1100_RECEIVE_MAP
1000_PROCESS_INPUTS --> 1200_EDIT_MAP_INPUTS
1100_RECEIVE_MAP -.-> 1100_RECEIVE_MAP_EXIT
1200_EDIT_MAP_INPUTS -.-> 1200_EDIT_MAP_INPUTS_EXIT
1200_EDIT_MAP_INPUTS --> 1205_COMPARE_OLD_NEW
1200_EDIT_MAP_INPUTS --> 1210_EDIT_ACCOUNT
1200_EDIT_MAP_INPUTS --> 1215_EDIT_MANDATORY
1200_EDIT_MAP_INPUTS --> 1220_EDIT_YESNO
1200_EDIT_MAP_INPUTS --> 1225_EDIT_ALPHA_REQD
1200_EDIT_MAP_INPUTS --> 1235_EDIT_ALPHA_OPT
1200_EDIT_MAP_INPUTS --> 1245_EDIT_NUM_REQD
1200_EDIT_MAP_INPUTS --> 1250_EDIT_SIGNED_9V2
1200_EDIT_MAP_INPUTS --> 1260_EDIT_US_PHONE_NUM
1200_EDIT_MAP_INPUTS --> 1265_EDIT_US_SSN
1200_EDIT_MAP_INPUTS --> 1270_EDIT_US_STATE_CD
1200_EDIT_MAP_INPUTS --> 1275_EDIT_FICO_SCORE
1200_EDIT_MAP_INPUTS --> 1280_EDIT_US_STATE_ZIP_CD
1205_COMPARE_OLD_NEW -.-> 1205_COMPARE_OLD_NEW_EXIT
1210_EDIT_ACCOUNT -.-> 1210_EDIT_ACCOUNT_EXIT
1215_EDIT_MANDATORY -.-> 1215_EDIT_MANDATORY_EXIT
1220_EDIT_YESNO -.-> 1220_EDIT_YESNO_EXIT
1225_EDIT_ALPHA_REQD -.-> 1225_EDIT_ALPHA_REQD_EXIT
1230_EDIT_ALPHANUM_REQD -.-> 1230_EDIT_ALPHANUM_REQD_EXIT
1235_EDIT_ALPHA_OPT -.-> 1235_EDIT_ALPHA_OPT_EXIT
1240_EDIT_ALPHANUM_OPT -.-> 1240_EDIT_ALPHANUM_OPT_EXIT
1245_EDIT_NUM_REQD -.-> 1245_EDIT_NUM_REQD_EXIT
1250_EDIT_SIGNED_9V2 -.-> 1250_EDIT_SIGNED_9V2_EXIT
1260_EDIT_US_PHONE_NUM -.-> EDIT_US_PHONE_EXIT
1265_EDIT_US_SSN --> 1245_EDIT_NUM_REQD
1270_EDIT_US_STATE_CD -.-> 1270_EDIT_US_STATE_CD_EXIT
1275_EDIT_FICO_SCORE -.-> 1275_EDIT_FICO_SCORE_EXIT
1280_EDIT_US_STATE_ZIP_CD -.-> 1280_EDIT_US_STATE_ZIP_CD_EXIT
2000_DECIDE_ACTION --> 9000_READ_ACCT
2000_DECIDE_ACTION --> 9600_WRITE_PROCESSING
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 --> 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_ACCT -.-> 9000_READ_ACCT_EXIT
9000_READ_ACCT --> 9200_GETCARDXREF_BYACCT
9000_READ_ACCT --> 9300_GETACCTDATA_BYACCT
9000_READ_ACCT --> 9400_GETCUSTDATA_BYCUST
9000_READ_ACCT --> 9500_STORE_FETCHED_DATA
9600_WRITE_PROCESSING -.-> 9600_WRITE_PROCESSING_EXIT
9600_WRITE_PROCESSING --> 9700_CHECK_CHANGE_IN_REC
9700_CHECK_CHANGE_IN_REC -.-> 9600_WRITE_PROCESSING_EXIT
EDIT_AREA_CODE -.-> EDIT_US_PHONE_PREFIX
EDIT_US_PHONE_LINENUM -.-> EDIT_US_PHONE_EXIT
EDIT_US_PHONE_PREFIX -.-> EDIT_US_PHONE_LINENUMParagraphs
| Paragraph | Line | Performs |
|---|---|---|
| 0000-MAIN | 859 | YYYY-STORE-PFKEY, 3000-SEND-MAP, 3000-SEND-MAP, 1000-PROCESS-INPUTS, 2000-DECIDE-ACTION, 3000-SEND-MAP |
| COMMON-RETURN | 1007 | |
| 0000-MAIN-EXIT | 1021 | |
| 1000-PROCESS-INPUTS | 1025 | 1100-RECEIVE-MAP, 1200-EDIT-MAP-INPUTS |
| 1000-PROCESS-INPUTS-EXIT | 1036 | |
| 1100-RECEIVE-MAP | 1039 | |
| 1100-RECEIVE-MAP-EXIT | 1426 | |
| 1200-EDIT-MAP-INPUTS | 1429 | 1210-EDIT-ACCOUNT, 1205-COMPARE-OLD-NEW, 1220-EDIT-YESNO, EDIT-DATE-CCYYMMDD, 1250-EDIT-SIGNED-9V2, EDIT-DATE-CCYYMMDD |
| 1200-EDIT-MAP-INPUTS-EXIT | 1678 | |
| 1205-COMPARE-OLD-NEW | 1681 | |
| 1205-COMPARE-OLD-NEW-EXIT | 1777 | |
| 1210-EDIT-ACCOUNT | 1783 | |
| 1210-EDIT-ACCOUNT-EXIT | 1820 | |
| 1215-EDIT-MANDATORY | 1824 | |
| 1215-EDIT-MANDATORY-EXIT | 1852 | |
| 1220-EDIT-YESNO | 1856 | |
| 1220-EDIT-YESNO-EXIT | 1894 | |
| 1225-EDIT-ALPHA-REQD | 1898 | |
| 1225-EDIT-ALPHA-REQD-EXIT | 1951 | |
| 1230-EDIT-ALPHANUM-REQD | 1955 | |
| 1230-EDIT-ALPHANUM-REQD-EXIT | 2009 | |
| 1235-EDIT-ALPHA-OPT | 2012 | |
| 1235-EDIT-ALPHA-OPT-EXIT | 2057 | |
| 1240-EDIT-ALPHANUM-OPT | 2061 | |
| 1240-EDIT-ALPHANUM-OPT-EXIT | 2105 | |
| 1245-EDIT-NUM-REQD | 2109 | |
| 1245-EDIT-NUM-REQD-EXIT | 2176 | |
| 1250-EDIT-SIGNED-9V2 | 2180 | |
| 1250-EDIT-SIGNED-9V2-EXIT | 2221 | |
| 1260-EDIT-US-PHONE-NUM | 2225 | |
| EDIT-AREA-CODE | 2246 | |
| EDIT-US-PHONE-PREFIX | 2316 | |
| EDIT-US-PHONE-LINENUM | 2370 | |
| EDIT-US-PHONE-EXIT | 2424 | |
| 1260-EDIT-US-PHONE-NUM-EXIT | 2427 | |
| 1265-EDIT-US-SSN | 2431 | 1245-EDIT-NUM-REQD, 1245-EDIT-NUM-REQD, 1245-EDIT-NUM-REQD |
| 1265-EDIT-US-SSN-EXIT | 2489 | |
| 1270-EDIT-US-STATE-CD | 2493 | |
| 1270-EDIT-US-STATE-CD-EXIT | 2511 | |
| 1275-EDIT-FICO-SCORE | 2514 | |
| 1275-EDIT-FICO-SCORE-EXIT | 2531 | |
| 1280-EDIT-US-STATE-ZIP-CD | 2536 | |
| 1280-EDIT-US-STATE-ZIP-CD-EXIT | 2558 | |
| 2000-DECIDE-ACTION | 2562 | 9000-READ-ACCT, 9600-WRITE-PROCESSING, ABEND-ROUTINE |
| 2000-DECIDE-ACTION-EXIT | 2643 | |
| 3000-SEND-MAP | 2649 | 3100-SCREEN-INIT, 3200-SETUP-SCREEN-VARS, 3250-SETUP-INFOMSG, 3300-SETUP-SCREEN-ATTRS, 3390-SETUP-INFOMSG-ATTRS, 3400-SEND-SCREEN |
| 3000-SEND-MAP-EXIT | 2664 | |
| 3100-SCREEN-INIT | 2668 | |
| 3100-SCREEN-INIT-EXIT | 2694 | |
| 3200-SETUP-SCREEN-VARS | 2698 | 3201-SHOW-INITIAL-VALUES, 3202-SHOW-ORIGINAL-VALUES, 3203-SHOW-UPDATED-VALUES, 3202-SHOW-ORIGINAL-VALUES |
| 3200-SETUP-SCREEN-VARS-EXIT | 2727 | |
| 3201-SHOW-INITIAL-VALUES | 2731 | |
| 3201-SHOW-INITIAL-VALUES-EXIT | 2783 | |
| 3202-SHOW-ORIGINAL-VALUES | 2787 | |
| 3202-SHOW-ORIGINAL-VALUES-EXIT | 2867 | |
| 3203-SHOW-UPDATED-VALUES | 2870 | |
| 3203-SHOW-UPDATED-VALUES-EXIT | 2951 | |
| 3250-SETUP-INFOMSG | 2955 | |
| 3250-SETUP-INFOMSG-EXIT | 2983 | |
| 3300-SETUP-SCREEN-ATTRS | 2986 | 3310-PROTECT-ALL-ATTRS, 3320-UNPROTECT-FEW-ATTRS |
| 3300-SETUP-SCREEN-ATTRS-EXIT | 3437 | |
| 3310-PROTECT-ALL-ATTRS | 3441 | |
| 3310-PROTECT-ALL-ATTRS-EXIT | 3496 | |
| 3320-UNPROTECT-FEW-ATTRS | 3500 | |
| 3320-UNPROTECT-FEW-ATTRS-EXIT | 3562 | |
| 3390-SETUP-INFOMSG-ATTRS | 3566 | |
| 3390-SETUP-INFOMSG-ATTRS-EXIT | 3584 | |
| 3400-SEND-SCREEN | 3589 | |
| 3400-SEND-SCREEN-EXIT | 3603 | |
| 9000-READ-ACCT | 3608 | 9200-GETCARDXREF-BYACCT, 9300-GETACCTDATA-BYACCT, 9400-GETCUSTDATA-BYCUST, 9500-STORE-FETCHED-DATA |
| 9000-READ-ACCT-EXIT | 3647 | |
| 9200-GETCARDXREF-BYACCT | 3650 | |
| 9200-GETCARDXREF-BYACCT-EXIT | 3698 | |
| 9300-GETACCTDATA-BYACCT | 3701 | |
| 9300-GETACCTDATA-BYACCT-EXIT | 3748 | |
| 9400-GETCUSTDATA-BYCUST | 3752 | |
| 9400-GETCUSTDATA-BYCUST-EXIT | 3797 | |
| 9500-STORE-FETCHED-DATA | 3801 | |
| 9500-STORE-FETCHED-DATA-EXIT | 3885 | |
| 9600-WRITE-PROCESSING | 3888 | 9700-CHECK-CHANGE-IN-REC |
| 9600-WRITE-PROCESSING-EXIT | 4105 | |
| 9700-CHECK-CHANGE-IN-REC | 4109 | |
| 9700-CHECK-CHANGE-IN-REC-EXIT | 4193 | |
| ABEND-ROUTINE | 4203 | |
| ABEND-ROUTINE-EXIT | 4226 |