Totals Processing Techniques › Obtaining Work Field Values › Demonstration

Demonstration

Objective

The Summary Report of Account Totals is repeated here to show the use of the work field AVERAGE.

Procedure

• AVERAGE is computed in type 8 logic.
• The computation results are stored in the work field AVERAGE.
• The current value of AVERAGE is printed by using a type 6 parameter reference.

Complete Code

col. 2
▼
IN 80 F 320 PS(TAPE)
REC BRANCH         1   3
REC CURRENT-BAL    4   8   2  DP=2
01OUT T
01SORT BRANCH,0
010 PRINT1  'BRANCH'
010 COUNT
010 AVERAGE DP=2               $Work field holding computation results
013 SUMMARY REPORT OF AVERAGE TRANSACTIONS
0141*001 ' '
0151*010   CURRENT-BAL
01610020   PRINT1
01610027   BRANCH
01610031   'TOTAL BALANCE'
01610045   CURRENT-BAL SZ=11
016200310  'TOTAL BALANCE'
01620045   CURRENT-BAL SZ=11
016300260  'AVERAGE PER BRANCH'
01630045   AVERAGE SZ=11             $Print the value of the work field
018        IF LEVL EQ 2  200
018        COUNT + 1  COUNT
018        TAKE 1
018200     CURRENT-BAL / COUNT AVERAGE $Compute the work field value
018        TAKE (2 3)

Result

REPORT NO. 01      SUMMARY REPORT OF AVERAGE TRANSACTIONS    mm/dd/yy PAGE     1

                    BRANCH 001 TOTAL BALANCE     999,999.99

                    BRANCH 010 TOTAL BALANCE   1,358,349.11

                    BRANCH 011 TOTAL BALANCE     345,678.90

                    BRANCH 020 TOTAL BALANCE     345,575.18

                               TOTAL BALANCE   3,049,603.18

                          AVERAGE PER BRANCH     762,400.80