STRPDM.COM

     F* STORE SALES MASTER FILE
     FSALESMAST IF   E           K DISK
     F* KEYED BY CUSTOMER NUMBER
     F*
     F* REPORT OF TOTAL SALES TO EACH CUSTOMER
     FQPRINT    O    F  132        PRINTER
     F* SUMMARY REPORT
     C
     C*---------------------------------------------------------------*
     C* MAINLINE                                                      *
     C*---------------------------------------------------------------*
     C*
     C                   EXSR      $SR001
     C
     C*                  EXCEPT    TOTAL
     C                   MOVE      *ON           *INLR
     C                   RETURN
     C
     C*---------------------------------------------------------------*
     C* PROCESS SALESMAST                                             *
     C*---------------------------------------------------------------*
     C     $SR001        BEGSR
     C
     C*                  --------------------------------
     C*                  RETREIVE FIRST CUSTOMER NUMBER
     C*                  --------------------------------
     C     *LOVAL        SETLL     SALESMAST
     C                   READ      SALESMAST                              20
     C                   MOVE      CUST#         XCUST#           10
     C
     C                   DOW       *IN20 = *OFF
     C
     C*                  -----------------------------
     C*                  SUMMARIZE RECORDS FOR CUST#
     C*                  -----------------------------
     C                   EXSR      $SR002
     C
     C*                  ---------------------------------------
     C*                  PRINT CUST# WITH SUMMARY INFO ON REPORT
     C*                  ---------------------------------------
     C*                  EXCEPT    DETAIL
     C
     C*                  -----------------------------
     C*                  READ IN NEXT CUSTOMER NUMBER
     C*                  -----------------------------
     C                   READ      SALESMAST                              20
     C                   MOVE      CUST#         XCUST#           10
     C
     C                   ENDDO
     C
     C                   ENDSR
     C
     C*---------------------------------------------------------------*
     C* SUMMARIZE RECORDS                                             *
     C*---------------------------------------------------------------*
     C     $SR002        BEGSR
     C
     C                   Z-ADD     *ZEROS        TSALES           11 2
     C
     C*                  -----------------------------------
     C*                  READ ALL RECORDS FOR CUST# AND ADD
     C*                  TOGETHER ALL SALES TO THAT CUST#
     C*                  (EACH RECORD BEING A SALE)
     C*                  -----------------------------------
     C     XCUST#        SETLL     SALESMAST
     C     XCUST#        READE     SALESMAST                              30
     C                   DOW       *IN30 = *OFF
     C                   EVAL      TSALES = TSALES + PURCH$
     C     XCUST#        READE     SALESMAST                              30
     C                   ENDDO
     C
     C*                  -----------------------------------
     C*                  USE SETGT TO SET FILE TO NEXT CUST#
     C*                  -----------------------------------
     C     XCUST#        SETGT     SALESMAST
     C
     C                   ENDSR
     C
     C*---------------------------------------------------------------*
     C* INITIAL SETUP                                                 *
     C*---------------------------------------------------------------*
     C     *INZSR        BEGSR
     C
     C*                  EXCEPT    HEADER
     C
     C                   ENDSR
     C
     O*
     O*  REPORT SPECS
     O*     .
     O*     .
     O*     .