chgvar &decvar1 %sst(*lda 1 3)
chgvar &decvar2 %sst(*lda 4 3)