Citación del post de
drvedia1981
|
❞
Hola a todos, sera posible leer un archivo cobol desde una aplicación vb6 el archivo cobol es asi
esta en power v3 en una aplicacion que hice hace un tiempo.
Código COBOL:
000001 FD ARTICULO GLOBAL EXTERNAL. 000002 01 REG-ARTICULO. 000003 02 ART-CLAVE-PRIN. 000004 05 ARTCODIGO PIC 9(5). 000005 02 ART-CLAVE-BARRA. 000006 05 ARTBARRA PIC 9(13). 000007 02 ART-CLAVE-NOMBRE. 000008 05 ARTNOMBRE PIC X(35). 000009 02 ARTTPV PIC X(20). 000010 02 ARTIVA PIC 9(4). 000011 02 ART-CLAVE-PROVEEDOR. 000012 05 ARTPROVEEDOR PIC 9(5). 000013 02 ART-CLAVE-RUBRO. 000014 05 ARTRUBRO PIC 9(3). 000015 02 ARTENVASE PIC 9(5). 000016 02 ARTCOSTO PIC 9(7)V99. 000017 02 ARTMINORISTA PIC 9(7)V99. 000018 02 ARTMAYORISTA PIC 9(7)V99. 000019 02 ARTDESCUENTO PIC 9(2). 000020 02 ARTCANTIDAD PIC 9(2). 000021 02 ARTMINIMO PIC 9(4). 000022 02 ARTGANANCIA1 PIC 9(2). 000023 02 ARTGANANCIA2 PIC 9(2). 000024 02 ARTSTOCK OCCURS 4 PIC S9(6)V99. 000025 02 ARTVENDIDO OCCURS 31 PIC S9(7)V99. 000026 02 ARTCANTIDADVEND PIC 9(6)V99. 000027 02 ARTCOMPRA PIC 9(6). 000028 02 ARTFOTOGRAFIA PIC X(128).
Solo quiero buscar por ARTBARRA y que me devuelva el ARTMINORISTA no lo puedo hacer en cobol porque usa el puerto serie y en power nunca pude usar un ocx que funcione como quiero, alguna pista de como lo puedo hacer .
Muchas gracias Saludos
---------- Post añadido : 00:51 ---------- Post anterior : 00:49 ----------
Código COBOL:
000001 SELECT ARTICULO ASSIGN TO "E:\FSC\ARCHIVOS\ARARTIC.DAT" 000002 ORGANIZATION INDEXED 000003 ACCESS DYNAMIC 000004 RECORD KEY IS ART-CLAVE-PRIN 000005 ALTERNATE RECORD IS ART-CLAVE-BARRA 000006 ALTERNATE RECORD IS ART-CLAVE-NOMBRE WITH DUPLICATES 000007 ALTERNATE RECORD IS ART-CLAVE-PROVEEDOR WITH DUPLICATES 000008 ALTERNATE RECORD IS ART-CLAVE-RUBRO WITH DUPLICATES 000009 FILE STATUS ART-STATUS.
|
Não dá para criar um ficheiro LINE-SEQUENTIAL temporário só com a informação a processar?