* PROGRAM ID  :BOOKFINES2                                         
       * PROGRAM NAME:REPORT FOR BOOKFINES                               
       * PROGRAMMER  :MARTIN O 'SULLIVAN                                 
       * DATE        :23/03/1999                                         
       * INSTALLATION:LIT                                                
       ***************************************************************** 
      FBOOKS   IP  E                    DISK                             
      FQSYSPRT O   F     132     OF     PRINTER                          
       ***************************************************************** 
      IBKREC       01                                                    
      C                     ADD  AMOUNT    TOTAMT  52                    
      OQSYSPRT H 12     1P                                               
      O       OR        OF                                               
      O                         UDATE Y    8                             
      O                                   51 '*** FINES FOR OVERDUE'     
      O                                   61 ' BOOKS ***'                
      O                                   80 'PAGE'                      
      O                         PAGE  Z   85                             
      O        H  2     1P                                               
      O       OR        OF                                               
      O                                   17 'FINENO'                    
      O                                   42 'SURNAME'                   
      O                                   53 'INIT'                      
      O                                   64 'BRANCH'                    
      O                                   75 'FINEAMT'                   
      O        D  1     01                                               
      O                         FINNUM    17                             
      O                         SURNAM    52                             
      O                         INIT      53                             
      O                         BRANCH    64                             
      O                         AMOUNTJ   75                             
      O        T    3   LR                                               
      O       OR        OF                                               
      O                                   55 'TOTAL FINE       '         
      O                         TOTAMTJ   60                             




   Link back to cobol page