Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL v3 (V3L10, Win32) (https://www.cobolforo.es/forumdisplay.php?f=5)
-   -   [Compilador] Error al Ejecutar (https://www.cobolforo.es/showthread.php?t=841)

JuanPelaez 25 de abril de 2018 17:02
Error al Ejecutar
 
2 Archivos Adjunto(s)
Buenas tardes Foro ....

He hecho mi primer programa en COBOL y al ejecutarlo me da un error .....

Primero aparece una pantalla ( ver imagen adjunta I01.jpg ), para modificar las variables de entorno,
no hago nada, le doy a Ok, se ejecuta mi programa que debo pulsar un boton
y me sale un error ( ver imagen adjunta I02.jpg ) ......

Sabe alguien que es lo que pasa .... ?

Gracias

Josber 25 de abril de 2018 21:31
Es PWC 3, ¿no?, el que mejor te puede ayudar es Kuk, es quien mejor domina la instalación y manejo de esa versión.

Un saludo.-

Kuk 25 de abril de 2018 23:27
JuanPelaez, ¿cuándo salta el error, cuando les das al botón "OK" de la ventana de las variables o cuando le das al botón de tu programa que se abre después?

Publica el código de tu programa, es posible que el fallo venga de ahí también.

JuanPelaez 26 de abril de 2018 10:37
Cita:
Citación del post de Kuk (Mensaje 4150)
JuanPelaez, ¿cuándo salta el error, cuando les das al botón "OK" de la ventana de las variables o cuando le das al botón de tu programa que se abre después?

Publica el código de tu programa, es posible que el fallo venga de ahí también.

Cuando le doy al botón de mi programa ......

---------- Post añadido : 08:37 ---------- Post anterior : 06:29 ----------

Me da que debe ser el codigo que puse por que cuando cree SOLO la pantalla con el boton ya lo habia compilado y ejecutado y no daba el error .....
te pego el código añadigo en el EVENTO CLICK del boton :
Código COBOL:
  1.  ENVIRONMENT DIVISION.
  2.  INPUT-OUTPUT SECTION.
  3.  FILE-CONTROL.
  4.      
  5.      SELECT AR86-FILE
  6.      ASSIGN TO "BARRAS.DAT"
  7.      ORGANIZATION IS INDEXED 
  8.      ACCESS MODE IS SEQUENTIAL 
  9.      RECORD KEY IS RE-DE86
  10.      FILE STATUS IS SW-FS. 
  11.      
  12.      SELECT TXT-FILE
  13.      ASSIGN TO "BARRAS.TXT"
  14.      ORGANIZATION IS LINE SEQUENTIAL
  15.      FILE STATUS IS SW-FS. 
  16.  DATA        DIVISION.
  17.  FILE SECTION.
  18.  FD  AR86-FILE. 
  19.  01  RE-AR86.
  20.      02  RE-CO86      PIC 99999999999999.
  21.      02  RE-DE86      PIC X(10).
  22.       
  23.  FD  TXT-FILE.
  24.  01  RE-TXT           PIC X(26). *> campos entrada + los ";"
  25.  
  26.  WORKING-STORAGE SECTION.
  27.  01  SW-FS            PIC X(2).
  28.      88  SW-FS-OK             VALUE '00' '02' '05'.
  29.      88  SW-FS-EOF            VALUE '10'.
  30.          
  31.  01  ZZZ-AR86         PIC X(50).
  32.  01  ZZZ-TXT          PIC X(50).
  33.  
  34.  01  CNT-1            PIC S9(9) COMP-5.
  35.  01  CNT-2            PIC S9(9) COMP-5.
  36.  
  37.  LINKAGE SECTION.
  38.  01  CMD-LINE.
  39.      05   CMD-LENGTH  PIC S9(4) COMP-5.
  40.      05   CMD-CONTENT PIC X(100).
  41.  PROCEDURE   DIVISION.
  42.  DECLARATIVES.
  43.  ERR SECTION.
  44.      USE AFTER ERROR PROCEDURE ON AR86-FILE.
  45.  END DECLARATIVES.
  46.  
  47.      IF  CMD-LENGTH = 0
  48.          DISPLAY "No hay parametros en entrada. EXIT"
  49.          
  50.          GOBACK
  51.      END-IF
  52.      
  53.      UNSTRING CMD-CONTENT DELIMITED BY ";" 
  54.          INTO ZZZ-AR86, ZZZ-TXT 
  55.      
  56.      DISPLAY "Fichero AR86: " ZZZ-AR86
  57.      DISPLAY "Fichero TXT : " ZZZ-TXT
  58.      
  59.      PERFORM ABRIR-FICHEROS
  60.      PERFORM READ-AR86            
  61.      
  62.      PERFORM UNTIL SW-FS-EOF                
  63.          STRING RE-CO86 ";" 
  64.                 RE-DE86 ";"
  65.                 DELIMITED BY SIZE INTO RE-TXT
  66.          
  67.          WRITE RE-TXT
  68.          
  69.          IF  SW-FS-OK
  70.              ADD 1 TO CNT-2
  71.              
  72.          ELSE
  73.              DISPLAY "ERROR WRITE TXT, FS: " SW-FS
  74.          
  75.              GO TO 9999-ABEND
  76.          END-IF
  77.                                 
  78.          PERFORM READ-AR86
  79.      END-PERFORM
  80.      
  81.      DISPLAY "Registros leidos AR86 : " CNT-1
  82.      DISPLAY "Registros escritos TXT: " CNT-2
  83.      
  84.      CLOSE AR86-FILE, TXT-FILE
  85.      
  86.      DISPLAY "Tratamiento de datos OK"
  87.      
  88.      GOBACK
  89.      .            
  90.      
  91.  ABRIR-FICHEROS.
  92.  
  93.      OPEN INPUT AR86-FILE
  94.      
  95.      IF  NOT SW-FS-OK
  96.          DISPLAY "ERROR OPEN AR86, FS: " SW-FS
  97.          
  98.          GOBACK
  99.      END-IF
  100.      
  101.      OPEN OUTPUT TXT-FILE
  102.      
  103.      IF  NOT SW-FS-OK
  104.          DISPLAY "ERROR OPEN TXT, FS: " SW-FS
  105.          
  106.          GOBACK
  107.      END-IF
  108.      .
  109.      
  110.  READ-AR86.
  111.      
  112.      READ AR86-FILE
  113.      
  114.      IF  SW-FS-OK
  115.          ADD 1 TO CNT-1
  116.          
  117.      ELSE
  118.          IF  NOT SW-FS-EOF
  119.              DISPLAY "ERROR READ AR86, FS: " SW-FS
  120.          
  121.              GOBACK
  122.          END-IF
  123.      END-IF
  124.      .
  125.          
  126.  9999-ABEND.
  127.      
  128.      DISPLAY "ABEND - exit"
  129.      
  130.      CLOSE AR86-FILE, TXT-FILE
  131.      
  132.      MOVE 8 TO RETURN-CODE
  133.      
  134.      GOBACK 
  135.      .

Es un código copiado y adaptado ( seguramente mal ..... )

Kuk 27 de abril de 2018 11:04
JuanPelaez, quita la LINKAGE SECTION y todo lo relacionado con ella, no puedes tenerla ahí. :ojo1:

Cita:
Citación del post de JuanPelaez (Mensaje 4158)
Es un código copiado y adaptado
Es código mío, lo reconozco enseguida :D ;)


La franja horaria es GMT +2. Ahora son las 13:46.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.