Online (CICS) program · 1,459 linesCOCRDLIC

Entry points

How it is started

Transactions: CC00CARDDEMO.CSD:203 CCLICARDDEMO.CSD:357
JCL steps: none
Called by: COCRDLIC CICS XCTL derived COCRDLIC.cbl:538–541
COCRDLIC CICS XCTL derived COCRDLIC.cbl:566–569
COMEN01C CICS XCTL derived COMEN01C.cbl:156–159
COMEN01C CICS XCTL derived COMEN01C.cbl:184–187

CALL · XCTL · LINK

What it calls

CICS XCTL	COMEN01C via LIT-MENUPGM derived	COCRDLIC.cbl:402–405
CICS XCTL	COCRDLICCOCRDSLCCOCRDUPC via CCARD-NEXT-PROG derived	COCRDLIC.cbl:538–541 +1

EXEC CICS

CICS commands

XCTL ×3RETURN ×3SEND MAP ×1RECEIVE MAP ×1STARTBR ×2READNEXT ×2ENDBR ×2READPREV ×2SEND TEXT ×2

Screens: COCRDLI · CCRDLIA
Returns to: CCLI

VSAM

CICS files

STARTBR	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1129–1136
READNEXT	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1146–1154
READNEXT	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1197–1205
ENDBR	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1258–1259
STARTBR	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1273–1280
READPREV	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1294–1302
READPREV	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1322–1330
ENDBR	CARDDAT	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1375–1377

PERFORM graph

Paragraphs (41)

0000-MAIN 133 stmts
↳YYYY-STORE-PFKEY, 2000-RECEIVE-MAP, 9000-READ-FORWARD, 1000-SEND-MAP, COMMON-RETURN, 9100-READ-BACKWARDS
COMMON-RETURN 7 stmts
0000-MAIN-EXIT 1 stmts
1000-SEND-MAP 6 stmts
↳1100-SCREEN-INIT, 1200-SCREEN-ARRAY-INIT, 1250-SETUP-ARRAY-ATTRIBS, 1300-SETUP-SCREEN-ATTRS, 1400-SETUP-MESSAGE, 1500-SEND-SCREEN
1000-SEND-MAP-EXIT 1 stmts
1100-SCREEN-INIT 19 stmts
1100-SCREEN-INIT-EXIT 1 stmts
1200-SCREEN-ARRAY-INIT 42 stmts
1200-SCREEN-ARRAY-INIT-EXIT 1 stmts
1250-SETUP-ARRAY-ATTRIBS 43 stmts
1250-SETUP-ARRAY-ATTRIBS-EXIT 1 stmts
1300-SETUP-SCREEN-ATTRS 30 stmts
1300-SETUP-SCREEN-ATTRS-EXIT 1 stmts
1400-SETUP-MESSAGE 21 stmts
1400-SETUP-MESSAGE-EXIT 1 stmts
1500-SEND-SCREEN 1 stmts
1500-SEND-SCREEN-EXIT 1 stmts
2000-RECEIVE-MAP 2 stmts
↳2100-RECEIVE-SCREEN, 2200-EDIT-INPUTS
2000-RECEIVE-MAP-EXIT 1 stmts
2100-RECEIVE-SCREEN 10 stmts
2100-RECEIVE-SCREEN-EXIT 1 stmts
2200-EDIT-INPUTS 5 stmts
↳2210-EDIT-ACCOUNT, 2220-EDIT-CARD, 2250-EDIT-ARRAY
2200-EDIT-INPUTS-EXIT 1 stmts
2210-EDIT-ACCOUNT 14 stmts
↳2210-EDIT-ACCOUNT-EXIT
2210-EDIT-ACCOUNT-EXIT 1 stmts
2220-EDIT-CARD 15 stmts
↳2220-EDIT-CARD-EXIT
2220-EDIT-CARD-EXIT 1 stmts
2250-EDIT-ARRAY 22 stmts
↳2250-EDIT-ARRAY-EXIT
2250-EDIT-ARRAY-EXIT 1 stmts
9000-READ-FORWARD 63 stmts
↳9500-FILTER-RECORDS
9000-READ-FORWARD-EXIT 1 stmts
9100-READ-BACKWARDS 43 stmts
↳9100-READ-BACKWARDS-EXIT, 9500-FILTER-RECORDS
9100-READ-BACKWARDS-EXIT 2 stmts
9500-FILTER-RECORDS 13 stmts
↳9500-FILTER-RECORDS-EXIT
9500-FILTER-RECORDS-EXIT 1 stmts
YYYY-STORE-PFKEY 57 stmts
YYYY-STORE-PFKEY-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

COPY

Copybooks (11)

CVCRD01YCOCOM01YDFHBMSCA (system)DFHAID (system)COTTL01YCOCRDLICSDAT01YCSMSG01YCSUSR01YCVACT02YCSSTRPFY