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 > Otros Compiladores e IDE-s COBOL > GnuCOBOL (OpenCOBOL)
GnuCOBOL (OpenCOBOL) El compilador OpenSource que ya tiene un IDE.
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Componente] Imprimir código QR Armando PowerCOBOL (ActiveX, v4 - v11) 12 18 de junio de 2019 22:53
[Sintaxis] Traducir código Visual Fox Pro a PowerCOBOL Gatomalo PowerCOBOL (ActiveX, v4 - v11) 3 2 de noviembre de 2017 08:00
[Sintaxis] Traducir código de VB a Power Xavier PowerCOBOL (ActiveX, v4 - v11) 10 22 de septiembre de 2016 23:03
[Noticia] Código fuente extendido de 72 a 250 columnas Kuk Cocina MicroFocus 0 16 de febrero de 2016 12:54
[Problema con el Foro] Ha desaparecido código en un Tema Roger COBOLForo.es 5 14 de julio de 2015 11:05
Respuesta
 
Herramientas

  #1
Antiguo 28 de noviembre de 2018, 02:36
IDENTIFICATION DIVISION
dariodr
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de dariodr
DATA DIVISION
Forero desde (Registrado)noviembre 2018
Tailandia
Edad50 años
Última Actividad02.01.2019 03:17
PROCEDURE DIVISION
PostsPosts: 4
Ha dicho GraciasEnviado: 2
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
dariodr is an unknown quantity at this point
Linux Error en el código

Hola, este es mi primer post espero me puedan ayudar. Tengo el siguiente codigo, estoy siguiendo el libro "Sam teach yourself COBOL" pero a la hora de compilar me aparecen errores. Estoy usando OpenCobol para Linux Mint.
Estoy retomando cobol despues de 25anios.
Salu2.

Código COBOL:
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. PHNADD01.
  3.  
  4.        ENVIRONMENT DIVISION.
  5.        INPUT-OUTPUT SECTION.
  6.        FILE-CONTROL.
  7.            SELECT PHONE-FILE
  8.                ASSIGN TO "PHONE.DAT"
  9.                ORGANIZATION IS SEQUENTIAL.
  10.  
  11.        DATA DIVISION.
  12.        FILE SECTION.
  13.        FD  PHONE-FILE
  14.               LABEL RECORDS ARE STANDARD.
  15.  
  16.        01  PHONE-RECORD.
  17.            05 PHONE-LAST-NAME      PIC X(20).
  18.            05 PHONE-FIRST-NAME     PIC X(20).
  19.            05 PHONE-NUMBER         PIC X(15).
  20.  
  21.        WORKING-STORAGE SECTION.
  22.        01  PROMPT-1          PIC X(9) VALUE "Last Name".
  23.        01  PROMPT-2          PIC X(10) VALUE "First Name".
  24.        01  PROMPT-3          PIC X(6) VALUE "Number".
  25.        01  YES-NO            PIC X.
  26.        01  ENTRY-OK          PIC X.
  27.  
  28.        PROCEDURE DIVISION.
  29.        PROGRAM-BEGIN.
  30.            PERFORM OPENING-PROCEDURE.
  31.            MOVE "Y" TO YES-NO.
  32.            PERFORM ADD-RECORD UNTIL YES-NO = "N".
  33.            PERFORM CLOSING-PROCEDURE.
  34.  
  35.        PROGRAM-DONE.
  36.            STOP RUN.
  37.  
  38.        OPENING-PROCEDURE.
  39.            OPEN EXTEND PHONE-FILE.
  40.  
  41.        CLOSING-PROCEDURE.
  42.            CLOSE PHONE-FILE.
  43.  
  44.        ADD-RECORD.
  45.            MOVE "N" TO ENTRY-OK.
  46.            PERFORM GET-FIELDS UNTIL ENTRY-OK = "Y".
  47.            PERFORM ADD-THIS-RECORD.
  48.            PERFORM GO-AGAIN.
  49.  
  50.        GET-FIELDS.
  51.            MOVE SPACE TO PHONE-RECORD.
  52.            DISPLAY PROMPT-1 " ? ".
  53.            ACCEPT PHONE-LAST-NAME.
  54.            DISPLAY PROMPT-2 " ? ".
  55.            ACCEPT PHONE-FIRST-NAME.
  56.            DISPLAY PROMPT-3 " ? ".
  57.            ACCEPT PHONE-NUMBER.
  58.            PERFORM VALIDATE-FIELDS.
  59.  
  60.        VALIDATE-FIELDS.
  61.            MOVE "Y" TO ENTRY-OK.
  62.            IF PHONE-LAST-NAME = SPACE
  63.                MOVE "N" TO ENTRY-OK
  64.            END-IF
  65.  
  66.        ADD-THIS-RECORD.
  67.            WRITE PHONE-RECORD.
  68.  
  69.        GO-AGAIN.
  70.            DISPLAY "GO AGAIN?".
  71.            ACCEPT YES-NO.
  72.            IF YES-NO = "y"
  73.                MOVE "Y" TO YES-NO
  74.            END-IF.
  75.            IF YES-NO NOT = "Y"
  76.                MOVE "N" TO YES-NO
  77.            END-IF.
