Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Micro Focus COBOL RM/COBOL
RM/COBOL IDE y Compilador RM/COBOL
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Ayuda con libreria epson InterfaceEpsonNF.dll drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 3 1 de febrero de 2022 13:34
[Duda] programa de turnos no funciona red orlando PowerCOBOL (ActiveX, v4 - v11) 0 16 de febrero de 2021 19:24
[Problema con el Foro] ¿Funciona bien siempre? Dasije Funcionamiento del Foro 21 23 de agosto de 2018 08:58
[Duda] Tab Control y como funciona Kuk PowerCOBOL (ActiveX, v4 - v11) 7 30 de diciembre de 2015 23:17
[Componente] AdvApi32.lib - no funciona Kuk PowerCOBOL v3 (V3L10, Win32) 2 30 de julio de 2015 09:27

Respuesta
 
Herramientas

  #1
Antiguo 13 de marzo de 2018, 16:32
FerNav
Acabo de llegar...
Última Actividad 19.03.2019 18:15
Posts Posts: 1
Likes enviados Enviados: 1
Likes recibidos Recibidos: 0
Pregunta Libreria Coblib.exe no funciona en RMC11
0 Inactivo Inactivo

Hola amigos Coboleros, estoy tratando de migrar de RM Cobol 5.3 de DOS a RM Cobol 11 para windows y me encuentro con el problema de que no tengo la posibilidad de utilizar la libreria COBLIB.EXE (colocada en el runcobol con la opcion L=coblib.exe, donde realizo llamadas a &FINDFIL para buscar archivos mensuales indexados con determinado filtro y luego ir recorriendolos abriendo y cerrando cada uno.
Ejemplo:
Código COBOL:
  1.             STRING  "C:\SISTEMA\ARCHIVOS\TAPA*.F01"
  2.                   DELIMITED SIZE  INTO FIND2.
  3.  
  4.            INITIALIZE FINDST.
  5.            CALL "&FINDFIL" USING FIND-ARGS.
  6.            PERFORM UNTIL FINDST NOT = ZEROES
  7.                INITIALIZE ARCTAPA-01
  8.               STRING FIND3  DELIMITED " "  INTO ARCTAPA-01 END-STRING
  9.               OPEN INPUT ADTAPA-01
  10.               ......
  11.               CLOSE ADTAPA-01  
  12.              IF FINDST = ZEROES CALL "&FINDFIL" USING FIND-ARGS END-IF        
  13.            END-PERFORM.  
  14.            CANCEL "&FINDFIL".
Esto realiza una lista de archivos mensuales tapa1801.f01 luego tapa1802.f01 y tapa1803.f01 (año y mes) entro a cada archivo y saco lo que necesito de cada uno, todos con la misma estructura.
Con este nuevo cobol no lo puedo utilizar mas, no me reconoce la libreria externa. Tal vez alguno de uds. tuvo el mismo problema o realiza lo mismo de otra forma.
Agradeceria su ayuda enormemente.
Perdón si realicé mal el post, es la 1er vez que publico algo
Muchas gracias
FerNav is offline   Responder Con Cita
  #2
Antiguo 14 de marzo de 2018, 17:20
JCantero
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros 
Última Actividad 02.09.2026 00:15
Posts Posts: 442
Likes enviados Enviados: 167
Likes recibidos Recibidos: 269

Realiza un call system para hacer un dir y tener los ficheros deseados en un fichero line sequential. Lo abres y cada linea es un fichero.


Código COBOL:
  1. 01 fichero pic x(80).
  2. 01 comando pic x(200).
  3.  
  4. initialize comando
  5. accept fichero from time
  6. move '.tmp' to fichero(9:)
  7.  
  8. string "cmd/c dir /b c:\SISTEMA\ARCHIVOS\TAPA*.F01 >"  delimited by size
  9.           fichero delimited by size into comando
  10. call "system" using comando.

En el fichero temporal fichero tienes el resultado.
JCantero 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 14:45.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.