/* rexx */
"alloc f(inf) da('SMFEDIT.T991TRC') shr reu"
"alloc f(tbl) da('wlm.trace.data') shr reu"
"alloc f(out) da('smfedit.t991trc.j') sp(10 10) track unit(sysda)" ,
" vol(fc9ai3) reu recfm(v b) lrecl(1024) blksize(10244)"
"execio * diskr tbl (finis stem t."
 do cntr = 1 to t.0
   c.cntr = subword(t.cntr,1,1)
 end
 last = t.0 + 1
 c.last = "????"
 t.last = "????"
"execio * diskr inf (finis stem i."
 o.1 = i.1
 do cntr = 2 to i.0
   code = substr(i.cntr,70,4)
   cntr2 = 1
   if datatype(code) <> 'NUM' then
     cntr2 = last
   else
     do while code <> c.cntr2
       if cntr2 > t.0 then
         leave
       cntr2 = cntr2 + 1
     end
   o.cntr = left(i.cntr,74) subword(t.cntr2,3)
 end
"execio "i.0" diskw out (finis stem o."