dariodr no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 28 de noviembre de 2018, 08:02
IDENTIFICATION DIVISION
JCantero
Novato Junior
ENVIRONMENT DIVISION
Avatar de JCantero
DATA DIVISION
Forero desde (Registrado)junio 2016
España
UbicaciónAlbacete
Edad53 años
Última Actividad28.03.2020 23:39
PROCEDURE DIVISION
PostsPosts: 59
Ha dicho GraciasEnviado: 10
Ha recibido agradecimientosRecibido: 37
Mejores respuestasSoluiones: 7
ReputaciónReputación: 7
JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road
Predeterminado

Para que te compile sin errores, te falta un punto al final de un parrafo. (linea 64)

Código COBOL:
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. PHNADD01.
  3.  
  4.        ENVIRONMENT DIVISION.
  5.        INPUT-OUTPUT SECTION.
  6.        FILE-CONTROL.
  7.            SELECT PHONE-FILE
  8.                ASSIGN TO "PHONE.DAT"
  9.                ORGANIZATION IS SEQUENTIAL.
  10.  
  11.        DATA DIVISION.
  12.        FILE SECTION.
  13.        FD  PHONE-FILE
  14.               LABEL RECORDS ARE STANDARD.
  15.  
  16.        01  PHONE-RECORD.
  17.            05 PHONE-LAST-NAME      PIC X(20).
  18.            05 PHONE-FIRST-NAME     PIC X(20).
  19.            05 PHONE-NUMBER         PIC X(15).
  20.  
  21.        WORKING-STORAGE SECTION.
  22.        01  PROMPT-1          PIC X(9) VALUE "Last Name".
  23.        01  PROMPT-2          PIC X(10) VALUE "First Name".
  24.        01  PROMPT-3          PIC X(6) VALUE "Number".
  25.        01  YES-NO            PIC X.
  26.        01  ENTRY-OK          PIC X.
  27.  
  28.        PROCEDURE DIVISION.
  29.        PROGRAM-BEGIN.
  30.            PERFORM OPENING-PROCEDURE.
  31.            MOVE "Y" TO YES-NO.
  32.            PERFORM ADD-RECORD UNTIL YES-NO = "N".
  33.            PERFORM CLOSING-PROCEDURE.
  34.  
  35.        PROGRAM-DONE.
  36.            STOP RUN.
  37.  
  38.        OPENING-PROCEDURE.
  39.            OPEN EXTEND PHONE-FILE.
  40.  
  41.        CLOSING-PROCEDURE.
  42.            CLOSE PHONE-FILE.
  43.  
  44.        ADD-RECORD.
  45.            MOVE "N" TO ENTRY-OK.
  46.            PERFORM GET-FIELDS UNTIL ENTRY-OK = "Y".
  47.            PERFORM ADD-THIS-RECORD.
  48.            PERFORM GO-AGAIN.
  49.  
  50.        GET-FIELDS.
  51.            MOVE SPACE TO PHONE-RECORD.
  52.            DISPLAY PROMPT-1 " ? ".
  53.            ACCEPT PHONE-LAST-NAME.
  54.            DISPLAY PROMPT-2 " ? ".
  55.            ACCEPT PHONE-FIRST-NAME.
  56.            DISPLAY PROMPT-3 " ? ".
  57.            ACCEPT PHONE-NUMBER.
  58.            PERFORM VALIDATE-FIELDS.
  59.  
  60.        VALIDATE-FIELDS.
  61.            MOVE "Y" TO ENTRY-OK.
  62.            IF PHONE-LAST-NAME = SPACE
  63.                MOVE "N" TO ENTRY-OK
  64. *********** aqui te faltaba el punto
  65.            END-IF.
  66.  
  67.        ADD-THIS-RECORD.
  68.            WRITE PHONE-RECORD.
  69.  
  70.        GO-AGAIN.
  71.            DISPLAY "GO AGAIN?".
  72.            ACCEPT YES-NO.
  73.            IF YES-NO = "y"
  74.                MOVE "Y" TO YES-NO
  75.            END-IF.
  76.            IF YES-NO NOT = "Y"
  77.                MOVE "N" TO YES-NO
  78.            END-IF.
JCantero no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
dariodr (29 de noviembre de 2018)
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 03:17.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.