Télécharger la plaquette Cast3M


fr en

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