Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/p702.rpg
There is 1 other file named p702.rpg in the archive. Click here to see a list.
     H
     F*   PROBLEM:   CASHMAN  7-2                                               
     FITEMCDS IP  F      80            DISK   DAT702                            
     F                                              KASCII
     FSCHEDUL O   F     132     OF     PRINTERSYSLPT                            
     IITEMCDS AA  01                                                            
     I                                       01  05 ITEM  L1                    
     I                                       06  20 DESCR                       
     I                                       21  260DATE                        
     I                                       21  240MONTH                       
     I                                       25  260YEAR                        
     I                                       27  332COST                        
     I                                       34  350LIFE                        
     C           COST      DIV  LIFE      DEVAL   72                            
     C                     MOVE COST      YEVAL   72                            
     C                     MOVELMONTH     YEDATE  60                            
     C                     MOVE LIFE      ESTLFE  20                            
     C           LOOP      TAG                                                  
     C           1         ADD  YEAR      YEAR                                  
     C                     MOVE YEAR      YEDATE                                
     C           YEVAL     SUB  DEVAL     YEVAL                                 
     C                     EXCPT                                                
     C   20                SETOF                     2075                       
     C   OF                SETON                     20                         
     C                     SETOF                     L1                         
     C           LIFE      SUB  1         LIFE                                  
     C           LIFE      COMP 0                        10                     
     C  N10                GOTO LOOP                                            
     C   10                SETON                     7520                       
     OSCHEDUL H  201   1P                                                       
     O       OR        OF                                                       
     O       OR        75
     O                         UDATE Y   08                                     
     O                                   50 'SCHEDULE  OF'                      
     O                                   64 'DEPRECIATION'                      
     O                                   96 'PAGE'                              
     O                         PAGE  Z  101                                     
     O        H  1     1P                                                       
     O       OR        OF                                                       
     O       OR        75
     O                                   05 'ITEM'                              
     O                                   22 'ITEM'                              
     O                                   36 'DATE'                              
     O                                   50 'ORIGINAL'                          
     O                                   62 'ESTIMATED'                         
     O                                   73 'ANNUAL'                            
     O                                   87 'YEAR-END'                          
     O                                  101 'DEPRECIATED'                       
     O        H  2     1P                                                       
     O       OR        OF                                                       
     O       OR        75
     O                                   06 'NUMBER'                            
     O                                   25 'DESCRIPTION'                       
     O                                   38 'ACQUIRED'                          
     O                                   48 'COST'                              
     O                                   59 'LIFE'                              
     O                                   76 'DEPRECIATION'                      
     O                                   85 'DATE'                              
     O                                   98 'VALUE'                             
     O                 OF               120 'OF'                                
     O                 20               110 '20'                                
     O                 75               130 '75'
     O        EF 1     01                                                       
     O                 20               110 '20'                                
     O                 OF               120 'OF'                                
     O                 75               130 '75'
     O                 L1      ITEM      06                                     
     O                 L1      DESCR     27                                     
     O                 L1      DATE  Y   38                                     
     O                 L1      COST  1   50                                     
     O                 L1      ESTLFE    58                                     
     O                 L1      DEVAL 1   75                                     
     O                 OF      ITEM      06                                     
     O                 OF      DESCR     27                                     
     O                 OF      DATE  Y   38                                     
     O                 OF      COST  1   50                                     
     O                 OF      ESTLFE    58                                     
     O                 OF      DEVAL 1   75                                     
     O                         YEDATEY   87                                     
     O                         YEVAL 1  100                                     
     O*    END OF  INSTRUCTIONS