CICS transaction · group CARDDEMOCB00 → COBIL00C

BMS

What the user sees

 Tran: ####          ########################################    Date: ######## 
 Prog: ########      ########################################    Time: ######## 
                                                                                
                                   Bill Payment                                 
                                                                                
      Enter Acct ID: ___________                                                
                                                                                
      ----------------------------------------------------------------------    
                                                                                
                                                                                
      Your current balance is:  ##############                                  
                                                                                
                                                                                
                                                                                
      Do you want to pay your balance now. Please confirm:  _  (Y/N)            
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
 ############################################################################## 
 ENTER=Continue  F3=Back  F4=Clear

COBIL00 / COBIL0A

COBIL00.COBIL0A

Fields the user types

Label	Field	Len	Map
Enter Acct ID:	ACTIDIN	11	COBIL00.bms:85
Do you want to pay your balance now. Please confirm:	CONFIRM	1	COBIL00.bms:115

Full map definition COBIL00.bms:26

VSAM · DB2

Data it touches

Command	CICS file	Dataset	At
READ	ACCTDAT derived	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	COBIL00C.cbl:345–354
REWRITE	ACCTDAT derived	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	COBIL00C.cbl:379–385
READ	CXACAIX derived	AWS.M2.CARDDEMO.CARDXREF.VSAM.AIX.PATH	COBIL00C.cbl:410–418
STARTBR	TRANSACT derived	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COBIL00C.cbl:443–449
READPREV	TRANSACT derived	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COBIL00C.cbl:474–482
ENDBR	TRANSACT derived	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COBIL00C.cbl:503–505
WRITE	TRANSACT derived	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COBIL00C.cbl:512–520

Navigation

Where it goes next

RETURNnext tran

CB00 derived

always

in MAIN-PARA COBIL00C.cbl:146–149

XCTLtransfer

COSGN00CCOMEN01CCOBIL00C derived

always

in RETURN-TO-PREV-SCREEN COBIL00C.cbl:281–284

4 pieces of evidence

MOVE 'COSGN00C' at app/cbl/COBIL00C.cbl:108
MOVE 'COMEN01C' at app/cbl/COBIL00C.cbl:130
MOVE CDEMO-FROM-PROGRAM at app/cbl/COBIL00C.cbl:132-133 -> MOVE WS-PGMNAME at app/cbl/COBIL00C.cbl:279 -> VALUE at app/cbl/COBIL00C.cbl:37
MOVE 'COSGN00C' at app/cbl/COBIL00C.cbl:276

Depth 1

Programs reached

Program	Screens	Transfers to	Data
COSGN00C	COSGN00.COSGN0A	RETURN CC00XCTL COADM01CXCTL COMEN01C	USRSEC
COMEN01C	COMEN01.COMEN1A	RETURN CM00XCTL COACTVWCXCTL COACTUPCXCTL COCRDLICXCTL COCRDSLCXCTL COCRDUPCXCTL COTRN00CXCTL COTRN01CXCTL COTRN02CXCTL CORPT00CXCTL COBIL00CXCTL COPAUS0CXCTL COSGN00C