/* Exemple 3.14 - ETAPE DATA (12) : formule conditionnelle */
DATA work.coutsEnvoi ;
   SET base.commandes ;
   ATTRIB frais
      LABEL = "frais d'envoi en euros"
      FORMAT = NUMX5.2
   ;
   IF quantite <= 20 THEN DO ;
      frais = quantite * 1.50 ;
   END ;
   ELSE DO ;
      frais = 0 ;
   END ;
RUN ;