[Sintaxis] Facil - cambiar exportador de excel a txt

[KalEl]

Copie todo el código en el "EVENT PROCEDURES" OPENED.

y al compilarlo me da el siguiente error.

MainForm MainForm-Opened(1) :  JMN1019I-W  The indicator area must contain '-', '*', '/', 'D', or blank. A blank is assumed to be specified.
MainForm MainForm-Opened(1) :  JMN1005I-W  Character string 'NVIRONMENT' must start in Area B. The character string is assumed to start in Area B.
MainForm MainForm-Opened(1) :  JMN1356I-W  The invalid word 'NVIRONMENT' is specified in the IDENTIFICATION DIVISION. The invalid word is ignored, and the compiler skips to the next paragraph or DIVISION.
AR19.FD 1: JMN2005I-S  The file-name for the file description entry or the sort-merge file description entry must be defined at the SELECT clause of the FILE-CONTROL paragraph.  A sequential file is assumed.
MainForm MainForm-Opened(16) :  JMN2005I-S  The file-name for the file description entry or the sort-merge file description entry must be defined at the SELECT clause of the FILE-CONTROL paragraph.  A sequential file is assumed.
MainForm MainForm-Opened(55) :  JMN2503I-S  User word 'ST-S' is undefined.
MainForm MainForm-Opened(55) :  JMN2557I-S  The format of the MOVE statement is incomplete.
MainForm MainForm-Opened(55) :  JMN2503I-S  User word 'AR19' is undefined.
MainForm MainForm-Opened(55) :  JMN2503I-S  User word 'ST-S' is undefined.
MainForm MainForm-Opened(55) :  JMN2600I-S  The operand of the condition is invalid.
MainForm MainForm-Opened(55) :  JMN2557I-S  The format of the IF statement is incomplete.
MainForm MainForm-Opened(61) :  JMN3166I-S  Sequential access sequential file 'CLIE' cannot be specified in a START statement.
MainForm MainForm-Opened(63) :  JMN2503I-S  User word 'ST-OK' is undefined.
MainForm MainForm-Opened(63) :  JMN2600I-S  The operand of the condition is invalid.
MainForm MainForm-Opened(63) :  JMN2557I-S  The format of the IF statement is incomplete.
MainForm MainForm-Opened(104) :  JMN2510I-S  'END-IF' does not correspond. 'END-IF' is ignored.
MainForm MainForm-Opened(144) :  JMN1479I-S  The concatenation expression is too long. A literal is created using the first parts of the expression so that it does not exceed the maximum length.
MainForm MainForm-Opened(148) :  JMN2503I-S  User word 'ST-OK' is undefined.
MainForm MainForm-Opened(148) :  JMN2600I-S  The operand of the condition is invalid.
MainForm MainForm-Opened(148) :  JMN2557I-S  The format of the IF statement is incomplete.
MainForm MainForm-Opened(153) :  JMN2510I-S  'END-IF' does not correspond. 'END-IF' is ignored.

[Kuk]

KalEl, has copiado/pegado mal el código. Si usas el editor de PowerCOBOL, el código debe comenzar en la columna 2, que es lo que hace el código que te he pasado.

[KalEl]

Kuk..

