CICS transaction · group CARDDEMOCA00 → COADM01C

BMS

What the user sees

 Tran: ####          ########################################    Date: ######## 
 Prog: ########      ########################################    Time: ######## 
                                                                                
                                   Admin Menu                                   
                                                                                
                    ########################################                    
                    ########################################                    
                    ########################################                    
                    ########################################                    
                    ########################################                    
                    ########################################                    
                    ########################################                    
                    ########################################                    
                    ########################################                    
                    ########################################                    
                    ########################################                    
                    ########################################                    
                                                                                
                                                                                
               Please select an option : __                                     
                                                                                
                                                                                
 ############################################################################## 
 ENTER=Continue  F3=Exit

COADM01 / COADM1A

COADM01.COADM1A

Fields the user types

Label	Field	Len	Map
Please select an option :	OPTION	2	COADM01.bms:145

Full map definition COADM01.bms:26

VSAM · DB2

Data it touches

No CICS file or SQL access.

Navigation

Where it goes next

RETURNnext tran

CA00 derived

always

in MAIN-PARA COADM01C.cbl:111–114

XCTLtransfer

COUSR00CCOUSR01CCOUSR02CCOUSR03CCOTRTLICCOTRTUPC derived

NOT ERR-FLG-ON
CDEMO-ADMIN-OPT-PGMNAME(WS-OPTION)(1:5) NOT = 'DUMMY'

in PROCESS-ENTER-KEY COADM01C.cbl:145–148

6 pieces of evidence

table row 1 (CDEMO-ADMIN-OPT-NUM=1, CDEMO-ADMIN-OPT-NAME=User List (Security)): VALUE at app/cpy/COADM02Y.cpy:29 (via app/cbl/COADM01C.cbl:51)
table row 2 (CDEMO-ADMIN-OPT-NUM=2, CDEMO-ADMIN-OPT-NAME=User Add (Security)): VALUE at app/cpy/COADM02Y.cpy:34 (via app/cbl/COADM01C.cbl:51)
table row 3 (CDEMO-ADMIN-OPT-NUM=3, CDEMO-ADMIN-OPT-NAME=User Update (Security)): VALUE at app/cpy/COADM02Y.cpy:39 (via app/cbl/COADM01C.cbl:51)
table row 4 (CDEMO-ADMIN-OPT-NUM=4, CDEMO-ADMIN-OPT-NAME=User Delete (Security)): VALUE at app/cpy/COADM02Y.cpy:44 (via app/cbl/COADM01C.cbl:51)
table row 5 (CDEMO-ADMIN-OPT-NUM=5, CDEMO-ADMIN-OPT-NAME=Transaction Type List/Update (Db2)): VALUE at app/cpy/COADM02Y.cpy:49 (via app/cbl/COADM01C.cbl:51)
table row 6 (CDEMO-ADMIN-OPT-NUM=6, CDEMO-ADMIN-OPT-NAME=Transaction Type Maintenance (Db2)): VALUE at app/cpy/COADM02Y.cpy:53 (via app/cbl/COADM01C.cbl:51)

XCTLtransfer

COSGN00C derived

always

in RETURN-TO-SIGNON-SCREEN COADM01C.cbl:168–170

2 pieces of evidence

MOVE 'COSGN00C' at app/cbl/COADM01C.cbl:101
MOVE 'COSGN00C' at app/cbl/COADM01C.cbl:166

RETURNnext tran

CA00 derived

always

in PGMIDERR-ERR-PARA COADM01C.cbl:280–283

Depth 1

Programs reached

Program	Screens	Transfers to	Data
COUSR00C	COUSR00.COUSR0A	RETURN CU00XCTL COSGN00CXCTL COADM01CXCTL COUSR02CXCTL COUSR03C	USRSEC
COUSR01C	COUSR01.COUSR1A	RETURN CU01XCTL COSGN00CXCTL COADM01C	USRSEC
COUSR02C	COUSR02.COUSR2A	RETURN CU02XCTL COSGN00CXCTL COADM01CXCTL COUSR02C	USRSEC
COUSR03C	COUSR03.COUSR3A	RETURN CU03XCTL COSGN00CXCTL COADM01CXCTL COUSR03C	USRSEC
COTRTLIC	COTRTLI.CTRTLIA	XCTL COADM01CXCTL COTRTLICXCTL COTRTUPCRETURN CTLI	CARDDEMO.TRANSACTION_TYPE
COTRTUPC	COTRTUP.CTRTUPA	XCTL COADM01CXCTL COTRTUPCRETURN CTTU	CARDDEMO.TRANSACTION_TYPE
COSGN00C	COSGN00.COSGN0A	RETURN CC00XCTL COADM01CXCTL COMEN01C	USRSEC