Online (CICS) program · DB2 · 2,098 linesCOTRTLIC

Entry points

How it is started

Transactions: CTLICRDDEMOD.csd:11 CTLICRDDEMOD.csd:25
JCL steps: none
Called by: COTRTLIC CICS XCTL derived COTRTLIC.cbl:620–623
COADM01C CICS XCTL derived COADM01C.cbl:145–148

CALL · XCTL · LINK

What it calls

CICS XCTL	COADM01CCOTRTLICCOTRTUPC via CDEMO-TO-PROGRAM derived	COTRTLIC.cbl:620–623
CICS XCTL	COTRTUPC via LIT-ADDTPGM derived	COTRTLIC.cbl:648–651
CALL	DSNTIAC via LIT-DSNTIAC derived	CSDB2RPY.cpy:57–61 via COTRTLIC.cbl:2055

EXEC CICS

CICS commands

SYNCPOINT ×3XCTL ×2RETURN ×3RECEIVE MAP ×1SEND MAP ×1SEND TEXT ×2

Screens: COTRTLI · CTRTLIA
Returns to: CTLI

VSAM

CICS files

No file commands.

DB2

Embedded SQL

FETCH		8000-READ-FORWARD	COTRTLIC.cbl:1626–1630
FETCH		8000-READ-FORWARD	COTRTLIC.cbl:1661–1665
FETCH		8100-READ-BACKWARDS	COTRTLIC.cbl:1753–1757
SELECT	CARDDEMO.TRANSACTION_TYPE	9100-CHECK-FILTERS	COTRTLIC.cbl:1803–1815
UPDATE	CARDDEMO.TRANSACTION_TYPE	9200-UPDATE-RECORD	COTRTLIC.cbl:1846–1850
DELETE	CARDDEMO.TRANSACTION_TYPE	9300-DELETE-RECORD	COTRTLIC.cbl:1900–1903
OPEN		9400-OPEN-FORWARD-CURSOR	COTRTLIC.cbl:1943–1945
CLOSE		9450-CLOSE-FORWARD-CURSOR	COTRTLIC.cbl:1971–1973
OPEN		9500-OPEN-BACKWARD-CURSOR	COTRTLIC.cbl:1998–2000
CLOSE		9550-CLOSE-BACK-CURSOR	COTRTLIC.cbl:2027–2029
SELECT		9998-PRIMING-QUERY	CSDB2RPY.cpy:23–28 via COTRTLIC.cbl:2055
DECLARE TABLE	CARDDEMO.TRANSACTION_TYPE	(DATA DIVISION)	DCLTRTYP.dcl:28–31 via COTRTLIC.cbl:333
DECLARE CURSOR	CARDDEMO.TRANSACTION_TYPEcursor C-TR-TYPE-FORWARD	(DATA DIVISION)	COTRTLIC.cbl:338–352

PERFORM graph

Paragraphs (63)

