Online (CICS) program · 4,236 linesCOACTUPC

Entry points

How it is started

Transactions: CAUPCARDDEMO.CSD:306
JCL steps: none
Called by: COACTUPC CICS XCTL derived COACTUPC.cbl:956–959
COMEN01C CICS XCTL derived COMEN01C.cbl:156–159
COMEN01C CICS XCTL derived COMEN01C.cbl:184–187

CALL · XCTL · LINK

What it calls

CICS XCTL	COMEN01CCOACTUPC via CDEMO-TO-PROGRAM derived	COACTUPC.cbl:956–959
CALL	CSUTLDTC	CSUTLDPY.cpy:293–296 via COACTUPC.cbl:4232

EXEC CICS

CICS commands

HANDLE ABEND ×2SYNCPOINT ×2XCTL ×1RETURN ×1RECEIVE MAP ×1SEND MAP ×1READ ×5REWRITE ×2SEND ×1ABEND ×1

Screens: COACTUP · CACTUPA
Returns to: CAUP

VSAM

CICS files

READ	CXACAIX	AWS.M2.CARDDEMO.CARDXREF.VSAM.AIX.PATH	COACTUPC.cbl:3654–3662
READ	ACCTDAT	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	COACTUPC.cbl:3703–3711
READ	CUSTDAT	AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS	COACTUPC.cbl:3753–3761
READ	ACCTDAT	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	COACTUPC.cbl:3894–3903
READ	CUSTDAT	AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS	COACTUPC.cbl:3921–3930
REWRITE	ACCTDAT	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	COACTUPC.cbl:4065–4071
REWRITE	CUSTDAT	AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS	COACTUPC.cbl:4085–4091

PERFORM graph

Paragraphs (101)

