Progress - (consulta) comandos útiles de progress

   
Vista:

(consulta) comandos útiles de progress

Publicado por miguel (1 intervención) el 09/06/2014 19:05:20
buenas tardes

ando iniciando en progress- con el manual del 9 que parece que lo redacto el 9 doctor con 2 barriles de cubas en el cuerpo - y es algo mas complejo de lo que esperaba

ahora, me mandaron a la búsqueda de comandos comunes para toda base de datos: en este caso para:
colección de estadisticas
re organización física

alguien tiene idea de que comandos usar en progress para ello?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

(consulta) comandos útiles de progress

Publicado por Maro rmanya@maroconsultores.es (4 intervenciones) el 13/06/2014 19:07:19
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
/* RECORRER TABLA*/
/*for each Endeds:
    display Endeds.
end.*/
 
/*BUSCAR PRIMER REGISTRO*/
/*find first Endeds
     no-lock no-error.*/
 
/*BUSCAR ULTIMO REGISTRO*/
/*find last Endeds
     no-lock no-error.*/
 
 
/*RECORRER TABLA CON CONDICION*/     
/*for each Endeds
    where Endeds.Ended = "1":
    
    display Endeds.Ended 
            Endeds.Description. 
end.            
*/
 
 
/*CREAR REGISTRO*/
/*create Endeds.
assign Endeds.Ended = "50"
       Endeds.Description = "prueba 50".     */
 
 
/*BUSCAR UN REGISTRO CONCRETO*/       
/*find Endeds
     where Endeds.ended = "50"
     no-lock no-error.
     
     display Endeds .
*/       
 
 
/*ELIMINAR REGISTRO*/     
/*     
find Endeds
     where Endeds.ended = "50"
     no-error.
     
     delete Endeds .
*/
 
 
/*ANIDAR TABLAS*/
/*for each TipFamiliy
    where TipFamiliy.tipFamiliy   = 1
    no-lock,
    each Families
    where Families.enterprise = 1 and
          Families.tipFamiliy  =   TipFamiliy.TipFamiliy
    no-lock:
    
    display TipFamiliy.Description 
            Families.Description
            Families.Familiy.
    
end.    
*/          
 
 
/*CLAUSULAS BREAK BY*/
/*def var xcont as int.

for each TipFamiliy
    no-lock,
    each Families
    where Families.enterprise = 1 and
          Families.tipFamiliy  =   TipFamiliy.TipFamiliy
    no-lock
    break by Families.tipFamiliy:

    if first-of (Families.tipFamiliy) then
    do:
        XCONT = 0.
    end.
    
    XCONT = XCONT + 1.
    
    if LAST-OF (Families.tipFamiliy) then
    do:
        DISPLAY XCONT 
                Families.tipFamiliy.
    end.
end.
*/
 
 
/*tablas temporales + exportaci¢n a fichero*/
def var xcont as int.
 
DEFINE TEMP-TABLE TMPJORDI
    FIELD TIPFAMILIA AS INT
    FIELD CONTADOR   AS INT
    INDEX IDX01
          TIPFAMILIA.
 
 
FOR EACH TMPJORDI:
    DELETE TMPJORDI.
END.
 
for each TipFamiliy
    no-lock,
    each Families
    where Families.enterprise = 1 and
          Families.tipFamiliy  =   TipFamiliy.TipFamiliy
    no-lock
    break by Families.tipFamiliy:
 
    if first-of (Families.tipFamiliy) then
    do:
        XCONT = 0.
    end.
 
    XCONT = XCONT + 1.
 
    if LAST-OF (Families.tipFamiliy) then
    do:
        CREATE TMPJORDI.
        ASSIGN TMPJORDI.TIPFAMILIA = FAMILIES.TIPFAMILIY
               TMPJORDI.CONTADOR = XCONT.
    end.
end.
 
output to "c:\tmp\datosjordi.txt".
FOR EACH TMPJORDI
    NO-LOCK:
    export TMPJORDI.
END.
output close.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar