%let seed = 12345; 
       data 
          EMDATA.TRNJKSBE 
          EMDATA.VAL7A5XL 
       ; 
       drop _c00: ; 
       ; 
       set EMDATA.VIEW_5NN; 
          if (ranuni(12345) < 0.7 and _c000001 < 1401) then do; 
             _c000001 + 1; 
             output EMDATA.TRNJKSBE; 
          end; 
          else 
             if _c000002 < 600 then do; 
                _c000002 + 1; 
                output EMDATA.VAL7A5XL; 
             end; 
             else do; 
                _c000001 + 1; 
                output EMDATA.TRNJKSBE; 
             end; 
          run;