[Sintaxis] Facil - cambiar exportador de excel a txt

[KalEl]

Gente que tal,

Tengo este código que convierte un archivo rmkf .dat en Excel, pero desearía que sea a TXT o CSV para evitar problemas de versiones.

No se programar en cobol, pero si sé en PHP, VB, JS, etc.

PROCEDURE DIVISION.
 DECLARATIVES. 
 #INCLUDE "19.DEC". 
 #INCLUDE "38.DEC". 
 END DECLARATIVES. 
* Abre Excel y graba títulos 
*     MOVE "\XXX\AR19.DAT" TO AR19.
*     INVOKE POW-SELF "CallForm" USING "Excel" "RUTINAS"
*     IF V-RUT NOT = "S" EXIT PROGRAM. 
*     IF V-EXEL = 1 MOVE POW-TRUE TO "ShowExcel" OF EXCEL. 
     MOVE 11 to "MousePointer" OF POW-SELF
     MOVE "  Generando planilla en Excel " TO "StatusText" OF POW-SELF.
 1.    
     INVOKE EXCEL "Start" 
     INVOKE EXCEL "NewBook" USING 1 
     MOVE "Cuenta         " TO "Text"(1 1)  OF EXCEL
     MOVE "Nombre         " TO "Text"(1 2)  OF EXCEL
     MOVE "Domicilio      " TO "Text"(1 3)  OF EXCEL
     MOVE "Localidad      " TO "Text"(1 4)  OF EXCEL
     MOVE "Provincia      " TO "Text"(1 5)  OF EXCEL
     MOVE "Cuit           " TO "Text"(1 6)  OF EXCEL
     MOVE "Iva            " TO "Text"(1 7)  OF EXCEL
     MOVE "Vendedor       " TO "Text"(1 8)  OF EXCEL
     MOVE "Cobrador       " TO "Text"(1 9)  OF EXCEL
     MOVE "Zona           " TO "Text"(1 10) OF EXCEL
     MOVE "Mercado        " TO "Text"(1 11) OF EXCEL
     MOVE 1 TO IL
     OPEN INPUT CLIE  
     INITIALIZE R19 SFA 
     START CLIE KEY NOT < CO19 INVALID MOVE 1 TO SFA 
       NOT INVALID READ CLIE NEXT NO LOCK. 
     PERFORM UNTIL SFA = 1 
        PERFORM PASO1 
        READ CLIE NEXT NO LOCK AT END MOVE 1 TO SFA END-READ   
     END-PERFORM 
     CLOSE CLIE  
*     INVOKE POW-SELF "DISPLAYMESSAGE" USING "PASO 1"
     INVOKE EXCEL "SaveAsBook" USING "C:\DATA\CLIENT.XLS" POW-FALSE RETURNING ReturnValue.
*     INVOKE POW-SELF "DISPLAYMESSAGE" USING "PASO 2"
     INVOKE EXCEL "CloseBook" USING 1.

se que faltan otras partes del código, pero quisiera saber si con un simple cambio del código puedo exportarlo a txt en lugar de XLS.

[Kuk]

KalEl, publica los SELECT y FD también.
Entiendo que este programa no lo vas a ejecutar en un script, sino que se trata de uno con Forms (PowerCOBOL)

[KalEl]

Hola Kuk, ahi te paso los archivos.

Saludos

[Kuk]

KalEl, has colgado descripción de 2 ficheros. ¿Para cual necesitas eso, para los dos?

[KalEl]

❞ KalEl, has colgado descripción de 2 ficheros. ¿Para cual necesitas eso, para los dos?

No, solo del 19.
Colgue el 38 porque vi que al principio del código lo leia pero no debe ser necesario.

[Kuk]

KalEl, dame el código del párrafo PASO1.

[KalEl]

Kuk, aqui va el código del paso1:

PASO1.
     ADD 1 TO IL 
     MOVE CO19 TO TEX MOVE TEX TO "Text"(IL 1) OF EXCEL
     MOVE NOM19 TO "Text"(IL 2) OF EXCEL
     MOVE DOM19 TO "Text"(IL 3) OF EXCEL
     MOVE COP19 TO "Text"(IL 4) OF EXCEL
     MOVE PRO19 TO "Text"(IL 5) OF EXCEL
     MOVE CUI19 TO "Text"(IL 6) OF EXCEL     
     EVALUATE TIV19 
       WHEN 1 MOVE "RI" TO TEX 
       WHEN 2 MOVE "RN" TO TEX 
       WHEN 3 MOVE "NR" TO TEX 
       WHEN 4 MOVE "EX" TO TEX 
       WHEN 5 MOVE "CF" TO TEX 
       WHEN 6 MOVE "RM" TO TEX 
       WHEN 7 MOVE "NC" TO TEX 
       WHEN OTHER MOVE "  " TO TEX
     END-EVALUATE 
     MOVE TEX TO "Text"(IL 7) OF EXCEL
     MOVE VEN19 TO "Text"(IL 8) OF EXCEL
     MOVE COB19 TO "Text"(IL 9) OF EXCEL
     MOVE ZON19 TO "Text"(IL 10) OF EXCEL
     MOVE MER19 TO "Text"(IL 11) OF EXCEL.

