CICS transaction · group CARDDEMOCM00 → COMEN01C

BMS

What the user sees

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

COMEN01 / COMEN1A

COMEN01.COMEN1A

Fields the user types

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

Full map definition COMEN01.bms:26

VSAM · DB2

Data it touches

No CICS file or SQL access.

Navigation

Where it goes next

RETURNnext tran

CM00 derived

always

in MAIN-PARA COMEN01C.cbl:107–110

XCTLtransfer

COACTVWCCOACTUPCCOCRDLICCOCRDSLCCOCRDUPCCOTRN00CCOTRN01CCOTRN02CCORPT00CCOBIL00CCOPAUS0C derived

NOT ERR-FLG-ON
CDEMO-MENU-OPT-PGMNAME(WS-OPTION) = 'COPAUS0C'
EIBRESP = DFHRESP(NORMAL)

in PROCESS-ENTER-KEY COMEN01C.cbl:156–159

11 pieces of evidence

table row 1 (CDEMO-MENU-OPT-NUM=1, CDEMO-MENU-OPT-NAME=Account View, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:28 (via app/cbl/COMEN01C.cbl:51)
table row 2 (CDEMO-MENU-OPT-NUM=2, CDEMO-MENU-OPT-NAME=Account Update, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:34 (via app/cbl/COMEN01C.cbl:51)
table row 3 (CDEMO-MENU-OPT-NUM=3, CDEMO-MENU-OPT-NAME=Credit Card List, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:40 (via app/cbl/COMEN01C.cbl:51)
table row 4 (CDEMO-MENU-OPT-NUM=4, CDEMO-MENU-OPT-NAME=Credit Card View, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:46 (via app/cbl/COMEN01C.cbl:51)
table row 5 (CDEMO-MENU-OPT-NUM=5, CDEMO-MENU-OPT-NAME=Credit Card Update, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:52 (via app/cbl/COMEN01C.cbl:51)
table row 6 (CDEMO-MENU-OPT-NUM=6, CDEMO-MENU-OPT-NAME=Transaction List, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:58 (via app/cbl/COMEN01C.cbl:51)
table row 7 (CDEMO-MENU-OPT-NUM=7, CDEMO-MENU-OPT-NAME=Transaction View, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:64 (via app/cbl/COMEN01C.cbl:51)
table row 8 (CDEMO-MENU-OPT-NUM=8, CDEMO-MENU-OPT-NAME=Transaction Add, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:71 (via app/cbl/COMEN01C.cbl:51)
table row 9 (CDEMO-MENU-OPT-NUM=9, CDEMO-MENU-OPT-NAME=Transaction Reports, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:77 (via app/cbl/COMEN01C.cbl:51)
table row 10 (CDEMO-MENU-OPT-NUM=10, CDEMO-MENU-OPT-NAME=Bill Payment, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:83 (via app/cbl/COMEN01C.cbl:51)
table row 11 (CDEMO-MENU-OPT-NUM=11, CDEMO-MENU-OPT-NAME=Pending Authorization View, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:89 (via app/cbl/COMEN01C.cbl:51)

XCTLtransfer

COACTVWCCOACTUPCCOCRDLICCOCRDSLCCOCRDUPCCOTRN00CCOTRN01CCOTRN02CCORPT00CCOBIL00CCOPAUS0C derived

NOT ERR-FLG-ON
TRUE is none of [CDEMO-MENU-OPT-PGMNAME(WS-OPTION) = 'COPAUS0C'; CDEMO-MENU-OPT-PGMNAME(WS-OPTION)(1:5) = 'DUMMY']

in PROCESS-ENTER-KEY COMEN01C.cbl:184–187

11 pieces of evidence

table row 1 (CDEMO-MENU-OPT-NUM=1, CDEMO-MENU-OPT-NAME=Account View, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:28 (via app/cbl/COMEN01C.cbl:51)
table row 2 (CDEMO-MENU-OPT-NUM=2, CDEMO-MENU-OPT-NAME=Account Update, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:34 (via app/cbl/COMEN01C.cbl:51)
table row 3 (CDEMO-MENU-OPT-NUM=3, CDEMO-MENU-OPT-NAME=Credit Card List, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:40 (via app/cbl/COMEN01C.cbl:51)
table row 4 (CDEMO-MENU-OPT-NUM=4, CDEMO-MENU-OPT-NAME=Credit Card View, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:46 (via app/cbl/COMEN01C.cbl:51)
table row 5 (CDEMO-MENU-OPT-NUM=5, CDEMO-MENU-OPT-NAME=Credit Card Update, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:52 (via app/cbl/COMEN01C.cbl:51)
table row 6 (CDEMO-MENU-OPT-NUM=6, CDEMO-MENU-OPT-NAME=Transaction List, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:58 (via app/cbl/COMEN01C.cbl:51)
table row 7 (CDEMO-MENU-OPT-NUM=7, CDEMO-MENU-OPT-NAME=Transaction View, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:64 (via app/cbl/COMEN01C.cbl:51)
table row 8 (CDEMO-MENU-OPT-NUM=8, CDEMO-MENU-OPT-NAME=Transaction Add, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:71 (via app/cbl/COMEN01C.cbl:51)
table row 9 (CDEMO-MENU-OPT-NUM=9, CDEMO-MENU-OPT-NAME=Transaction Reports, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:77 (via app/cbl/COMEN01C.cbl:51)
table row 10 (CDEMO-MENU-OPT-NUM=10, CDEMO-MENU-OPT-NAME=Bill Payment, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:83 (via app/cbl/COMEN01C.cbl:51)
table row 11 (CDEMO-MENU-OPT-NUM=11, CDEMO-MENU-OPT-NAME=Pending Authorization View, CDEMO-MENU-OPT-USRTYPE=U): VALUE at app/cpy/COMEN02Y.cpy:89 (via app/cbl/COMEN01C.cbl:51)

XCTLtransfer

COSGN00C derived

always

in RETURN-TO-SIGNON-SCREEN COMEN01C.cbl:201–203

2 pieces of evidence

MOVE 'COSGN00C' at app/cbl/COMEN01C.cbl:97
MOVE 'COSGN00C' at app/cbl/COMEN01C.cbl:199

Depth 1

Programs reached

Program	Screens	Transfers to	Data
COACTVWC	COACTVW.CACTVWA	XCTL COMEN01CXCTL COACTVWCRETURN CAVW	CXACAIXACCTDATCUSTDAT
COACTUPC	COACTUP.CACTUPA	XCTL COMEN01CXCTL COACTUPCRETURN CAUP	CXACAIXACCTDATCUSTDAT
COCRDLIC	COCRDLI.CCRDLIA	XCTL COMEN01CXCTL COCRDLICXCTL COCRDSLCXCTL COCRDUPCRETURN CCLI	CARDDAT
COCRDSLC	COCRDSL.CCRDSLA	XCTL COMEN01CXCTL COCRDSLCRETURN CCDL	CARDDATCARDAIX
COCRDUPC	COCRDUP.CCRDUPA	XCTL COMEN01CXCTL COCRDUPCRETURN CCUP	CARDDAT
COTRN00C	COTRN00.COTRN0A	RETURN CT00XCTL COSGN00CXCTL COMEN01CXCTL COTRN01C	TRANSACT
COTRN01C	COTRN01.COTRN1A	RETURN CT01XCTL COSGN00CXCTL COMEN01CXCTL COTRN01CXCTL COTRN00C	TRANSACT
COTRN02C	COTRN02.COTRN2A	RETURN CT02XCTL COSGN00CXCTL COMEN01CXCTL COTRN02C	CXACAIXCCXREFTRANSACT
CORPT00C	CORPT00.CORPT0A	RETURN CR00XCTL COSGN00CXCTL COMEN01C
COBIL00C	COBIL00.COBIL0A	RETURN CB00XCTL COSGN00CXCTL COMEN01CXCTL COBIL00C	ACCTDATCXACAIXTRANSACT
COPAUS0C	COPAU00.COPAU0A	RETURN CPVSXCTL COPAUS0CXCTL COMEN01CXCTL COPAUS1CXCTL COSGN00C	CXACAIXACCTDATCUSTDAT
COSGN00C	COSGN00.COSGN0A	RETURN CC00XCTL COADM01CXCTL COMEN01C	USRSEC