Online (CICS) program · MQ · 524 linesCODATE01
How it is started
- Transactions
- CDRDCRDDEMOM.csd:9 CDRDCRDDEMOM.csd:27
- JCL steps
- none
- Called by
- no callers in workspace
What it calls
| CALL | MQOPEN | CODATE01.cbl:182–187 +2 |
| CALL | MQGET | CODATE01.cbl:301–309 |
| CALL | MQPUT | CODATE01.cbl:383–390 +1 |
| CALL | MQCLOSE | CODATE01.cbl:461–465 +2 |
CICS commands
RETRIEVE ×1SYNCPOINT ×1ASKTIME ×1FORMATTIME ×1RETURN ×1
- Screens
- Returns to
CICS files
No file commands.
Paragraphs (13)
- 1000-CONTROL 18 stmts↳2100-OPEN-ERROR-QUEUE, 9000-ERROR, 8000-TERMINATION, 2300-OPEN-INPUT-QUEUE, 2400-OPEN-OUTPUT-QUEUE, 3000-GET-REQUEST, 4000-MAIN-PROCESS
- 2300-OPEN-INPUT-QUEUE 17 stmts↳9000-ERROR, 8000-TERMINATION
- 2400-OPEN-OUTPUT-QUEUE 17 stmts↳9000-ERROR, 8000-TERMINATION
- 2100-OPEN-ERROR-QUEUE 18 stmts↳8000-TERMINATION
- 4000-MAIN-PROCESS 2 stmts↳3000-GET-REQUEST
- 3000-GET-REQUEST 32 stmts↳4000-PROCESS-REQUEST-REPLY, 9000-ERROR, 8000-TERMINATION
- 4000-PROCESS-REQUEST-REPLY 6 stmts↳4100-PUT-REPLY
- 4100-PUT-REPLY 19 stmts↳9000-ERROR, 8000-TERMINATION
- 9000-ERROR 18 stmts↳8000-TERMINATION
- 8000-TERMINATION 8 stmts↳5000-CLOSE-INPUT-QUEUE, 5100-CLOSE-OUTPUT-QUEUE, 5200-CLOSE-ERROR-QUEUE
- 5000-CLOSE-INPUT-QUEUE 14 stmts↳8000-TERMINATION
- 5100-CLOSE-OUTPUT-QUEUE 14 stmts↳8000-TERMINATION
- 5200-CLOSE-ERROR-QUEUE 15 stmts↳9000-ERROR, 8000-TERMINATION
Copybooks (6)
CMQGMOV (system)CMQPMOV (system)CMQMDV (system)CMQODV (system)CMQV (system)CMQTML (system)