Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > MicroFocus COBOL > RM/COBOL
RM/COBOL IDE y Compilador RM/COBOL
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Información] Lista de usuarios que se eliminarán del Foro Kuk COBOLForo.es 12 8 de octubre de 2021 11:12
[Sintaxis] sumar numeros de una lista Breew COBOL - General 12 3 de junio de 2020 21:34
[Sintaxis] Cargar la lista por columnas ctList de DBI-Tech Breew PowerCOBOL (ActiveX, v4 - v11) 5 25 de febrero de 2018 20:59
[Sintaxis] Guardar/cargar jerarquía de nodos en TreeView dmosca PowerCOBOL (ActiveX, v4 - v11) 8 28 de agosto de 2017 21:53
[Sintaxis] Sacar y guardar el cógido fuente de una pagina Web Roger PowerCOBOL (ActiveX, v4 - v11) 20 11 de marzo de 2015 21:56
Respuesta
 
Herramientas

  #1
Antiguo 12 de mayo de 2022, 08:23
IDENTIFICATION DIVISION
luisbago
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de luisbago
DATA DIVISION
marzo 2022
Yucatán
27.05.2022 22:57
PROCEDURE DIVISION
Posts: 9
Enviado: 1
Recibido: 3
Soluciones: 0
Reputación: 0
luisbago is an unknown quantity at this point
Tabla Ejemplo guardar lista de archivos

Alguien tiene un código para poner el listado de archivos que contiene un directorio, en un archivo de texto?

Por ejemplo el directorio "New Folder" contiene 20 archivos idx y se guarde los nombre de los archivos
en el archivos "Listado.txt"

en rmcobol 7, gracias
luisbago no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 12 de mayo de 2022, 10:31
IDENTIFICATION DIVISION
Joseg
 Senior
Activista del Foro: Activista del Foro - Razón: Por participación activa  Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
abril 2015
18.05.2022 17:09
PROCEDURE DIVISION
Posts: 264
Enviado: 67
Recibido: 113
Soluciones: 13
Reputación: 19
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

CommandLine

Código:
DIR \New Folder\*.IDX >> Listado.txt
Joseg no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
JCantero (12 de mayo de 2022)
  #3
Antiguo 12 de mayo de 2022, 17:22
IDENTIFICATION DIVISION
JCantero
 Senior
Activista del Foro: Activista del Foro - Razón: Por participación activa  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos de parte de los Foreros 
ENVIRONMENT DIVISION
Avatar de JCantero
DATA DIVISION
junio 2016
Albacete
56 años
27.05.2022 18:17
PROCEDURE DIVISION
Posts: 247
Enviado: 83
Recibido: 171
Soluciones: 11
Reputación: 23
JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road
Predeterminado

Citación del post de Joseg Ver Mensaje
CommandLine

Código:
DIR \New Folder\*.IDX >> Listado.txt

Yo lo hago así: ( con /B y en este caso el directorio a listar entre comillas para directorios que contengasn espacios)

Código Bash:
  1. DIR   /B   "\New Folder\*.IDX" >> Listado.txt

Ya que, así no hay que ir buscando los ficheros en el detalle, cada línea, un fichero.
JCantero no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 12 de mayo de 2022, 19:37
IDENTIFICATION DIVISION
luisbago
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de luisbago
DATA DIVISION
marzo 2022
Yucatán
27.05.2022 22:57
PROCEDURE DIVISION
Posts: 9
Enviado: 1
Recibido: 3
Soluciones: 0
Reputación: 0
luisbago is an unknown quantity at this point
Predeterminado

Código COBOL:
  1. 1 WK-OPERACION.
  2.             02 pic x(19) value 'DIR *.IDX /B /l >> '.
  3.             02 arch-op pic x(8).
  4.  
  5.  01 temp value 'TEMP'.
  6.            02 HH   pic x(4).
  7.            02 MI   pic 9(2).
  8.            02 SS   pic 9(2).
  9.  
  10. ACCEPT WK-HORA FROM TIME.
  11.              MOVE WK-MI TO MI.
  12.              MOVE WK-SS TO SS.
  13.             MOVE TEMP TO TEMP1.
  14.            MOVE 'TMP1' TO TEMP1(1:4).
  15.              MOVE TEMP1 TO ARCH-OP.
  16.  
  17. call 'system' USING wk-operacion.

no, no funciona, no logra crear el archivo con tmp con minutos y segundos en su nombre, que es algo trivial realmente.

