/*rexx*/ x1=outtrap('stem1.') "lu *" CNT=1 do k=1 to stem1.0 buf=stem1.k parse var buf xv . if xv='NONE' then do buf1=k+2 buf2=stem1.buf1 parse var buf2 w1 . sub=SUBSTR(w1,6) /* say ".." sub */ stem02.CNT=sub CNT=CNT+1 end end say CNT buf3=stem1.1 parse var buf3 xx . sub1=substr(xx,6) say sub1 stem02.CNT=sub1
Good to hear it is working - thanks for posting your solution
Please notice that your rexx has been "Code"ed by using the bbCode tag (on the top of the reply panel). This makes your post more readable and preserves the alignment.