CICS transaction · group CARDDEMOCPVS → COPAUS0C

BMS

What the user sees

 Tran: ####          ########################################    Date: ######## 
 Prog: ########      ########################################    Time: ######## 
                              View Authorizations                               
                                                                                
   Search Acct Id: ___________                                                  
   Name:  #########################         Customer Id:  #########             
          #########################         Acct Status:  #                     
          #########################                                             
          PH:  #############                Approval # :  ###   Decline #:  ### 
                                                                                
      Credit Lim:  ############    Cash Lim:  #########   Appr Amt:  ########## 
      Credit Bal:  ############    Cash Bal:  #########   Decl Amt:  ########## 
                                                                                
  Sel    Transaction ID      Date       Time     Type   A/D  STS      Amount    
  ---   ----------------   --------  --------    ----   ---  ---   ------------ 
   _    ################   ########   ########   ####     #    #   ############ 
   _    ################   ########   ########   ####     #    #   ############ 
   _    ################   ########   ########   ####     #    #   ############ 
   _    ################   ########   ########   ####     #    #   ############ 
   _    ################   ########   ########   ####     #    #   ############ 
                                                                                
            Type 'S' to View Authorization details from the list                
 ############################################################################## 
 ENTER=Continue  F3=Back  F7=Backward  F8=Forward

COPAU00 / COPAU0A

COPAU00.COPAU0A

Fields the user types

Label	Field	Len	Map
Search Acct Id:	ACCTID	11	COPAU00.bms:84
—	SEL0001	1	COPAU00.bms:277
—	SEL0002	1	COPAU00.bms:321
—	SEL0003	1	COPAU00.bms:365
—	SEL0004	1	COPAU00.bms:409
—	SEL0005	1	COPAU00.bms:488

Full map definition COPAU00.bms:26

VSAM · DB2

Data it touches

Command	CICS file	Dataset	At
READ	CXACAIX derived	AWS.M2.CARDDEMO.CARDXREF.VSAM.AIX.PATH	COPAUS0C.cbl:818–826
READ	ACCTDAT derived	AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS	COPAUS0C.cbl:869–877
READ	CUSTDAT derived	AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS	COPAUS0C.cbl:920–928

Navigation

Where it goes next

RETURNnext tran

CPVS derived

always

in MAIN-PARA COPAUS0C.cbl:254–257

XCTLtransfer

COPAUS0CCOMEN01CCOPAUS1CCOSGN00C derived

NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
(CDEMO-CPVS-PAU-SEL-FLG NOT = SPACES AND LOW-VALUES) AND (CDEMO-CPVS-PAU-SELECTED NOT = SPACES AND LOW-VALUES)
CDEMO-CPVS-PAU-SEL-FLG = 'S' OR CDEMO-CPVS-PAU-SEL-FLG = 's'

in PROCESS-ENTER-KEY COPAUS0C.cbl:322–325

4 pieces of evidence

MOVE WS-PGM-AUTH-SMRY at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:192 -> VALUE at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:33
MOVE WS-PGM-MENU at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:236 -> VALUE at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:35
MOVE WS-PGM-AUTH-DTL at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:316 -> VALUE at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:34
MOVE 'COSGN00C' at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:669

XCTLtransfer

COPAUS0CCOMEN01CCOPAUS1CCOSGN00C derived

always

in RETURN-TO-PREV-SCREEN COPAUS0C.cbl:674–677

4 pieces of evidence

MOVE WS-PGM-AUTH-SMRY at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:192 -> VALUE at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:33
MOVE WS-PGM-MENU at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:236 -> VALUE at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:35
MOVE WS-PGM-AUTH-DTL at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:316 -> VALUE at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:34
MOVE 'COSGN00C' at app/app-authorization-ims-db2-mq/cbl/COPAUS0C.cbl:669

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
COPAUS1C	COPAU01.COPAU1A	RETURN CPVDLINK COPAUS2CXCTL COPAUS0C
COSGN00C	COSGN00.COSGN0A	RETURN CC00XCTL COADM01CXCTL COMEN01C	USRSEC