Online (CICS) program · 1,560 linesCOCRDUPC

Entry points

How it is started

Transactions: CCUPCARDDEMO.CSD:367
JCL steps: none
Called by: COCRDLIC CICS XCTL derived COCRDLIC.cbl:538–541
COCRDLIC CICS XCTL derived COCRDLIC.cbl:566–569
COCRDUPC CICS XCTL derived COCRDUPC.cbl:473–476
COMEN01C CICS XCTL derived COMEN01C.cbl:156–159
COMEN01C CICS XCTL derived COMEN01C.cbl:184–187

CALL · XCTL · LINK

What it calls

CICS XCTL

COMEN01CCOCRDUPC via CDEMO-TO-PROGRAM derived

COCRDUPC.cbl:473–476

EXEC CICS

CICS commands

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

Screens: COCRDUP · CCRDUPA
Returns to: CCUP

VSAM

CICS files

READ	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDUPC.cbl:1382–1390
READ	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDUPC.cbl:1427–1436
REWRITE	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDUPC.cbl:1477–1483

PERFORM graph

Paragraphs (47)

0000-MAIN 69 stmts
↳YYYY-STORE-PFKEY, 9000-READ-DATA, 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 21 stmts
1100-RECEIVE-MAP-EXIT 1 stmts
1200-EDIT-MAP-INPUTS 35 stmts
↳1210-EDIT-ACCOUNT, 1220-EDIT-CARD, 1200-EDIT-MAP-INPUTS-EXIT, 1230-EDIT-NAME, 1240-EDIT-CARDSTATUS, 1250-EDIT-EXPIRY-MON, 1260-EDIT-EXPIRY-YEAR
1200-EDIT-MAP-INPUTS-EXIT 1 stmts
1210-EDIT-ACCOUNT 19 stmts
↳1210-EDIT-ACCOUNT-EXIT
1210-EDIT-ACCOUNT-EXIT 1 stmts
1220-EDIT-CARD 19 stmts
↳1220-EDIT-CARD-EXIT
1220-EDIT-CARD-EXIT 1 stmts
1230-EDIT-NAME 17 stmts
↳1230-EDIT-NAME-EXIT
1230-EDIT-NAME-EXIT 1 stmts
1240-EDIT-CARDSTATUS 15 stmts
↳1240-EDIT-CARDSTATUS-EXIT
1240-EDIT-CARDSTATUS-EXIT 1 stmts
1250-EDIT-EXPIRY-MON 15 stmts
↳1250-EDIT-EXPIRY-MON-EXIT
1250-EDIT-EXPIRY-MON-EXIT 1 stmts
1260-EDIT-EXPIRY-YEAR 15 stmts
↳1260-EDIT-EXPIRY-YEAR-EXIT
1260-EDIT-EXPIRY-YEAR-EXIT 1 stmts
2000-DECIDE-ACTION 37 stmts
↳9000-READ-DATA, 9200-WRITE-PROCESSING, ABEND-ROUTINE
2000-DECIDE-ACTION-EXIT 1 stmts
3000-SEND-MAP 5 stmts
↳3100-SCREEN-INIT, 3200-SETUP-SCREEN-VARS, 3250-SETUP-INFOMSG, 3300-SETUP-SCREEN-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 29 stmts
3200-SETUP-SCREEN-VARS-EXIT 1 stmts
3250-SETUP-INFOMSG 21 stmts
3250-SETUP-INFOMSG-EXIT 1 stmts
3300-SETUP-SCREEN-ATTRS 77 stmts
3300-SETUP-SCREEN-ATTRS-EXIT 1 stmts
3400-SEND-SCREEN 3 stmts
3400-SEND-SCREEN-EXIT 1 stmts
9000-READ-DATA 12 stmts
↳9100-GETCARD-BYACCTCARD
9000-READ-DATA-EXIT 1 stmts
9100-GETCARD-BYACCTCARD 20 stmts
9100-GETCARD-BYACCTCARD-EXIT 1 stmts
9200-WRITE-PROCESSING 23 stmts
↳9200-WRITE-PROCESSING-EXIT, 9300-CHECK-CHANGE-IN-REC
9200-WRITE-PROCESSING-EXIT 1 stmts
9300-CHECK-CHANGE-IN-REC 12 stmts
↳9200-WRITE-PROCESSING-EXIT
9300-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

COPY

Copybooks (13)

CVCRD01YCOCOM01YDFHBMSCA (system)DFHAID (system)COTTL01YCOCRDUPCSDAT01YCSMSG01YCSMSG02YCSUSR01YCVACT02YCVCUS01YCSSTRPFY