%let seed = 12345;                                                      
      data                                                                    
         EMDATA.TRNFIAQO                                                      
         EMDATA.VALID814                                                      
      ;                                                                       
      drop _c00:                                                              
      ;                                                                       
      set EMDATA.VIEW_OUE;                                                    
         if (5960 +1-_n_)*ranuni(12345) <= (2980 - _c000001) then do;         
            _c000001 + 1;                                                     
            output EMDATA.TRNFIAQO;                                           
          end;                                                                
          else do;                                                            
             _c000002 + 1;                                                    
             output EMDATA.VALID814;                                          
          end;                                                                
          run;