不知道楼主是否了解any的结构，我这里只能提个思路
//piw any
lar1 p##piwany
l w#16#1004 //按字传递
t lw[ar1,p#0.0]
l length //长度
t lw[ar1,p#2.0]
l 0
t lw[ar1,p#4.0]
l piwaddr //piw地址
l dw#16#80000000
od
t ld[ar1,p#6.0]
//db any
lar2 p##dbany
l w#16#1004
t lw[ar2,p#0.0]
l length
t lw[ar2,p#2.0]
l dbnr //db号
t lw[ar2,p#4.0]
l dbaddr //db起始地址
l dw#16#84000000
od
t ld[ar2,p#6.0]
call sfc21
bval :=piwany
ret_val :=error
blk :=dbany
楼主可以看看是否可行，起始我也只是起到一个穿针引线的作用，有什么问题还希望论坛高手指教
另外关于P区域自己之前也没用过，看了一下F1，80代表的是P区域，自己猜测是程序通过any的位置来判断是PI还是PQ的，比如可以写l piw0 但是不能写 t piw0;可以写t pqw0,但是不能写l pqw0.
个人的一点愚见，请大家指教。