Online (CICS) program · 359 linesCOUSR03C

Entry points

How it is started

Transactions: CU03CARDDEMO.CSD:479
JCL steps: none
Called by: COADM01C CICS XCTL derived COADM01C.cbl:145–148
COUSR00C CICS XCTL derived COUSR00C.cbl:196–199
COUSR00C CICS XCTL derived COUSR00C.cbl:206–209
COUSR00C CICS XCTL derived COUSR00C.cbl:514–517
COUSR03C CICS XCTL derived COUSR03C.cbl:205–208

CALL · XCTL · LINK

CICS XCTL

COSGN00CCOADM01CCOUSR03C via CDEMO-TO-PROGRAM derived

EXEC CICS

RETURN ×1XCTL ×1SEND MAP ×1RECEIVE MAP ×1READ ×1DELETE ×1

VSAM

READ	USRSEC	AWS.M2.CARDDEMO.USRSEC.VSAM.KSDS	COUSR03C.cbl:269–278
DELETE	USRSEC	AWS.M2.CARDDEMO.USRSEC.VSAM.KSDS	COUSR03C.cbl:307–311

PERFORM graph

MAIN-PARA 36 stmts
↳RETURN-TO-PREV-SCREEN, PROCESS-ENTER-KEY, SEND-USRDEL-SCREEN, RECEIVE-USRDEL-SCREEN, CLEAR-CURRENT-SCREEN, DELETE-USER-INFO
PROCESS-ENTER-KEY 18 stmts
↳SEND-USRDEL-SCREEN, READ-USER-SEC-FILE
DELETE-USER-INFO 13 stmts
↳SEND-USRDEL-SCREEN, READ-USER-SEC-FILE, DELETE-USER-SEC-FILE
RETURN-TO-PREV-SCREEN 6 stmts
SEND-USRDEL-SCREEN 3 stmts
↳POPULATE-HEADER-INFO
RECEIVE-USRDEL-SCREEN 1 stmts
POPULATE-HEADER-INFO 13 stmts
READ-USER-SEC-FILE 18 stmts
↳SEND-USRDEL-SCREEN
DELETE-USER-SEC-FILE 19 stmts
↳INITIALIZE-ALL-FIELDS, SEND-USRDEL-SCREEN
CLEAR-CURRENT-SCREEN 2 stmts
↳INITIALIZE-ALL-FIELDS, SEND-USRDEL-SCREEN
INITIALIZE-ALL-FIELDS 2 stmts

COPY