%macro gralab(v1,v2,ar,fo,vars); /* Macro écrite par Patrick Brossier (GIP RECLUS) v1 variable de la borne inférieure v2 variable de la borne supérieure ar arrondi fo format à utiliser pour écrire ces variables vars variable caractère recevant le résultat Cette macro génère le texte de légende d'un caisson de carte à partir des bornes de la classe Version du 17/12/00 */ _v1=round(&v1,&ar); _v2=round(&v2,&ar); if _v1=_v2 then &vars=compress(put(_v1,&fo)); else &vars=compress(put(_v1,&fo))||' - '|| compress(put(_v2,&fo)); _k=index(&vars,'.'); do while(_k ne 0); substr(&vars,_k,1)=','; _k=index(&vars,'.'); end; %mend;