试一下这个行不行(temp1,temp2为ANY类型):
LAR1 P##temp1
L B#16#10
T LB [AR1,P#0.0]
L B#16#4
T LB [AR1,P#1.0]
L 100
T LW [AR1,P#2.0]
L MW 100
T LW [AR1,P#4.0]
OPN DB [MW 100]
L P#DBX 0.0
T LD [AR1,P#6.0]

LAR1 P##temp2
L B#16#10
T LB [AR1,P#0.0]
L B#16#4
T LB [AR1,P#1.0]
L 100
T LW [AR1,P#2.0]
L 99
T LW [AR1,P#4.0]
OPN DB 99
L P#DBX 0.0
T LD [AR1,P#6.0]
CALL SFC 20
SRCBLK :=#temp1
RET_VAL:=MW200
DSTBLK :=#temp2