Online (CICS) program · IMS · MQ · 1,026 linesCOPAUA0C
How it is started
- Transactions
- CP00CRDDEMO2.csd:11 CP00CRDDEMO2.csd:59
- JCL steps
- none
- Called by
- no callers in workspace
What it calls
| CALL | MQOPEN | COPAUA0C.cbl:262–267 |
| CALL | MQGET | COPAUA0C.cbl:400–408 |
| CALL | MQPUT1 | COPAUA0C.cbl:758–765 |
| CALL | MQCLOSE | COPAUA0C.cbl:956–960 |
CICS commands
RETURN ×2RETRIEVE ×1SYNCPOINT ×1READ ×3ASKTIME ×2FORMATTIME ×2WRITEQ TD ×1
- Screens
- Returns to
CICS files
| READ | CCXREF | AWS.M2.CARDDEMO.CARDXREF.VSAM.KSDS | COPAUA0C.cbl:477–485 |
| READ | ACCTDAT | AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS | COPAUA0C.cbl:525–533 |
| READ | CUSTDAT | AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS | COPAUA0C.cbl:573–581 |
Paragraphs (43)
- MAIN-PARA 4 stmts↳1000-INITIALIZE, 2000-MAIN-PROCESS, 9000-TERMINATE
- 1000-INITIALIZE 7 stmts↳1100-OPEN-REQUEST-QUEUE, 3100-READ-REQUEST-MQ
- 1000-EXIT 1 stmts
- 1100-OPEN-REQUEST-QUEUE 15 stmts↳9500-LOG-ERROR
- 1100-EXIT 1 stmts
- 1200-SCHEDULE-PSB 14 stmts↳9500-LOG-ERROR
- 1200-EXIT 1 stmts
- 2000-MAIN-PROCESS 9 stmts↳2100-EXTRACT-REQUEST-MSG, 5000-PROCESS-AUTH, 3100-READ-REQUEST-MQ
- 2000-EXIT 1 stmts
- 2100-EXTRACT-REQUEST-MSG 3 stmts
- 2100-EXIT 1 stmts
- 3100-READ-REQUEST-MQ 22 stmts↳9500-LOG-ERROR
- 3100-EXIT 1 stmts
- 5000-PROCESS-AUTH 14 stmts↳1200-SCHEDULE-PSB, 5100-READ-XREF-RECORD, 5200-READ-ACCT-RECORD, 5300-READ-CUST-RECORD, 5500-READ-AUTH-SUMMRY, 5600-READ-PROFILE-DATA, 6000-MAKE-DECISION, 7100-SEND-RESPONSE, 8000-WRITE-AUTH-TO-DB
- 5000-EXIT 1 stmts
- 5100-READ-XREF-RECORD 25 stmts↳9500-LOG-ERROR
- 5100-EXIT 1 stmts
- 5200-READ-ACCT-RECORD 24 stmts↳9500-LOG-ERROR
- 5200-EXIT 1 stmts
- 5300-READ-CUST-RECORD 24 stmts↳9500-LOG-ERROR
- 5300-EXIT 1 stmts
- 5500-READ-AUTH-SUMMRY 16 stmts↳9500-LOG-ERROR
- 5500-EXIT 1 stmts
- 5600-READ-PROFILE-DATA 1 stmts
- 5600-EXIT 1 stmts
- 6000-MAKE-DECISION 42 stmts
- 6000-EXIT 1 stmts
- 7100-SEND-RESPONSE 24 stmts↳9500-LOG-ERROR
- 7100-EXIT 1 stmts
- 8000-WRITE-AUTH-TO-DB 2 stmts↳8400-UPDATE-SUMMARY, 8500-INSERT-AUTH
- 8000-EXIT 1 stmts
- 8400-UPDATE-SUMMARY 26 stmts↳9500-LOG-ERROR
- 8400-EXIT 1 stmts
- 8500-INSERT-AUTH 45 stmts↳9500-LOG-ERROR
- 8500-EXIT 1 stmts
- 9000-TERMINATE 3 stmts↳9100-CLOSE-REQUEST-QUEUE
- 9000-EXIT 1 stmts
- 9100-CLOSE-REQUEST-QUEUE 13 stmts↳9500-LOG-ERROR
- 9100-EXIT 1 stmts
- 9500-LOG-ERROR 9 stmts↳9990-END-ROUTINE
- 9500-EXIT 1 stmts
- 9990-END-ROUTINE 2 stmts↳9000-TERMINATE
- 9990-EXIT 1 stmts
Copybooks (16)
CMQODV (system)CMQMDV (system)CMQODV (system)CMQMDV (system)CMQV (system)CMQTML (system)CMQPMOV (system)CMQGMOV (system)CCPAURQYCCPAURLYCCPAUERYCIPAUSMYCIPAUDTYCVACT03YCVACT01YCVCUS01Y