CICS transaction · group CARDDEMOCT01 → COTRN01C
observed CARDDEMO.CSD:429
What the user sees
Tran: #### ######################################## Date: ######## Prog: ######## ######################################## Time: ######## View Transaction Enter Tran ID: ________________ ---------------------------------------------------------------------- Transaction ID: ################ Card Number: ################ Type CD: ## Category CD: #### Source: ########## Description: ############################################################ Amount: ############ Orig Date: ########## Proc Date: ########## Merchant ID: ######### Merchant Name: ############################## Merchant City: ######################### Merchant Zip: ########## ############################################################################## ENTER=Fetch F3=Back F4=Clear F5=Browse Tran.
Fields the user types
| Label | Field | Len | Map |
|---|---|---|---|
| Enter Tran ID: | TRNIDIN | 16 | COTRN01.bms:85 |
Data it touches
| Command | CICS file | Dataset | At |
|---|---|---|---|
| READ | TRANSACT derived | AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS | COTRN01C.cbl:269–278 |
Where it goes next
RETURNnext tran
XCTLtransfer
always
in RETURN-TO-PREV-SCREEN COTRN01C.cbl:205–208
5 pieces of evidence
- MOVE 'COSGN00C' at app/cbl/COTRN01C.cbl:95
- MOVE 'COMEN01C' at app/cbl/COTRN01C.cbl:117
- MOVE CDEMO-FROM-PROGRAM at app/cbl/COTRN01C.cbl:119-120 -> MOVE WS-PGMNAME at app/cbl/COTRN01C.cbl:203 -> VALUE at app/cbl/COTRN01C.cbl:36
- MOVE 'COTRN00C' at app/cbl/COTRN01C.cbl:126
- MOVE 'COSGN00C' at app/cbl/COTRN01C.cbl:200
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 | |
| COTRN00C | COTRN00.COTRN0A | RETURN CT00XCTL COSGN00CXCTL COMEN01CXCTL COTRN01C | TRANSACT |