Tema: Leer archivos Cobol desde VB6
Ver Mensaje Individual
  #7
Antiguo 30 de enero de 2018, 21:36
drvedia1981
Forero
Última Actividad 17.05.2022 22:45
Posts Posts: 66
Likes enviados Enviados: 3
Likes recibidos Recibidos: 9
Predeterminado
0
Likes

None...

Inactivo Inactivo
Hola Kuk

Arme esto y con el script que me dijiste me genero un .exe para generar la dll como seria, esta bien el codigo como lo ves Gracias Saludos

Código COBOL:
  1. 000010 IDENTIFICATION DIVISION.
  2. 000020 PROGRAM-ID.   DLL.
  3. 000030 ENVIRONMENT DIVISION.
  4. 000031 CONFIGURATION SECTION.
  5. 000042 
  6. 000043 INPUT-OUTPUT  SECTION.
  7. 000044 FILE-CONTROL.
  8. 000055     SELECT ARTICULO   ASSIGN TO "C:\FSC\ARCHIVOS\ARARTIC.DAT" 
  9. 000056           ORGANIZATION INDEXED
  10. 000057           ACCESS DYNAMIC
  11. 000058           RECORD KEY IS ART-CLAVE-PRIN 
  12. 000059           ALTERNATE RECORD IS ART-CLAVE-BARRA
  13. 000060           ALTERNATE RECORD IS ART-CLAVE-NOMBRE    WITH DUPLICATES
  14. 000061           ALTERNATE RECORD IS ART-CLAVE-PROVEEDOR WITH DUPLICATES
  15. 000062           ALTERNATE RECORD IS ART-CLAVE-RUBRO     WITH DUPLICATES
  16. 000063           FILE STATUS ART-STATUS.
  17. 000064
  18. 000065 DATA DIVISION.
  19. 000066 FILE SECTION.
  20. 000067 FD ARTICULO GLOBAL EXTERNAL.
  21. 000068 01 REG-ARTICULO.
  22. 000069    02 ART-CLAVE-PRIN.
  23. 000070       05 ARTCODIGO         PIC 9(5).
  24. 000071    02 ART-CLAVE-BARRA.
  25. 000072       05 ARTBARRA          PIC 9(13).
  26. 000073    02 ART-CLAVE-NOMBRE.    
  27. 000074       05 ARTNOMBRE         PIC X(35).
  28. 000075    02 ARTTPV               PIC X(20).
  29. 000076    02 ARTIVA               PIC 9(4).
  30. 000077    02 ART-CLAVE-PROVEEDOR.
  31. 000078       05 ARTPROVEEDOR      PIC 9(5).
  32. 000079    02 ART-CLAVE-RUBRO.
  33. 000080       05 ARTRUBRO          PIC 9(3).
  34. 000081    02 ARTENVASE            PIC 9(5).
  35. 000082    02 ARTCOSTO             PIC 9(7)V99.
  36. 000083    02 ARTMINORISTA         PIC 9(7)V99.
  37. 000084    02 ARTMAYORISTA         PIC 9(7)V99.
  38. 000085    02 ARTDESCUENTO         PIC 9(2).
  39. 000086    02 ARTCANTIDAD          PIC 9(2).
  40. 000087    02 ARTMINIMO            PIC 9(4).
  41. 000088    02 ARTGANANCIA1         PIC 9(2).
  42. 000089    02 ARTGANANCIA2         PIC 9(2).
  43. 000090    02 ARTSTOCK OCCURS 4    PIC S9(6)V99. 
  44. 000091    02 ARTVENDIDO OCCURS 31 PIC S9(7)V99.
  45. 000092    02 ARTCANTIDADVEND      PIC 9(6)V99.
  46. 000093    02 ARTCOMPRA            PIC 9(6).
  47. 000094    02 ARTFOTOGRAFIA        PIC X(128).
  48. 000098 WORKING-STORAGE SECTION.
  49. 000100 01 ART-STATUS             PIC  9(2).
  50. 000104 LINKAGE SECTION.
  51. 000105 01 DATA1        PIC X(13).
  52. 000106 01 DATA2        PIC S9(14)V9(4) COMP-5.
  53. 000117
  54. 000118 PROCEDURE DIVISION WITH STDCALL LINKAGE USING DATA1 DATA2 .
  55. 000121      OPEN INPUT ARTICULO
  56. 000128      MOVE DATA1     TO ARTBARRA.
  57. 000130      READ ARTICULO  KEY IS ART-CLAVE-BARRA.      
  58. 000147      MOVE ARTMINORISTA       TO DATA2
  59. 000153      CLOSE ARTICULO      
  60. 000154
  61. 000157     EXIT PROGRAM.
drvedia1981 is offline   Responder Con Cita