Example 1

The sample sysout provided below lists account information for a banking institution.

• Header information is listed in lines 1 through 5. Account information is listed in lines 6 through 60.
• Each account number has a ‘/’ in column 8. This slash is used by the rule definition to determine if the current line of the sysout contains information about a specific account. The deposit amount of each account is specified in positions 92 through 103.

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