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