Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/pim122.rpg
There is 1 other file named pim122.rpg in the archive. Click here to see a list.
  020FISFIN   IP  F 600  30 06AI     1 DISK   CH12                              
  030FPRINT   O         132     OF     PRINTER                                  
  010IISFIN   AA  01                                                            
  020I                                        1   5 PARTNO                      
  030I                                        6  25 DESC                        
  040I                                       26  300QTY                         
  010C   01      QTY       ADD  TOTQTY    TOTQTY  50                            
  010OPRINT   H  201   1P                                                       
  020O       OR        OF                                                       
  030O                         UDATE Y    9                                     
  040O                                   43 'PARTS MASTER FILE UPDATE'          
  050O                                   53 'PAGE'                              
  060O                         PAGE  Z   58                                     
  070O        H  1     1P                                                       
  080O       OR        OF                                                       
  090O                                    6 'PART'                              
  100O        H  2     1P                                                       
  110O       OR        OF                                                       
  120O                                    7 'NUMBER'                            
  130O                                   35 'DESCRIPTION'                       
  140O                                   57 'QTY'                               
  150O        D  1     01                                                       
  160O                         PARTNO     6                                     
  170O                         DESC      39                                     
  180O                         QTY   1   58                                     
  190O        T 2      LR                                                       
  200O                                   50 'TOTAL QUANTITY'                    
  210O                         TOTQTY    58