*****************************************************************
* PROGRAM ID : PLANTS
* PROG NAME : PROGRAM TO PRINT PLANT RAW MATERIALS
* REPORT WITH CONTROL BREAKS (CODED)
* PROGRAMMER : MARTIN O'SULLIVAN
* DATE : NOVEMBER 1998
* INSTALLATION : LIMERICK INSTITUTE OF TECHNOLOGY
*****************************************************************
*** INDICATORS: 10 PAGE OVERFLOW
*** 45 END OF FILE
*****************************************************************
F***********************FILE SPEC*********************************
FDEPSALSPIF E DISK
FEXAM1997O E 10 PRINTER
************************E SPEC************************************
E SALS 5 6 2
E TOTL 5 7 2
E GTOL 5 8 2
************************I SPEC************************************
ISALREC
I SALES1 SALS,1
I SALES2 SALS,2
I SALES3 SALS,3
I SALES4 SALS,4
I SALES5 SALS,5
C***********************MAINLINE CODE*****************************
C *LIKE DEFN STRNUM TSTR#
C EXSR HDR
C READ SALREC 45
C *IN45 DOWEQ'0'
C MOVE STRNUM TSTR#
C SETON 66
C STRNUM DOWEQTSTR#
C *IN45 ANDEQ'0'
C EXSR TOTSR
C EXSR MOVE
C WRITEDETAIL
C SETOF 66
C EXSR PG
C READ SALREC 45
C ENDDO
C WRITESTRTOT
C ADD TOTL GTOL
C XFOOTGTOL GRNGRN
C EXSR MVGTOT
C ENDDO
C WRITEGHEADR
C WRITEGRNTOT
C SETON LR
C*****************************************************************
C* SUBROUTINE: PG
C* PURPOSE: POSSIBLE NEW PAGE
C*****************************************************************
C PG BEGSR
C *IN10 IFEQ '1'
C EXSR HDR
C SETOF 10
C ENDIF
C ENDSR
C*****************************************************************
C* SUBROUTINE: HDR
C* PURPOSE: HEADER LINES
C*****************************************************************
C HDR BEGSR
C WRITEHEADER
C WRITECOLHDG
C ENDSR
C*****************************************************************
C* SUBROUTINE: TOTSR
C* PURPOSE: CALCULATIONS
C*****************************************************************
C TOTSR BEGSR
C XFOOTSALS DAYTOT
C ADD SALS TOTL
C XFOOTTOTL STRTTL
C ENDSR
C*****************************************************************
C* SUBROUTINE: MOVE
C* PURPOSE: MOVE STORE TOTALS
C*****************************************************************
C MOVE BEGSR
C Z-ADDSALS,1 SALES1
C Z-ADDSALS,2 SALES2
C Z-ADDSALS,3 SALES3
C Z-ADDSALS,4 SALES4
C Z-ADDSALS,5 SALES5
C Z-ADDTOTL,1 DAY1
C Z-ADDTOTL,2 DAY2
C Z-ADDTOTL,3 DAY3
C Z-ADDTOTL,4 DAY4
C Z-ADDTOTL,5 DAY5
C ENDSR
C*****************************************************************
C* SUBROUTINE: MVGTOT
C* PURPOSE: MOVE GRAND TOTALS
C*****************************************************************
C MVGTOT BEGSR
C Z-ADDGTOL,1 GDTOT1
C Z-ADDGTOL,2 GDTOT2
C Z-ADDGTOL,3 GDTOT3
C Z-ADDGTOL,4 GDTOT4
C Z-ADDGTOL,5 GDTOT5
C ENDSR