1
RETURNDATE.WSS
DEL
991
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
991
XXXXXXXXXXXXXXXXXXX
'%1',
XXXXXXXXXXXXXXXXXXX
REP
40^E
F
(if p(v40^E) then if V40^F:'***' then if val(V40^E) < val(&uf('AV991^A#1')) then &uf('AV991^A#1')'*' else V40^E, fi else V40^E fi fi/), / 
XXXXXXXXXXXXXXXXXXX
REP
40^L
F
(if P(V40) then if V40^E:'*' then &uf('3') else if p(V40^L) then v40^L else # fi fi fi/)
XXXXXXXXXXXXXXXXXXX
CHA
40^E
*
'*'
''
DEL
991
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX