*PSDCE2
      PROGRAMA 'LISTADO DE USUARIOS'
      DOCUMENTACION 2 0
*D
*D    ESTE PROGRAMA IMPRIME EL USO DE LOS DIFERENTES MODULOS
*D    DE SISINF EN LOS DIFERENTES MESES, PARA TODOS LOS USUARIOS
*
      OPCION IMPRIMIR  COL. 80 LET. 'LISTADO DE USUARIOS' $
      FECHA FEC ENC. 2 GUION40 42 GUION40 $
      ENC. 1 '0' 2 NUM-CA  30 NUM-CA VAR. 35 NOM-US VAR. $
      ENC. 35 AREA VAR.     $
      ENC. 1 '0' 2 AMES 6 NUM-MOD 15 MIN-REL 30 SEG-CPU 45 TOT-EJE $
      57 EJE-ERR 70 PAG-IMP  $
      ENC. 2 GUION40 42 GUION40
      SACAR PARAMETROS FECHA FEC
*D
*D    SE RECORRE SECUENCIALMENTE EL GRUPO DE LLAVES 1
*
10    BUSCAR DISCO SIUS EJECUTA 1000 SEC-G1
      LEER DISCO SIUS NUM-CA NOM-US AREA
      BRINCAR
*D
*D    DEPLEGAR LA INFORMACION ORDENANDO EL R1 POR MES Y MODULO
*
20    OPCION DISCO SIUS ORD-R1 A AMES A NUM-MOD
21    BUSCAR RECURRENTE SIUS 1 EJECUTA 10 ORD.
      LEER DISCO SIUS AMES NUM-MOD SEG-RELOJ SEG-CPU TOT-EJE $
            EJE-ERR PAG-IMP
      CONVERTIR AMES A MES POS. 3 3 EJECUTA 25
      CONVERTIR AMES A MES POS. 4 4 EJECUTA 25
      BUSCAR TABLA TMESES EJECUTA 26 IGUAL MES MES-ALFA
      BUSCAR TABLA MODSIS EJECUTA 27 IGUAL NUM-MOD MOD-ALFA
      MIN-REL = SEG-RELOJ / 60
      IMPRIMIR DETALLE 2 MES-ALFA 6 MOD-ALFA 15 MIN-REL   $
       30 SEG-CPU 45 TOT-EJE 55 EJE-ERR 70 PAG-IMP
      EJECUTA 21
25    ERROR 'ERROR 1 EN PSDCE2' 'ERROR AL CONVERTIR'
      FIN
26    ERROR 'ERROR 4 EN PSDCE2' 'NO ESTA EN TABLA TMESES'
      FIN
27    ERROR 'ERROR 4 EN PSDCE2' 'NO ESTA EN TABLA MODSIS'
      FIN
*
*     TERMINAR
*
1000  FIN 'DCE0'
