* PROGRAM ID : RESERVE
* PROG NAME : PROGRAM TO PRINT MISSING / OVER DUE RE
* PROGRAMMER : MARTIN O'SULLIVAN
* DATE : MARCH 1999
* INSTALLATION : LIMERICK INSTITUTE OF TECHNOLOGY
***********************************************************
*** INDICATORS: 10 PAGE OVERFLOW
F***********************FILE SPEC***************************
FV1L01 IF E K DISK
FV2L03 IF E K DISK
FV3L03 IF E K DISK
FV04 IF E DISK
FMISSING O E 10 PRINTER
F***********************FILE SPEC***************************
C EXSR DATE
C EXSR HDR
C READ LONREC 45
C *IN45 DOWEQ'0'
C TODAY IFGT NDATE
C MEMNUM CHAINMEMREC 99
C *IN99 IFEQ '0'
C TCCODE CHAINTPREC 98
C *IN98 IFEQ '0'
C TTCODE CHAINTAPEREC 97
C *IN97 IFEQ '0'
C WRITEDETAIL
C ENDIF
C ENDIF
C ENDIF
C ENDIF
C READ LONREC 45
C ENDDO
C EXSR FOOTER
C MOVE '1' *INLR
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: FOOT
C* PURPOSE: WRITE FOOTING LINES
C***********************************************************
C FOOTER BEGSR
C WRITEFOOT
C ENDSR
C***********************************************************
C* SUBROUTINE: DATE
C* PURPOSE: DO DATE STUFF
C***********************************************************
C DATE BEGSR
C MOVE DATEE YY 20
C MOVELDATEE DD 20
C MOVELDATEE DDMM 40
C MOVE DDMM MM 20
C MOVELYY NDATE 20
C MOVELMM TEMP 40
C MOVE DD TEMP
C MOVE TEMP NDATE
C MOVE UDATE TODAY 60
C ENDSR