Online (CICS) program · MQ · 620 linesCOACCT01
How it is started
- Transactions
- CDRACRDDEMOM.csd:1 CDRACRDDEMOM.csd:17
- JCL steps
- none
- Called by
- no callers in workspace
What it calls
| CALL | MQOPEN | COACCT01.cbl:233–238 +2 |
| CALL | MQGET | COACCT01.cbl:352–360 |
| CALL | MQPUT | COACCT01.cbl:479–486 +1 |
| CALL | MQCLOSE | COACCT01.cbl:557–561 +2 |
CICS commands
RETRIEVE ×1SYNCPOINT ×1READ ×1RETURN ×1
- Screens
- Returns to
CICS files
| READ | ACCTDAT | AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS | COACCT01.cbl:396–404 |
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 32 stmts↳4100-PUT-REPLY, 9000-ERROR, 8000-TERMINATION
- 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 (7)
CMQGMOV (system)CMQPMOV (system)CMQMDV (system)CMQODV (system)CMQV (system)CMQTML (system)CVACT01Y