MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 135 guarded actionsCOACCT01

Each row is an action and the full chain of conditions that must hold for it to run, recovered from nested IF / EVALUATE / PERFORM UNTIL scopes. Name the rule; the evidence is already attached.

88 levels

Condition names used

REPLY-QUEUE-OPENmeans WS-REPLY-QUEUE-STS = 'Y'COACCT01.cbl:23
RESP-QUEUE-OPENmeans WS-RESP-QUEUE-STS = 'Y'COACCT01.cbl:17
ERR-QUEUE-OPENmeans WS-ERR-QUEUE-STS = 'Y'COACCT01.cbl:20
8 rules

1000-CONTROL

WhenThenAt
  1. WS-CICS-RESP1-CD = DFHRESP(NORMAL)
 MOVE MQTM-QNAME TO INPUT-QUEUE-NAMECOACCT01.cbl:197
  1. WS-CICS-RESP1-CD = DFHRESP(NORMAL)
 MOVE 'CARD.DEMO.REPLY.ACCT' TO REPLY-QUEUE-NAMECOACCT01.cbl:198
  1. NOT (WS-CICS-RESP1-CD = DFHRESP(NORMAL))
 MOVE 'CICS RETREIVE' TO MQ-ERROR-PARACOACCT01.cbl:200
  1. NOT (WS-CICS-RESP1-CD = DFHRESP(NORMAL))
 MOVE WS-CICS-RESP1-CD TO WS-CICS-RESP1-CD-DCOACCT01.cbl:201
  1. NOT (WS-CICS-RESP1-CD = DFHRESP(NORMAL))
 MOVE WS-CICS-RESP2-CD TO WS-CICS-RESP2-CDCOACCT01.cbl:202
  1. NOT (WS-CICS-RESP1-CD = DFHRESP(NORMAL))
 STRING 'RESP: ' WS-CICS-RESP1-CD-D WS-CICS-RESP2-CD-D 'END' DELIMITED BY SIZE INTO MQ-APPL-RETURN-MESSAGECOACCT01.cbl:203–205
  1. NOT (WS-CICS-RESP1-CD = DFHRESP(NORMAL))
 PERFORM 9000-ERRORCOACCT01.cbl:208
  1. NOT (WS-CICS-RESP1-CD = DFHRESP(NORMAL))
 PERFORM 8000-TERMINATIONCOACCT01.cbl:209
11 rules

2300-OPEN-INPUT-QUEUE

WhenThenAt
alwayscalc COMPUTE MQ-OPTIONS = MQOO-INPUT-SHARED + MQOO-SAVE-ALL-CONTEXT + MQOO-FAIL-IF-QUIESCINGCOACCT01.cbl:229–231
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:242
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:243
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-HOBJ TO INPUT-QUEUE-HANDLECOACCT01.cbl:244
  1. MQ-CONDITION-CODE = MQCC-OK
 SET REPLY-QUEUE-OPEN TO TRUECOACCT01.cbl:245
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:247
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:248
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE INPUT-QUEUE-NAME TO MQ-APPL-QUEUE-NAMECOACCT01.cbl:249
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE 'INP MQOPEN ERR' TO MQ-APPL-RETURN-MESSAGECOACCT01.cbl:250
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 9000-ERRORCOACCT01.cbl:251
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 8000-TERMINATIONCOACCT01.cbl:252
11 rules

2400-OPEN-OUTPUT-QUEUE

WhenThenAt
alwayscalc COMPUTE MQ-OPTIONS = MQOO-OUTPUT + MQOO-PASS-ALL-CONTEXT + MQOO-FAIL-IF-QUIESCINGCOACCT01.cbl:263–265
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:276
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:277
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-HOBJ TO OUTPUT-QUEUE-HANDLECOACCT01.cbl:278
  1. MQ-CONDITION-CODE = MQCC-OK
 SET RESP-QUEUE-OPEN TO TRUECOACCT01.cbl:279
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:281
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:282
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE REPLY-QUEUE-NAME TO MQ-APPL-QUEUE-NAMECOACCT01.cbl:283
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE 'OUT MQOPEN ERR' TO MQ-APPL-RETURN-MESSAGECOACCT01.cbl:284
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 9000-ERRORCOACCT01.cbl:285
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 8000-TERMINATIONCOACCT01.cbl:286
12 rules

