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
[Problema con el Foro] ¿Funciona bien siempre? Dasije COBOLForo.es 21 23 de agosto de 2018 07:58
[Sintaxis] Ayuda con libreria epson InterfaceEpsonNF.dll drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 2 24 de noviembre de 2017 01:05
[Compilador] Compilar un Ejecutable (.exe) Yonaider RM/COBOL 5 26 de mayo de 2016 08:19
[Información] Tab Control y como funciona Kuk PowerCOBOL (ActiveX, v4 - v11) 7 30 de diciembre de 2015 22:17
[Componente] AdvApi32.lib - no funciona Kuk PowerCOBOL V3L10 (Win32) 2 30 de julio de 2015 08:27
Respuesta
 
Herramientas

  #1
Antiguo 13 de marzo de 2018, 15:32
IDENTIFICATION DIVISION
FerNav
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de FerNav
DATA DIVISION
marzo 2018
Bahía Blanca
48 años
19.03.2019 17:15
PROCEDURE DIVISION
Posts: 1
Enviado: 1
Recibido: 0
Soluiones: 0
Reputación: 0
FerNav is an unknown quantity at this point
Question Libreria Coblib.exe no funciona en RMC11

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 no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 14 de marzo de 2018, 16:20
IDENTIFICATION DIVISION
JCantero
 Novato Senior
ENVIRONMENT DIVISION
Avatar de JCantero
DATA DIVISION
junio 2016
Albacete
55 años
15.06.2021 23:25
PROCEDURE DIVISION
Posts: 181
Enviado: 53
Recibido: 120
Soluiones: 8
Reputación: 18
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

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 no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
FerNav (14 de marzo de 2018), Kuk (14 de marzo de 2018)
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:30.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.