Online (CICS) program · 649 linesCORPT00C
How it is started
- Transactions
- CR00CARDDEMO.CSD:409
- JCL steps
- none
- Called by
What it calls
| CALL | CSUTLDTC | CORPT00C.cbl:392–394 +1 |
| CICS XCTL | COSGN00CCOMEN01C via CDEMO-TO-PROGRAM derived | CORPT00C.cbl:548–551 |
CICS commands
RETURN ×2WRITEQ TD ×1XCTL ×1SEND MAP ×2RECEIVE MAP ×1
- Screens
- CORPT00 · CORPT0A
- Returns to
- CR00
CICS files
No file commands.
Paragraphs (10)
- MAIN-PARA 26 stmts↳RETURN-TO-PREV-SCREEN, SEND-TRNRPT-SCREEN, RECEIVE-TRNRPT-SCREEN, PROCESS-ENTER-KEY
- PROCESS-ENTER-KEY 150 stmts↳SUBMIT-JOB-TO-INTRDR, SEND-TRNRPT-SCREEN, INITIALIZE-ALL-FIELDS
- SUBMIT-JOB-TO-INTRDR 24 stmts↳SEND-TRNRPT-SCREEN, INITIALIZE-ALL-FIELDS, WIRTE-JOBSUB-TDQ
- WIRTE-JOBSUB-TDQ 10 stmts↳SEND-TRNRPT-SCREEN
- RETURN-TO-PREV-SCREEN 6 stmts
- SEND-TRNRPT-SCREEN 6 stmts↳POPULATE-HEADER-INFO, RETURN-TO-CICS
- RETURN-TO-CICS 1 stmts
- RECEIVE-TRNRPT-SCREEN 1 stmts
- POPULATE-HEADER-INFO 13 stmts
- INITIALIZE-ALL-FIELDS 2 stmts
Copybooks (8)
COCOM01YCORPT00COTTL01YCSDAT01YCSMSG01YCVTRA05YDFHAID (system)DFHBMSCA (system)