Cobol Foro
Registrarse
Temas de Hoy
Enlaces
Registrarse
Preguntas Frecuentes
Lista de Usuarios
Calendario
Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL (ActiveX, v4 - v11)
Actualizar esta página [Sintaxis] Error al compilar open Cobol
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Compilador] IBM COBOL for Linux - Error al compilar dariodr Más entornos y compiladores COBOL 5 29 de enero de 2023 03:02
[Compilador] Error al compilar con ejercicio de Cobol vortal GnuCOBOL (OpenCOBOL) 13 22 de noviembre de 2022 15:05
[Compilador] Error al compilar con Winspool.lib fastpho PowerCOBOL (ActiveX, v4 - v11) 4 24 de agosto de 2022 16:40
[Compilador] Ide Open Cobol, Ver botones: Compilar, ejecutar maprado GnuCOBOL (OpenCOBOL) 0 13 de julio de 2020 14:47
[Compilador] Open error for file Yonaider RM/COBOL 8 14 de junio de 2016 12:49

Respuesta

  #1
Antiguo 8 de julio de 2021, 15:09
Pabloegues
Acabo de llegar...
Última Actividad 11.07.2021 04:20
Posts Posts: 1
Likes enviados Enviados: 1
Likes recibidos Recibidos: 0
Libro Error al compilar open Cobol
0
Likes

None...

Inactivo Inactivo
En un programa de prueba me tira el siguiente error:
Código:
syntax error, unexpected BELL, expecting DEFAULT or ECHO or UPDATE,
Estoy reaprendiendo Cobol, despues de 25 años, si me pueden ayudar.

Código COBOL:
  1.  ACC-N05.
  2.            ACCEPT N05 LINE     ACC-DIS-FIL
  3.                       POSITION ACC-DIS-COL
  4.                       NO BEEP TAB.
Archivos Adjuntos
Tipo de Archivo: zip cob_trans.zip (2,2 KB)Descargas: 133
Pabloegues is offline   Responder Con Cita
  #2
Antiguo 8 de julio de 2021, 17:27
JCantero
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros 
Última Actividad 02.09.2026 00:15
Posts Posts: 442
Likes enviados Enviados: 167
Likes recibidos Recibidos: 269
Predeterminado
3
Likes

Kuk
Pabloegues
Rmcostar

 Inactivo Inactivo
Revisa la sentencia display y accept para quitar o poner algo equivalente

He cogido tu fuente, he quitado :

"low" de los displays
"erase" de los displays
"NO BEEP TAB" de los displays.

Con esto, compila y funciona en cobolopen.

---------- Post añadido : 17:27 ---------- Post anterior : 17:26 ----------

