%define;dlist(z1) %if;(bvar.datalist_z1 = 1) %end; %end; %apply;dlist("fn") %apply;dlist("sn") %apply;dlist("place") %apply;dlist("occu") %apply;dlist("src") %nl; %if;(evar_m = "MOD_IND" or evar_m = "MOD_IND_OK" or evar_m = "MRG_IND_OK" or evar_m = "MRG_MOD_IND_OK") %nl; %else; %nl; %end;%nl;