Online (CICS) program · DB2 · 1,702 linesCOTRTUPC

Entry points

How it is started

Transactions: CTTUCRDDEMOD.csd:18 CTTUCRDDEMOD.csd:35
JCL steps: none
Called by: COTRTLIC CICS XCTL derived COTRTLIC.cbl:620–623
COTRTLIC CICS XCTL derived COTRTLIC.cbl:648–651
COTRTUPC CICS XCTL derived COTRTUPC.cbl:457–460
COADM01C CICS XCTL derived COADM01C.cbl:145–148

CALL · XCTL · LINK

What it calls

CICS XCTL

COADM01CCOTRTUPC via CDEMO-TO-PROGRAM derived

COTRTUPC.cbl:457–460

EXEC CICS

CICS commands

HANDLE ABEND ×2SYNCPOINT ×4XCTL ×1RETURN ×1RECEIVE MAP ×1SEND MAP ×1SEND ×1ABEND ×1

Screens: COTRTUP · CTRTUPA
Returns to: CTTU

VSAM

CICS files

No file commands.

DB2

Embedded SQL

SELECT	CARDDEMO.TRANSACTION_TYPE	9100-GET-TRANSACTION-TYPE	COTRTUPC.cbl:1475–1482
UPDATE	CARDDEMO.TRANSACTION_TYPE	9600-WRITE-PROCESSING	COTRTUPC.cbl:1544–1548
INSERT	CARDDEMO.TRANSACTION_TYPE	9700-INSERT-RECORD	COTRTUPC.cbl:1597–1602
DELETE	CARDDEMO.TRANSACTION_TYPE	9800-DELETE-PROCESSING	COTRTUPC.cbl:1627–1630
DECLARE TABLE	CARDDEMO.TRANSACTION_TYPE	(DATA DIVISION)	DCLTRTYP.dcl:28–31 via COTRTUPC.cbl:286
DECLARE TABLE	CARDDEMO.TRANSACTION_TYPE_CATEGORY	(DATA DIVISION)	DCLTRCAT.dcl:28–32 via COTRTUPC.cbl:288

PERFORM graph

Paragraphs (65)

