Télécharger la plaquette Cast3M


fr en

Télécharger depou.procedur

Retour à la liste

Numérotation des lignes : 

  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.  
  35.  

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