procedure public_pro_01
  parameters a,b
  dimension stn(b)
       for i=1 to b step 1            
       at1=at(",",a,i)
       at2=at(",",a,i+1)
       if at2=0
         exit  
       endif
       m=at1+1
       n=at2-at1-1      
       stn(i)=substr(a,m,n)
       ?stn(i)  &如何返回这个数组
       endfor            
endproc

调用

do public_pro_01 with “,xxlrlsb,biao2,biao3,",2

下面是一些语句，要用到stn这个数组。