Télécharger la plaquette Cast3M


fr en

Télécharger repix.procedur

Retour à la liste

Numérotation des lignes : 

  1. * REPIX     PROCEDUR  GOUNAND   22/11/22    21:15:03     11504          
  2. 'DEBPROC' REPIX   ;
  3. 'ARGU' RV*'TABLE' ;
  4. *====================================================================
  5. * REPIX enlève de la table créée par EQEX les objets MATRIK et MATRAK
  6. *--------------------------------------------------------------------
  7. * Les objets MATRIK indésirables se trouvent
  8. * 1) aux indices 'TABRES', 'MATASS', 'MAPREC' de la table stockee à
  9. *    l'indice 'METHINV'
  10. * 2) aux indices 'MATC', 'MATG', 'MATP' et 'METHINV' de la table
  11. *    stockée à l'indice 'PRESSION' ou 'PROJ';
  12. * 3) à l'indice 'MATESI' des tables de sous types 'DOMAINE' stockées
  13. * dans la table rangée à l'indice 'DOMINC';
  14. * 4) à l'indice 'MATESI' de la table stockée à l'indice 'DOMAINE';
  15. * 5) à l'indice 'MATELM' des tables de sous type 'KIZX'.
  16. *====================================================================
  17. 'SI' ('EXIS' RV 'SOUSTYPE' ) ;
  18.    'SI' ('NEG' RV . 'SOUSTYPE' 'EQEX' ) ;
  19.       'QUIT' REPIX ;
  20.    'FINS' ;
  21. 'SINO' ;
  22.    'QUIT' REPIX ;
  23. 'FINS' ;
  24.  TAB1 = 'INDEX' RV ;
  25.  NOP1 = 'DIME' TAB1 ;
  26. 'SI' ('EGA' NOP1 0) ;
  27.    'QUIT' REPIX ;
  28. 'FINS' ;
  29. *
  30. *-----------------
  31. 'REPE' BOU1 NOP1 ;
  32. *-----------------
  33. *
  34.     IND1 = MOT TAB1 . &BOU1 ;
  35. *
  36. *- Cas 1)
  37. *
  38.    'SI' ('EGA' IND1 'METHINV') ;
  39.       RVM = RV . 'METHINV' ;
  40.       TRVM = 'TYPE' RVM ;
  41.       'SI' ('EGA' TRVM 'TABLE   ' ) ;
  42.          'SI' ('EXIS' RVM 'TABRES') ; 'OUBL' RVM 'TABRES' ; 'FINS' ;
  43.          'SI' ('EXIS' RVM 'MATASS') ; 'OUBL' RVM 'MATASS' ; 'FINS' ;
  44.          'SI' ('EXIS' RVM 'MAPREC') ; 'OUBL' RVM 'MAPREC' ; 'FINS' ;
  45.       'FINS' ;
  46.    'FINS' ;
  47. *
  48. *- Cas 2)
  49. *
  50.    'SI' ('OU' ('EGA' IND1  'PRESSION' ) ('EGA' IND1  'PROJ' )) ;
  51.        RVP = RV . IND1 ;
  52.        TRVP = 'TYPE' RVP ;
  53.       'SI' ('EGA' TRVP 'TABLE   ' ) ;
  54. *         'SI' ('EXIS' OBJ1 'SOUSTYPE' ) ;
  55. *            'SI' ('EGA' OBJ1 . 'SOUSTYPE' 'EQPR' ) ;
  56. *               'SI' ('EXIS' OBJ1 'MATC' ) ;
  57. *                   OBJ1 . 'MATC' = 0 ;
  58. *               'FINS' ;
  59. *            'FINS' ;
  60. *         'FINS' ;
  61.          'SI' ('EXIS' RVP 'METHINV') ;
  62.             RVPM = RVP . 'METHINV' ;
  63.             TRVPM = 'TYPE' RVPM ;
  64.             'SI' ('EGA' TRVPM 'TABLE   ' ) ;
  65.                'SI' ('EXIS' RVPM 'TABRES') ; 'OUBL' RVPM 'TABRES' ;
  66.                'FINS' ;
  67.                'SI' ('EXIS' RVPM 'MATASS') ; 'OUBL' RVPM 'MATASS' ;
  68.                'FINS' ;
  69.                'SI' ('EXIS' RVPM 'MAPREC') ; 'OUBL' RVPM 'MAPREC' ;
  70.                'FINS' ;
  71.             'FINS' ;
  72.          'FINS' ;
  73.          'SI' ('EXIS' RVP 'MATP') ; 'OUBL' RVP 'MATP' ; 'FINS' ;
  74.          'SI' ('EXIS' RVP 'MATC') ; 'OUBL' RVP 'MATC' ; 'FINS' ;
  75.          'SI' ('EXIS' RVP 'MATG') ; 'OUBL' RVP 'MATG' ; 'FINS' ;
  76.       'FINS' ;
  77.        ITERER BOU1 ;
  78.    'FINS' ;
  79. *
  80. *- Cas 3)
  81. *
  82.    'SI' ('EGA' IND1 'DOMINC' ) ;
  83.       TAB2 = 'INDEX' ( RV . IND1 ) ;
  84.       NOP2 = 'DIME' TAB2 ;
  85.       'SI' ('NEG' NOP2 0) ;
  86.          'REPE' BOU2 NOP2 ;
  87.               IND2 = MOT TAB2 . &BOU2 ;
  88.               'SI' ('NEG' IND2  'SOUSTYPE' ) ;
  89.                  OBJ2 = RV . IND1 . IND2 ;
  90.                  TYP2 = 'TYPE' OBJ2 ;
  91.                  'SI' ('EGA' TYP2 'TABLE   ' ) ;
  92.                     'SI' ('EXIS' OBJ2 'SOUSTYPE' ) ;
  93.                        'SI' ('EGA' OBJ2 . 'SOUSTYPE' 'DOMAINE' ) ;
  94.                           OBJ2 . 'MATESI' = 0 ;
  95.                        'FINS' ;
  96.                     'FINS' ;
  97.                  'FINS' ;
  98.               'FINS' ;
  99.          'FIN' BOU2 ;
  100.       'FINS' ;
  101.        ITERER BOU1 ;
  102.    'FINS' ;
  103. *
  104. *- Cas 4)
  105. *
  106.    'SI' ('EGA' IND1  'DOMAINE' ) ;
  107.        OBJ1 = RV . IND1 ;
  108.        TYP1 = 'TYPE' OBJ1 ;
  109.       'SI' ('EGA' TYP1 'TABLE   ' ) ;
  110.          'SI' ('EXIS' OBJ1 'SOUSTYPE' ) ;
  111.             'SI' ('EGA' OBJ1 . 'SOUSTYPE' 'DOMAINE' ) ;
  112.                'SI' ('EXIS' OBJ1 'MATESI' ) ;
  113.                    OBJ1 . 'MATESI' = 0 ;
  114.                'FINS' ;
  115.             'FINS' ;
  116.          'FINS' ;
  117.       'FINS' ;
  118.        ITERER BOU1 ;
  119.    'FINS' ;
  120. *
  121. *- Cas 5)
  122. *
  123.    'SI' ('NEG' IND1  'SOUSTYPE' ) ;
  124.        OBJ1 = RV . IND1 ;
  125.        TYP1 = 'TYPE' OBJ1 ;
  126.       'SI' ('EGA' TYP1 'TABLE   ' ) ;
  127.          'SI' ('EXIS' OBJ1 'SOUSTYPE' ) ;
  128.             'SI' ('EGA' OBJ1 . 'SOUSTYPE' 'KIZX' ) ;
  129.                 OBJ1 . 'MATELM' = 0 ;
  130.             'FINS' ;
  131.          'FINS' ;
  132.       'FINS' ;
  133.        ITERER BOU1 ;
  134.    'FINS' ;
  135. *
  136. *-----------
  137. 'FIN' BOU1 ;
  138. *-----------
  139. *
  140. 'FINPROC' ;
  141.  
  142.  

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