MFmainframe-rea
WS carddemo · 26f629ef

CICS transaction · group CARDDEMOCU00 → COUSR00C

BMS

What the user sees

 Tran: ####          ########################################    Date: ######## 
 Prog: ########      ########################################    Time: ######## 
                                                                                
                                   List Users                    Page: ######## 
                                                                                
     Search User ID: ________                                                   
                                                                                
     Sel    User ID          First Name              Last Name          Type    
     ---    --------    --------------------    --------------------    ----    
      _     ########    ####################    ####################     #      
      _     ########    ####################    ####################     #      
      _     ########    ####################    ####################     #      
      _     ########    ####################    ####################     #      
      _     ########    ####################    ####################     #      
      _     ########    ####################    ####################     #      
      _     ########    ####################    ####################     #      
      _     ########    ####################    ####################     #      
      _     ########    ####################    ####################     #      
      _     ########    ####################    ####################     #      
                                                                                
            Type 'U' to Update or 'D' to Delete a User from the list            
                                                                                
 ############################################################################## 
 ENTER=Continue  F3=Back  F7=Backward  F8=Forward                               
COUSR00 / COUSR0A
COUSR00.COUSR0A

Fields the user types

LabelFieldLenMap
Search User ID:USRIDIN 8COUSR00.bms:95
—SEL0001 1COUSR00.bms:153
—SEL0002 1COUSR00.bms:182
—SEL0003 1COUSR00.bms:211
—SEL0004 1COUSR00.bms:240
—SEL0005 1COUSR00.bms:269
—SEL0006 1COUSR00.bms:298
—SEL0007 1COUSR00.bms:327
—SEL0008 1COUSR00.bms:356
—SEL0009 1COUSR00.bms:385
—SEL0010 1COUSR00.bms:414

Full map definition COUSR00.bms:26

VSAM · DB2

Data it touches

CommandCICS fileDatasetAt
STARTBRUSRSEC derivedAWS.M2.CARDDEMO.USRSEC.VSAM.KSDSCOUSR00C.cbl:588–595
READNEXTUSRSEC derivedAWS.M2.CARDDEMO.USRSEC.VSAM.KSDSCOUSR00C.cbl:621–629
READPREVUSRSEC derivedAWS.M2.CARDDEMO.USRSEC.VSAM.KSDSCOUSR00C.cbl:655–663
ENDBRUSRSEC derivedAWS.M2.CARDDEMO.USRSEC.VSAM.KSDSCOUSR00C.cbl:689–691
Navigation

Where it goes next

RETURNnext tran
CU00 derived
always
XCTLtransfer
  1. (CDEMO-CU00-USR-SEL-FLG NOT = SPACES AND LOW-VALUES) AND (CDEMO-CU00-USR-SELECTED NOT = SPACES AND LOW-VALUES)
  2. CDEMO-CU00-USR-SEL-FLG = 'U' OR CDEMO-CU00-USR-SEL-FLG = 'u'
in PROCESS-ENTER-KEY COUSR00C.cbl:196–199
5 pieces of evidence
  • MOVE 'COSGN00C' at app/cbl/COUSR00C.cbl:111
  • MOVE 'COADM01C' at app/cbl/COUSR00C.cbl:126
  • MOVE 'COUSR02C' at app/cbl/COUSR00C.cbl:192
  • MOVE 'COUSR03C' at app/cbl/COUSR00C.cbl:202
  • MOVE 'COSGN00C' at app/cbl/COUSR00C.cbl:509
XCTLtransfer
  1. (CDEMO-CU00-USR-SEL-FLG NOT = SPACES AND LOW-VALUES) AND (CDEMO-CU00-USR-SELECTED NOT = SPACES AND LOW-VALUES)
  2. CDEMO-CU00-USR-SEL-FLG = 'D' OR CDEMO-CU00-USR-SEL-FLG = 'd'
in PROCESS-ENTER-KEY COUSR00C.cbl:206–209
5 pieces of evidence
  • MOVE 'COSGN00C' at app/cbl/COUSR00C.cbl:111
  • MOVE 'COADM01C' at app/cbl/COUSR00C.cbl:126
  • MOVE 'COUSR02C' at app/cbl/COUSR00C.cbl:192
  • MOVE 'COUSR03C' at app/cbl/COUSR00C.cbl:202
  • MOVE 'COSGN00C' at app/cbl/COUSR00C.cbl:509
XCTLtransfer
always
in RETURN-TO-PREV-SCREEN COUSR00C.cbl:514–517
5 pieces of evidence
  • MOVE 'COSGN00C' at app/cbl/COUSR00C.cbl:111
  • MOVE 'COADM01C' at app/cbl/COUSR00C.cbl:126
  • MOVE 'COUSR02C' at app/cbl/COUSR00C.cbl:192
  • MOVE 'COUSR03C' at app/cbl/COUSR00C.cbl:202
  • MOVE 'COSGN00C' at app/cbl/COUSR00C.cbl:509
Depth 1

Programs reached

ProgramScreensTransfers toData
COSGN00CCOSGN00.COSGN0ARETURN CC00XCTL COADM01CXCTL COMEN01CUSRSEC
COADM01CCOADM01.COADM1ARETURN CA00XCTL COUSR00CXCTL COUSR01CXCTL COUSR02CXCTL COUSR03CXCTL COTRTLICXCTL COTRTUPCXCTL COSGN00C
COUSR02CCOUSR02.COUSR2ARETURN CU02XCTL COSGN00CXCTL COADM01CXCTL COUSR02CUSRSEC
COUSR03CCOUSR03.COUSR3ARETURN CU03XCTL COSGN00CXCTL COADM01CXCTL COUSR03CUSRSEC