0000-MAIN 166 stmts
↳YYYY-STORE-PFKEY, 1000-RECEIVE-MAP, 9998-PRIMING-QUERY, SEND-LONG-TEXT, COMMON-RETURN, 8000-READ-FORWARD, 2000-SEND-MAP, 8100-READ-BACKWARDS, 9300-DELETE-RECORD, 9200-UPDATE-RECORD
COMMON-RETURN 7 stmts
0000-MAIN-EXIT 1 stmts
1000-RECEIVE-MAP 2 stmts
↳1100-RECEIVE-SCREEN, 1200-EDIT-INPUTS
1000-RECEIVE-MAP-EXIT 1 stmts
1100-RECEIVE-SCREEN 10 stmts
1100-RECEIVE-SCREEN-EXIT 1 stmts
1200-EDIT-INPUTS 6 stmts
↳1210-EDIT-ARRAY, 1230-EDIT-DESC, 1220-EDIT-TYPECD, 1290-CROSS-EDITS
1200-EDIT-INPUTS-EXIT 1 stmts
1210-EDIT-ARRAY 32 stmts
↳1210-EDIT-ARRAY-EXIT, 1211-EDIT-ARRAY-DESC
1210-EDIT-ARRAY-EXIT 1 stmts
1211-EDIT-ARRAY-DESC 11 stmts
↳1211-EDIT-ARRAY-DESC-EXIT, 1240-EDIT-ALPHANUM-REQD
1211-EDIT-ARRAY-DESC-EXIT 1 stmts
1220-EDIT-TYPECD 13 stmts
↳1220-EDIT-TYPECD-EXIT
1220-EDIT-TYPECD-EXIT 6 stmts
1230-EDIT-DESC 7 stmts
↳1230-EDIT-DESC-EXIT
1230-EDIT-DESC-EXIT 6 stmts
1240-EDIT-ALPHANUM-REQD 17 stmts
↳1240-EDIT-ALPHANUM-REQD-EXIT
1240-EDIT-ALPHANUM-REQD-EXIT 1 stmts
1290-CROSS-EDITS 13 stmts
↳1290-CROSS-EDITS-EXIT, 9100-CHECK-FILTERS
1290-CROSS-EDITS-EXIT 1 stmts
2000-SEND-MAP 6 stmts
↳2100-SCREEN-INIT, 2200-SETUP-ARRAY-ATTRIBS, 2300-SCREEN-ARRAY-INIT, 2400-SETUP-SCREEN-ATTRS, 2500-SETUP-MESSAGE, 2600-SEND-SCREEN
2000-SEND-MAP-EXIT 1 stmts
2100-SCREEN-INIT 19 stmts
2100-SCREEN-INIT-EXIT 1 stmts
2200-SETUP-ARRAY-ATTRIBS 20 stmts
2200-SETUP-ARRAY-ATTRIBS-EXIT 1 stmts
2300-SCREEN-ARRAY-INIT 21 stmts
2300-SCREEN-ARRAY-INIT-EXIT 1 stmts
2400-SETUP-SCREEN-ATTRS 37 stmts
2400-SETUP-SCREEN-ATTRS-EXIT 1 stmts
2500-SETUP-MESSAGE 35 stmts
2500-SETUP-MESSAGE-EXIT 1 stmts
2600-SEND-SCREEN 1 stmts
2600-SEND-SCREEN-EXIT 1 stmts
8000-READ-FORWARD 55 stmts
↳9400-OPEN-FORWARD-CURSOR, 8000-READ-FORWARD-EXIT, 9999-FORMAT-DB2-MESSAGE, 9450-CLOSE-FORWARD-CURSOR
8000-READ-FORWARD-EXIT 1 stmts
8100-READ-BACKWARDS 25 stmts
↳9500-OPEN-BACKWARD-CURSOR, 9999-FORMAT-DB2-MESSAGE
8100-READ-BACKWARDS-EXIT 2 stmts
↳9550-CLOSE-BACK-CURSOR
9100-CHECK-FILTERS 11 stmts
↳9999-FORMAT-DB2-MESSAGE, 9100-CHECK-FILTERS-EXIT
9100-CHECK-FILTERS-EXIT 1 stmts
9200-UPDATE-RECORD 30 stmts
↳9999-FORMAT-DB2-MESSAGE, 9200-UPDATE-RECORD-EXIT
9200-UPDATE-RECORD-EXIT 1 stmts
9300-DELETE-RECORD 20 stmts
↳9999-FORMAT-DB2-MESSAGE, 9300-DELETE-RECORD-EXIT
9300-DELETE-RECORD-EXIT 1 stmts
9400-OPEN-FORWARD-CURSOR 10 stmts
↳9999-FORMAT-DB2-MESSAGE
9400-OPEN-FORWARD-CURSOR-EXIT 1 stmts
9450-CLOSE-FORWARD-CURSOR 10 stmts
↳9999-FORMAT-DB2-MESSAGE
9450-CLOSE-FORWARD-CURSOR-EXIT 1 stmts
9500-OPEN-BACKWARD-CURSOR 10 stmts
↳9999-FORMAT-DB2-MESSAGE
9500-OPEN-BACKWARD-CURSOR-EXIT 1 stmts
9550-CLOSE-BACK-CURSOR 10 stmts
↳9999-FORMAT-DB2-MESSAGE
9550-CLOSE-BACK-CURSOR-EXIT 1 stmts
9998-PRIMING-QUERY 9 stmts
↳9999-FORMAT-DB2-MESSAGE
9998-PRIMING-QUERY-EXIT 1 stmts
9999-FORMAT-DB2-MESSAGE 9 stmts
9999-FORMAT-DB2-MESSAGE-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 (15)

CSDB2RWYCVCRD01YSQLCA (system)DCLTRTYPCOCOM01YDFHBMSCA (system)DFHAID (system)COTTL01YCOTRTLICSDAT01YCSMSG01YCSUSR01YCVACT02YCSDB2RPYCSSTRPFY