0000-MAIN 53 stmts
↳YYYY-STORE-PFKEY, 3000-SEND-MAP, COMMON-RETURN, 1000-PROCESS-INPUTS, 2000-DECIDE-ACTION
COMMON-RETURN 4 stmts
0000-MAIN-EXIT 1 stmts
1000-PROCESS-INPUTS 6 stmts
↳1100-RECEIVE-MAP, 1200-EDIT-MAP-INPUTS
1000-PROCESS-INPUTS-EXIT 1 stmts
1100-RECEIVE-MAP 148 stmts
↳1100-RECEIVE-MAP-EXIT
1100-RECEIVE-MAP-EXIT 1 stmts
1200-EDIT-MAP-INPUTS 134 stmts
↳1210-EDIT-ACCOUNT, 1200-EDIT-MAP-INPUTS-EXIT, 1205-COMPARE-OLD-NEW, 1220-EDIT-YESNO, EDIT-DATE-CCYYMMDD, 1250-EDIT-SIGNED-9V2, 1265-EDIT-US-SSN, EDIT-DATE-OF-BIRTH, 1245-EDIT-NUM-REQD, 1275-EDIT-FICO-SCORE, 1225-EDIT-ALPHA-REQD, 1235-EDIT-ALPHA-OPT, 1215-EDIT-MANDATORY, 1270-EDIT-US-STATE-CD, 1260-EDIT-US-PHONE-NUM, 1280-EDIT-US-STATE-ZIP-CD
1200-EDIT-MAP-INPUTS-EXIT 1 stmts
1205-COMPARE-OLD-NEW 9 stmts
↳1205-COMPARE-OLD-NEW-EXIT
1205-COMPARE-OLD-NEW-EXIT 1 stmts
1210-EDIT-ACCOUNT 17 stmts
↳1210-EDIT-ACCOUNT-EXIT
1210-EDIT-ACCOUNT-EXIT 1 stmts
1215-EDIT-MANDATORY 8 stmts
↳1215-EDIT-MANDATORY-EXIT
1215-EDIT-MANDATORY-EXIT 1 stmts
1220-EDIT-YESNO 13 stmts
↳1220-EDIT-YESNO-EXIT
1220-EDIT-YESNO-EXIT 1 stmts
1225-EDIT-ALPHA-REQD 17 stmts
↳1225-EDIT-ALPHA-REQD-EXIT
1225-EDIT-ALPHA-REQD-EXIT 1 stmts
1230-EDIT-ALPHANUM-REQD 17 stmts
↳1230-EDIT-ALPHANUM-REQD-EXIT
1230-EDIT-ALPHANUM-REQD-EXIT 1 stmts
1235-EDIT-ALPHA-OPT 15 stmts
↳1235-EDIT-ALPHA-OPT-EXIT
1235-EDIT-ALPHA-OPT-EXIT 1 stmts
1240-EDIT-ALPHANUM-OPT 15 stmts
↳1240-EDIT-ALPHANUM-OPT-EXIT
1240-EDIT-ALPHANUM-OPT-EXIT 1 stmts
1245-EDIT-NUM-REQD 22 stmts
↳1245-EDIT-NUM-REQD-EXIT
1245-EDIT-NUM-REQD-EXIT 1 stmts
1250-EDIT-SIGNED-9V2 16 stmts
↳1250-EDIT-SIGNED-9V2-EXIT
1250-EDIT-SIGNED-9V2-EXIT 1 stmts
1260-EDIT-US-PHONE-NUM 5 stmts
↳EDIT-US-PHONE-EXIT
EDIT-AREA-CODE 30 stmts
↳EDIT-US-PHONE-PREFIX
EDIT-US-PHONE-PREFIX 22 stmts
↳EDIT-US-PHONE-LINENUM
EDIT-US-PHONE-LINENUM 22 stmts
↳EDIT-US-PHONE-EXIT
EDIT-US-PHONE-EXIT 1 stmts
1260-EDIT-US-PHONE-NUM-EXIT 1 stmts
1265-EDIT-US-SSN 23 stmts
↳1245-EDIT-NUM-REQD
1265-EDIT-US-SSN-EXIT 1 stmts
1270-EDIT-US-STATE-CD 8 stmts
↳1270-EDIT-US-STATE-CD-EXIT
1270-EDIT-US-STATE-CD-EXIT 1 stmts
1275-EDIT-FICO-SCORE 7 stmts
↳1275-EDIT-FICO-SCORE-EXIT
1275-EDIT-FICO-SCORE-EXIT 1 stmts
1280-EDIT-US-STATE-ZIP-CD 9 stmts
↳1280-EDIT-US-STATE-ZIP-CD-EXIT
1280-EDIT-US-STATE-ZIP-CD-EXIT 1 stmts
2000-DECIDE-ACTION 38 stmts
↳9000-READ-ACCT, 9600-WRITE-PROCESSING, ABEND-ROUTINE
2000-DECIDE-ACTION-EXIT 1 stmts
3000-SEND-MAP 6 stmts
↳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 1 stmts
3100-SCREEN-INIT 15 stmts
3100-SCREEN-INIT-EXIT 1 stmts
3200-SETUP-SCREEN-VARS 15 stmts
↳3201-SHOW-INITIAL-VALUES, 3202-SHOW-ORIGINAL-VALUES, 3203-SHOW-UPDATED-VALUES
3200-SETUP-SCREEN-VARS-EXIT 1 stmts
3201-SHOW-INITIAL-VALUES 1 stmts
3201-SHOW-INITIAL-VALUES-EXIT 1 stmts
3202-SHOW-ORIGINAL-VALUES 51 stmts
3202-SHOW-ORIGINAL-VALUES-EXIT 1 stmts
3203-SHOW-UPDATED-VALUES 57 stmts
3203-SHOW-UPDATED-VALUES-EXIT 1 stmts
3250-SETUP-INFOMSG 21 stmts
3250-SETUP-INFOMSG-EXIT 1 stmts
3300-SETUP-SCREEN-ATTRS 300 stmts
↳3310-PROTECT-ALL-ATTRS, 3320-UNPROTECT-FEW-ATTRS, 3300-SETUP-SCREEN-ATTRS-EXIT
3300-SETUP-SCREEN-ATTRS-EXIT 1 stmts
3310-PROTECT-ALL-ATTRS 1 stmts
3310-PROTECT-ALL-ATTRS-EXIT 1 stmts
3320-UNPROTECT-FEW-ATTRS 7 stmts
3320-UNPROTECT-FEW-ATTRS-EXIT 1 stmts
3390-SETUP-INFOMSG-ATTRS 8 stmts
3390-SETUP-INFOMSG-ATTRS-EXIT 1 stmts
3400-SEND-SCREEN 3 stmts
3400-SEND-SCREEN-EXIT 1 stmts
9000-READ-ACCT 14 stmts
↳9200-GETCARDXREF-BYACCT, 9000-READ-ACCT-EXIT, 9300-GETACCTDATA-BYACCT, 9400-GETCUSTDATA-BYCUST, 9500-STORE-FETCHED-DATA
9000-READ-ACCT-EXIT 1 stmts
9200-GETCARDXREF-BYACCT 20 stmts
9200-GETCARDXREF-BYACCT-EXIT 1 stmts
9300-GETACCTDATA-BYACCT 19 stmts
9300-GETACCTDATA-BYACCT-EXIT 1 stmts
9400-GETCUSTDATA-BYCUST 19 stmts
9400-GETCUSTDATA-BYCUST-EXIT 1 stmts
9500-STORE-FETCHED-DATA 45 stmts
9500-STORE-FETCHED-DATA-EXIT 1 stmts
9600-WRITE-PROCESSING 62 stmts
↳9600-WRITE-PROCESSING-EXIT, 9700-CHECK-CHANGE-IN-REC
9600-WRITE-PROCESSING-EXIT 1 stmts
9700-CHECK-CHANGE-IN-REC 8 stmts
↳9600-WRITE-PROCESSING-EXIT
9700-CHECK-CHANGE-IN-REC-EXIT 1 stmts
YYYY-STORE-PFKEY 57 stmts
YYYY-STORE-PFKEY-EXIT 1 stmts
ABEND-ROUTINE 6 stmts
ABEND-ROUTINE-EXIT 1 stmts
EDIT-DATE-CCYYMMDD 1 stmts
EDIT-YEAR-CCYY 23 stmts
↳EDIT-YEAR-CCYY-EXIT
EDIT-YEAR-CCYY-EXIT 1 stmts
EDIT-MONTH 23 stmts
↳EDIT-MONTH-EXIT
EDIT-MONTH-EXIT 1 stmts
EDIT-DAY 23 stmts
↳EDIT-DAY-EXIT
EDIT-DAY-EXIT 1 stmts
EDIT-DAY-MONTH-YEAR 31 stmts
↳EDIT-DATE-CCYYMMDD-EXIT
EDIT-DAY-MONTH-YEAR-EXIT 1 stmts
EDIT-DATE-LE 14 stmts
↳EDIT-DATE-LE-EXIT
EDIT-DATE-LE-EXIT 2 stmts
EDIT-DATE-CCYYMMDD-EXIT 1 stmts
EDIT-DATE-OF-BIRTH 12 stmts
↳EDIT-DATE-OF-BIRTH-EXIT
EDIT-DATE-OF-BIRTH-EXIT 1 stmts