Procedures | Cast3M

   1 : * DEPOU     PROCEDUR  CHAT      02/01/04    21:15:06     4282           
   2 : DEBPROC DEPOU SGINI*MCHAML TABETAP*TABLE                          ;
   3 : TABDEP = TABLE                                                    ;
   4 : SIG1    = SGINI                                                   ;
   5 : NBETAP  = DIME TABETAP                                            ;
   6 : IDETAP  = 0                                                       ;
   7 : IDCABLE  = 0                                                      ;
   8 : REPETER BOPREC0 NBETAP                                            ;
   9 :  IDETAP = IDETAP + 1                                              ;
  10 :  NDZONE = (DIME (TABETAP . IDETAP) - 1)                           ;
  11 :  IDZON  = 0                                                       ;
  12 :  IDCABL1 = 0                                                      ;
  13 :  REPETER BOZONE NDZONE                                            ;
  14 :   IDZON = IDZON + 1                                               ;
  15 :   MAIL1 = EXTR (TABETAP . IDETAP . IDZON . 'MODELE') 'MAILLAGE'   ;
  16 :   MAIL1 = CCON MAIL1                                              ;
  17 :   NDCABL = DIME MAIL1                                             ;
  18 :   IDCABL = 0                                                      ;
  19 :   REPETER BOCABL NDCABL                                           ;
  20 :    IDCABLE = IDCABLE + 1                                          ;
  21 :    IDCABL = IDCABL + 1                                            ;
  22 :    CABL1  = MAIL1 . IDCABL                                        ;
  23 :    MDCABL = REDU (TABETAP . IDETAP . IDZON . 'MODELE') CABL1      ;
  24 :    SIGC   = REDU SIG1 MDCABL                                      ;
  25 :    SIGC   = CHAN 'CHPO' SIGC MDCABL                               ;
  26 :    TITRE 'CABLE NUMERO' IDCABLE                                   ;
  27 :    EVC = EVOL 'CHPO' SIGC CABL1                                   ;
  28 :    TABDEP . IDCABLE = EVC                                         ;  
  29 :   FIN BOCABL                                                      ;
  30 :  FIN BOZONE                                                       ;
  31 : FIN BOPREC0                                                       ;
  32 : FINPROC TABDEP      ;
  33 : 
  34 :