* PSDCE3
       PROGRAMA 'ACTUALIZA SIUS CON CUENTAS'
       DOCUMENTACION 2 0
*D
*D     ESTE PROGRAMA ACTUALIZA EL NOMBRE Y AREA DE UN USUARIO
*D     CON LA INFORMACION QUE SE DA EN CPS
*D
*D     LLAMAR AL PROGRAMA COSSU PARA FORMAR EL TEMPORAL 950
*D     QUE TIENE LA SIGUIENTE INFORMACION
*D
*D     NUMERO DE LA CLAVE DE ACCESO  (4C )
*D     NOMBRE DE UN USUARIO          (40C)
*D     EMPRESA O DEPARTAMENTO        (40C)
*
       OPCION TEMPORAL 950 ASCII
       LLAMAR 'COSSU ' 950
*D
*D     SE LEE CADA REGISTRO DEL T950 Y SE BUSCA EN SIUS,
*D     SI NO EXISTE SE INSERTA LA NUEVA INFORMACION,
*D     SI YA EXISTE SE MODIFICA EL NOMBRE Y AREA.
*
       OPCION    TEMPORAL 950 LECTURA  
10     LEER      TEMPORAL 950 EJECUTA 1000 NUM-CA NOM-US AREA
       BUSCAR    DISCO  SIUS EJECUTA 20 PRIN-G1 NUM-CA
       ESCRIBIR  DISCO  SIUS NOM-US AREA
       EJECUTA 10
20     INSERTAR DISCO SIUS NUM-CA NOM-US AREA
       EJECUTA 10
*
*      TERMINAR
*
1000   OPCION TEMPORAL 950 BORRAR
       FIN  'DCE0'
