Télécharger @zacpro4.procedur

Retour à la liste

Numérotation des lignes :

  1. * @ZACPRO4 PROCEDUR CHAT 95/12/13 21:46:36 1945
  2. *--------------------------EXTRACTION DES CONTRAINTES-----------------*
  3.  
  4. 'DEBP' @ZACPRO4 BB*'MCHAML';
  5.  
  6. MODC = VALEUR MODE;
  7.  
  8. COND1 = 'EGA' 'PLANCONT' MODC ;
  9. COND2 = 'EGA' 'PLANDEFO' MODC ;
  10. COND3 = 'EGA' 'AXIS' MODC ;
  11. COND4 = 'EGA' 'TRID' MODC ;
  12. 'SI' COND1;
  13. CO1 = 'EXCO' 'SMXX' BB 'SCAL';
  14. CO2 = 'EXCO' 'SMYY' BB 'SCAL';
  15. CO3 = 'EXCO' 'SMZZ' BB 'SCAL';
  16. CO4 = 'EXCO' 'SMXY' BB 'SCAL';
  17. CO5 = CO1*0.;
  18. CO6 = CO1*0.;
  19. 'FINSI';
  20. 'SI' COND2;
  21. CO1 = 'EXCO' 'SMXX' BB 'SCAL';
  22. CO2 = 'EXCO' 'SMYY' BB 'SCAL';
  23. CO3 = 'EXCO' 'SMZZ' BB 'SCAL';
  24. CO4 = 'EXCO' 'SMXY' BB 'SCAL';
  25. CO5 = CO1*0.;
  26. CO6 = CO1*0.;
  27. 'FINSI';
  28. 'SI' COND3;
  29. CO1 = 'EXCO' 'SMRR' BB 'SCAL';
  30. CO2 = 'EXCO' 'SMZZ' BB 'SCAL';
  31. CO3 = 'EXCO' 'SMTT' BB 'SCAL';
  32. CO4 = 'EXCO' 'SMRZ' BB 'SCAL';
  33. CO5 = CO1*0.;
  34. CO6 = CO1*0.;
  35. 'FINSI';
  36. 'SI' COND4;
  37. CO1 = 'EXCO' 'SMXX' BB 'SCAL';
  38. CO2 = 'EXCO' 'SMYY' BB 'SCAL';
  39. CO3 = 'EXCO' 'SMZZ' BB 'SCAL';
  40. CO4 = 'EXCO' 'SMXY' BB 'SCAL';
  41. CO5 = 'EXCO' 'SMXZ' BB 'SCAL';
  42. CO6 = 'EXCO' 'SMYZ' BB 'SCAL';
  43. 'FINSI';
  44. 'FINP' CO1 CO2 CO3 CO4 CO5 CO6;
  45.  
  46.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales