Here you go!

data mod;
A = 1234 ;
X = MOD( A, 1000 ) ;
Y = MOD( A, 100 ) ;
Z = MOD( A, 10 ) ;
PUT A= X= Y= Z= ;
RUN ;

A=1234 X=234 Y=34 Z=4