CICS transaction · group CARDDEMOCCUP → COCRDUPC

BMS

What the user sees

 Tran: ####          ########################################    Date: ######## 
 Prog: ########      ########################################    Time: ######## 
                                                                                
                              Update Credit Card Details                        
                                                                                
                                                                                
                       Account Number    :   ###########                        
                       Card Number       :   ________________                   
                                                                                
                                                                                
    Name on card      :  __________________________________________________     
                                                                                
    Card Active Y/N   :  _                                                      
                                                                                
    Expiry Date       :  __ / ____  ##                                          
                                                                                
                                                                                
                                                                                
                                                                                
                         ########################################               
                                                                                
                                                                                
 ###############################################################################
 ##################### ##################

COCRDUP / CCRDUPA

COCRDUP.CCRDUPA

Fields the user types

Label	Field	Len	Map
Card Number :	CARDSID	16	COCRDUP.bms:96
Name on card :	CRDNAME	50	COCRDUP.bms:107
Card Active Y/N :	CRDSTCD	1	COCRDUP.bms:117
Expiry Date :	EXPMON	2	COCRDUP.bms:127
/	EXPYEAR	4	COCRDUP.bms:135

Full map definition COCRDUP.bms:25

VSAM · DB2

Data it touches

Command	CICS file	Dataset	At
READ	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDUPC.cbl:1382–1390
READ	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDUPC.cbl:1427–1436
REWRITE	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDUPC.cbl:1477–1483

Navigation

Where it goes next

XCTLtransfer

COMEN01CCOCRDUPC derived

CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)

in 0000-MAIN COCRDUPC.cbl:473–476

2 pieces of evidence

MOVE LIT-MENUPGM at app/cbl/COCRDUPC.cbl:451 -> VALUE at app/cbl/COCRDUPC.cbl:235
MOVE CDEMO-FROM-PROGRAM at app/cbl/COCRDUPC.cbl:453 -> MOVE LIT-THISPGM at app/cbl/COCRDUPC.cbl:457 -> VALUE at app/cbl/COCRDUPC.cbl:219

RETURNnext tran

CCUP derived

always

in COMMON-RETURN COCRDUPC.cbl:554–558

Depth 1

Programs reached

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