No se crea el archvio, en rmcbol 5 si funciona el codigo, que paso?
luisbago no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 12 de mayo de 2022, 23:25
IDENTIFICATION DIVISION
JCantero
 Senior
Activista del Foro: Activista del Foro - Razón: Por participación activa  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos de parte de los Foreros 
ENVIRONMENT DIVISION
Avatar de JCantero
DATA DIVISION
junio 2016
Albacete
56 años
27.05.2022 18:17
PROCEDURE DIVISION
Posts: 247
Enviado: 83
Recibido: 171
Soluciones: 11
Reputación: 23
JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road
Predeterminado

Tienes que poner el path completo, si no, no encontrara nada.

DIR /B "\New Folder\*.IDX" >> Listado.txt

En qué directorio estás buscando ?

---------- Post añadido el 13 de mayo de 2022 a las 00:29 ----------

Además, tienes que poner el path completo del fichero destino. Solo Dios sabe dónde lo creará.

DIR /B "\New Folder\*.IDX" >> c:\Dios\Listado.txt

---------- Post añadido el 13 de mayo de 2022 a las 00:40 ----------

Si lo quieres localizar , por ejemplo, c:\tmp\listado.txt

DIR /B "\New Folder\*.IDX" > c:\tmp\Listado.txt

Y sólo >, para que cree el fichero, si pones >>, añade a lo que contenia

---------- Post añadido el 13 de mayo de 2022 a las 00:51 ----------

Indica lo que no entiendas !!
JCantero no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 13 de mayo de 2022, 20:15
IDENTIFICATION DIVISION
luisbago
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de luisbago
DATA DIVISION
marzo 2022
Yucatán
27.05.2022 22:57
PROCEDURE DIVISION
Posts: 9
Enviado: 1
Recibido: 3
Soluciones: 0
Reputación: 0
luisbago is an unknown quantity at this point
Predeterminado

Una disculpa no supe explicarme

la aplicación funciona en este directorio "C:\usr\dat", dentro del directorio están los *.cob y los *.idx, entonces la instrucción donde se ejecuta el comando se guarda aquí
Código COBOL:
  1.  02 pic x(19) value 'DIR *.IDX /B /l >> '.
, no se si se ejecuta, pero el archivo tmp1 o temp1 no se crea (por cierto, por cosas que desconozco del programador original, crea un archivo, luego hace que se copie en otro, bueno no importa).

antes funcionada con rmcobol 5.26.00, ahora con el rmcobol 7.00.02 no funciona el código, supongo el actualizar el runtime algo ya no funciona, pero realmente no se que cambiar para que funcione.

arriba en mi segunda respuesta esta parte del codigo que junta el dir con el nombre del archivo deseado, quedando asi "DIR *.IDX /B /L > TEMP1"
luisbago no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 14 de mayo de 2022, 10:49
IDENTIFICATION DIVISION
JCantero
 Senior
Activista del Foro: Activista del Foro - Razón: Por participación activa  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos de parte de los Foreros 
ENVIRONMENT DIVISION
Avatar de JCantero
DATA DIVISION
junio 2016
Albacete
56 años
27.05.2022 18:17
PROCEDURE DIVISION
Posts: 247
Enviado: 83
Recibido: 171
Soluciones: 11
Reputación: 23
JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road
Predeterminado

Prueba esto y luego lo pesonalizas para resolver tu problema:

Código COBOL:
  1.  
  2.  
  3. call 'system' USING 'c:\windows\system32\cmd.exe /c  dir /b c:\usr\dat > c:\usr\prueba.txt'
  4.  
JCantero no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
luisbago (18 de mayo de 2022)
  #8
Antiguo 18 de mayo de 2022, 14:58
IDENTIFICATION DIVISION
luisbago
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de luisbago
DATA DIVISION
marzo 2022
Yucatán
27.05.2022 22:57
PROCEDURE DIVISION
Posts: 9
Enviado: 1
Recibido: 3
Soluciones: 0
Reputación: 0
luisbago is an unknown quantity at this point
Predeterminado

Citación del post de JCantero Ver Mensaje
Prueba esto y luego lo pesonalizas para resolver tu problema:

Código COBOL:
  1.  
  2.  
  3. call 'system' USING 'c:\windows\system32\cmd.exe /c  dir /b c:\usr\dat > c:\usr\prueba.txt'
  4.  
Funciono, por fin, muchas gracias lo deje asi
Código COBOL:
  1.  value 'c:\windows\system32\cmd.exe /c  dir *.idx /l /b >'
luisbago no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

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



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