0
IF
if (A(v9955)) then '1' else '0' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
9955^11
F
&uf('+1W22#',&uf('DSETS,/VD=SETS/,v1')), &uf('+1W23#',F(val(&uf('+1R22'))+1,0,0)), &uf('+1R23')
XXXXXXXXXXXXXXXXXXX
CORREC
'SETS'
&uf('+1R23')
'VD=SETS'
XXXXXXXXXXXXXXXXXXX
REP
1
F
v1001
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX