2 calls from
BASDZ

LCDBAS  1
SHR_KIND_MOD  1