Online (CICS) program · IMS · 1,032 linesCOPAUS0C

Entry points

How it is started

Transactions: CPVSCRDDEMO2.csd:18 CPVSCRDDEMO2.csd:49
JCL steps: none
Called by: COPAUS0C CICS XCTL derived COPAUS0C.cbl:322–325
COPAUS0C CICS XCTL derived COPAUS0C.cbl:674–677
COPAUS1C CICS XCTL derived COPAUS1C.cbl:367–370
COMEN01C CICS XCTL derived COMEN01C.cbl:156–159
COMEN01C CICS XCTL derived COMEN01C.cbl:184–187

CALL · XCTL · LINK

CICS XCTL

EXEC CICS

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

VSAM

READ	CXACAIX	AWS.M2.CARDDEMO.CARDXREF.VSAM.AIX.PATH	COPAUS0C.cbl:818–826
READ	ACCTDAT	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	COPAUS0C.cbl:869–877
READ	CUSTDAT	AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS	COPAUS0C.cbl:920–928

PERFORM graph

MAIN-PARA 48 stmts
↳SEND-PAULST-SCREEN, GATHER-DETAILS, RECEIVE-PAULST-SCREEN, PROCESS-ENTER-KEY, RETURN-TO-PREV-SCREEN, PROCESS-PF7-KEY, PROCESS-PF8-KEY
PROCESS-ENTER-KEY 44 stmts
↳GATHER-DETAILS
GATHER-DETAILS 7 stmts
↳GATHER-ACCOUNT-DETAILS, INITIALIZE-AUTH-DATA, PROCESS-PAGE-FORWARD
PROCESS-PF7-KEY 11 stmts
↳GET-AUTH-SUMMARY, INITIALIZE-AUTH-DATA, PROCESS-PAGE-FORWARD
PROCESS-PF8-KEY 11 stmts
↳GET-AUTH-SUMMARY, REPOSITION-AUTHORIZATIONS, INITIALIZE-AUTH-DATA, PROCESS-PAGE-FORWARD
PROCESS-PAGE-FORWARD 19 stmts
↳REPOSITION-AUTHORIZATIONS, GET-AUTHORIZATIONS, POPULATE-AUTH-LIST
GET-AUTHORIZATIONS 13 stmts
↳SEND-PAULST-SCREEN
REPOSITION-AUTHORIZATIONS 14 stmts
↳SEND-PAULST-SCREEN
POPULATE-AUTH-LIST 64 stmts
INITIALIZE-AUTH-DATA 49 stmts
RETURN-TO-PREV-SCREEN 6 stmts
SEND-PAULST-SCREEN 8 stmts
↳POPULATE-HEADER-INFO
RECEIVE-PAULST-SCREEN 1 stmts
POPULATE-HEADER-INFO 13 stmts
GATHER-ACCOUNT-DETAILS 27 stmts
↳GETCARDXREF-BYACCT, GETACCTDATA-BYACCT, GETCUSTDATA-BYCUST, GET-AUTH-SUMMARY
GETCARDXREF-BYACCT 19 stmts
↳SEND-PAULST-SCREEN
GETACCTDATA-BYACCT 18 stmts
↳SEND-PAULST-SCREEN
GETCUSTDATA-BYCUST 18 stmts
↳SEND-PAULST-SCREEN
GET-AUTH-SUMMARY 14 stmts
↳SCHEDULE-PSB, SEND-PAULST-SCREEN
SCHEDULE-PSB 12 stmts
↳SEND-PAULST-SCREEN

COPY