Online (CICS) program · 941 linesCOACTVWC

Entry points

How it is started

Transactions: CAVWCARDDEMO.CSD:181 CAVWCARDDEMO.CSD:317
JCL steps: none
Called by: COACTVWC CICS XCTL derived COACTVWC.cbl:349–352
COMEN01C CICS XCTL derived COMEN01C.cbl:156–159
COMEN01C CICS XCTL derived COMEN01C.cbl:184–187

CALL · XCTL · LINK

What it calls

CICS XCTL

COMEN01CCOACTVWC via CDEMO-TO-PROGRAM derived

COACTVWC.cbl:349–352

EXEC CICS

CICS commands

HANDLE ABEND ×2XCTL ×1RETURN ×3SEND MAP ×1RECEIVE MAP ×1READ ×3SEND TEXT ×2SEND ×1ABEND ×1

Screens: COACTVW · CACTVWA
Returns to: CAVW

VSAM

CICS files

READ	CXACAIX	AWS.M2.CARDDEMO.CARDXREF.VSAM.AIX.PATH	COACTVWC.cbl:727–735
READ	ACCTDAT	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	COACTVWC.cbl:776–784
READ	CUSTDAT	AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS	COACTVWC.cbl:826–834

PERFORM graph

Paragraphs (37)

0000-MAIN 50 stmts
↳YYYY-STORE-PFKEY, 1000-SEND-MAP, COMMON-RETURN, 2000-PROCESS-INPUTS, 9000-READ-ACCT, SEND-PLAIN-TEXT
COMMON-RETURN 4 stmts
0000-MAIN-EXIT 1 stmts
0000-MAIN-EXIT 1 stmts
1000-SEND-MAP 4 stmts
↳1100-SCREEN-INIT, 1200-SETUP-SCREEN-VARS, 1300-SETUP-SCREEN-ATTRS, 1400-SEND-SCREEN
1000-SEND-MAP-EXIT 1 stmts
1100-SCREEN-INIT 15 stmts
1100-SCREEN-INIT-EXIT 1 stmts
1200-SETUP-SCREEN-VARS 39 stmts
1200-SETUP-SCREEN-VARS-EXIT 1 stmts
1300-SETUP-SCREEN-ATTRS 16 stmts
1300-SETUP-SCREEN-ATTRS-EXIT 1 stmts
1400-SEND-SCREEN 4 stmts
1400-SEND-SCREEN-EXIT 1 stmts
2000-PROCESS-INPUTS 6 stmts
↳2100-RECEIVE-MAP, 2200-EDIT-MAP-INPUTS
2000-PROCESS-INPUTS-EXIT 1 stmts
2100-RECEIVE-MAP 1 stmts
2100-RECEIVE-MAP-EXIT 1 stmts
2200-EDIT-MAP-INPUTS 8 stmts
↳2210-EDIT-ACCOUNT
2200-EDIT-MAP-INPUTS-EXIT 1 stmts
2210-EDIT-ACCOUNT 17 stmts
↳2210-EDIT-ACCOUNT-EXIT
2210-EDIT-ACCOUNT-EXIT 1 stmts
9000-READ-ACCT 12 stmts
↳9200-GETCARDXREF-BYACCT, 9000-READ-ACCT-EXIT, 9300-GETACCTDATA-BYACCT, 9400-GETCUSTDATA-BYCUST
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
SEND-PLAIN-TEXT 2 stmts
SEND-PLAIN-TEXT-EXIT 1 stmts
SEND-LONG-TEXT 2 stmts
SEND-LONG-TEXT-EXIT 1 stmts
YYYY-STORE-PFKEY 57 stmts
YYYY-STORE-PFKEY-EXIT 1 stmts
ABEND-ROUTINE 6 stmts

COPY

Copybooks (15)

CVCRD01YCOCOM01YDFHBMSCA (system)DFHAID (system)COTTL01YCOACTVWCSDAT01YCSMSG01YCSMSG02YCSUSR01YCVACT01YCVACT02YCVACT03YCVCUS01YCSSTRPFY