Online (CICS) program · 572 linesCOBIL00C

Entry points

How it is started

Transactions: CB00CARDDEMO.CSD:337
JCL steps: none
Called by: COBIL00C CICS XCTL derived COBIL00C.cbl:281–284
COMEN01C CICS XCTL derived COMEN01C.cbl:156–159
COMEN01C CICS XCTL derived COMEN01C.cbl:184–187

CALL · XCTL · LINK

CICS XCTL

COSGN00CCOMEN01CCOBIL00C via CDEMO-TO-PROGRAM derived

EXEC CICS

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

VSAM

READ	ACCTDAT	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	COBIL00C.cbl:345–354
REWRITE	ACCTDAT	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	COBIL00C.cbl:379–385
READ	CXACAIX	AWS.M2.CARDDEMO.CARDXREF.VSAM.AIX.PATH	COBIL00C.cbl:410–418
STARTBR	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COBIL00C.cbl:443–449
READPREV	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COBIL00C.cbl:474–482
ENDBR	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COBIL00C.cbl:503–505
WRITE	TRANSACT	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COBIL00C.cbl:512–520

PERFORM graph

MAIN-PARA 31 stmts
↳RETURN-TO-PREV-SCREEN, PROCESS-ENTER-KEY, SEND-BILLPAY-SCREEN, RECEIVE-BILLPAY-SCREEN, CLEAR-CURRENT-SCREEN
PROCESS-ENTER-KEY 65 stmts
↳SEND-BILLPAY-SCREEN, READ-ACCTDAT-FILE, CLEAR-CURRENT-SCREEN, READ-CXACAIX-FILE, STARTBR-TRANSACT-FILE, READPREV-TRANSACT-FILE, ENDBR-TRANSACT-FILE, GET-CURRENT-TIMESTAMP, WRITE-TRANSACT-FILE, UPDATE-ACCTDAT-FILE
GET-CURRENT-TIMESTAMP 6 stmts
RETURN-TO-PREV-SCREEN 6 stmts
SEND-BILLPAY-SCREEN 3 stmts
↳POPULATE-HEADER-INFO
RECEIVE-BILLPAY-SCREEN 1 stmts
POPULATE-HEADER-INFO 13 stmts
READ-ACCTDAT-FILE 15 stmts
↳SEND-BILLPAY-SCREEN
UPDATE-ACCTDAT-FILE 15 stmts
↳SEND-BILLPAY-SCREEN
READ-CXACAIX-FILE 15 stmts
↳SEND-BILLPAY-SCREEN
STARTBR-TRANSACT-FILE 15 stmts
↳SEND-BILLPAY-SCREEN
READPREV-TRANSACT-FILE 12 stmts
↳SEND-BILLPAY-SCREEN
ENDBR-TRANSACT-FILE 1 stmts
WRITE-TRANSACT-FILE 20 stmts
↳INITIALIZE-ALL-FIELDS, SEND-BILLPAY-SCREEN
CLEAR-CURRENT-SCREEN 2 stmts
↳INITIALIZE-ALL-FIELDS, SEND-BILLPAY-SCREEN
INITIALIZE-ALL-FIELDS 2 stmts

COPY