62 lines
1.5 KiB
Plaintext
62 lines
1.5 KiB
Plaintext
#######################################################################
|
|
# SISTEMA : DOCUMENTACION DE SISTEMA
|
|
# PROGRAMA : DSPRCS005.4GL
|
|
# OBJETIVO : Cantidad de Progrmas Por Sistema
|
|
# AUTOR : Tadeo A. Ferreras F.
|
|
# FECHA : JUNIO 14, 1995
|
|
########################################################################
|
|
DATABASE rayovac
|
|
GLOBALS
|
|
"dsprgb000.4gl"
|
|
|
|
FUNCTION dsprcs005()
|
|
|
|
OPTIONS
|
|
FORM LINE 8,
|
|
ERROR LINE 23,
|
|
PROMPT LINE 23
|
|
|
|
OPEN FORM dsfmcs005 FROM "dsfmcs005"
|
|
DISPLAY FORM dsfmcs005
|
|
CALL pantalla()
|
|
DISPLAY "dsprcs005" AT 4,3 ATTRIBUTE(RED)
|
|
DISPLAY "Cantidad de Programas Por Sistema" AT 6,23 ATTRIBUTE(BLACK)
|
|
|
|
CONSTRUCT criterio ON a.cod_sistema FROM cod_sistema
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
LET selec =
|
|
"SELECT UNIQUE a.cod_sistema,b.desc_sistema,COUNT(*) ",
|
|
"FROM dstb00001 a, dstb00003 b ",
|
|
"WHERE a.cod_sistema = b.cod_sistema AND ",criterio CLIPPED,
|
|
" AND a.numero_act = 1 ",
|
|
" AND a.status_t is null ",
|
|
"GROUP BY 1,2 HAVING COUNT(*) > 0 ORDER BY 1"
|
|
|
|
PREPARE COMANDO FROM selec
|
|
DECLARE busca1 CURSOR FOR comando
|
|
|
|
LET idx = 1
|
|
FOREACH busca1 INTO act5[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
CALL SET_COUNT(idx - 1)
|
|
|
|
DISPLAY ARRAY act5 TO act5_s.*
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
END FUNCTION
|
|
|
|
|