Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/brunt.rpg
There is 1 other file named brunt.rpg in the archive. Click here to see a list.
     H                                                                          
     FARRAY1  IT  F      80           EDISK   BRTAR1                            
     F                                              KASCII
     FARRAY2  IT  F      80           EDISK   BRTAR2                           
     F                                              KASCII
     FCARDIN  IP  F      80            DISK   BRTDAT                                  
     F                                              KASCII
     FLISTING O   F     132     OF     PRINTER                                  
     E    ARRAY1          AR1     1   5  5 0AAR1D   20                          
     E    ARRAY2          AR2     1   4  5 0AARU     4 2                        
     ICARDIN  NS  01                                                            
     I                                        1   50PRODNO                      
     I                                        6   80QTY                         
     C                     Z-ADD1         I       20                            
     C           PRODNO    LOKUPAR1,I                    50                     
     C   50                Z-ADD1         IN      20                            
     C           PRODNO    LOKUPAR2,IN                   40                     
     C   40      QTY       MULT ARU,IN    AMOUNT  72                            
     OLISTING H  2     1P                                                       
     O       OR        OF                                                       
     O                         UDATE Y    8                                     
     O                                   37 'INVENTORY PARTS LIST'              
     O                                   50 'PAGE'                              
     O                         PAGE  Z   55                                     
     O        H  1     1P                                                       
     O       OR        OF                                                       
     O                                   22 'PRODUCT        PRODUCT'            
     O                                   43 'UNIT'                              
     O        H  2     1P                                                       
     O       OR        OF                                                       
     O                                   24 'NUMBER      DESCRIPTION'           
     O                                   54 'QTY   PRICE     AMOUNT'            
     O        D  1     01                                                       
     O                         PRODNO     6                                     
     O                 50      AR1D,I    29                                     
     O                N50                29 '***NO DESCRIPTION***'              
     O                         QTY   Z   35                                     
     O                 40      ARU,IN1   43                                     
     O                N40                43 '*NONE'                             
     O                 40      AMOUNT1   54                                     
     O        T 2      LR                                                       
     O                                   17 'END OF PRICE LIST'