Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL V3L10 (Win32)
PowerCOBOL V3L10 (Win32) IDE Freeware compatible con Windows 7/8/10
Noticias y Avisos
Respuesta
 
Herramientas

  #1
Antiguo 25 de abril de 2018, 17:02
IDENTIFICATION DIVISION
JuanPelaez
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de JuanPelaez
DATA DIVISION
Forero desde (Registrado)abril 2018
Reino Unido
UbicaciónVigo
Edad57 años
Última Actividad31.05.2018 18:25
PROCEDURE DIVISION
PostsPosts: 16
Ha dicho GraciasEnviado: 0
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
JuanPelaez is an unknown quantity at this point
Predeterminado Error al Ejecutar

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
Imágenes Adjuntas
Tipo de Archivo: jpg I01.jpg (108,4 KB, 11 descargas)
Tipo de Archivo: jpg I02.jpg (43,7 KB, 14 descargas)
JuanPelaez no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 25 de abril de 2018, 21:31
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad09.12.2019 21:47
PROCEDURE DIVISION
PostsPosts: 469
Ha dicho GraciasEnviado: 191
Ha recibido agradecimientosRecibido: 205
Mejores respuestasSoluiones: 31
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 19
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

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.-
Josber no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 25 de abril de 2018, 23:27
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad09.12.2019 21:16
PROCEDURE DIVISION
PostsPosts: 1.428
Ha dicho GraciasEnviado: 319
Ha recibido agradecimientosRecibido: 547
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 26 de abril de 2018, 10:37
IDENTIFICATION DIVISION
JuanPelaez
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de JuanPelaez
DATA DIVISION
Forero desde (Registrado)abril 2018
España
UbicaciónVigo
Edad57 años
Última Actividad31.05.2018 18:25
PROCEDURE DIVISION
PostsPosts: 16
Ha dicho GraciasEnviado: 0
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
JuanPelaez is an unknown quantity at this point
Predeterminado

Cita del post de Kuk Ver Mensaje
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 ..... )
JuanPelaez no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 27 de abril de 2018, 11:04
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad09.12.2019 21:16
PROCEDURE DIVISION
PostsPosts: 1.428
Ha dicho GraciasEnviado: 319
Ha recibido agradecimientosRecibido: 547
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

JuanPelaez, quita la LINKAGE SECTION y todo lo relacionado con ella, no puedes tenerla ahí.

Cita del post de JuanPelaez Ver Mensaje
Es un código copiado y adaptado
Es código mío, lo reconozco enseguida


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 00:37.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.