acá un amigo me opaso una solucion a este post:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 #INCLUDE "EXTERIOR.CPY". 
 77  I PIC 999. 
 77  N PIC S9(10)V99. 
 77  FI8 PIC 9(8). 
 77  FF8 PIC 99/99/9999. 
 01  ARTI-PE.       *> copia de CARGAP con 1 solo renglon
              03 LIB-PE PIC 9.              *> 1=Articulo libre
              03 LRA-PE.                    *> Codigo articulo
                 04 LIN-PE PIC X(6).           *> Linea
                 04 RUB-PE PIC X(6).           *> Rubro
                 04 ART-PE PIC X(18).          *> Articulo
              03 CAN-PE PIC S9(8)V9(4).     *> Cantidad pedida
              03 CEN-PE PIC S9(8)V9(4).     *> Cantidad entregada
              03 DES-PE PIC X(40).          *> Descripcion
              03 DEA-PE PIC X(40).          *> Descripcion Adicional
              03 CUN-PE PIC 9(6)V99.        *> Cantidad de Unidades
              03 MUN-PE PIC X(10).          *> Medida de la Unidad
              03 RIB-PE PIC 99.             *> Rubro Ing.Brutos
              03 CTA-PE PIC 9(4).           *> Imp.Contable
              03 UNI-PE PIC S9(8)V9(4).     *> Valor Unitario
              03 IMI-PE PIC S9(7)V9(4).     *> Imp.Internos
              03 ALI-PE PIC 99V99.          *> Alicuota de Iva
              03 DE1-PE PIC S999V99.        *> % Rc/Dto 1
              03 DE2-PE PIC S99V99.         *> % Rc/Dto 1
              03 IMP-PE PIC S9(8)V99.       *> Importe
              03 FEE-PE PIC 9(8).           *> Fecha de Entrega
              03 OBS-PE PIC X(40).          *> Observaciones
              03 SUB-PE PIC X(60).          *> Subdivision 
 
 01  CARGA.
     02 ARTI00.
              03 LIB00 PIC 9.              *> 1=Articulo libre
              03 LRA00.
                 04 LIN00 PIC X(6).
                 04 RUB00 PIC X(6).
                 04 ART00 PIC X(18).
              03 CAN00 PIC S9(8)V9(4).
              03 DES00 PIC X(40).
              03 DEA00 PIC X(40).
              03 CUN00 PIC 9(6)V99.
              03 MUN00 PIC X(10).
              03 RIB00 PIC 99.
              03 CTA00 PIC 9(4).
              03 UNI00 PIC S9(8)V9(4).
              03 IMI00 PIC S9(7)V9(4).
              03 ALI00 PIC 99V99.
              03 DE100 PIC S999V99.
              03 DE200 PIC S99V99.
              03 IMP00 PIC S9(8)V99.
              03 SUB00 PIC X(60). 
 PROCEDURE DIVISION.
 DECLARATIVES. 
 #INCLUDE "AR19.DEC". 
 #INCLUDE "AR38.DEC". 
 END DECLARATIVES. 
     MOVE 11 to "MousePointer" OF POW-SELF.
 1.    
     MOVE "CLIENTES.TXT" TO ARXXX OPEN OUTPUT RATIOS
     MOVE "Cuenta         " TO XXX99(1)
     MOVE "Nombre         " TO XXX99(2)
     MOVE "Domicilio      " TO XXX99(3)
     MOVE "Localidad      " TO XXX99(4)
     MOVE "Provincia      " TO XXX99(5)
     MOVE "Cuit           " TO XXX99(6)
     MOVE "Iva            " TO XXX99(7)
     MOVE "Vendedor       " TO XXX99(8)
     MOVE "Cobrador       " TO XXX99(9)
     MOVE "Zona           " TO XXX99(10)
     MOVE "Mercado        " TO XXX99(11)
     WRITE RXX
     
     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 THRU FPASO1
        READ CLIE NEXT NO LOCK AT END MOVE 1 TO SFA END-READ   
     END-PERFORM. 
     CLOSE CLIE RATIOS.
     MOVE 0 TO I IF I = 0 GO FIN.
 
 FIN.     
     MOVE "  " TO "StatusText" OF POW-SELF
     MOVE 1 TO "MousePointer" OF POW-SELF 
     INVOKE POW-SELF "Deactivate" 
     EXIT PROGRAM. 
* Paso un comprobante
 PASO1.
     MOVE CO19  TO XXX99(1)
     MOVE NOM19 TO XXX99(2)
     MOVE DOM19 TO XXX99(3)
     MOVE COP19 TO XXX99(4)
     MOVE PRO19 TO XXX99(5)
     MOVE CUI19 TO XXX99(6)
     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 XXX99(7)
     MOVE VEN19 TO XXX99(8)
     MOVE COB19 TO XXX99(9)
     MOVE ZON19 TO XXX99(10)
     MOVE MER19 TO XXX99(11)
     WRITE RXX.
 FPASO1.

Se compila bien, pero me da error en la línea "OPEN INPUT CLIE "

pero no explica nada de porque el error.. tendrás alguna idea?

[Josber]

¿Dónde están las declaraciones de los archivos en la ENVIRONMENT y DATA DIVISION?

Un saludo.-