2100-OPEN-ERROR-QUEUE

WhenThenAt
always MOVE 'CARD.DEMO.ERROR' TO ERROR-QUEUE-NAMECOACCT01.cbl:294
alwayscalc COMPUTE MQ-OPTIONS = MQOO-OUTPUT + MQOO-PASS-ALL-CONTEXT + MQOO-FAIL-IF-QUIESCINGCOACCT01.cbl:298–300
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:311
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:312
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-HOBJ TO ERROR-QUEUE-HANDLECOACCT01.cbl:313
  1. MQ-CONDITION-CODE = MQCC-OK
 SET ERR-QUEUE-OPEN TO TRUECOACCT01.cbl:314
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:316
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:317
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE ERROR-QUEUE-NAME TO MQ-APPL-QUEUE-NAMECOACCT01.cbl:318
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE 'ERR MQOPEN ERR' TO MQ-APPL-RETURN-MESSAGECOACCT01.cbl:319
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 DISPLAY MQ-ERR-DISPLAYCOACCT01.cbl:320
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 8000-TERMINATIONCOACCT01.cbl:321
20 rules

3000-GET-REQUEST

WhenThenAt
alwayscalc COMPUTE MQGMO-OPTIONS = MQGMO-SYNCPOINT + MQGMO-FAIL-IF-QUIESCING + MQGMO-CONVERT + MQGMO-WAITCOACCT01.cbl:347–350
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQMD-MSGID TO MQ-MSG-IDCOACCT01.cbl:364
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQMD-CORRELID TO MQ-CORRELIDCOACCT01.cbl:365
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQMD-REPLYTOQ TO MQ-QUEUE-REPLYCOACCT01.cbl:366
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:367
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:368
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-BUFFER TO REQUEST-MESSAGECOACCT01.cbl:369
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-CORRELID TO SAVE-CORELIDCOACCT01.cbl:370
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-QUEUE-REPLY TO SAVE-REPLY2QCOACCT01.cbl:371
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-MSG-ID TO SAVE-MSGIDCOACCT01.cbl:372
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE REQUEST-MESSAGE TO REQUEST-MSG-COPYCOACCT01.cbl:373
  1. MQ-CONDITION-CODE = MQCC-OK
 PERFORM 4000-PROCESS-REQUEST-REPLYCOACCT01.cbl:374
  1. MQ-CONDITION-CODE = MQCC-OK
calc ADD 1 TO MQ-MSG-COUNTCOACCT01.cbl:375
  1. NOT (MQ-CONDITION-CODE = MQCC-OK)
  2. MQ-REASON-CODE = MQRC-NO-MSG-AVAILABLE
 SET NO-MORE-MSGS TO TRUECOACCT01.cbl:378
  1. NOT (MQ-CONDITION-CODE = MQCC-OK)
  2. NOT (MQ-REASON-CODE = MQRC-NO-MSG-AVAILABLE)
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:381
  1. NOT (MQ-CONDITION-CODE = MQCC-OK)
  2. NOT (MQ-REASON-CODE = MQRC-NO-MSG-AVAILABLE)
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:382
  1. NOT (MQ-CONDITION-CODE = MQCC-OK)
  2. NOT (MQ-REASON-CODE = MQRC-NO-MSG-AVAILABLE)
 MOVE INPUT-QUEUE-NAME TO MQ-APPL-QUEUE-NAMECOACCT01.cbl:383
  1. NOT (MQ-CONDITION-CODE = MQCC-OK)
  2. NOT (MQ-REASON-CODE = MQRC-NO-MSG-AVAILABLE)
 MOVE 'INP MQGET ERR:' TO MQ-APPL-RETURN-MESSAGECOACCT01.cbl:384
  1. NOT (MQ-CONDITION-CODE = MQCC-OK)
  2. NOT (MQ-REASON-CODE = MQRC-NO-MSG-AVAILABLE)
 PERFORM 9000-ERRORCOACCT01.cbl:385
  1. NOT (MQ-CONDITION-CODE = MQCC-OK)
  2. NOT (MQ-REASON-CODE = MQRC-NO-MSG-AVAILABLE)
 PERFORM 8000-TERMINATIONCOACCT01.cbl:386
