CICS transaction · group CARDDEMOCCLI → COCRDLIC

BMS

What the user sees

 Tran: ####          ########################################    Date: ######## 
 Prog: ########      ########################################    Time: ######## 
                                                                                
                               List Credit Cards                      Page  ### 
                                                                                
                      Account Number    :   ___________                         
                      Credit Card Number:   ________________                    
                                                                                
          Select     Account Number           Card Number         Active        
          ------    ---------------        ---------------       --------       
            #         ###########          ################        #            
            # #       ###########          ################        #            
            # #       ###########          ################        #            
            # #       ###########          ################        #            
            # #       ###########          ################        #            
            # #       ###########          ################        #            
            # #       ###########          ################        #            
                                                                                
                                                                                
                   #############################################                
                                                                                
                                                                                
 ############################################################################## 
   F3=Exit F7=Backward  F8=Forward

COCRDLI / CCRDLIA

COCRDLI.CCRDLIA

Fields the user types

Label	Field	Len	Map
Account Number :	ACCTSID	11	COCRDLI.bms:89
Credit Card Number:	CARDSID	16	COCRDLI.bms:101

Full map definition COCRDLI.bms:25

VSAM · DB2

Data it touches

Command	CICS file	Dataset	At
STARTBR	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1129–1136
READNEXT	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1146–1154
READNEXT	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1197–1205
ENDBR	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1258–1259
STARTBR	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1273–1280
READPREV	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1294–1302
READPREV	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1322–1330
ENDBR	CARDDAT derived	AWS.M2.CARDDEMO.CARDDATA.VSAM.KSDS	COCRDLIC.cbl:1375–1377

Navigation

Where it goes next

XCTLtransfer

COMEN01C derived

(CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)

in 0000-MAIN COCRDLIC.cbl:402–405

XCTLtransfer

COCRDLICCOCRDSLCCOCRDUPC derivedpartial

CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM

in 0000-MAIN COCRDLIC.cbl:538–541

3 pieces of evidence

MOVE LIT-THISPGM at app/cbl/COCRDLIC.cbl:428 -> VALUE at app/cbl/COCRDLIC.cbl:179
MOVE LIT-CARDDTLPGM at app/cbl/COCRDLIC.cbl:526 -> VALUE at app/cbl/COCRDLIC.cbl:195
MOVE LIT-CARDUPDPGM at app/cbl/COCRDLIC.cbl:554 -> VALUE at app/cbl/COCRDLIC.cbl:203

XCTLtransfer

COCRDLICCOCRDSLCCOCRDUPC derivedpartial

CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM

in 0000-MAIN COCRDLIC.cbl:566–569

3 pieces of evidence

MOVE LIT-THISPGM at app/cbl/COCRDLIC.cbl:428 -> VALUE at app/cbl/COCRDLIC.cbl:179
MOVE LIT-CARDDTLPGM at app/cbl/COCRDLIC.cbl:526 -> VALUE at app/cbl/COCRDLIC.cbl:195
MOVE LIT-CARDUPDPGM at app/cbl/COCRDLIC.cbl:554 -> VALUE at app/cbl/COCRDLIC.cbl:203

RETURNnext tran

CCLI derived

always

in COMMON-RETURN COCRDLIC.cbl:615–619

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
COCRDSLC	COCRDSL.CCRDSLA	XCTL COMEN01CXCTL COCRDSLCRETURN CCDL	CARDDATCARDAIX
COCRDUPC	COCRDUP.CCRDUPA	XCTL COMEN01CXCTL COCRDUPCRETURN CCUP	CARDDAT