Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Compilador] Copiar / colar em aplicações powercobol LUIZ ANTONIO DE OLIVEIRA PowerCOBOL (ActiveX, v4 - v11) 5 15 de marzo de 2019 04:24
[Duda] Manejo de archivos en Red moraber RM/COBOL 5 11 de marzo de 2019 18:29
[Duda] Distribución de programas en la red LAN Roger PowerCOBOL (ActiveX, v4 - v11) 11 28 de junio de 2017 17:33
[Compilador] Powercobol búsqueda lenta ficheros indexados LAN Joseg PowerCOBOL (ActiveX, v4 - v11) 21 19 de junio de 2017 13:59
[Sintaxis] Copiar al portapapeles Josber PowerCOBOL (ActiveX, v4 - v11) 12 22 de diciembre de 2015 22:37

Respuesta
 
Herramientas

  #1
Antiguo 24 de mayo de 2017, 22:25
Roger
Forero Activo
Última Actividad 04.02.2021 13:03
Posts Posts: 236
Likes enviados Enviados: 26
Likes recibidos Recibidos: 60
Almacenamiento Copiar archivos en RED LAN
0 Inactivo Inactivo

Amigos del foro deseo poner botón donde pueda copiar archivos del servidor a otro punto de la red LAN como respaldo del sistema.

intente con estos comandos
Código COBOL:
  1.       MOVE "\\Roger-pc\d\VET-SALVADOR\debug\*.dat" TO RUTA-INICIAL.
  2.       MOVE "\\Desktop-skgdvut\d\VET-SALVADOR\debug" TO RUTA-RESPALDO.
  3.       CALL "CBL_COPY_FILE2" USING RUTA-INICIAL RUTA-RESPALDO RETURNING STATUS-CODE.

no funciona
Roger is offline   Responder Con Cita
  #2
Antiguo 24 de mayo de 2017, 23:26
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Roger, intenta con:

Código COBOL:
  1.           MOVE "\\Roger-pc\d\VET-SALVADOR\debug\*.dat" & X"00" TO RUTA-INICIAL.
  2.           MOVE "\\Desktop-skgdvut\d\VET-SALVADOR\debug" & X"00" TO RUTA-RESPALDO.
  3.           CALL "CBL_COPY_FILE2" USING RUTA-INICIAL RUTA-RESPALDO RETURNING STATUS-CODE.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
  #3
Antiguo 25 de mayo de 2017, 06:11
Roger
Forero Activo
Última Actividad 04.02.2021 13:03
Posts Posts: 236
Likes enviados Enviados: 26
Likes recibidos Recibidos: 60

No logro que funcione probe de esa forma y nada.
Roger is offline   Responder Con Cita
  #4
Antiguo 25 de mayo de 2017, 09:57
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Roger, joe me acabo de dar cuenta que tienes un asterisco por ahí. ¡Esto es imposible, tienes que copiarlos uno a uno! Haciendo un bucle. Puedes usar el control CmFile para saber cuántos ficheros hay a copiar.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
  #5
Antiguo 27 de mayo de 2017, 05:05
Hrmcobol
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por implicación en la vida del Foro 
Última Actividad 01.03.2022 02:59
Posts Posts: 323
Likes enviados Enviados: 102
Likes recibidos Recibidos: 120

Hola Amigos, con un comando como:
Código COBOL:
  1.      INVOKE DDE1 "Execute" USING "c:\copiar.bat" POW-SWSHOWMINIMIZED.

Nunca lo probé pero debería andar

Saludos
Hrmcobol is offline   Responder Con Cita
  #6
Antiguo 27 de mayo de 2017, 06:35
Roger
Forero Activo
Última Actividad 04.02.2021 13:03
Posts Posts: 236
Likes enviados Enviados: 26
Likes recibidos Recibidos: 60

Probe con la opcion de KUK y Hrmcobol no funciona

logre con esta sintaxix
Código COBOL:
  1. MOVE "c:\WINDOWS\SYSTEM32\CMD.EXE /C  XCOPY /E \\Roger-pc\d\VET-SALVADOR\*.* \\Desktop-skgdvut\d\VET-SALVADOR" TO RUTA.
  2. INVOKE pow-self "execute" USING RUTA POW-SWHIDE.

Hasta ahi todo bien, pero como siempre los clientes hacen la ilogica en uno de ellos el sistema operativo no esta en c:\WINDOWS\SYSTEM32\ sino en F:\WINDOWS\SYSTEM32\ y como por programa pongo C: no lo reconoce por esto no queria usar este comando y buscaba una alternativa, podrian decir cambia de C a F el software esta en un instalador en CD y por lo tanto no se donde lo instalara el cliente.
¿Como hacen ustedes una copia espejo?
Roger is offline   Responder Con Cita
  #7
Antiguo 27 de mayo de 2017, 09:38
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Roger, debes obtener la variable de entorno WINDIR si quieres saber dónde está instalado Widnows. Además, %WINDIR%\system32 está en las rutas priotarias de búsqueda de programas, así que los programas que están en esta carpeta pueden llamarse sin indicar la ruta completa. Con lo cual, debería funcionarte así:

Código COBOL:
  1.     MOVE "CMD.EXE /C  XCOPY /E \\Roger-pc\d\VET-SALVADOR\*.* \\Desktop-skgdvut\d\VET-SALVADOR" TO RUTA.
  2.     INVOKE pow-self "execute" USING RUTA POW-SWHIDE.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
Respuesta



Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado

Saltar a Foro


La franja horaria es GMT +2. Ahora son las 15:58.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.