Online (CICS) program · 699 linesCOTRN00C

Entry points

How it is started

Transactions: CT00CARDDEMO.CSD:419
JCL steps: none
Called by: COMEN01C CICS XCTL derived COMEN01C.cbl:156–159
COMEN01C CICS XCTL derived COMEN01C.cbl:184–187
COTRN01C CICS XCTL derived COTRN01C.cbl:205–208

CALL · XCTL · LINK

CICS XCTL

COSGN00CCOMEN01CCOTRN01C via CDEMO-TO-PROGRAM derived

EXEC CICS

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

VSAM

STARTBR	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN00C.cbl:593–600
READNEXT	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN00C.cbl:626–634
READPREV	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN00C.cbl:660–668
ENDBR	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN00C.cbl:694–696

PERFORM graph

MAIN-PARA 32 stmts
↳RETURN-TO-PREV-SCREEN, PROCESS-ENTER-KEY, SEND-TRNLST-SCREEN, RECEIVE-TRNLST-SCREEN, PROCESS-PF7-KEY, PROCESS-PF8-KEY
PROCESS-ENTER-KEY 59 stmts
↳SEND-TRNLST-SCREEN, PROCESS-PAGE-FORWARD
PROCESS-PF7-KEY 10 stmts
↳PROCESS-PAGE-BACKWARD, SEND-TRNLST-SCREEN
PROCESS-PF8-KEY 9 stmts
↳PROCESS-PAGE-FORWARD, SEND-TRNLST-SCREEN
PROCESS-PAGE-FORWARD 26 stmts
↳STARTBR-TRANSACT-FILE, READNEXT-TRANSACT-FILE, INITIALIZE-TRAN-DATA, POPULATE-TRAN-DATA, ENDBR-TRANSACT-FILE, SEND-TRNLST-SCREEN
PROCESS-PAGE-BACKWARD 22 stmts
↳STARTBR-TRANSACT-FILE, READPREV-TRANSACT-FILE, INITIALIZE-TRAN-DATA, POPULATE-TRAN-DATA, ENDBR-TRANSACT-FILE, SEND-TRNLST-SCREEN
POPULATE-TRAN-DATA 59 stmts
INITIALIZE-TRAN-DATA 53 stmts
RETURN-TO-PREV-SCREEN 6 stmts
SEND-TRNLST-SCREEN 5 stmts
↳POPULATE-HEADER-INFO
RECEIVE-TRNLST-SCREEN 1 stmts
POPULATE-HEADER-INFO 13 stmts
STARTBR-TRANSACT-FILE 16 stmts
↳SEND-TRNLST-SCREEN
READNEXT-TRANSACT-FILE 16 stmts
↳SEND-TRNLST-SCREEN
READPREV-TRANSACT-FILE 16 stmts
↳SEND-TRNLST-SCREEN
ENDBR-TRANSACT-FILE 1 stmts

COPY