CICS transaction · group CARDDEMOCU03 → COUSR03C

BMS

What the user sees

 Tran: ####          ########################################    Date: ######## 
 Prog: ########      ########################################    Time: ######## 
                                                                                
                                   Delete User                                  
                                                                                
      Enter User ID: ________                                                   
                                                                                
      **********************************************************************    
                                                                                
                                                                                
      First Name: ####################                                          
                                                                                
      Last Name:  ####################                                          
                                                                                
      User Type: # (A=Admin, U=User)                                            
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
 ############################################################################## 
 ENTER=Fetch  F3=Back  F4=Clear  F5=Delete

COUSR03 / COUSR3A

COUSR03.COUSR3A

Fields the user types

Label	Field	Len	Map
Enter User ID:	USRIDIN	8	COUSR03.bms:85

Full map definition COUSR03.bms:26

VSAM · DB2

Data it touches

Command	CICS file	Dataset	At
READ	USRSEC derived	AWS.M2.CARDDEMO.USRSEC.VSAM.KSDS	COUSR03C.cbl:269–278
DELETE	USRSEC derived	AWS.M2.CARDDEMO.USRSEC.VSAM.KSDS	COUSR03C.cbl:307–311

Navigation

Where it goes next

RETURNnext tran

CU03 derived

always

in MAIN-PARA COUSR03C.cbl:134–137

XCTLtransfer

COSGN00CCOADM01CCOUSR03C derived

always

in RETURN-TO-PREV-SCREEN COUSR03C.cbl:205–208

5 pieces of evidence

MOVE 'COSGN00C' at app/cbl/COUSR03C.cbl:91
MOVE 'COADM01C' at app/cbl/COUSR03C.cbl:113
MOVE CDEMO-FROM-PROGRAM at app/cbl/COUSR03C.cbl:115-116 -> MOVE WS-PGMNAME at app/cbl/COUSR03C.cbl:203 -> VALUE at app/cbl/COUSR03C.cbl:36
MOVE 'COADM01C' at app/cbl/COUSR03C.cbl:124
MOVE 'COSGN00C' at app/cbl/COUSR03C.cbl:200

Depth 1

Programs reached

Program	Screens	Transfers to	Data
COSGN00C	COSGN00.COSGN0A	RETURN CC00XCTL COADM01CXCTL COMEN01C	USRSEC
COADM01C	COADM01.COADM1A	RETURN CA00XCTL COUSR00CXCTL COUSR01CXCTL COUSR02CXCTL COUSR03CXCTL COTRTLICXCTL COTRTUPCXCTL COSGN00C