*PSDCDB
      PROGRAMA 'FECHAS DE EJECUCION'
      DOCUMENTACION 1 3
*D
*D    ESTE PROGRAMA SIRVE PARA LISTAR LA FECHAS Y HORAS DE
*D    EJECUCION DE LA DBD Y LAS DE ACTUALIZACION, TAMBIEN
*D    SE LISTAN LAS DE LOS PROGRAMAS.
*D
*D    LEER LAS INICIALES DE LA DBD
*
      OPCION TERMINAL AREA 300 /RENGLON /POS. 5 25 /LONG. 3 30 $
       /MARCO /BN NO-E VI NO-E $
      /TECLAS-DE-FUNCION 1 'TERMINAR  ELS' 2 'MENU DOC' 3 '? AYUDA' $
      /CONDICION-EJECUTA '/F' '/M' $
       /COLOR CELESTE CELESTE NEGRO AZUL BLANCO $
       /CAMPOS  INI-DBD /INF.
*
       OPCION TERMINAL AREA 301 /RENGLON 1 1 /POS. 10 5 /LONG. 5 70 $
        /MARCO /COLOR BLANCO BLANCO NEGRO /CONFIRMAR $
        /CAMPOS $
                 2 3 'Esta opcion sirve listar fechas' $
                     'de compilacion de DBD y programas' $
                 3 3 'asi como las de actualizacion' $
                     'en el archivo DOCSIS.' $
                 4 3 '-Se debe especificar las iniciales' $
                     'de la DBD que se desea.'
*
1     OPCION TERMINAL AREA 300 /DESPLEGAR
2     LEER TERMINAL EJECUTA 5 INI-DBD
      BUSCAR DISCO DOCSIS EJECUTA 3 PRIN-G1 INI-DBD
      EJECUTA 10
3     ERROR 'DBD INEXSITENTE'
      EJECUTA 2
*
5     SACAR PARAMETROS CONDICION-EJECUTA COND
      SI COND = -1 EJECUTA 1000
      SI COND = 1  EJECUTA 1000
      SI COND = -4 EJECUTA 1000
      SI COND = 2  EJECUTA 999
      SI COND = -5 EJECUTA 999
      OPCION TERMINAL AREA 301 /DESPLEGAR /SALVAR-ANTERIORES /EMPALMAR
      OPCION TERMINAL AREA 301 /TERMINAR
      EJECUTA 2
*---------------
*D
*D    ESCRIBIR FECHAS DE EJECUCION DE DBD CON INF DEL R14
*D    Y BUSCAR EN SIUS EL NOMBRE DEL USUARIO QUE EJECUTO DBD
*
*---------------
10    OPCION IMPRIMIR FECHA FEC $
       LET. 'FECHAS DE EJECUCION Y ACTUALIZACION'
      SACAR PARAMETROS FECHA FEC
      IMPRIMIR  ENCABEZADO       2  ' '                        /   $
      2  'FECHAS DE CREACION Y'                                    $
      23  'ULTIMAS 10 COMPILACIONES'                    / 2 ' '  / $
      2 'DBDS' 6  INI-DBD  VAR.     15 FEC-EJE  40 CTA-EJE / 1 ' '
*
11    BUSCAR RECURRENTE DOCSIS 14 EJECUTA 15 ANT.
      LEER DISCO DOCSIS FEC-EJE HOR-EJE CTA-EJE
      NUM-CA = CTA-EJE
      MOVER ' ' A NOM-US
      BUSCAR DISCO SIUS EJECUTA 12 PRIN-G1 NUM-CA
      LEER DISCO SIUS NOM-US
12    IMPRIMIR DETALLE 15 FEC-EJE 25 HOR-EJE 40 CTA-EJE LONG. 4 $
               45 NOM-US
      EJECUTA 11
*---------------
*D
*D    IMPRIMIR FECHAS DE ULTIMAS ACTUALIZACIONES CON INF DE R15
*D    Y BUSCAR EN SIUS EL USUARIO QUE HIZO LA ACTUALIZACION
*
*---------------
  15  IMPRIMIR  ENCABEZADO    2 ' '  /  2 ' '   /                $
      1 '0'   2  'ULTIMAS 10 ACTUALIZACIONES A DOCSIS'         / $
      1 '0'  15 FEC-ACT   40 CTA-ACT  / 1 ' '
16    BUSCAR RECURRENTE DOCSIS 15 EJECUTA 20 ANT.
      LEER DISCO DOCSIS FEC-ACT HOR-ACT CTA-ACT
      NUM-CA = CTA-ACT
      MOVER ' ' A NOM-US
      BUSCAR DISCO SIUS EJECUTA 17 PRIN-G1 NUM-CA
      LEER DISCO SIUS NOM-US
17    IMPRIMIR DETALLE 15 FEC-ACT 25 HOR-ACT 40 CTA-ACT LONG. 4 $
               45 NOM-US
      EJECUTA 16
*---------------
*D
*D    SE BUSCA EN EL GRUPO DE LLAVES 2 EN FORMA SECUENCIAL
*D    PARA AQUELLOS PROGRAMAS DE ESTA DBD, DE LOS ENCONTRADOS
*D    SE IMPRIME LA FECHA DE COMPILACION Y ACTUALIZACION.
*
*---------------
 20   IMPRIMIR  ENCABEZADO     2 ' '  /  2 ' ' / 2 ' ' / $
      2 'FECHA DE ULTIMA COMPILACION DE PROGRAMAS'     / $
      1 '0' 2 NOM-PRO 15 FEC-COM 40 CTA-COM 90 FEC-ACT-PRO / 1 ' '
*
21    BUSCAR DISCO DOCSIS EJECUTA 1 SEC-G2
      IGUAL DOCSIS INI-DBD INI-DBD-PRO
      LEER DISCO DOCSIS INI-DBD-PRO
      SI INI-DBD <> INI-DBD-PRO EJECUTA 21
      LEER DISCO DOCSIS NOM-PRO FEC-COM HOR-COM CTA-COM $
           FEC-ACT-PRO HOR-ACT-PRO
      NUM-CA = CTA-COM
      MOVER ' ' A NOM-US
      BUSCAR DISCO SIUS EJECUTA 22 PRIN-G1 NUM-CA
      LEER DISCO SIUS NOM-US
22    IMPRIMIR DETALLE 2 NOM-PRO 15 FEC-COM 25 HOR-COM  $
       40 CTA-COM LONG. 4 45 NOM-US 90 FEC-ACT-PRO $
       100 HOR-ACT-PRO
      EJECUTA 21
999   FIN 'DCME'
1000  FIN
