CICS transaction · group CARDDEMOCCDL → COCRDSLC

BMS

What the user sees

 Tran: ####          ########################################    Date: ######## 
 Prog: ########      ########################################    Time: ######## 
                                                                                
                              View Credit Card Detail                           
                                                                                
                                                                                
                       Account Number    :   ___________                        
                       Card Number       :   ________________                   
                                                                                
                                                                                
    Name on card      :  ##################################################     
                                                                                
    Card Active Y/N   :  #                                                      
                                                                                
    Expiry Date       :  ## / ####                                              
                                                                                
                                                                                
                                                                                
                                                                                
                         ########################################               
                                                                                
                                                                                
 ###############################################################################
 ###########################################################################

COCRDSL / CCRDSLA

COCRDSL.CCRDSLA

Fields the user types

Label	Field	Len	Map
Account Number :	ACCTSID	11	COCRDSL.bms:84
Card Number :	CARDSID	16	COCRDSL.bms:96

Full map definition COCRDSL.bms:25

VSAM · DB2

Data it touches

Command	CICS file	Dataset	At
READ	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDSLC.cbl:742–750
READ	CARDAIX derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.AIX.PATH	COCRDSLC.cbl:783–791

Navigation

Where it goes next

XCTLtransfer

COMEN01CCOCRDSLC derived

CCARD-AID-PFK03

in 0000-MAIN COCRDSLC.cbl:331–334

2 pieces of evidence

MOVE LIT-MENUPGM at app/cbl/COCRDSLC.cbl:318 -> VALUE at app/cbl/COCRDSLC.cbl:179
MOVE CDEMO-FROM-PROGRAM at app/cbl/COCRDSLC.cbl:320 -> MOVE LIT-THISPGM at app/cbl/COCRDSLC.cbl:324 -> VALUE at app/cbl/COCRDSLC.cbl:163

RETURNnext tran

CCDL derived

always

in COMMON-RETURN COCRDSLC.cbl:402–406

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