refgo diparm %1
call inref4 dibig
call mst4 di
call scp4 di +dtd_next+dtd_ref+di5
call redund
call cgr54 r_di%1.ref