程序：
l p##in0
lar1
l w [ar1,p#2.0]
t #length
l w [ar1,p#4.0]
t #dbs
l d [ar1,p#6.0]
t #dzs
//将数据源的any指针数据复制下来
l p##in1
lar1
l b#16#10 //对应any_ji
t lb 28
l b [ar1,p#1.0]
t lb 29 //对应any_ji
l w [ar1,p#2.0]
t lw 30 //对应any_ji
l w [ar1,p#4.0]
t #dbji
t lw 32 //对应tany_ji
l d [ar1,p#6.0]
t #dzji
t ld 34 //对应any_ji
//将存放奇数的db块的any数据进行处理，并编写any_ji
l p##in2
lar1
l b#16#10
t lb 38 //对应any_ou
l b [ar1,p#1.0]
t lb 39 //对应any_ou
l w [ar1,p#2.0]
t lw 40 //对应any_ou
l w [ar1,p#4.0]
t #dbou
t lw 42 //对应any_ou
l d [ar1,p#6.0]
t #dzou
t ld 44 //对应any_ou
////将存放偶数的db块的any数据进行处理，并编写any_ou
l 0
t #zero
call fill
bval :=#zero
ret_val:=#temp12
blk :=#any_ji
call fill
bval :=#zero
ret_val:=#temp13
blk :=#any_ou
//初始化，清零，调用sfc21
opn db [#dbs]
opn di [#dbji]
lar1 #dzs
lar2 #dzji
l #length
m002: t #loop_ji
l dbw [ar1,p#0.0]
srw 1
a >0
jcn m001
l dbw [ar1,p#0.0]
t diw [ar2,p#0.0]
+ar2 p#2.0
m001: +ar1 p#2.0
l #loop_ji
loop m002
//奇数
opn db [#dbs]
opn di [#dbou]
lar1 #dzs
lar2 #dzou
l #length
m004: t #loop_ou
l dbw [ar1,p#0.0]
srw 1
a >0
jc m003
l dbw [ar1,p#0.0]
t diw [ar2,p#0.0]
+ar2 p#2.0
m003: +ar1 p#2.0
l #loop_ou
loop m004
//偶数
调用：因为这里采用的是int数据所以在调用的时候要写：p#db7.dbx0.0 int 10
测试效果：