Télécharger la plaquette Cast3M


fr en

Télécharger nocomchi.procedur

Retour à la liste

Numérotation des lignes : 

  1. * NOCOMCHI  PROCEDUR  AURI      97/12/10    21:23:50     2972           
  2. 'DEBPROC' NOCOMCHI TB1*'TABLE' MOCLE*'MOT' NOM1/'MOT' NUM1/'ENTIER' ;
  3. * en entrée la table issue de CHI1 et soit le nom soit le numéro
  4. * du composant à rechercher.
  5. * En sortie le nom dans la base de donnée, le nom donné par le code
  6. * le numéro d'identificateur.
  7.   'SI' ( 'NEG' ( TB1.'SOUSTYPE' ) 'CHIMI1') ;
  8.    'ERREUR' ' La table n est pas de soustype CHIMI1 ' ;
  9.    'QUITTER' NOCOMCHI ;
  10.   'FINSI' ;
  11.    TROUVE= FAUX ;
  12.    NBCOMP='DIME' TB1.'DESCHI'.'IDX' ;
  13.   'SI' ( 'EGA'  MOCLE    'NUMCOMP' ) ;
  14.   I=1 ;
  15.  'REPETER' BOU1 NBCOMP ;
  16.   NUNU = 'EXTR' TB1.'DESCHI'.'IDX'  I ;
  17.   SI ( 'EGA' NUNU  NUM1 ) ;
  18.   TROUVE= VRAI ;
  19.   'QUITTER' BOU1 ;
  20.   'FINSI' ;
  21.   I=I+1 ;
  22.   'FIN' BOU1 ;
  23.   NOM2= 'EXTR' TB1.'DESCHI'.'NOM' I ;
  24.   'SI' ( NUNU < 10 ) ;
  25.   M1='X00' ;
  26.   M2= 'CHAI' NUNU ;
  27.   NOINT = 'ET' M1 M2 ;
  28.   SINON ;
  29.   'SI' (NUNU < 100 ) ;
  30.   M1='X0' ;
  31.   M2= 'CHAI' NUNU ;
  32.   NOINT = 'ET' M1 M2 ;
  33.   SINON ;
  34.   M1='X' ;
  35.   M2= 'CHAI' NUNU ;
  36.   NOINT = 'ET' M1 M2 ;
  37.   FINSI ;
  38.   FINSI ;
  39.   FINSI ;
  40.   'SI' ( 'EGA' MOCLE  'NOMINT') ;
  41.   TROUVE= FAUX ;
  42.   I=0 ;
  43.  'REPETER' BOU2 NBCOMP ;
  44.   I=I+1 ;
  45.   NUNU = 'EXTR' TB1.'DESCHI'.'IDX'  I ;
  46.   'SI' ( NUNU < 10 ) ;
  47.   M1='X00' ;
  48.   M2= 'CHAI' NUNU ;
  49.   NOINT = 'ET' M1 M2 ;
  50.   SINON ;
  51.   'SI' (NUNU < 100 ) ;
  52.   M1='X0' ;
  53.   M2= 'CHAI' NUNU ;
  54.   NOINT = 'ET' M1 M2 ;
  55.   SINON ;
  56.   M1='X' ;
  57.   M2= 'CHAI' NUNU ;
  58.   NOINT = 'ET' M1 M2 ;
  59.   FINSI ;
  60.   FINSI ;
  61.   SI ('EGA' NOINT NOM1 );
  62.   TROUVE= VRAI ;
  63.   'QUITTER' BOU2 ;
  64.   FINSI ;
  65.   'FIN' BOU2 ;
  66.   'SI' ( 'NON' TROUVE ) ;
  67.    MESERR = 'ET' 'ON NE TROUVE PAS LE NOM ' NOM1 ;
  68.    ERREUR  MESERR ;
  69.    QUITTER NOCOMCHI ;
  70.   FINSI ;
  71.   NOM2= 'EXTR' TB1.'DESCHI'.'NOM' I ;
  72.   FINSI ;
  73.   'SI' ( 'EGA'  MOCLE    'NOMCOMP' ) ;
  74.   I=1 ;
  75.  'REPETER' BOU6 NBCOMP ;
  76.   NOM2 = 'EXTR' TB1.'DESCHI'.'NOM'  I ;
  77.   SI ( 'EGA' NOM2  NOM1 ) ;
  78.   TROUVE = VRAI ;
  79.   'QUITTER' BOU6 ;
  80.   'FINSI' ;
  81.   I=I+1 ;
  82.   'FIN' BOU6 ;
  83.   NUNU= 'EXTR' TB1.'DESCHI'.'IDX' I ;
  84.   'SI' ( NUNU < 10 ) ;
  85.   M1='X00' ;
  86.   M2= 'CHAI' NUNU ;
  87.   NOINT = 'ET' M1 M2 ;
  88.   SINON ;
  89.   'SI' (NUNU < 100 ) ;
  90.   M1='X0' ;
  91.   M2= 'CHAI' NUNU ;
  92.   NOINT = 'ET' M1 M2 ;
  93.   SINON ;
  94.   M1='X' ;
  95.   M2= 'CHAI' NUNU ;
  96.   NOINT = 'ET' M1 M2 ;
  97.   FINSI ;
  98.   FINSI ;
  99.   FINSI ;
  100.   'SI' ( 'NON' TROUVE ) ;
  101.    ERREUR 26 ;
  102.   FINSI ;
  103.   'FINP'  NOM2 NOINT NUNU ;
  104.  
  105.  

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