Online (CICS) program · 887 linesCOCRDSLC

Entry points

How it is started

Transactions: CCDLCARDDEMO.CSD:219 CCDLCARDDEMO.CSD:347
JCL steps: none
Called by: COCRDLIC CICS XCTL derived COCRDLIC.cbl:538–541
COCRDLIC CICS XCTL derived COCRDLIC.cbl:566–569
COCRDSLC CICS XCTL derived COCRDSLC.cbl:331–334
COMEN01C CICS XCTL derived COMEN01C.cbl:156–159
COMEN01C CICS XCTL derived COMEN01C.cbl:184–187

CALL · XCTL · LINK

CICS XCTL

COMEN01CCOCRDSLC via CDEMO-TO-PROGRAM derived

EXEC CICS

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

VSAM

READ	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDSLC.cbl:742–750
READ	CARDAIX	AWS.M2.CARDDEMO.CARDDATA.VSAM.AIX.PATH	COCRDSLC.cbl:783–791

PERFORM graph

0000-MAIN 57 stmts
↳YYYY-STORE-PFKEY, 9000-READ-DATA, 1000-SEND-MAP, COMMON-RETURN, 2000-PROCESS-INPUTS, SEND-PLAIN-TEXT
COMMON-RETURN 4 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 18 stmts
1200-SETUP-SCREEN-VARS-EXIT 1 stmts
1300-SETUP-SCREEN-ATTRS 30 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 13 stmts
↳2210-EDIT-ACCOUNT, 2220-EDIT-CARD
2200-EDIT-MAP-INPUTS-EXIT 1 stmts
2210-EDIT-ACCOUNT 17 stmts
↳2210-EDIT-ACCOUNT-EXIT
2210-EDIT-ACCOUNT-EXIT 1 stmts
2220-EDIT-CARD 17 stmts
↳2220-EDIT-CARD-EXIT
2220-EDIT-CARD-EXIT 1 stmts
9000-READ-DATA 1 stmts
↳9100-GETCARD-BYACCTCARD
9000-READ-DATA-EXIT 1 stmts
9100-GETCARD-BYACCTCARD 20 stmts
9100-GETCARD-BYACCTCARD-EXIT 1 stmts
9150-GETCARD-BYACCT 16 stmts
9150-GETCARD-BYACCT-EXIT 1 stmts
SEND-LONG-TEXT 2 stmts
SEND-LONG-TEXT-EXIT 1 stmts
SEND-PLAIN-TEXT 2 stmts
SEND-PLAIN-TEXT-EXIT 1 stmts
YYYY-STORE-PFKEY 57 stmts
YYYY-STORE-PFKEY-EXIT 1 stmts
ABEND-ROUTINE 6 stmts

COPY