1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2012 EDF R&D WWW.CODE-ASTER.ORG
# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
# (AT YOUR OPTION) ANY LATER VERSION.
#
# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
#
# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
# person_in_charge: mathieu.courtois at edf.fr
TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
UIinfo={"groupes":("Tables","Utilitaires",)},
fr="Tester une cellule ou une colonne d'une table",
# concept table_sdaster à tester
TABLE =SIMP(statut='o',typ=table_sdaster),
FILTRE =FACT(statut='f',max='**',
NOM_PARA =SIMP(statut='o',typ='TXM' ),
CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
into=("EQ","LT","GT","NE","LE","GE","VIDE",
"NON_VIDE","MAXI","MAXI_ABS","MINI","MINI_ABS") ),
b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
VALE =SIMP(statut='f',typ='R',),
VALE_I =SIMP(statut='f',typ='I',),
VALE_C =SIMP(statut='f',typ='C',),
VALE_K =SIMP(statut='f',typ='TXM' ),),
CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
),
NOM_PARA =SIMP(statut='o',typ='TXM' ),
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
**C_TEST_REFERENCE('TABLE', max='**')
) ;
|
