Online (CICS) program · IMS · 604 linesCOPAUS1C

Entry points

How it is started

Transactions: CPVDCRDDEMO2.csd:25 CPVDCRDDEMO2.csd:39
JCL steps: none
Called by: COPAUS0C CICS XCTL derived COPAUS0C.cbl:322–325
COPAUS0C CICS XCTL derived COPAUS0C.cbl:674–677

CALL · XCTL · LINK

CICS LINK	COPAUS2C via WS-PGM-AUTH-FRAUD derived	COPAUS1C.cbl:248–252
CICS XCTL	COPAUS0C via CDEMO-TO-PROGRAM derived	COPAUS1C.cbl:367–370

EXEC CICS

RETURN ×1LINK ×1XCTL ×1SEND MAP ×2RECEIVE MAP ×1SYNCPOINT ×2

VSAM

No file commands.

PERFORM graph

MAIN-PARA 32 stmts
↳RETURN-TO-PREV-SCREEN, PROCESS-ENTER-KEY, SEND-AUTHVIEW-SCREEN, RECEIVE-AUTHVIEW-SCREEN, MARK-AUTH-FRAUD, PROCESS-PF8-KEY
PROCESS-ENTER-KEY 10 stmts
↳READ-AUTH-RECORD, TAKE-SYNCPOINT, POPULATE-AUTH-DETAILS
MARK-AUTH-FRAUD 20 stmts
↳READ-AUTH-RECORD, UPDATE-AUTH-DETAILS, ROLL-BACK, POPULATE-AUTH-DETAILS
PROCESS-PF8-KEY 12 stmts
↳READ-AUTH-RECORD, READ-NEXT-AUTH-RECORD, TAKE-SYNCPOINT, POPULATE-AUTH-DETAILS
POPULATE-AUTH-DETAILS 46 stmts
RETURN-TO-PREV-SCREEN 5 stmts
SEND-AUTHVIEW-SCREEN 6 stmts
↳POPULATE-HEADER-INFO
RECEIVE-AUTHVIEW-SCREEN 1 stmts
POPULATE-HEADER-INFO 13 stmts
READ-AUTH-RECORD 28 stmts
↳SCHEDULE-PSB, SEND-AUTHVIEW-SCREEN
READ-NEXT-AUTH-RECORD 12 stmts
↳SEND-AUTHVIEW-SCREEN
UPDATE-AUTH-DETAILS 15 stmts
↳TAKE-SYNCPOINT, ROLL-BACK, SEND-AUTHVIEW-SCREEN
TAKE-SYNCPOINT 1 stmts
ROLL-BACK 1 stmts
SCHEDULE-PSB 11 stmts
↳SEND-AUTHVIEW-SCREEN

COPY