Télécharger noespchi.procedur

Retour à la liste

Numérotation des lignes :

  1. * NOESPCHI PROCEDUR AURI 97/12/10 21:23:54 2972
  2. 'DEBPROC' NOESPCHI TB1*'TABLE' NOM1/'MOT' NUM1/'ENTIER' ;
  3. * recherche de l'identificateur de l'espèce connaissant son nom
  4. * ou du nom connaissant l'identificateur de l'espèce
  5. 'SI' ( 'NEG' ( TB1.'SOUSTYPE' ) 'CHIMI1') ;
  6. 'ERREUR' ' La table n est pas de soustype CHIMI1 ' ;
  7. 'QUITTER' NOESPCHI ;
  8. 'FINSI' ;
  9. TROUVE= FAUX ;
  10. 'SI' ( 'EXIS' NUM1 ) ;
  11. 'SI'( 'EXIS' TB1 'IDEN' 'SOLU');
  12. NBCOMP='DIME' TB1.'IDEN'.'SOLU' ;
  13. I=0 ;
  14. 'REPETER' BOU1 NBCOMP ;
  15. I=I+1 ;
  16. NUNU = 'EXTR' TB1.'IDEN'.'SOLU' I ;
  17. TROUVE= 'EGA' NUNU NUM1 ;
  18. SI TROUVE ;
  19. NOM2= 'EXTR' TB1.'IDEN'.'NOMSOLU' I ;
  20. 'QUITTER' BOU1 ;
  21. 'FINSI' ;
  22. 'FIN' BOU1 ;
  23. FINSI ;
  24. 'SI' ( 'NON' TROUVE) ;
  25. 'SI'( 'EXIS' TB1 'IDEN' 'PRECI');
  26. NBCOMP='DIME' TB1.'IDEN'.'PRECI' ;
  27. I=0 ;
  28. 'REPETER' BOU2 NBCOMP ;
  29. I=I+1 ;
  30. NUNU = 'EXTR' TB1.'IDEN'.'PRECI' I ;
  31. TROUVE= 'EGA' NUNU NUM1 ;
  32. SI TROUVE ;
  33. NOM2= 'EXTR' TB1.'IDEN'.'NOMPRECI' I ;
  34. 'QUITTER' BOU2 ;
  35. 'FINSI' ;
  36. 'FIN' BOU2 ;
  37. FINSI ;
  38. FINSI ;
  39. 'SI' ( 'NON' TROUVE) ;
  40. 'SI'( 'EXIS' TB1 'IDEN' 'SURF');
  41. NBCOMP='DIME' TB1.'IDEN'.'SURF' ;
  42. I=0 ;
  43. 'REPETER' BOU3 NBCOMP ;
  44. I=I+1 ;
  45. NUNU = 'EXTR' TB1.'IDEN'.'SURF' I ;
  46. TROUVE= 'EGA' NUNU NUM1 ;
  47. SI TROUVE ;
  48. NOM2= 'EXTR' TB1.'IDEN'.'NOMSURF' I ;
  49. 'QUITTER' BOU3 ;
  50. 'FINSI' ;
  51. 'FIN' BOU3 ;
  52. FINSI ;
  53. FINSI ;
  54. 'SI' ( 'NON' TROUVE) ;
  55. 'SI'( 'EXIS' TB1 'IDEN' 'TYP3');
  56. NBCOMP='DIME' TB1.'IDEN'.'TYP3' ;
  57. I=0 ;
  58. 'REPETER' BOU4 NBCOMP ;
  59. I=I+1 ;
  60. NUNU = 'EXTR' TB1.'IDEN'.'TYP3' I ;
  61. TROUVE= 'EGA' NUNU NUM1 ;
  62. SI TROUVE ;
  63. NOM2= 'EXTR' TB1.'IDEN'.'NOMTYP3' I ;
  64. 'QUITTER' BOU4 ;
  65. 'FINSI' ;
  66. 'FIN' BOU4 ;
  67. FINSI ;
  68. FINSI ;
  69. 'SI' ( 'NON' TROUVE) ;
  70. 'SI'( 'EXIS' TB1 'IDEN' 'TYP6');
  71. NBCOMP='DIME' TB1.'IDEN'.'TYP6' ;
  72. I=0 ;
  73. 'REPETER' BOU5 NBCOMP ;
  74. I=I+1 ;
  75. NUNU = 'EXTR' TB1.'IDEN'.'TYP6' I ;
  76. TROUVE= 'EGA' NUNU NUM1 ;
  77. SI TROUVE ;
  78. NOM2= 'EXTR' TB1.'IDEN'.'NOMTYP6' I ;
  79. 'QUITTER' BOU5 ;
  80. 'FINSI' ;
  81. 'FIN' BOU5 ;
  82. FINSI ;
  83. FINSI ;
  84. 'SI' ( 'NON' TROUVE) ;
  85. MESSERR= 'ET' 'ON NE TROUVE PAS L ESPECE ' ('CHAI' NUM1) ;
  86. ERREUR MESSERR ;
  87. QUITTER NOESPCHI ;
  88. FINSI ;
  89. FINSI ;
  90. 'SI' ( 'EXIS' NOM1) ;
  91. TROUVE= FAUX ;
  92. 'SI'( 'EXIS' TB1 'IDEN' 'SOLU');
  93. NBCOMP='DIME' TB1.'IDEN'.'SOLU' ;
  94. I=0 ;
  95. 'REPETER' BOU6 NBCOMP ;
  96. I=I+1 ;
  97. NOM2= 'EXTR' TB1.'IDEN'.'NOMSOLU' I ;
  98. TROUVE= 'EGA' NOM2 NOM1 ;
  99. SI TROUVE ;
  100. NUNU = 'EXTR' TB1.'IDEN'.'SOLU' I ;
  101. 'QUITTER' BOU6 ;
  102. 'FINSI' ;
  103. 'FIN' BOU6 ;
  104. FINSI ;
  105. 'SI' ( 'NON' TROUVE) ;
  106. 'SI'( 'EXIS' TB1 'IDEN' 'PRECI');
  107. NBCOMP='DIME' TB1.'IDEN'.'PRECI' ;
  108. I=0 ;
  109. 'REPETER' BOU7 NBCOMP ;
  110. I=I+1 ;
  111. NOM2= 'EXTR' TB1.'IDEN'.'NOMPRECI' I ;
  112. TROUVE= 'EGA' NOM2 NOM1 ;
  113. SI TROUVE ;
  114. NUNU = 'EXTR' TB1.'IDEN'.'PRECI' I ;
  115. 'QUITTER' BOU7 ;
  116. 'FINSI' ;
  117. 'FIN' BOU7 ;
  118. FINSI ;
  119. FINSI ;
  120. 'SI' ( 'NON' TROUVE) ;
  121. 'SI'( 'EXIS' TB1 'IDEN' 'SURF');
  122. NBCOMP='DIME' TB1.'IDEN'.'SURF' ;
  123. I=0 ;
  124. 'REPETER' BOU8 NBCOMP ;
  125. I=I+1 ;
  126. NOM2= 'EXTR' TB1.'IDEN'.'NOMSURF' I ;
  127. TROUVE= 'EGA' NOM2 NOM1 ;
  128. SI TROUVE ;
  129. NUNU = 'EXTR' TB1.'IDEN'.'SURF' I ;
  130. 'QUITTER' BOU8 ;
  131. 'FINSI' ;
  132. 'FIN' BOU8 ;
  133. FINSI ;
  134. FINSI ;
  135. 'SI' ( 'NON' TROUVE) ;
  136. 'SI'( 'EXIS' TB1 'IDEN' 'TYP3');
  137. NBCOMP='DIME' TB1.'IDEN'.'TYP3' ;
  138. I=0 ;
  139. 'REPETER' BOU9 NBCOMP ;
  140. I=I+1 ;
  141. NOM2= 'EXTR' TB1.'IDEN'.'NOMTYP3' I ;
  142. TROUVE= 'EGA' NOM2 NOM1 ;
  143. SI TROUVE ;
  144. NUNU = 'EXTR' TB1.'IDEN'.'TYP3' I ;
  145. 'QUITTER' BOU9 ;
  146. 'FINSI' ;
  147. 'FIN' BOU9 ;
  148. FINSI ;
  149. FINSI ;
  150. 'SI' ( 'NON' TROUVE) ;
  151. 'SI'( 'EXIS' TB1 'IDEN' 'TYP6');
  152. NBCOMP='DIME' TB1.'IDEN'.'TYP6' ;
  153. I=0 ;
  154. 'REPETER' BOUA NBCOMP ;
  155. I=I+1 ;
  156. NOM2= 'EXTR' TB1.'IDEN'.'NOMTYP6' I ;
  157. TROUVE= 'EGA' NOM2 NOM1 ;
  158. SI TROUVE ;
  159. NUNU = 'EXTR' TB1.'IDEN'.'TYP6' I ;
  160. 'QUITTER' BOUA ;
  161. 'FINSI' ;
  162. 'FIN' BOUA ;
  163. FINSI ;
  164. FINSI ;
  165. 'SI' ( 'NON' TROUVE) ;
  166. MESSERR= 'ET' 'ON NE TROUVE PAS L ESPECE ' NOM1 ;
  167. ERREUR MESSERR ;
  168. QUITTER NOESPCHI ;
  169. FINSI ;
  170. FINSI ;
  171. 'SI' ( 'NON' TROUVE) ;
  172. ERREUR 26 ;
  173. FINSI ;
  174. 'FINP' NOM2 NUNU ;
  175.  
  176.  

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