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
Comunicados
Respuesta
 
Herramientas

  #1
Antiguo 25 de abril de 2018, 16:02
IDENTIFICATION DIVISION
JuanPelaez
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de JuanPelaez
DATA DIVISION
Forero desde (Registrado)abril 2018
Reino Unido
Ubicación Vigo
Edad58 años
Última Actividad31.05.2018 17: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, 13 descargas)
Tipo de Archivo: jpg I02.jpg (43,7 KB, 16 descargas)
JuanPelaez no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 25 de abril de 2018, 20:31
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad08.07.2020 20:19
PROCEDURE DIVISION
PostsPosts: 534
Ha dicho GraciasEnviado: 228
Ha recibido agradecimientosRecibido: 245
Mejores respuestasSoluiones: 34
ReputaciónReputación: 24
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 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, 22:27
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad08.07.2020 19:00
PROCEDURE DIVISION
PostsPosts: 1.604
Ha dicho GraciasEnviado: 430
Ha recibido agradecimientosRecibido: 645
Mejores respuestasSoluiones: 91
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, 09:37
IDENTIFICATION DIVISION
JuanPelaez
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de JuanPelaez
DATA DIVISION
Forero desde (Registrado)abril 2018
España
Ubicación Vigo
Edad58 años
Última Actividad31.05.2018 17: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, 10:04
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad08.07.2020 19:00
PROCEDURE DIVISION
PostsPosts: 1.604
Ha dicho GraciasEnviado: 430
Ha recibido agradecimientosRecibido: 645
Mejores respuestasSoluiones: 91
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 05:42.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.