FMONTHP IF E DISK
FMONTHREPO E 10 PRINTER
*****************************************************************
*INDICATORS
*45 END OF FILE
************************************************************
E SALS 5 7 2 RUN TIME
E TOTL 5 8 2 RUNTIME
************************************************************
IMONTHREC
I SALSP1 SALS,1
I SALSP2 SALS,2
I SALSP3 SALS,3
I SALSP4 SALS,4
I SALSP5 SALS,5
************************************************************
C EXSR HEADER
C READ MONTHP 45
C *IN45 DOWEQ'0'
C XFOOTSALS TOTOT 82
C ADD SALS TOTL
C XFOOTTOTL WEKTOT
C EXSR MOVE
C WRITEDETAIL
C *IN10 IFEQ '1'
C EXSR HEADER
C SETOF 10
C ENDIF
C READ MONTHP 45
C ENDDO
C WRITETOTAL
C SETON LR
********************HEADER0
C HEADER BEGSR
C WRITEHEADR1
C WRITEHEADR2
C WRITECOLHD1
C WRITECOLHD2
C ENDSR
*********************MOVE
C MOVE BEGSR
C MOVE SALS,1 SALSP1
C MOVE SALS,2 SALSP2
C MOVE SALS,3 SALSP3
C MOVE SALS,4 SALSP4
C MOVE SALS,5 SALSP5
C MOVE TOTL,1 TOTAL1
C MOVE TOTL,2 TOTAL2
C MOVE TOTL,3 TOTAL3
C MOVE TOTL,4 TOTAL4
C MOVE TOTL,5 TOTAL5
C MOVE WEKTOT TOTOT
C ENDSR