Código COBOL:
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID.  TRANSABADELL.
  3.  
  4.        ENVIRONMENT DIVISION.
  5.        CONFIGURATION SECTION.
  6.        SOURCE-COMPUTER.  PC.
  7.        OBJECT-COMPUTER.  PC.
  8.        SPECIAL-NAMES.
  9.             DECIMAL-POINT IS COMMA.
  10.  
  11.        DATA DIVISION.
  12.        WORKING-STORAGE SECTION.
  13.        01 ACTUAL         PIC 99.
  14.        01 ANTERIOR       PIC 99.
  15.        01 CP             PIC 99.
  16.        01 FIN            PIC X.   
  17.  
  18.        01 PESO           PIC 99999.
  19.        01 PESO1          PIC 99999.
  20.        01 PESO2          PIC 99999.
  21.        01 PRECIO         PIC 9999V999.
  22.        01 PRECIO2        PIC 9999V999.
  23.  
  24.        01 TARIFA         PIC 99.
  25.        
  26.       ************************************************************
  27.       ********** CAMPOS USADOS POR ACCEPT Y POR DISPLAY **********
  28.       ************************************************************
  29.        01 ACC-DIS-COL      PIC 99.
  30.        01 ACC-DIS-FIL      PIC 99.
  31.  
  32.        01 D-N05            PIC ZZ.ZZ9.
  33.        01 D-N04V99         PIC Z.ZZ9,99.
  34.        
  35.        
  36.        01 N02              PIC 99.
  37.        01 N05              PIC 9(5).
  38.        
  39.        01 X01              PIC X.
  40.        01 X08              PIC X(8).
  41.        01 X21              PIC X(21).
  42.        01 X26              PIC X(26).
  43.       *----------------------------------------
  44.        01 PESOS.
  45.           02 FILLER PIC X(4) VALUE "0001".
  46.           02 FILLER PIC X(4) VALUE "0200".
  47.           02 FILLER PIC X(4) VALUE "0500".
  48.           02 FILLER PIC X(4) VALUE "1000".
  49.           02 FILLER PIC X(4) VALUE "3000".
  50.           02 FILLER PIC X(4) VALUE "6000".
  51.  
  52.        01 TABLA-PESOS REDEFINES PESOS. 
  53.           02 T-PESOS2 OCCURS 6 TIMES.
  54.              03 T-PESO PIC 9(4).
  55.  
  56.        01 PRECIOS.
  57.        02 FILLER PIC X(55) VALUE 
  58.          "0091100920009480099401058011040117801242013160103000891".
  59.        02 FILLER PIC X(55) VALUE                      
  60.          "1016611339121211656017388184812076223920358801317511052".
  61.        02 FILLER PIC X(55) VALUE                      
  62.          "0930509620101651458915836179401932022247345541104909045".
  63.        02 FILLER PIC X(55) VALUE  
  64.          "0852808118089390982811386132471674619594308610971607890".
  65.        02 FILLER PIC X(55) VALUE  
  66.          "0689407382076670876009453107051401914691247880833407030".
  67.        02 FILLER PIC X(55) VALUE  
  68.          "0618506661070990797608856103001260114341195910771606925".
  69.        02 FILLER PIC X(55) VALUE  
  70.          "0574106185066610707707418094761091013938168280724006514".
  71.  
  72.        01 T-PRECIOS REDEFINES PRECIOS. 
  73.           02 T-PRECIOS2 OCCURS  7 TIMES.
  74.              03 T-PRECIOS3 OCCURS 11 TIMES.
  75.                 04 TARIFA-PRECIO PIC 999V99.
  76.  
  77.        01 ULTIMO-PRECIO PIC 9 VALUE 7.
  78.  
  79.        PROCEDURE DIVISION.
  80.  
  81.        COMIENZO.
  82.            PERFORM PROCESO UNTIL FIN = "N" OR FIN = "n".
  83.            STOP RUN.
  84.  
  85.        PROCESO.
  86.            PERFORM PANTALLA.
  87.            PERFORM PIDE-DATOS.
  88.            PERFORM BUSCA-TARIFA.
  89.            IF TARIFA = 0 THEN
  90.               MOVE 10 TO ACC-DIS-FIL
  91.               MOVE 33 TO ACC-DIS-COL
  92.               MOVE "DESTINO NO DISPONIBLE" TO X21
  93.               PERFORM DIS-X21
  94.            ELSE
  95.               PERFORM CALCULA-TARIFA
  96.               MOVE 12 TO ACC-DIS-FIL
  97.               MOVE 19 TO ACC-DIS-COL
  98.               MOVE PESO TO D-N05  
  99.               PERFORM DIS-N05 
  100.               MOVE "PRECIO.:" TO X08
  101.               MOVE 14 TO ACC-DIS-FIL 
  102.               MOVE 10 TO ACC-DIS-COL 
  103.               PERFORM DIS-X08 
  104.               MOVE 14 TO ACC-DIS-FIL
  105.               MOVE 19 TO ACC-DIS-COL
  106.               MOVE PRECIO TO D-N04V99
  107.               PERFORM DIS-N04V99
  108.               COMPUTE PRECIO ROUNDED = PRECIO * 1,16
  109.               MOVE "CON IVA:" TO X08 
  110.               MOVE 16 TO ACC-DIS-FIL 
  111.               MOVE 10 TO ACC-DIS-COL 
  112.               PERFORM DIS-X08 
  113.               MOVE 16 TO ACC-DIS-FIL
  114.               MOVE 19 TO ACC-DIS-COL
  115.               MOVE PRECIO TO D-N04V99
  116.               PERFORM DIS-N04V99
  117.            END-IF.                    
  118.            MOVE 23 TO ACC-DIS-FIL
  119.            MOVE 22 TO ACC-DIS-COL
  120.            MOVE "¨Hacer otro calculo (s/n)?" TO X26.
  121.            PERFORM DIS-X26.
  122.            MOVE 23 TO ACC-DIS-FIL
  123.            MOVE 49 TO ACC-DIS-COL
  124.            PERFORM ACC-X01.
  125.            MOVE X01 TO FIN.
  126.        
  127.        PIDE-DATOS.
  128.            MOVE "DESTINO:" TO X08.
  129.            MOVE 10 TO ACC-DIS-FIL.
  130.            MOVE 10 TO ACC-DIS-COL.
  131.            PERFORM DIS-X08.
  132.            MOVE 10 TO ACC-DIS-FIL.
  133.            MOVE 19 TO ACC-DIS-COL.
  134.            PERFORM ACC-N02.
  135.            MOVE N02 TO CP.
  136.            MOVE "PESO...:" TO X08.
  137.            MOVE 12 TO ACC-DIS-FIL.
  138.            MOVE 10 TO ACC-DIS-COL.
  139.            PERFORM DIS-X08.
  140.            MOVE 12 TO ACC-DIS-FIL.
  141.            MOVE 19 TO ACC-DIS-COL.
  142.            PERFORM ACC-N05.
  143.            MOVE N05 TO PESO
  144.            PERFORM VERIFICA-PESO.
  145.            
  146.        CALCULA-TARIFA.
  147.            IF PESO = 70 THEN
  148.               COMPUTE PRECIO = TARIFA-PRECIO(1, TARIFA)
  149.            ELSE IF PESO <= T-PESO(2) THEN
  150.               COMPUTE PRECIO ROUNDED = 
  151.                    (TARIFA-PRECIO(2, TARIFA) * PESO) / 1000
  152.            ELSE
  153.               PERFORM VARYING ACTUAL FROM 1 BY 1 UNTIL
  154.                       PESO <= T-PESO(ACTUAL) OR
  155.                       ACTUAL = ULTIMO-PRECIO
  156.                  MOVE PESO TO PESO
  157.               END-PERFORM
  158.               COMPUTE ANTERIOR = ACTUAL - 1
  159.               COMPUTE PRECIO2 ROUNDED = 
  160.                      (TARIFA-PRECIO(ANTERIOR, TARIFA) *
  161.                      T-PESO(ANTERIOR)) / 1000
  162.               COMPUTE PRECIO ROUNDED = 
  163.                      (TARIFA-PRECIO(ACTUAL, TARIFA) * PESO) / 1000
  164.               IF PRECIO < PRECIO2 THEN
  165.                  MOVE T-PESO(ANTERIOR) TO PESO
  166.                  MOVE PRECIO2 TO PRECIO
  167.               END-IF
  168.            END-IF.
  169.  
  170.        BUSCA-TARIFA.
  171.            MOVE 0 TO TARIFA.
  172.            IF CP = 50 
  173.               MOVE 1 TO TARIFA.
  174.  
  175.            IF CP = 26 OR CP = 31 OR CP = 42 OR CP = 44
  176.               MOVE 2 TO TARIFA.
  177.  
  178.            IF CP = 1 OR CP = 3 OR CP = 9 OR CP = 12 OR CP = 19
  179.               OR CP = 20 OR CP = 22 OR CP = 25 OR CP = 28 OR CP = 34
  180.               OR CP = 43 OR CP = 45 OR CP = 46 OR CP = 47 OR CP = 48
  181.               OR CP = 98
  182.               MOVE 3 TO TARIFA.
  183.  
  184.            IF CP = 13 OR CP = 16 OR CP = 30 OR CP = 33 OR CP = 37 
  185.               OR CP = 39 OR CP = 40 
  186.               MOVE 4 TO TARIFA.
  187.  
  188.            IF CP = 2 OR CP = 4 OR CP = 5 OR CP = 14 OR CP = 24
  189.               OR CP = 27 OR CP = 32 OR CP = 49 
  190.               MOVE 5 TO TARIFA.
  191.  
  192.            IF CP = 15 OR CP = 18 OR CP = 23 OR CP = 29 OR CP = 36
  193.               OR CP = 41 
  194.               MOVE 6 TO TARIFA.
  195.  
  196.            IF CP = 6 OR CP = 10 OR CP = 11 OR CP = 21 
  197.               MOVE 7 TO TARIFA.
  198.  
  199.            IF CP = 7
  200.               MOVE 8 TO TARIFA.
  201.  
  202.            IF CP = 99
  203.               MOVE 9 TO TARIFA.
  204.  
  205.            IF CP = 17 
  206.               MOVE 10 TO TARIFA.
  207.  
  208.            IF CP = 8 
  209.               MOVE 11 TO TARIFA.
  210.  
  211.        VERIFICA-PESO.
  212.            IF PESO <= 70 THEN
  213.               MOVE 70 TO PESO
  214.            ELSE IF PESO <= 100 THEN
  215.               PERFORM VARYING PESO1 FROM 70 BY 10 
  216.                       UNTIL PESO1 > 100 OR PESO = PESO2
  217.                  COMPUTE PESO2 = PESO1 + 10
  218.                  IF PESO > PESO1 AND PESO < PESO2 THEN
  219.                     MOVE PESO2 TO PESO
  220.                  END-IF
  221.               END-PERFORM
  222.            ELSE IF PESO <= 200 THEN
  223.               PERFORM VARYING PESO1 FROM 100 BY 25 
  224.                       UNTIL PESO1 > 200 OR PESO = PESO2
  225.                  COMPUTE PESO2 = PESO1 + 25
  226.                  IF PESO > PESO1 AND PESO < PESO2 THEN
  227.                     MOVE PESO2 TO PESO
  228.                  END-IF
  229.               END-PERFORM
  230.            ELSE
  231.               PERFORM VARYING PESO1 FROM 200 BY 100 
  232.                       UNTIL PESO1 > 99900 OR PESO = PESO2
  233.                  COMPUTE PESO2 = PESO1 + 100
  234.                  IF PESO > PESO1 AND PESO < PESO2 THEN
  235.                     MOVE PESO2 TO PESO
  236.                  END-IF
  237.               END-PERFORM
  238.            END-IF.
  239.  
  240.        PANTALLA.
  241.            DISPLAY 
  242.            "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  243.       -    "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LINE 1 POSITION 1 
  244.            "º CALCULO DE COSTO DE TRANSABADELL   (C) ALBERTO ARANDA PERA
  245.       -    "LES 2012           º" LINE 2 POSITION 1 
  246.            "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  247.       -    "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹" LINE 3 POSITION 1 
  248.            "º                                                           
  249.       -    "                   º" LINE 4 POSITION 1 
  250.            "º                                                           
  251.       -    "                   º" LINE 5 POSITION 1 
  252.            "º                                                           
  253.       -    "                   º" LINE 6 POSITION 1 
  254.            "º                                                           
  255.       -    "                   º" LINE 7 POSITION 1 
  256.            "º                                                           
  257.       -    "                   º" LINE 8 POSITION 1 
  258.            "º                                                           
  259.       -    "                   º" LINE 9 POSITION 1 
  260.            "º                                                           
  261.       -    "                   º" LINE 10 POSITION 1 
  262.            "º                                                           
  263.       -    "                   º" LINE 11 POSITION 1
  264.            "º                                                           
  265.       -    "                   º" LINE 12 POSITION 1 
  266.            "º                                                           
  267.       -    "                   º" LINE 13 POSITION 1 
  268.            "º                                                           
  269.       -    "                   º" LINE 14 POSITION 1 
  270.            "º                                                           
  271.       -    "                   º" LINE 15 POSITION 1 
  272.            "º                                                           
  273.       -    "                   º" LINE 16 POSITION 1 
  274.            "º                                                           
  275.       -    "                   º" LINE 17 POSITION 1 
  276.            "º                                                           
  277.       -    "                   º" LINE 18 POSITION 1 
  278.            "º                                                           
  279.       -    "                   º" LINE 19 POSITION 1 
  280.            "º                                                           
  281.       -    "                   º" LINE 20 POSITION 1 
  282.            "º                                                           
  283.       -    "                   º" LINE 21 POSITION 1 
  284.            "º Barcelona Provincia = 98                                  
  285.       -    "                   º" LINE 22 POSITION 1
  286.            "º Portugal = 99                                          
  287.       -    "                   º" LINE 23 POSITION 1 
  288.            "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  289.       -    "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" LINE 24 POSITION 1 .
  290.  
  291.       ****************************************************************
  292.       ********      PROCEDIMIENTOS DE ACCEPT Y DISPLAY        ********
  293.       ****************************************************************
  294.  
  295.        ACC-N02.
  296.            ACCEPT N02 LINE     ACC-DIS-FIL
  297.                       POSITION ACC-DIS-COL.
  298.       *                NO BEEP TAB.
  299.        ACC-N05.
  300.            ACCEPT N05 LINE     ACC-DIS-FIL
  301.                       POSITION ACC-DIS-COL.
  302.       *                NO BEEP TAB.
  303.        ACC-X01.
  304.            ACCEPT X01 LINE     ACC-DIS-FIL
  305.                       POSITION ACC-DIS-COL.
  306.       *                NO BEEP TAB.
  307.        
  308.        DIS-N04V99.
  309.            DISPLAY D-N04V99 LINE     ACC-DIS-FIL
  310.                             POSITION ACC-DIS-COL.
  311.        DIS-N05.
  312.            DISPLAY D-N05 LINE     ACC-DIS-FIL
  313.                          POSITION ACC-DIS-COL.
  314.        DIS-X08.
  315.            DISPLAY X08 LINE     ACC-DIS-FIL
  316.                        POSITION ACC-DIS-COL.
  317.        DIS-X21.
  318.            DISPLAY X21 LINE     ACC-DIS-FIL
  319.                        POSITION ACC-DIS-COL.
  320.        DIS-X26.
  321.            DISPLAY X26 LINE     ACC-DIS-FIL
  322.                        POSITION ACC-DIS-COL.
JCantero is offline   Responder Con Cita
Respuesta

« Tema Anterior | Próximo Tema »

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
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 15:29.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.

Top
 Archivo - Cobol Foro
Webdesign by: vbdesigns.de
Contactar con Nosotros - Cobol Foro
Top