Online (CICS) program · 783 linesCOTRN02C

Entry points

How it is started

Transactions: CT02CARDDEMO.CSD:439
JCL steps: none
Called by: COMEN01C CICS XCTL derived COMEN01C.cbl:156–159
COMEN01C CICS XCTL derived COMEN01C.cbl:184–187
COTRN02C CICS XCTL derived COTRN02C.cbl:508–511

CALL · XCTL · LINK

CALL	CSUTLDTC	COTRN02C.cbl:393–395 +1
CICS XCTL	COSGN00CCOMEN01CCOTRN02C via CDEMO-TO-PROGRAM derived	COTRN02C.cbl:508–511

EXEC CICS

RETURN ×2XCTL ×1SEND MAP ×1RECEIVE MAP ×1READ ×2STARTBR ×1READPREV ×1ENDBR ×1WRITE ×1

VSAM

READ	CXACAIX	AWS.M2.CARDDEMO.CARDXREF.VSAM.AIX.PATH	COTRN02C.cbl:578–586
READ	CCXREF	AWS.M2.CARDDEMO.CARDXREF.VSAM.KSDS	COTRN02C.cbl:611–619
STARTBR	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN02C.cbl:644–650
READPREV	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN02C.cbl:675–683
ENDBR	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN02C.cbl:704–706
WRITE	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN02C.cbl:713–721

PERFORM graph

MAIN-PARA 33 stmts
↳RETURN-TO-PREV-SCREEN, PROCESS-ENTER-KEY, SEND-TRNADD-SCREEN, RECEIVE-TRNADD-SCREEN, CLEAR-CURRENT-SCREEN, COPY-LAST-TRAN-DATA
PROCESS-ENTER-KEY 19 stmts
↳VALIDATE-INPUT-KEY-FIELDS, VALIDATE-INPUT-DATA-FIELDS, ADD-TRANSACTION, SEND-TRNADD-SCREEN
VALIDATE-INPUT-KEY-FIELDS 26 stmts
↳SEND-TRNADD-SCREEN, READ-CXACAIX-FILE, READ-CCXREF-FILE
VALIDATE-INPUT-DATA-FIELDS 138 stmts
↳SEND-TRNADD-SCREEN
ADD-TRANSACTION 22 stmts
↳STARTBR-TRANSACT-FILE, READPREV-TRANSACT-FILE, ENDBR-TRANSACT-FILE, WRITE-TRANSACT-FILE
COPY-LAST-TRAN-DATA 19 stmts
↳VALIDATE-INPUT-KEY-FIELDS, STARTBR-TRANSACT-FILE, READPREV-TRANSACT-FILE, ENDBR-TRANSACT-FILE, PROCESS-ENTER-KEY
RETURN-TO-PREV-SCREEN 6 stmts
SEND-TRNADD-SCREEN 4 stmts
↳POPULATE-HEADER-INFO
RECEIVE-TRNADD-SCREEN 1 stmts
POPULATE-HEADER-INFO 13 stmts
READ-CXACAIX-FILE 15 stmts
↳SEND-TRNADD-SCREEN
READ-CCXREF-FILE 15 stmts
↳SEND-TRNADD-SCREEN
STARTBR-TRANSACT-FILE 15 stmts
↳SEND-TRNADD-SCREEN
READPREV-TRANSACT-FILE 12 stmts
↳SEND-TRNADD-SCREEN
ENDBR-TRANSACT-FILE 1 stmts
WRITE-TRANSACT-FILE 20 stmts
↳INITIALIZE-ALL-FIELDS, SEND-TRNADD-SCREEN
CLEAR-CURRENT-SCREEN 2 stmts
↳INITIALIZE-ALL-FIELDS, SEND-TRNADD-SCREEN
INITIALIZE-ALL-FIELDS 2 stmts

COPY