Online (CICS) program · 299 linesCOUSR01C
How it is started
- Transactions
- CU01CARDDEMO.CSD:459
- JCL steps
- none
- Called by
What it calls
| CICS XCTL | COSGN00CCOADM01C via CDEMO-TO-PROGRAM derived | COUSR01C.cbl:175–178 |
CICS commands
RETURN ×1XCTL ×1SEND MAP ×1RECEIVE MAP ×1WRITE ×1
- Screens
- COUSR01 · COUSR1A
- Returns to
- CU01
CICS files
| WRITE | USRSEC | AWS.M2.CARDDEMO.USRSEC.VSAM.KSDS | COUSR01C.cbl:240–248 |
Paragraphs (9)
- MAIN-PARA 26 stmts↳RETURN-TO-PREV-SCREEN, SEND-USRADD-SCREEN, RECEIVE-USRADD-SCREEN, PROCESS-ENTER-KEY, CLEAR-CURRENT-SCREEN
- PROCESS-ENTER-KEY 36 stmts↳SEND-USRADD-SCREEN, WRITE-USER-SEC-FILE
- RETURN-TO-PREV-SCREEN 6 stmts
- SEND-USRADD-SCREEN 3 stmts↳POPULATE-HEADER-INFO
- RECEIVE-USRADD-SCREEN 1 stmts
- POPULATE-HEADER-INFO 13 stmts
- WRITE-USER-SEC-FILE 19 stmts↳INITIALIZE-ALL-FIELDS, SEND-USRADD-SCREEN
- CLEAR-CURRENT-SCREEN 2 stmts↳INITIALIZE-ALL-FIELDS, SEND-USRADD-SCREEN
- INITIALIZE-ALL-FIELDS 2 stmts
Copybooks (8)
COCOM01YCOUSR01COTTL01YCSDAT01YCSMSG01YCSUSR01YDFHAID (system)DFHBMSCA (system)