CICS transaction · group CARDDEMOCU02 → COUSR02C
observed CARDDEMO.CSD:469
What the user sees
Tran: #### ######################################## Date: ######## Prog: ######## ######################################## Time: ######## Update User Enter User ID: ________ ********************************************************************** First Name: ____________________ Last Name: ____________________ Password: ________ (8 Char) User Type: _ (A=Admin, U=User) ############################################################################## ENTER=Fetch F3=Save&&Exit F4=Clear F5=Save F12=Cancel
Fields the user types
| Label | Field | Len | Map |
|---|---|---|---|
| Enter User ID: | USRIDIN | 8 | COUSR02.bms:85 |
| First Name: | FNAME | 20 | COUSR02.bms:103 |
| Last Name: | LNAME | 20 | COUSR02.bms:116 |
| Password: | PASSWD hidden | 8 | COUSR02.bms:130 |
| User Type: | USRTYPE | 1 | COUSR02.bms:145 |
Data it touches
| Command | CICS file | Dataset | At |
|---|---|---|---|
| READ | USRSEC derived | AWS.M2.CARDDEMO.USRSEC.VSAM.KSDS | COUSR02C.cbl:322–331 |
| REWRITE | USRSEC derived | AWS.M2.CARDDEMO.USRSEC.VSAM.KSDS | COUSR02C.cbl:360–366 |
Where it goes next
RETURNnext tran
XCTLtransfer
always
in RETURN-TO-PREV-SCREEN COUSR02C.cbl:258–261
5 pieces of evidence
- MOVE 'COSGN00C' at app/cbl/COUSR02C.cbl:91
- MOVE 'COADM01C' at app/cbl/COUSR02C.cbl:114
- MOVE CDEMO-FROM-PROGRAM at app/cbl/COUSR02C.cbl:116-117 -> MOVE WS-PGMNAME at app/cbl/COUSR02C.cbl:256 -> VALUE at app/cbl/COUSR02C.cbl:36
- MOVE 'COADM01C' at app/cbl/COUSR02C.cbl:125
- MOVE 'COSGN00C' at app/cbl/COUSR02C.cbl:253
Programs reached
| Program | Screens | Transfers to | Data |
|---|---|---|---|
| COSGN00C | COSGN00.COSGN0A | RETURN CC00XCTL COADM01CXCTL COMEN01C | USRSEC |
| COADM01C | COADM01.COADM1A | RETURN CA00XCTL COUSR00CXCTL COUSR01CXCTL COUSR02CXCTL COUSR03CXCTL COTRTLICXCTL COTRTUPCXCTL COSGN00C |