Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/noprin.rpg
There is 1 other file named noprin.rpg in the archive. Click here to see a list.
01010H                                                                    NOPRIN
01040FPROCD   IP  F00800080           EDISK   NOPDAT                      NOPRIN
01045F                                              KASCII                NOPRIN
01050FINLIST  O   F01320132     OF     PRINTER                            NOPRIN
02010E                    AR1   0010005005 0AAR1D  020                    NOPRIN
02020E                    AR2     4   4  5 0AAR2U    4 2                        
03010IPROCD   AA  01                                                            
03020I                                        1   50PRODNO                      
03030I                                        6   80QUAN                        
04010C                     Z-ADD1         I       20                            
04020C           PRODNO    LOKUPAR1,I                    20                     
04030C                     Z-ADD1         T       20                            
04040C           PRODNO    LOKUPAR2,T                    21                     
04050C   21      QUAN      MULT AR2U,T    AMT     72                            
05010OINLIST  H  201   1P                                                       
05020O       OR        OF                                                       
02030O                         UDATE     18 '  /  /  '                          
05040O                                   47 'INVENTORY PARTS LIST'              
05050O                         PAGE      65 '  0 '                              
05060O        H  1     1P                                                       
05070O       OR        OF                                                       
05080O                                   32 'PRODUCT        PRODUCT'            
05090O                                   53 'UNIT'                              
05100O        H  2     1P                                                       
05110O       OR        OF                                                       
05130O                                   17 'NUMBER'                            
05130O                                   45 'DESCRIPTION        QTY'            
05140O                                   64 'PRICE     AMOUNT'                  
06010O        D  1     01                                                       
06020O                         PRODNO    16 '    0'                             
06030O                 20      AR1D,I    39                                     
06040O                N20                39 '***NO DESCRIPTION***'              
06045O                 21      AR2U,T    53 ' 0.  '
06050O                         QUAN      45 ' 0 '                               
06070O                N21                53 '*NONE'                             
06080O                 21      AMT       65 '  ,  0.  '                         
06090O        T 1      LR                                                       
06100O                                   27 'END OF PRICE LIST'                 
06110O        T 2      LR                                                       
06120O                                   32 'PROGRAMMED BY JOYCE T.'            
**
17526BOLT
18171SCREW
19226NAIL
25116NUT
29258MAGNESIUM COVER
** 
175260126181710059192260173292585843
/*