MFmainframe-rea
WS carddemo · 26f629ef

CICS transaction · group CARDDEMOCAUP → COACTUPC

BMS

What the user sees

 ##########          ########################################    Date: ######## 
 Prog: ########      ########################################    Time: ######## 
                                                                                
                                 Update Account                                 
                   Account Number :   ___________        Active Y/N:  _         
        Opened : ____ - __ - __        Credit Limit        : _______________    
        Expiry : ____ - __ - __        Cash credit Limit   : _______________    
        Reissue: ____ - __ - __        Current Balance     : _______________    
                                       Current Cycle Credit: _______________    
        Account Group: __________      Current Cycle Debit : _______________    
                                Customer Details                                
        Customer id  : _________                 SSN:  ___ - __ - ____          
        Date of birth: ____ - __ - __            FICO Score:  ___               
 First Name                 Middle Name:               Last Name :              
 _________________________  _________________________  _________________________
 Address: __________________________________________________   State     __     
          __________________________________________________   Zip       _____  
 City     __________________________________________________   Country   ___    
 Phone 1: ___ ___ ____  Government Issued Id Ref    :     ____________________  
 Phone 2: ___ ___ ____  EFT Account Id:  __________  Primary Card Holder Y/N: _ 
                                                                                
                       #############################################            
 ############################################################################## 
 ##################### ####### ##########                                       
COACTUP / CACTUPA
COACTUP.CACTUPA

Fields the user types

LabelFieldLenMap
Account Number :ACCTSID 11COACTUP.bms:84
Active Y/N:ACSTTUS 1COACTUP.bms:94
Opened :OPNYEAR 4COACTUP.bms:104
-OPNMON 2COACTUP.bms:112
-OPNDAY 2COACTUP.bms:120
Credit Limit :ACRDLIM 15COACTUP.bms:132
Expiry :EXPYEAR 4COACTUP.bms:142
-EXPMON 2COACTUP.bms:150
-EXPDAY 2COACTUP.bms:158
Cash credit Limit :ACSHLIM 15COACTUP.bms:170
Reissue:RISYEAR 4COACTUP.bms:180
-RISMON 2COACTUP.bms:188
-RISDAY 2COACTUP.bms:196
Current Balance :ACURBAL 15COACTUP.bms:208
Current Cycle Credit:ACRCYCR 15COACTUP.bms:219
Account Group:AADDGRP 10COACTUP.bms:229
Current Cycle Debit :ACRCYDB 15COACTUP.bms:240
Customer id :ACSTNUM 9COACTUP.bms:254
SSN:ACTSSN1 3COACTUP.bms:264
-ACTSSN2 2COACTUP.bms:272
-ACTSSN3 4COACTUP.bms:280
Date of birth:DOBYEAR 4COACTUP.bms:291
-DOBMON 2COACTUP.bms:299
-DOBDAY 2COACTUP.bms:307
FICO Score:ACSTFCO 3COACTUP.bms:318
—ACSFNAM 25COACTUP.bms:336
—ACSMNAM 25COACTUP.bms:342
—ACSLNAM 25COACTUP.bms:348
Address:ACSADL1 50COACTUP.bms:356
StateACSSTTE 2COACTUP.bms:366
—ACSADL2 50COACTUP.bms:372
ZipACSZIPC 5COACTUP.bms:382
CityACSCITY 50COACTUP.bms:392
CountryACSCTRY 3COACTUP.bms:402
Phone 1:ACSPH1A 3COACTUP.bms:412
—ACSPH1B 3COACTUP.bms:417
—ACSPH1C 4COACTUP.bms:422
Government Issued Id Ref :ACSGOVT 20COACTUP.bms:433
Phone 2:ACSPH2A 3COACTUP.bms:443
—ACSPH2B 3COACTUP.bms:448
—ACSPH2C 4COACTUP.bms:453
EFT Account Id:ACSEFTC 10COACTUP.bms:464
Primary Card Holder Y/N:ACSPFLG 1COACTUP.bms:474

Full map definition COACTUP.bms:25

VSAM · DB2

Data it touches

CommandCICS fileDatasetAt
READCXACAIX derivedAWS.M2.CARDDEMO.CARDXREF.VSAM.AIX.PATHCOACTUPC.cbl:3654–3662
READACCTDAT derivedAWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDSCOACTUPC.cbl:3703–3711
READCUSTDAT derivedAWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDSCOACTUPC.cbl:3753–3761
READACCTDAT derivedAWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDSCOACTUPC.cbl:3894–3903
READCUSTDAT derivedAWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDSCOACTUPC.cbl:3921–3930
REWRITEACCTDAT derivedAWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDSCOACTUPC.cbl:4065–4071
REWRITECUSTDAT derivedAWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDSCOACTUPC.cbl:4085–4091
Navigation

Where it goes next

XCTLtransfer
  1. CCARD-AID-PFK03
in 0000-MAIN COACTUPC.cbl:956–959
2 pieces of evidence
  • MOVE LIT-MENUPGM at app/cbl/COACTUPC.cbl:939 -> VALUE at app/cbl/COACTUPC.cbl:557
  • MOVE CDEMO-FROM-PROGRAM at app/cbl/COACTUPC.cbl:941 -> MOVE LIT-THISPGM at app/cbl/COACTUPC.cbl:945 -> VALUE at app/cbl/COACTUPC.cbl:533
RETURNnext tran
CAUP derived
always
in COMMON-RETURN COACTUPC.cbl:1015–1019
Depth 1

Programs reached

ProgramScreensTransfers toData
COMEN01CCOMEN01.COMEN1ARETURN CM00XCTL COACTVWCXCTL COACTUPCXCTL COCRDLICXCTL COCRDSLCXCTL COCRDUPCXCTL COTRN00CXCTL COTRN01CXCTL COTRN02CXCTL CORPT00CXCTL COBIL00CXCTL COPAUS0CXCTL COSGN00C