Business rules · 14 guarded actionsCOPAUS2C

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.

8 rules

MAIN-PARA

When	Then	At
always	calc COMPUTE WS-AUTH-TIME = 999999999 - PA-AUTH-TIME-9C	COPAUS2C.cbl:107
SQLCODE = ZERO	SET WS-FRD-UPDT-SUCCESS TO TRUE	COPAUS2C.cbl:200
SQLCODE = ZERO	MOVE 'ADD SUCCESS' TO WS-FRD-ACT-MSG	COPAUS2C.cbl:201
NOT (SQLCODE = ZERO) SQLCODE = -803	PERFORM FRAUD-UPDATE	COPAUS2C.cbl:204
NOT (SQLCODE = ZERO) NOT (SQLCODE = -803)	SET WS-FRD-UPDT-FAILED TO TRUE	COPAUS2C.cbl:206
NOT (SQLCODE = ZERO) NOT (SQLCODE = -803)	MOVE SQLCODE TO WS-SQLCODE	COPAUS2C.cbl:208
NOT (SQLCODE = ZERO) NOT (SQLCODE = -803)	MOVE SQLSTATE TO WS-SQLSTATE	COPAUS2C.cbl:209
NOT (SQLCODE = ZERO) NOT (SQLCODE = -803)	STRING ' SYSTEM ERROR DB2: CODE:' WS-SQLCODE ', STATE: ' WS-SQLSTATE DELIMITED BY SIZE INTO WS-FRD-ACT-MSG	COPAUS2C.cbl:211–213

6 rules

FRAUD-UPDATE

When	Then	At
SQLCODE = ZERO	SET WS-FRD-UPDT-SUCCESS TO TRUE	COPAUS2C.cbl:231
SQLCODE = ZERO	MOVE 'UPDT SUCCESS' TO WS-FRD-ACT-MSG	COPAUS2C.cbl:232
NOT (SQLCODE = ZERO)	SET WS-FRD-UPDT-FAILED TO TRUE	COPAUS2C.cbl:234
NOT (SQLCODE = ZERO)	MOVE SQLCODE TO WS-SQLCODE	COPAUS2C.cbl:236
NOT (SQLCODE = ZERO)	MOVE SQLSTATE TO WS-SQLSTATE	COPAUS2C.cbl:237
NOT (SQLCODE = ZERO)	STRING ' UPDT ERROR DB2: CODE:' WS-SQLCODE ', STATE: ' WS-SQLSTATE DELIMITED BY SIZE INTO WS-FRD-ACT-MSG	COPAUS2C.cbl:239–241