Online (CICS) program · 414 linesCOUSR02C

Entry points

How it is started

Transactions: CU02CARDDEMO.CSD:469
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
COUSR02C CICS XCTL derived COUSR02C.cbl:258–261

CALL · XCTL · LINK

CICS XCTL

COSGN00CCOADM01CCOUSR02C via CDEMO-TO-PROGRAM derived

EXEC CICS

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

VSAM

READ	USRSEC	AWS.M2.CARDDEMO.USRSEC.VSAM.KSDS	COUSR02C.cbl:322–331
REWRITE	USRSEC	AWS.M2.CARDDEMO.USRSEC.VSAM.KSDS	COUSR02C.cbl:360–366

PERFORM graph

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

COPY