Cobol - Como reemplazo el &findfil de la rutina COBLIB.EXE en RMC11

   
Vista:

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:
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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder