Tema: Error al compilar con ejercicio de Cobol
Ver Mensaje Individual
  #5
Antiguo 30 de octubre de 2022, 00:40
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
0
Likes

None...

Inactivo Inactivo
@vortal, El problema que tienes es de estructura.

Ahora te añado cosas que te arreglo.

1) los comentarios llevan arterisco y deben estar en la columna 7.
2) Los parrafos deben estar en el margen A, a partir de la columna 8.

y con eso ya puedes ir viendo mas cosas

Código COBOL:
  1.       *SELECT DE UNIDAD DE TRANSPORTE
  2.        IDENTIFICATION DIVISION.
  3.         PROGRAM-ID. AGENCIA-DE-TOURS.
  4.         ENVIRONMENT DIVISION.
  5.         INPUT-OUTPUT SECTION.
  6.        
  7.        FILE-CONTROL.
  8.        SELECT UNIDAD-TRANSPORTE
  9.          ASSIGN TO "TRANSPT.DAT"
  10.          ORGANIZATION IS INDEXED
  11.          ACCESS MODE IS DYNAMIC
  12.          RECORD KEY IS UNIDADTRANSPT-ID
  13.          FILE STATUS IS ESTUNDTRAN.
  14.  
  15.       * SELECT DE TOURS
  16.        SELECT TOURS
  17.          ASSIGN TO "TOURS.DAT"
  18.          ORGANIZATION IS INDEXED
  19.          ACCESS MODE IS DYNAMIC
  20.          RECORD KEY IS TOURS-ID
  21.          FILE STATUS IS ESTTOURS.
  22.  
  23.       * SELECT DE TOURS-ORGANIZADOS
  24.        SELECT TORGN
  25.        ASSIGN TO "TORGN.DAT"
  26.        ORGANIZATION IS INDEXED
  27.        ACCESS MODE IS DYNAMIC
  28.        RECORD KEY IS TORGN-ID
  29.        FILE STATUS IS ESTTORGN.
  30.  
  31.       * SELECT DE TURISTAS
  32.        SELECT TURISTAS
  33.        ASSIGN TO "TURISTA.DAT"
  34.        ORGANIZATION IS INDEXED
  35.        ACCESS MODE IS DYNAMIC
  36.        RECORD KEY IS TURISTAS-ID
  37.        FILE STATUS IS ESTTURISTAS.
  38.  
  39.       * SELECT DE TURISTAS-DE-UN-
  40.       * TOURS
  41.        SELECT TURISTASTOURS
  42.        ASSIGN TO "TTOURS.DAT"
  43.        ORGANIZATION IS INDEXED
  44.        ACCESS MODE IS DYNAMIC
  45.        RECORD KEY IS TTOURS-ID
  46.        FILE STATUS IS ESTTURISTDTOURS.
  47.  
  48.  
  49.        DATA DIVISION.
  50.        FILE SECTION.
  51.  
  52.        FD UNIDAD-TRANSPORTE
  53.             LABEL RECORD IS STANDARD
  54.             DATA RECORD IS REGISTRO-UND-TRANSPORTE.
  55.  
  56.        01 REGISTRO-UND-TRANSPORTE.
  57.        02 UNIDADTRANSPT-ID.
  58.        03 NO-PLACA-UND PIC X(10).
  59.        02 MARCA PIC X(20).
  60.        02 NOPUESTOS PIC 99.
  61.        02 NOMBREDUENO PIC X(30).
  62.        02 CEDULADUENO PIC X(10).
  63.        02 DIRECCIONHAB PIC X(30).
  64.        02 TLFHABITACION PIC X(10).
  65.        02 TLFCELULAR PIC X(10).
  66.        02 ST-UND-TRANS-DIS-S-NODIS-N PIC X(1).
  67.  
  68.        FD TOURS
  69.        LABEL RECORD IS STANDARD
  70.        DATA RECORD IS REGISTRO-TOURS.
  71.        01 REGISTRO-TOURS.
  72.        02 TOURS-ID.
  73.        03 REGION PIC X(10).
  74.        02 NUM-DIAS PIC 9(3).
  75.        02 COSTOXPERSONA PIC 9(7)V99.
  76.  
  77.        FD TORGN
  78.        LABEL RECORD IS STANDARD
  79.        DATA RECORD IS   REGISTRO-TURISTAS.
  80.        01 REGISTRO-TURISTAS.
  81.        02 TORGN-ID.
  82.        03 J-REGION PIC X(10).
  83.        03 F-SALIDA.
  84.        04 A-SALIDA PIC 9(4).
  85.        04 M-SALIDA PIC 9(2).
  86.        04 D-SALIDA PIC 9(2).
  87.        02 PLACA-UND-ASIGND PIC X(10).
  88.        02 NUM-TURISTAS PIC 9(2).
  89.  
  90.        FD TURISTAS
  91.        LABEL RECORD IS STANDARD
  92.        DATA RECORD IS TURISTAS.
  93.        01 REGISTRO-TURISTAS.
  94.        02 TURISTAS-ID.
  95.        03 CED-PASPT PIC X(10).
  96.        02 NOMBRE PIC X(20).
  97.        02 APELLIDO PIC X(10).
  98.        02 DIRECCION PIC X(30).
  99.        02 TLFHABITACION PIC X(10).
  100.        02 TLFCELULAR PIC X(10).
  101.  
  102.        FD TURISTASTOURS
  103.        LABEL RECORD IS STANDARD
  104.        DATA RECORD IS REGISTRO-TTOURS.
  105.        01 REGISTRO-TTOURS.
  106.        02 TTOURS-ID.
  107.            03 TTREGION PIC X(10).
  108.             03 TTF-SALIDA.
  109.                   04 TTA-SALIDA PIC 9(4).
  110.                      04 TTM-SALIDA PIC 9(2).
  111.                      04 TTD-SALIDA PIC 9(2).
  112.               03 TTCED-PASPT PIC X(10).
  113.        02 ST-TTOURS-PART-1-RETIRADO-2   PIC 9(1).
  114.  
  115.        WORKING-STORAGE SECTION.
  116.  
  117.        77 ESTUNDTRAN PIC X(2).
  118.        77 ESTTOURS PIC X(2).
  119.        77 ESTTORGN PIC X(2).
  120.        77 ESTTURISTAS PIC X(2).
  121.        77 ESTTURISTDTOURS PIC X(2).
  122.  
  123.        01 VARITRAB.
  124.        02 OPMENU PIC 99 VALUE 0.
  125.        02 SW-SALIDA PIC 9 VALUE 0.
  126.        02 SW-EXISTE PIC 9 VALUE 0.
  127.  
  128.        SCREEN SECTION.
  129.        01 MENUINICIO.
  130.        02 LINE 5 POSITION 5 VALUE " 01 REGISTRO DE UNIDADES".
  131.        02 LINE 6 POSITION 5 VALUE " 02 REGISTRO DE TOURS".
  132.        02 LINE 7 POSITION 5 VALUE " 03 REGISTRO DE TOURS ORGANIZADOS ".
  133.        02 LINE 8 POSITION 5 VALUE " 04 REGISTRO DE TURISTAS".
  134.        02 LINE 9 POSITION 5 VALUE " 05 REGISTRO DE TURISTAS DE UN TOURS".
  135.        02 LINE 10 POSITION 5 VALUE " 06 CONSULTA UNIDADES DE TRANSPORTE DISPONIBLES".
  136.            02 LINE 11 POSITION 5 VALUE " 07 CONSULTA TOURS PARA UNA FECHA DE SALIDA DADA".
  137.            02 LINE 12 POSITION 5 VALUE " 08 CONSULTA TURISTAS PARTICIPANTES EN UN TOURS DADO".
  138.            02 LINE 13 POSITION 5 VALUE " 09 CONSULTA TOURS EFECTUADOS EN UN MES".
  139.            02 LINE 20 POSITION 5 VALUE " SELECCIONE LA OPCIÓN DESEADA".
  140.            02 LINE 20 POSITION 34 PIC ZZ USING OPMENU.
  141.  
  142.  
  143.        PROCEDURE DIVISION.
  144.  
  145.        INICIO. 
  146.            INITIALIZE VARITRAB.
  147.            VERIFICA-ARCHIVOS.
  148.            OPEN INPUT UNIDAD-TRANSPORTE
  149.            IF ESTUNDTRAN = "35"
  150.            OPEN OUTPUT UNIDAD-TRANSPORTE.
  151.            CLOSE UNIDAD-TRANSPORTE.
  152.  
  153.        MENUPPAL1.
  154.            MOVE 0 TO OPMENU.
  155.  
  156.        MENUPPAL2.
  157.            DISPLAY BORRAR-PAN.
  158.            DISPLAY MENUINICIO.
  159.            ACCEPT MENUINICIO.
  160.            EVALUATE OPMENU
  161.            WHEN  1  PERFORM  REGIS-UND1 THRU
  162.            F-REGIS-UND UNTIL
  163.            SW-SALIDA = 2
  164.            WHEN 99  GO TO FIN
  165.            END-EVALUATE.
  166.            GO TO MENUPPAL1.
  167.       *REGISTRO DE UNIDADES DISPONIBLES
  168.  
  169.         REGIS-UND1.
  170.            INITIALIZE REGISTRO-UND-TRANSPORTE.
  171.  
  172.         REGIS-UND2.
  173.            MOVE 0 TO SW-SALIDA
  174.            DISPLAY BORRAR-PAN.
  175.            MOVE SPACES TO P-UND-TRANS.
  176.            DISPLAY P-UND-TRANS.
  177.            ACCEPT P-UND-TRANS.
  178.            IF P-UND-TRANS = SPACES
  179.            MOVE 2 TO SW-SALIDA
  180.            GO TO F-REGIS-UND
  181.            END-IF.
  182.  
  183.        REGIS-UND3.
  184.            OPEN INPUT UNIDAD-TRANSPORTE.
  185.            READ UNIDAD-TRANSPORTE
  186.            INVALID KEY
  187.            MOVE 1 TO SW-EXISTE
  188.            GO TO REGIS-UND4
  189.            NOT INVALID KEY
  190.            MOVE 2 TO SW-EXISTE
  191.            DISPLAY P-UNDTRANS2.
  192.  
  193.        REGIS-UND4.
  194.            CLOSE UNIDAD-TRANSPORTE.
  195.  
  196.        REGIS-UND5.
  197.            ACCEPT P-UNDTRANS2.
  198.        REGIS-UND6.
  199.            OPEN I-O UNIDAD-TRANSPORTE
  200.            EVALUATE SW-EXISTE
  201.            WHEN 1
  202.            MOVE "S" TO
  203.            ST-UND-TRANS-DIS-S-NODIS-N
  204.            WRITE          REGISTRO-UND-TRANSPORTE
  205.            INVALID KEY NEXT SENTENCE
  206.            END-WRITE
  207.  
  208.                WHEN 2
  209.            REWRITE          REGISTRO-UND-TRANSPORTE
  210.            INVALID KEY NEXT SENTENCE
  211.            END-REWRITE
  212.            END-EVALUATE.
  213.            CLOSE UNIDAD-TRANSPORTE.
  214.            MOVE 0 TO SW-EXISTE.
  215.            REGIS-UND7.
  216.            GO TO REGIS-UND1.
  217.            F-REGIS-UND.
  218.  
  219.        FIN.
  220.            STOP RUN.
Última edición por JCantero fecha: 30 de octubre de 2022 a las 00:42. Razón: arreglo
JCantero is offline   Responder Con Cita