CICS transaction · group CARDDEMOCT02 → COTRN02C

BMS

What the user sees

 Tran: ####          ########################################    Date: ######## 
 Prog: ########      ########################################    Time: ######## 
                                                                                
                              Add Transaction                                   
                                                                                
      Enter Acct #:  ___________     (or)     Card #:  ________________         
                                                                                
      ----------------------------------------------------------------------    
                                                                                
      Type CD: __      Category CD: ____      Source: __________                
                                                                                
      Description: ____________________________________________________________ 
                                                                                
      Amount: ____________     Orig Date: __________     Proc Date: __________  
             (-99999999.99)              (YYYY-MM-DD)              (YYYY-MM-DD) 
      Merchant ID: _________     Merchant Name: ______________________________  
                                                                                
      Merchant City: _________________________       Merchant Zip: __________   
                                                                                
                                                                                
      You are about to add this transaction. Please confirm :  _  (Y/N)         
                                                                                
 ############################################################################## 
 ENTER=Continue  F3=Back  F4=Clear  F5=Copy Last Tran.

COTRN02 / COTRN2A

COTRN02.COTRN2A

Fields the user types

Label	Field	Len	Map
Enter Acct #:	ACTIDIN	11	COTRN02.bms:85
Card #:	CARDNIN	16	COTRN02.bms:104
Type CD:	TTYPCD	2	COTRN02.bms:122
Category CD:	TCATCD	4	COTRN02.bms:135
Source:	TRNSRC	10	COTRN02.bms:148
Description:	TDESC	60	COTRN02.bms:161
Amount:	TRNAMT	12	COTRN02.bms:174
Orig Date:	TORIGDT	10	COTRN02.bms:187
Proc Date:	TPROCDT	10	COTRN02.bms:200
Merchant ID:	MID	9	COTRN02.bms:228
Merchant Name:	MNAME	30	COTRN02.bms:241
Merchant City:	MCITY	25	COTRN02.bms:254
Merchant Zip:	MZIP	10	COTRN02.bms:267
You are about to add this transaction. Please confirm :	CONFIRM	1	COTRN02.bms:281

Full map definition COTRN02.bms:26

VSAM · DB2

Data it touches

Command	CICS file	Dataset	At
READ	CXACAIX derived	AWS.M2.CARDDEMO.CARDXREF.VSAM.AIX.PATH	COTRN02C.cbl:578–586
READ	CCXREF derived	AWS.M2.CARDDEMO.CARDXREF.VSAM.KSDS	COTRN02C.cbl:611–619
STARTBR	TRANSACT derived	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN02C.cbl:644–650
READPREV	TRANSACT derived	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN02C.cbl:675–683
ENDBR	TRANSACT derived	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN02C.cbl:704–706
WRITE	TRANSACT derived	AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS	COTRN02C.cbl:713–721

Navigation

Where it goes next

RETURNnext tran

CT02 derived

always

in MAIN-PARA COTRN02C.cbl:156–159

XCTLtransfer

COSGN00CCOMEN01CCOTRN02C derived

always

in RETURN-TO-PREV-SCREEN COTRN02C.cbl:508–511

4 pieces of evidence

MOVE 'COSGN00C' at app/cbl/COTRN02C.cbl:116
MOVE 'COMEN01C' at app/cbl/COTRN02C.cbl:138
MOVE CDEMO-FROM-PROGRAM at app/cbl/COTRN02C.cbl:140-141 -> MOVE WS-PGMNAME at app/cbl/COTRN02C.cbl:506 -> VALUE at app/cbl/COTRN02C.cbl:36
MOVE 'COSGN00C' at app/cbl/COTRN02C.cbl:503

RETURNnext tran

CT02 derived

always

in SEND-TRNADD-SCREEN COTRN02C.cbl:530–534

Depth 1

Programs reached

Program	Screens	Transfers to	Data
COSGN00C	COSGN00.COSGN0A	RETURN CC00XCTL COADM01CXCTL COMEN01C	USRSEC
COMEN01C	COMEN01.COMEN1A	RETURN CM00XCTL COACTVWCXCTL COACTUPCXCTL COCRDLICXCTL COCRDSLCXCTL COCRDUPCXCTL COTRN00CXCTL COTRN01CXCTL COTRN02CXCTL CORPT00CXCTL COBIL00CXCTL COPAUS0CXCTL COSGN00C