Procedures | Cast3M

   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 :