Resultados 1 al 2 de 2

Tema: Error en el código

  1. 28.11.2018, 03:36 #1
    dariodr
    		dariodr no ha iniciado sesión
      Junior
    d
    Registrado
    noviembre de 2018
    Edad
    54
    Mensajes
    46
    Última visita
    17.05.2024

    Agradecimientos
     
    Recibidos
    12
    Enviados
    15

    Citaciones y menciones
     
    Mentioned
    28 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    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.

    COBOL Código:
    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.

    0 Not allowed!
    Citar Citar Añadir a MarcadoresAñadir a Marcadores
  2. 28.11.2018, 09:02 #2
    JCantero
    		JCantero no ha iniciado sesión
      Senior
    J
    Registrado
    junio de 2016
    Ubicación
    Albacete
    Edad
    57
    Mensajes
    418
    Última visita
    16.05.2024

    Agradecimientos
     
    Recibidos
    240
    Enviados
    149

    Citaciones y menciones
     
    Mentioned
    52 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    9 Post(s)
    Poder de Reputación
    25
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    Predeterminado

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

    COBOL Código:
    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.

    0 Not allowed!
    Citar Citar
« Tema Anterior | Próximo Tema »

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Componente] Imprimir código QR
    Por Armando en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 12
    Último Mensaje: 18.06.2019, 23:53
  2. [Sintaxis] Traducir código Visual Fox Pro a PowerCOBOL
    Por Gatomalo en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 3
    Último Mensaje: 02.11.2017, 09:00
  3. [Sintaxis] Traducir código de VB a Power
    Por Xavier en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 10
    Último Mensaje: 23.09.2016, 00:03
  4. [Noticia] Código fuente extendido de 72 a 250 columnas
    Por Kuk en el foro Cocina MicroFocus
    Respuestas: 0
    Último Mensaje: 16.02.2016, 13:54
  5. [Problema con el Foro] Ha desaparecido código en un Tema
    Por Roger en el foro CobolForo.es
    Respuestas: 5
    Último Mensaje: 14.07.2015, 12:05

Marcadores

Marcadores

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •  

Reglas del Foro