Como reemplazo el &findfil de la rutina COBLIB.EXE en RMC11
Publicado por Fernando (1 intervención) el 21/03/2018 12:54:45
Hola amigos, 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:
Ejemplo:
1
2
3
4
5
6
7
8
9
10
11
12
13
STRING "C:\SISTEMA\ARCHIVOS\TAPA*.F01"
DELIMITED SIZE INTO FIND2.
INITIALIZE FINDST.
CALL "&FINDFIL" USING FIND-ARGS.
PERFORM UNTIL FINDST NOT = ZEROES
INITIALIZE ARCTAPA-01
STRING FIND3 DELIMITED " " INTO ARCTAPA-01 END-STRING
OPEN INPUT ADTAPA-01
......
CLOSE ADTAPA-01
IF FINDST = ZEROES CALL "&FINDFIL" USING FIND-ARGS END-IF
END-PERFORM.
CANCEL "&FINDFIL".
Valora esta pregunta


1