0000-MAIN 76 stmts
↳YYYY-STORE-PFKEY, 0001-CHECK-PFKEYS, 3000-SEND-MAP, COMMON-RETURN, 9800-DELETE-PROCESSING, 9600-WRITE-PROCESSING, 2000-DECIDE-ACTION, 1000-PROCESS-INPUTS
COMMON-RETURN 4 stmts
0000-MAIN-EXIT 1 stmts
0001-CHECK-PFKEYS 5 stmts
0001-CHECK-PFKEYS-EXIT 1 stmts
1000-PROCESS-INPUTS 7 stmts
↳1100-RECEIVE-MAP, 1150-STORE-MAP-IN-NEW, 1200-EDIT-MAP-INPUTS
1000-PROCESS-INPUTS-EXIT 1 stmts
1100-RECEIVE-MAP 1 stmts
1100-RECEIVE-MAP-EXIT 1 stmts
1150-STORE-MAP-IN-NEW 10 stmts
↳1150-STORE-MAP-IN-NEW-EXIT
1150-STORE-MAP-IN-NEW-EXIT 1 stmts
1200-EDIT-MAP-INPUTS 36 stmts
↳1200-EDIT-MAP-INPUTS-EXIT, 1210-EDIT-TRANTYPE, 1205-COMPARE-OLD-NEW, 1230-EDIT-ALPHANUM-REQD
1200-EDIT-MAP-INPUTS-EXIT 1 stmts
1205-COMPARE-OLD-NEW 9 stmts
↳1205-COMPARE-OLD-NEW-EXIT
1205-COMPARE-OLD-NEW-EXIT 1 stmts
1210-EDIT-TRANTYPE 11 stmts
↳1245-EDIT-NUM-REQD
1210-EDIT-TRANTYPE-EXIT 1 stmts
1230-EDIT-ALPHANUM-REQD 17 stmts
↳1230-EDIT-ALPHANUM-REQD-EXIT
1230-EDIT-ALPHANUM-REQD-EXIT 1 stmts
1245-EDIT-NUM-REQD 22 stmts
↳1245-EDIT-NUM-REQD-EXIT
1245-EDIT-NUM-REQD-EXIT 1 stmts
2000-DECIDE-ACTION 45 stmts
↳9000-READ-TRANTYPE, ABEND-ROUTINE
2000-DECIDE-ACTION-EXIT 1 stmts
3000-SEND-MAP 7 stmts
↳3100-SCREEN-INIT, 3200-SETUP-SCREEN-VARS, 3250-SETUP-INFOMSG, 3300-SETUP-SCREEN-ATTRS, 3390-SETUP-INFOMSG-ATTRS, 3391-SETUP-PFKEY-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 22 stmts
↳3201-SHOW-INITIAL-VALUES, 3202-SHOW-ORIGINAL-VALUES, 3203-SHOW-UPDATED-VALUES
3200-SETUP-SCREEN-VARS-EXIT 1 stmts
3201-SHOW-INITIAL-VALUES 1 stmts
3201-SHOW-INITIAL-VALUES-EXIT 1 stmts
3202-SHOW-ORIGINAL-VALUES 3 stmts
3202-SHOW-ORIGINAL-VALUES-EXIT 1 stmts
3203-SHOW-UPDATED-VALUES 2 stmts
3203-SHOW-UPDATED-VALUES-EXIT 1 stmts
3250-SETUP-INFOMSG 37 stmts
3250-SETUP-INFOMSG-EXIT 1 stmts
3300-SETUP-SCREEN-ATTRS 49 stmts
↳3310-PROTECT-ALL-ATTRS, 3320-UNPROTECT-FEW-ATTRS, 3300-SETUP-SCREEN-ATTRS-EXIT
3300-SETUP-SCREEN-ATTRS-EXIT 1 stmts
3310-PROTECT-ALL-ATTRS 1 stmts
3310-PROTECT-ALL-ATTRS-EXIT 1 stmts
3320-UNPROTECT-FEW-ATTRS 2 stmts
3320-UNPROTECT-FEW-ATTRS-EXIT 1 stmts
3390-SETUP-INFOMSG-ATTRS 3 stmts
3390-SETUP-INFOMSG-ATTRS-EXIT 1 stmts
3391-SETUP-PFKEY-ATTRS 9 stmts
3391-SETUP-PFKEY-ATTRS-EXIT 1 stmts
3400-SEND-SCREEN 3 stmts
3400-SEND-SCREEN-EXIT 1 stmts
9000-READ-TRANTYPE 6 stmts
↳9100-GET-TRANSACTION-TYPE, 9000-READ-TRANTYPE-EXIT, 9500-STORE-FETCHED-DATA
9000-READ-TRANTYPE-EXIT 1 stmts
9100-GET-TRANSACTION-TYPE 17 stmts
9100-GET-TRANSACTION-TYPE-EXIT 1 stmts
9500-STORE-FETCHED-DATA 3 stmts
9500-STORE-FETCHED-DATA-EXIT 1 stmts
9600-WRITE-PROCESSING 27 stmts
↳9700-INSERT-RECORD
9600-WRITE-PROCESSING-EXIT 1 stmts
9700-INSERT-RECORD 8 stmts
↳9700-INSERT-RECORD-EXIT
9700-INSERT-RECORD-EXIT 1 stmts
9800-DELETE-PROCESSING 14 stmts
9800-DELETE-PROCESSING-EXIT 1 stmts
YYYY-STORE-PFKEY 57 stmts
YYYY-STORE-PFKEY-EXIT 1 stmts
ABEND-ROUTINE 7 stmts
ABEND-ROUTINE-EXIT 1 stmts

COPY

Copybooks (16)

CSUTLDWYCVCRD01YDFHBMSCA (system)DFHAID (system)COTTL01YCOTRTUPCSDAT01YCSMSG01YCSMSG02YCSUSR01YSQLCA (system)DCLTRTYPDCLTRCATCOCOM01YCSSETATYCSSTRPFY