Online (CICS) program · 330 linesCOTRN01C
How it is started
- Transactions
- CT01CARDDEMO.CSD:429
- JCL steps
- none
- Called by
What it calls
| CICS XCTL | COSGN00CCOMEN01CCOTRN01CCOTRN00C via CDEMO-TO-PROGRAM derived | COTRN01C.cbl:205–208 |
CICS commands
RETURN ×1XCTL ×1SEND MAP ×1RECEIVE MAP ×1READ ×1
- Screens
- COTRN01 · COTRN1A
- Returns to
- CT01
CICS files
| READ | TRANSACT | AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS | COTRN01C.cbl:269–278 |
Paragraphs (9)
- MAIN-PARA 34 stmts↳RETURN-TO-PREV-SCREEN, PROCESS-ENTER-KEY, SEND-TRNVIEW-SCREEN, RECEIVE-TRNVIEW-SCREEN, CLEAR-CURRENT-SCREEN
- PROCESS-ENTER-KEY 29 stmts↳SEND-TRNVIEW-SCREEN, READ-TRANSACT-FILE
- RETURN-TO-PREV-SCREEN 6 stmts
- SEND-TRNVIEW-SCREEN 3 stmts↳POPULATE-HEADER-INFO
- RECEIVE-TRNVIEW-SCREEN 1 stmts
- POPULATE-HEADER-INFO 13 stmts
- READ-TRANSACT-FILE 15 stmts↳SEND-TRNVIEW-SCREEN
- CLEAR-CURRENT-SCREEN 2 stmts↳INITIALIZE-ALL-FIELDS, SEND-TRNVIEW-SCREEN
- INITIALIZE-ALL-FIELDS 2 stmts
Copybooks (8)
COCOM01YCOTRN01COTTL01YCSDAT01YCSMSG01YCVTRA05YDFHAID (system)DFHBMSCA (system)