标签:
updlist (
list = "N410"
stcode = UPOV | DWOV
#
cntdata (
move -p b0001 c4001/l
#
cmp -i 1 c4001/l # オープン出納通番1
jmpcc 0x0a $lab01
#
add -i 1 c0301/l c0301/l
#
cmp -i 1000000 c0301/l
jmpcc 0x08 $lab20
#
move -i 0 c0301/l
#
jmpcc 0x00 $lab20
#
$lab01:
cmp -i 2 c4001/l # オープン出納通番2
jmpcc 0x0a $lab02
#
add -i 1 c0302/l c0302/l
#
cmp -i 1000000 c0302/l
jmpcc 0x08 $lab20
#
move -i 0 c0302/l
#
jmpcc 0x00 $lab20
#
$lab02:
cmp -i 3 c4001/l # オープン出納通番3
jmpcc 0x0a $lab03
#
add -i 1 c0303/l c0303/l
#
cmp -i 1000000 c0303/l
jmpcc 0x08 $lab20
#
move -i 0 c0303/l
#
jmpcc 0x00 $lab20
#
$lab03:
cmp -i 4 c4001/l # オープン出納通番4
jmpcc 0x0a $lab04
#
add -i 1 c0304/l c0304/l
#
cmp -i 1000000 c0304/l
jmpcc 0x08 $lab20
#
move -i 0 c0304/l
#
jmpcc 0x00 $lab20
#
$lab04:
标签:
原文地址:http://www.cnblogs.com/SilverBullet/p/4838856.html