25 rules

4000-PROCESS-REQUEST-REPLY

WhenThenAt
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
 MOVE WS-KEY TO WS-CARD-RID-ACCT-IDCOACCT01.cbl:394
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
 EXEC CICS READ DATASET (LIT-ACCTFILENAME) RIDFLD (WS-CARD-RID-ACCT-ID-X) KEYLENGTH (LENGTH OF WS-CARD-RID-ACCT-ID-X) INTO (ACCOUNT-RECORD) LENGTH (LENGTH OF ACCOUNT-RECORD) RESP (WS-RESP-CD) RESP2 (WS-REAS-CD) END-EXECCOACCT01.cbl:396–404
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE ACCT-ID TO WS-ACCT-IDCOACCT01.cbl:408
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE ACCT-ACTIVE-STATUS TO WS-ACCT-ACTIVE-STATUSCOACCT01.cbl:409–410
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE ACCT-CURR-BAL TO WS-ACCT-CURR-BALCOACCT01.cbl:411
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE ACCT-CREDIT-LIMIT TO WS-ACCT-CREDIT-LIMITCOACCT01.cbl:412–413
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE ACCT-CASH-CREDIT-LIMIT TO WS-ACCT-CASH-CREDIT-LIMITCOACCT01.cbl:414–415
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE ACCT-OPEN-DATE TO WS-ACCT-OPEN-DATECOACCT01.cbl:416
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE ACCT-EXPIRAION-DATE TO WS-ACCT-EXPIRAION-DATECOACCT01.cbl:417–418
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE ACCT-REISSUE-DATE TO WS-ACCT-REISSUE-DATECOACCT01.cbl:419–420
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE ACCT-CURR-CYC-CREDIT TO WS-ACCT-CURR-CYC-CREDITCOACCT01.cbl:421–422
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE ACCT-CURR-CYC-DEBIT TO WS-ACCT-CURR-CYC-DEBITCOACCT01.cbl:423–424
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE ACCT-GROUP-ID TO WS-ACCT-GROUP-IDCOACCT01.cbl:425
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE WS-ACCT-RESPONSE TO REPLY-MESSAGECOACCT01.cbl:426
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NORMAL)
 PERFORM 4100-PUT-REPLYCOACCT01.cbl:427
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NOTFND)
 STRING 'INVALID REQUEST PARAMETERS ' 'ACCT ID : 'WS-KEY DELIMITED BY SIZE INTO REPLY-MESSAGECOACCT01.cbl:429–433
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD = DFHRESP(NOTFND)
 PERFORM 4100-PUT-REPLYCOACCT01.cbl:435
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO MQ-APPL-CONDITION-CODECOACCT01.cbl:439
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO MQ-APPL-REASON-CODECOACCT01.cbl:440
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE INPUT-QUEUE-NAME TO MQ-APPL-QUEUE-NAMECOACCT01.cbl:441
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'ERROR WHILE READING ACCTFILE' TO MQ-APPL-RETURN-MESSAGECOACCT01.cbl:442–443
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 PERFORM 9000-ERRORCOACCT01.cbl:444
  1. WS-FUNC = 'INQA' AND WS-KEY > ZEROES
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 PERFORM 8000-TERMINATIONCOACCT01.cbl:445
  1. NOT (WS-FUNC = 'INQA' AND WS-KEY > ZEROES)
 STRING 'INVALID REQUEST PARAMETERS ' 'ACCT ID : 'WS-KEY 'FUNCTION : 'WS-FUNC DELIMITED BY SIZE INTO REPLY-MESSAGECOACCT01.cbl:449–454
  1. NOT (WS-FUNC = 'INQA' AND WS-KEY > ZEROES)
 PERFORM 4100-PUT-REPLYCOACCT01.cbl:456
10 rules

4100-PUT-REPLY