[Kuk]

KalEl,

 ENVIRONMENT DIVISION.  
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
     
     COPY "AR19.SEL".
     
     SELECT CSV-FILE
     ASSIGN TO "AR19.csv"
     ORGANIZATION IS LINE SEQUENTIAL
     FILE STATUS IS ST1. 
 
 DATA DIVISION.
 FILE SECTION.
 COPY "AR19.FD".
 
 FD  CSV-FILE.
 01  RE-CSV.
     05  RE-CO19      PIC X(7).
     05  FILLER       PIC X(1).
     05  RE-NOM19     PIC X(40). 
     05  FILLER       PIC X(1).
     05  RE-DOM19     PIC X(30). 
     05  FILLER       PIC X(1).
     05  RE-COP19     PIC 9(4).   
     05  FILLER       PIC X(1).
     05  RE-PRO19     PIC 99. 
     05  FILLER       PIC X(1).
     05  RE-CUI19     PIC X(13).
     05  FILLER       PIC X(1).
     05  RE-TIV19-X   PIC X(2).
     05  FILLER       PIC X(1).
     05  RE-VEN19     PIC 999.
     05  FILLER       PIC X(1).
     05  RE-COB19     PIC 999.
     05  FILLER       PIC X(1).
     05  RE-ZON19     PIC 99. 
     05  FILLER       PIC X(1).
     05  RE-MER19     PIC 9.
 
 WORKING-STORAGE SECTION.
 01  ST1              PIC X(2).
     88  ST1-OK             VALUE '00' '02' '05'.
     88  ST1-EOF            VALUE '10'.
 
 01  TEX              PIC X(10).
 01  EDT              PIC -(6)9.
 
 LINKAGE SECTION.
 01  CMD-LINE.
     05   CMD-LENGTH  PIC S9(4) COMP-5.
     05   CMD-CONTENT PIC X(100).
 PROCEDURE DIVISION USING CMD-LINE.
 
 DECLARATIVES.
 #INCLUDE "19.DEC".
 END DECLARATIVES.
 
     PERFORM ABRIR-FICHEROS
     PERFORM GRABA-CABECERA
     
     START CLIE FIRST
     
     IF  ST-OK
         READ CLIE NEXT      
         
         PERFORM UNTIL ST1-EOF   
             MOVE CO19  TO EDT
             
             EVALUATE TIV19 
                 WHEN 1 MOVE "RI" TO TEX 
                 WHEN 2 MOVE "RN" TO TEX 
                 WHEN 3 MOVE "NR" TO TEX 
                 WHEN 4 MOVE "EX" TO TEX 
                 WHEN 5 MOVE "CF" TO TEX 
                 WHEN 6 MOVE "RM" TO TEX 
                 WHEN 7 MOVE "NC" TO TEX 
                 WHEN OTHER MOVE "  " TO TEX
             END-EVALUATE 
                         
             STRING EDT   ";"                     
                    NOM19 ";"
                    DOM19 ";"
                    COP19 ";"
                    PRO19 ";"
                    CUI19 ";"
                    TEX   ";"
                    VEN19 ";"
                    COB19 ";"
                    ZON19 ";"
                    MER19 ";"
                    DELIMITED BY SIZE INTO RE-CSV
             
             WRITE RE-CSV
             
             IF  NOT ST1-OK                 
                 INVOKE POW-SELF "DisplayMessage" 
                  USING "Error WRITE CSV", ST1, 16 
             
                 GOBACK
             END-IF
                                    
             READ CLIE NEXT    
         END-PERFORM
     END-IF
     
     CLOSE CLIE, CSV-FILE
     
     GOBACK
     .            
     
 ABRIR-FICHEROS.
 
     OPEN INPUT CLIE
     
     IF  NOT ST1-OK
         INVOKE POW-SELF "DisplayMessage" 
          USING "Error OPEN AR86", ST1, 16 
         
         GOBACK
     END-IF
     
     OPEN OUTPUT CSV-FILE
     
     IF  NOT ST1-OK
         INVOKE POW-SELF "DisplayMessage" 
          USING "Error OPEN CSV", ST1, 16 
         
         GOBACK
     END-IF
     .
 
 GRABA-CABECERA.
     
     MOVE "Cuenta         ;" &
          "Nombre         ;" &
          "Domicilio      ;" &
          "Localidad      ;" &
          "Provincia      ;" &
          "Cuit           ;" &
          "Iva            ;" &
          "Vendedor       ;" &
          "Cobrador       ;" &
          "Zona           ;" &
          "Mercado        ;" TO RE-CSV
          
     WRITE RE-CSV 
     
     IF  NOT ST-OK
         INVOKE POW-SELF "DisplayMessage" 
          USING "Error WRTIE CSV", ST1, 16 
         
         GOBACK
     END-IF
     .
           

[Fito]

Hola KUK:

Estoy viendo mal o el string y el move de la cabecera, son más grandes que el RE-CSV?

Saludos.

Fito...

[Kuk]

Fito, he creado la estructura copiando los campos uno a uno añadiendo los FILLER, pero no lo he probado, así que es posible que se me haya escapado algo.