MFmainframe-rea
WS carddemo · 26f629ef

CICS transaction · group CARDDEMOCU02 → COUSR02C

BMS

What the user sees

 Tran: ####          ########################################    Date: ######## 
 Prog: ########      ########################################    Time: ######## 
                                                                                
                                   Update User                                  
                                                                                
      Enter User ID: ________                                                   
                                                                                
      **********************************************************************    
                                                                                
                                                                                
      First Name: ____________________       Last Name: ____________________    
                                                                                
      Password: ________ (8 Char)                                               
                                                                                
      User Type: _ (A=Admin, U=User)                                            
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
 ############################################################################## 
 ENTER=Fetch  F3=Save&&Exit  F4=Clear  F5=Save  F12=Cancel                      
COUSR02 / COUSR2A
COUSR02.COUSR2A

Fields the user types

LabelFieldLenMap
Enter User ID:USRIDIN 8COUSR02.bms:85
First Name:FNAME 20COUSR02.bms:103
Last Name:LNAME 20COUSR02.bms:116
Password:PASSWD hidden8COUSR02.bms:130
User Type:USRTYPE 1COUSR02.bms:145

Full map definition COUSR02.bms:26

VSAM · DB2

Data it touches

CommandCICS fileDatasetAt
READUSRSEC derivedAWS.M2.CARDDEMO.USRSEC.VSAM.KSDSCOUSR02C.cbl:322–331
REWRITEUSRSEC derivedAWS.M2.CARDDEMO.USRSEC.VSAM.KSDSCOUSR02C.cbl:360–366
Navigation

Where it goes next

RETURNnext tran
CU02 derived
always
XCTLtransfer
always
in RETURN-TO-PREV-SCREEN COUSR02C.cbl:258–261
5 pieces of evidence
  • MOVE 'COSGN00C' at app/cbl/COUSR02C.cbl:91
  • MOVE 'COADM01C' at app/cbl/COUSR02C.cbl:114
  • MOVE CDEMO-FROM-PROGRAM at app/cbl/COUSR02C.cbl:116-117 -> MOVE WS-PGMNAME at app/cbl/COUSR02C.cbl:256 -> VALUE at app/cbl/COUSR02C.cbl:36
  • MOVE 'COADM01C' at app/cbl/COUSR02C.cbl:125
  • MOVE 'COSGN00C' at app/cbl/COUSR02C.cbl:253
Depth 1

Programs reached

ProgramScreensTransfers toData
COSGN00CCOSGN00.COSGN0ARETURN CC00XCTL COADM01CXCTL COMEN01CUSRSEC
COADM01CCOADM01.COADM1ARETURN CA00XCTL COUSR00CXCTL COUSR01CXCTL COUSR02CXCTL COUSR03CXCTL COTRTLICXCTL COTRTUPCXCTL COSGN00C