WhenThenAt
alwayscalc COMPUTE MQMD-CODEDCHARSETID = MQCCSI-Q-MGRCOACCT01.cbl:473
alwayscalc COMPUTE MQPMO-OPTIONS = MQPMO-SYNCPOINT + MQPMO-DEFAULT-CONTEXT + MQPMO-FAIL-IF-QUIESCINGCOACCT01.cbl:475–477
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:490
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:491
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:493
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:494
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE REPLY-QUEUE-NAME TO MQ-APPL-QUEUE-NAMECOACCT01.cbl:495
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE 'MQPUT ERR' TO MQ-APPL-RETURN-MESSAGECOACCT01.cbl:496
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 9000-ERRORCOACCT01.cbl:497
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 8000-TERMINATIONCOACCT01.cbl:498
10 rules

9000-ERROR

WhenThenAt
alwayscalc COMPUTE MQMD-CODEDCHARSETID = MQCCSI-Q-MGRCOACCT01.cbl:510
alwayscalc COMPUTE MQPMO-OPTIONS = MQPMO-SYNCPOINT + MQPMO-DEFAULT-CONTEXT + MQPMO-FAIL-IF-QUIESCINGCOACCT01.cbl:512–514
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:527
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:528
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:530
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:531
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE ERROR-QUEUE-NAME TO MQ-APPL-QUEUE-NAMECOACCT01.cbl:532
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE 'MQPUT ERR' TO MQ-APPL-RETURN-MESSAGECOACCT01.cbl:533
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 DISPLAY MQ-ERR-DISPLAYCOACCT01.cbl:534
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 8000-TERMINATIONCOACCT01.cbl:535
3 rules

8000-TERMINATION

WhenThenAt
  1. REPLY-QUEUE-OPEN
 PERFORM 5000-CLOSE-INPUT-QUEUECOACCT01.cbl:541
  1. RESP-QUEUE-OPEN
 PERFORM 5100-CLOSE-OUTPUT-QUEUECOACCT01.cbl:544
  1. ERR-QUEUE-OPEN
 PERFORM 5200-CLOSE-ERROR-QUEUECOACCT01.cbl:547
8 rules

5000-CLOSE-INPUT-QUEUE

WhenThenAt
alwayscalc COMPUTE MQ-OPTIONS = MQCO-NONECOACCT01.cbl:555
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:565
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:566
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:568
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:569
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE INPUT-QUEUE-NAME TO MQ-APPL-QUEUE-NAMECOACCT01.cbl:570
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE 'MQCLOSE ERR' TO MQ-APPL-RETURN-MESSAGECOACCT01.cbl:571
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 8000-TERMINATIONCOACCT01.cbl:572
8 rules

5100-CLOSE-OUTPUT-QUEUE

WhenThenAt
alwayscalc COMPUTE MQ-OPTIONS = MQCO-NONECOACCT01.cbl:577
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:587
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:588
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:590
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:591
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE INPUT-QUEUE-NAME TO MQ-APPL-QUEUE-NAMECOACCT01.cbl:592
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE 'MQCLOSE ERR' TO MQ-APPL-RETURN-MESSAGECOACCT01.cbl:593
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 8000-TERMINATIONCOACCT01.cbl:594
9 rules

5200-CLOSE-ERROR-QUEUE

WhenThenAt
alwayscalc COMPUTE MQ-OPTIONS = MQCO-NONECOACCT01.cbl:600
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:610
  1. MQ-CONDITION-CODE = MQCC-OK
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:611
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-CONDITION-CODE TO MQ-APPL-CONDITION-CODECOACCT01.cbl:613
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE MQ-REASON-CODE TO MQ-APPL-REASON-CODECOACCT01.cbl:614
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE ERROR-QUEUE-NAME TO MQ-APPL-QUEUE-NAMECOACCT01.cbl:615
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 MOVE 'MQCLOSE ERR' TO MQ-APPL-RETURN-MESSAGECOACCT01.cbl:616
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 9000-ERRORCOACCT01.cbl:617
  1. MQ-CONDITION-CODE is none of [MQCC-OK]
 PERFORM 8000-TERMINATIONCOACCT01.cbl:618