#######################################################################
# 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