MFmainframe-rea
WS carddemo · 26f629ef

CICS transaction · group CARDDEMOCC00 → COSGN00C

BMS

What the user sees

 Tran : ####         ########################################   Date : ######## 
 Prog : ########     ########################################   Time : #########
 AppID: ########                                                SysID: ######## 
                                                                                
      This is a Credit Card Demo Application for Mainframe Modernization        
                                                                                
                     +========================================+                 
                     |%%%%%%%  NATIONAL RESERVE NOTE  %%%%%%%%|                 
                     |%(1)  THE UNITED STATES OF KICSLAND (1)%|                 
                     |%$$              ___       ********  $$%|                 
                     |%$    {x}       (o o)                 $%|                 
                     |%$     ******  (  V  )      O N E     $%|                 
                     |%(1)          ---m-m---             (1)%|                 
                     |%%~~~~~~~~~~~ ONE DOLLAR ~~~~~~~~~~~~~%%|                 
                     +========================================+                 
                                                                                
                Type your User ID and Password, then press ENTER:               
                                                                                
                             User ID     : ________ (8 Char)                    
                             Password    : ________ (8 Char)                    
                                                                                
                                                                                
 ############################################################################## 
 ENTER=Sign-on  F3=Exit                                                         
COSGN00 / COSGN0A
COSGN00.COSGN0A

Fields the user types

LabelFieldLenMap
User ID :USERID 8COSGN00.bms:156
Password :PASSWD hidden8COSGN00.bms:175

Full map definition COSGN00.bms:26

VSAM · DB2

Data it touches

CommandCICS fileDatasetAt
READUSRSEC derivedAWS.M2.CARDDEMO.USRSEC.VSAM.KSDSCOSGN00C.cbl:211–219
Navigation

Where it goes next

RETURNnext tran
CC00 derived
always
XCTLtransfer
COADM01C observed
  1. WS-RESP-CD = 0
  2. SEC-USR-PWD = WS-USER-PWD
  3. CDEMO-USRTYP-ADMIN
in READ-USER-SEC-FILE COSGN00C.cbl:231–234
XCTLtransfer
COMEN01C observed
  1. WS-RESP-CD = 0
  2. SEC-USR-PWD = WS-USER-PWD
  3. NOT (CDEMO-USRTYP-ADMIN)
in READ-USER-SEC-FILE COSGN00C.cbl:236–239
Depth 1

Programs reached

ProgramScreensTransfers toData
COADM01CCOADM01.COADM1ARETURN CA00XCTL COUSR00CXCTL COUSR01CXCTL COUSR02CXCTL COUSR03CXCTL COTRTLICXCTL COTRTUPCXCTL COSGN00C
COMEN01CCOMEN01.COMEN1ARETURN CM00XCTL COACTVWCXCTL COACTUPCXCTL COCRDLICXCTL COCRDSLCXCTL COCRDUPCXCTL COTRN00CXCTL COTRN01CXCTL COTRN02CXCTL CORPT00CXCTL COBIL00CXCTL COPAUS0CXCTL COSGN00C