The sample sysout provided below lists account information for a banking institution.
This rule definition calculates the sum of the deposit amount for all of the accounts. If the sum is greater than 1,000,000, balancing criteria have not been met, a remark is specified, prerequisite condition NOTOK-%%JOBNAME is added, and the rule is terminated with a NOTOK result.
Figure 294 Rule Definition Process Sample Report – Example 1
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9---
FOREIGN CURRENCY DEPOSITS AS OF: 05/05/99
ACCOUNT DEPT NAME CURR DEPOSIT-PERIOD INTEREST INTEREST DEPOSIT MATURITY
NUMBER NO. ENCY TO FROM RATE AMOUNT AMOUNT DATE
000100/34 507 MURPHY CHRISTOPHER US 04/26/99 03/26/99 6.3570 9.15 7654321.99 05/26/99
000102/34 505 BRADY GREG US 04/26/99 03/25/99 7.3520 338.78 55296.50 06/25/99
000107/34 509 LOHEN ROBERT US 04/27/99 03/24/99 7.2910 40.04 6590.50 05/24/99
000110/34 507 KLINGNER KATHLEEN US 04/27/99 03/26/99 8.1130 13.39 1980.20 05/27/99
000112/34 420 SCHNEIDER ROBERT US 04/22/99 03/22/99 6.9220 45.13 7823.50 04/21/99
000118/34 310 BARNES THOMAS US 04/20/99 03/19/99 7.1430 93.86 15768.30 06/20/99
000121/34 512 BROWN ELIZABETH US 04/27/99 03/26/99 7.3520 10.44 1703.50 05/27/99
000125/34 505 KOTCH DIANA US 04/26/99 03/26/99 7.2910 102.01 16789.40 05/26/99
000129/34 512 KIRSTY JEFF US 04/27/99 03/25/99 7.3520 87.59 14296.50 05/27/99
000134/34 401 LIGMAN LEONARD US 04/27/99 03/25/99 7.1430 54.09 9087.70 06/27/99
000138/34 401 JENNY MICHAEL US 04/26/99 03/26/99 7.2910 53.44 8795.70 06/26/99
000140/34 310 BLAU CAROL US 04/26/99 03/25/99 6.9220 30.38 5267.50 04/25/99
000142/34 509 MARKS ANDREW US 04/22/99 03/22/99 6.5240 48.58 8935.50 04/21/99
Figure 295 Rule Definition – Example 1
HEADER OWNER 'M18' CREATOR 'M18B' GROUP 'FOREIGN-CURR'
DATE '050599' TIME '153005'
DESC 'FOREIGN CURRENCY BALANCING'
/*
* EXAMINE THE SYSOUT ASSOCIATED WITH DDNAME SYSUT2, CREATED BY
* STEP STEP00/CTBREP IN THE CURRENT JOB.
* (THE SYSOUT CONTAINS THE REPORT LISTED ABOVE)
*/
EXECUTE 'INPUT'
ON_SYSOUT DD 'SYSUT2' PROC 'CTBREP' PGM 'STEP00'
/*
* PROCESS EACH LINE THAT HAS '/' IN POSITION 8
* (BUT ONLY LINES 6-60 OF EACH PAGE)
*/
WHEN FLINE +6 TLINE +60 FCOL +8 TCOL +9 SEARCH '/'
/*
* ACCUMULATE THE DATA IN COLUMNS 92-103 IN THE VARIABLE SUM
*/
DO EXTRACT 'SUM' LEVEL 0 LINE +0 FCOL +84 TCOL +95 TYPE SU
/*
* TAKE ACTIONS ACCORDING TO THE PREVIOUSLY COMPUTED SUM
*/
EXECUTE 'CHECK'
ON_DATA
ALWAYS
DO PRINT DATA 'TOTAL SUM IS : %%SUM'
IF 'SUM > 1000000.00'
DO SHOUT MSG 'PLEASE CHECK CURRENCY FILE; SUM COMPUTED IS %%SUM'
URGENCY 'R' DEST 'U-M18'
DO REMARK DATA 'SUM IS OVER 1000000: SUM=%%SUM'
DO COND 'NOTOK-%%SYSJOBNAME' ODATE '0505' ADD
DO TERMINATE RESULT NOTOK CODE 0055
ELSE
DO REMARK DATA 'SUM IS NOT OVER 1000000: SUM=%%SUM'
DO TERMINATE RESULT OK CODE 0000
Parent Topic |