* 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 FOR PAGE OVERFLOW
*** 45 FOR END OF FILE
***************************************************************
F***********************FILE SPEC*******************************
FPLANTP IF E DISK
FPLANTREPO E 10 PRINTER
C***********************MAINLINE CODE***************************
****************************************************************
* MAIN CODE
****************************************************************
C *LIKE DEFN DEPT# HDEPT
C *LIKE DEFN SECT# HSECT
C EXSR HEADER
C READ PLANTP 45
C *IN45 DOWEQ'0'
C MOVE DEPT# HDEPT
C EXSR INIT
C DEPT# DOWEQHDEPT
C *IN45 ANDEQ'0'
C MOVE SECT# HSECT
C SECT# DOWEQHSECT
C *IN45 ANDEQ'0'
C EXSR CALC
C WRITEDETAIL
C *IN10 IFEQ '1'
C EXSR HEADER
C SETON 10
C ENDIF
C READ PLANTP 45
C ENDDO
C WRITESTOTAL
C Z-ADD0 SECTTL 112
C ENDDO
C WRITEDTOTAL
C Z-ADD0 DEPTTL 122
C ENDDO
C WRITEPTOTAL
C SETON LR
************************************************************
C HEADER BEGSR
C WRITEHEADER2
C WRITECOLHDG
C ENDSR
************************************************************
C INIT BEGSR
C Z-ADD0 SECTTL
C Z-ADD0 DEPTTL
C ENDSR
************************************************************
C CALC BEGSR
C USED MULT COST TOTCST 92
C ADD TOTCST SECTTL
C ADD TOTCST DEPTTL
C ADD TOTCST PLTOT
C ENDSR