Procedures | Cast3M

   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 :