Página 1 de 2 1 2 ÚltimoÚltimo
Resultados 1 al 10 de 14

Tema: Error al compilar con ejercicio de Cobol

  1. #1
      Acabo de llegar...
    v

    Registrado
    octubre de 2022
    Mensajes
    7
    Última visita
    31.10.2022

    Agradecimientos
     
    Recibidos
    0
    Enviados
    0

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

    Predeterminado Error al compilar con ejercicio de Cobol

    Buenas porfa si alguien me pueda ayudar a resolver un error que no me deja compilar con un ejercicio de cobol que estoy realizando

    Screenshot_3.png

    Actualmente estoy utilizando OpenCobolIDE

    el enunciado del ejercicio es:

    El dueño de una agencia de viajes desea incrementar sus ingresos, para lo cual ha ideado ofrecer a los turistas varios tours a distintas regiones del país. Dado que no posee unidades de transporte apropiadas para llevar a cabo los viajes, piensa contar con transporte de particulares. Para organizar los diferentes tours, el dueño de la agencia desea contar con un software que le permita controlar los siguientes aspectos:

    • Unidades de transporte disponibles: Datos correspondientes a las diferentes unidades de transporte:
    - Placa del vehiculo
    - Marca
    - Nº de puestos
    - Nombre del dueño
    - N° de cédula del dueño
    - Dirección de habitación
    - Teléfono de habitación
    - Teléfono celular
    -Status (disponible, no disponible)

    • Tours: Datos sobre los tours ofertados
    - Región (costa, Colonia Tovar, ciudad capital)
    - Nº de días
    - Costo por persona

    • Tours organizados: Datos sobre los tours a efectuarse o efectuados
    - Región
    - Fecha de salida
    - Placa de la unidad asignada
    - Nº de turistas

    • Turistas: Datos de los turistas que han realizado algún tour ofertado por la agencia.
    - Nº de cédula o pasaporte
    - Nombre
    - Apellido
    - Dirección
    -Teléfono de habitación
    - Teléfono celular

    • Turistas de un tour: Turistas que han realizado un tour
    - Región
    - Fecha de salida
    - Nº de cédula
    - Status (participante, retirado)

    El dueño de la agencia desea que el programa le permita realizar lo siguiente:
    • Registro y modificación de datos;
    - Unidades de transporte
    - Tours
    - Tours organizados
    - Turistas
    - Turistas de un tour

    • Las siguientes consultas:
    - Unidades de transporte disponibles
    - Tours para una fecha de salida dada
    - Turistas participantes en un tour dado
    - Tours efectuados en un mes

    el error ocurre en la primera linea


    COBOL Código:
    1. *SELECT DE UNIDAD DE TRANSPORTE
    2.  
    3. IDENTIFICATION DIVISION.
    4. PROGRAM-ID. AGENCIA-DE-TOURS.
    5. ENVIRONMENT DIVISION.
    6. INPUT-OUTPUT SECTION.
    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.  
    16. SELECT DE TOURS
    17. SELECT TOURS
    18. ASSIGN TO "TOURS.DAT"
    19. ORGANIZATION IS INDEXED
    20. ACCESS MODE IS DYNAMIC
    21. RECORD KEY IS TOURS-ID
    22. FILE STATUS IS ESTTOURS
    23.  
    24. SELECT DE TOURS-ORGANIZADOS
    25. SELECT TORGN
    26. ASSIGN TO "TORGN.DAT"
    27. ORGANIZATION IS INDEXED
    28. ACCESS MODE IS DYNAMIC
    29. RECORD KEY IS TORGN-ID
    30. FILE STATUS IS ESTTORGN.
    31.  
    32. SELECT DE TURISTAS
    33. SELECT TURISTAS
    34. ASSIGN TO "TURISTA.DAT"
    35. ORGANIZATION IS INDEXED
    36. ACCESS MODE IS DYNAMIC
    37. RECORD KEY IS TURISTAS-ID
    38. FILE STATUS IS ESTTURISTAS.
    39.  
    40. SELECT DE TURISTAS-DE-UN-
    41. TOURS
    42. SELECT TURISTASTOURS
    43. ASSIGN TO "TTOURS.DAT"
    44. ORGANIZATION IS INDEXED
    45. ACCESS MODE IS DYNAMIC
    46. RECORD KEY IS TTOURS-ID
    47. FILE STATUS IS ESTTURISTDTOURS
    48.  
    49.  
    50. DATA DIVISION.
    51. FILE SECTION.
    52.  
    53. FD UNIDAD-TRANSPORTE
    54. LABEL RECORD IS STANDARD
    55. DATA RECORD IS REGISTRO-UND-TRANSPORTE.
    56.  
    57. 01 REGISTRO-UND-TRANSPORTE.
    58. 02 UNIDADTRANSPT-ID.
    59. 03 NO-PLACA-UND PIC X(10).
    60. 02 MARCA PIC X(20).
    61. 02 NOPUESTOS PIC 99.
    62. 02 NOMBREDUENO PIC X(30).
    63. 02 CEDULADUENO PIC X(10).
    64. 02 DIRECCIONHAB PIC X(30).
    65. 02 TLFHABITACION PIC X(10).
    66. 02 TLFCELULAR PIC X(10).
    67. 02 ST-UND-TRANS-DIS-S-NODIS-N PIC X(1)
    68.  
    69. FD TOURS
    70. LABEL RECORD IS STANDARD
    71. DATA RECORD IS REGISTRO-TOURS.
    72. 01 REGISTRO-TOURS.
    73. 02 TOURS-ID.
    74. 03 REGION PIC X(10).
    75. 02 NUM-DIAS PIC 9(3).
    76. 02 COSTOXPERSONA PIC 9(7)V99.
    77.  
    78. FD TORGN
    79. LABEL RECORD IS STANDARD
    80. DATA RECORD IS REGISTRO-TURISTAS.
    81. 01 REGISTRO-TURISTAS.
    82. 02 TORGN-ID.
    83. 03 J-REGION PIC X(10).
    84. 03 F-SALIDA.
    85. 04 A-SALIDA PIC 9(4).
    86. 04 M-SALIDA PIC 9(2).
    87. 04 D-SALIDA PIC 9(2).
    88. 02 PLACA-UND-ASIGND PIC X(10).
    89. 02 NUM-TURISTAS PIC 9(2).
    90.  
    91. FD TURISTAS
    92. LABEL RECORD IS STANDARD
    93. DATA RECORD IS TURISTAS.
    94. 01 REGISTRO-TURISTAS.
    95. 02 TURISTAS-ID.
    96. 03 CED-PASPT PIC X(10).
    97. 02 NOMBRE PIC X(20).
    98. 02 APELLIDO PIC X(10).
    99. 02 DIRECCION PIC X(30).
    100. 02 TLFHABITACION PIC X(10).
    101. 02 TLFCELULAR PIC X(10).
    102.  
    103. FD TURISTASTOURS
    104. LABEL RECORD IS STANDARD
    105. DATA RECORD IS REGISTRO-TTOURS.
    106. 01 REGISTRO-TTOURS.
    107. 02 TTOURS-ID.
    108. 03 TTREGION PIC X(10).
    109. 03 TTF-SALIDA.
    110. 04 TTA-SALIDA PIC 9(4).
    111. 04 TTM-SALIDA PIC 9(2).
    112. 04 TTD-SALIDA PIC 9(2).
    113. 03 TTCED-PASPT PIC X(10).
    114. 02 ST-TTOURS-PART-1-RETIRADO-2 PIC 9(1).
    115.  
    116. WORKING-STORAGE SECTION.
    117.  
    118. 77 ESTUNDTRAN PIC X(2).
    119. 77 ESTTOURS PIC X(2).
    120. 77 ESTTORGN PIC X(2).
    121. 77 ESTTURISTAS PIC X(2).
    122. 77 ESTTURISTDTOURS PIC X(2).
    123.  
    124. 01 VARITRAB.
    125. 02 OPMENU PIC 99 VALUE 0.
    126. 02 SW-SALIDA PIC 9 VALUE 0.
    127. 02SW-EXISTE PIC 9 VALUE 0.
    128.  
    129. SCREEN SECTION.
    130. 01 MENUINICIO.
    131. 02 LINE 5 POSITION 5 VALUE " 01 REGISTRO DE UNIDADES".
    132. 02 LINE 6 POSITION 5 VALUE " 02 REGISTRO DE TOURS".
    133. 02 LINE 7 POSITION 5 VALUE " 03 REGISTRO DE TOURS ORGANIZADOS ".
    134. 02 LINE 8 POSITION 5 VALUE " 04 REGISTRO DE TURISTAS".
    135. 02 LINE 9 POSITION 5 VALUE " 05 REGISTRO DE TURISTAS DE UN TOURS".
    136. 02 LINE 10 POSITION 5 VALUE " 06 CONSULTA UNIDADES DE TRANSPORTE DISPONIBLES".
    137. 02 LINE 11 POSITION 5 VALUE " 07 CONSULTA TOURS PARA UNA FECHA DE SALIDA DADA".
    138. 02 LINE 12 POSITION 5 VALUE " 08 CONSULTA TURISTAS PARTICIPANTES EN UN TOURS DADO".
    139. 02 LINE 13 POSITION 5 VALUE " 09 CONSULTA TOURS EFECTUADOS EN UN MES".
    140. 02 LINE 20 POSITION 5 VALUE " SELECCIONE LA OPCIÓN DESEADA".
    141. 02 LINE 20 POSITION 34 PIC ZZ USING OPMENU.
    142.  
    143.  
    144. PROCEDURE DIVISION.
    145.  
    146. INICIO. 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. ACCEPT P-UNDTRANS2.
    197. REGIS-UND6.
    198. OPEN I-O UNIDAD-TRANSPORTE
    199. EVALUATE SW-EXISTE
    200. WHEN 1
    201. MOVE "S" TO
    202. ST-UND-TRANS-DIS-S-NODIS-N
    203. WRITE REGISTRO-UND-TRANSPORTE
    204. INVALID KEY NEXT SENTENCE
    205. END-WRITE
    206.  
    207. WHEN 2
    208. REWRITE REGISTRO-UND-TRANSPORTE
    209. INVALID KEY NEXT SENTENCE
    210. END-REWRITE
    211. END-EVALUATE.
    212. CLOSE UNIDAD-TRANSPORTE.
    213. MOVE 0 TO SW-EXISTE.
    214. REGIS-UND7.
    215. GO TO REGIS-UND1.
    216. F-REGIS-UND.
    217.  
    218. FIN.
    219. STOP RUN.
    220.  
    221. 01 BORRAR-PAN
    222. 02 LINE 1 POSITION 01 BLANK SCREEN.
    223. *PANTALLA DE UNIDADES DE TRANSPORTE DISPONIBLES.
    224. 01 P-UNDTRANS.
    225. 02 LINE 1 POSITION 01 VALUE "NUMERO DE PLACA ".
    226. 02 LINE 1 POSITION 17 PIC X(10) USING NO-PLACA-UND.
    227. 01 P-UNDTRANS2.
    228. 02 LINE 5 POSITION 1 VALUE "MARCA ".
    229. 02 LINE 5 POSITION 7 PIC X(20) USING MARCA.
    230. 02 LINE 6 POSITION 1 VALUE "NUM PUESTOS".
    231. 02 LINE 6 POSITION 12 PIC ZZ USING NOPUESTO.
    232. 02 LINE 7 POSITION 1 VALUE "NOMBRE".
    233. 02 LINE 7 POSITION 8 PIC X(30) USING NOMBREDUENO.
    234. 02 LINE 8 POSITION 1 VALUE "CEDULA".
    235. 02 LINE 8 POSITION 8 PIC X(10) USING CEDULADUENO.
    236. 02 LINE 9 POSITION 1 VALUE "DIRECCION".
    237. 02 LINE 9 POSITION 11 PIC X(30) USING DIRECCIONHAB.
    238. 02 LINE 10 POSITION 1 VALUE "TELEFONO".
    239. 02 LINE 10 POSITION 10 PIC X(10) USING TLFHABITACION.
    240. 02 LINE 11 POSITION 1 VALUE "CELULAR".
    241. 02 LINE 11 POSITION 9 PIC X(10) USING TLFCELULAR.
    242. 02 LINE 12 POSITION 1 VALUE "STATUS".
    243. 02 LINE 12 POSITION 8 PIC X(1) USING ST-UND-TRANS-DIS-S-NODIS-N.
    244.  
    245. *PANTALLA DE TOURS .
    246.  
    247. 01 P-TOURS.
    248. 02 LINE 1 POSITION 1 VALUE "INGRESE REGION".
    249. 02 LINE 5 POSITION 16 PIC X(10) USING REGION.
    250. 01 P-TOURS2.
    251. 02 LINE 5 POSITION 1 VALUE "INGRESE NUMERO DE DIAS".
    252. 02 LINE 5 POSITION 24 PIC ZZZ USING NUM-DIAS.
    253. 02 LINE 7 POSITION 1 VALUE "COSTO POR PERSONA".
    254. 02 LINE 7 POSITION 19 PIC Z,ZZZ,ZZZ.99 USING COSTOXPERSONA.
    255.  
    256. *PANTALLA DE TOURS ORGANIZADOS .
    257. 01 P-TORGN.
    258. 02 LINE 1 POSITION 1 VALUE "INGRESE REGION".
    259. 02 LINE 5 POSITION 16 PIC X(10) USING J-REGION.
    260. 01 P-TORGN2
    261. 02 LINE 5 POSITION 1 VALUE "INGRESE FECHA DE SALIDA".
    262. 02 LINE 5 POSITION 25 PIC ZZ USING D-SALIDA.
    263. 02 LINE 5 POSITION 27 VALUE "/".
    264. 02 LINE 5 POSITION 28 PIC ZZ USING M-SALIDA.
    265. 02 LINE 5 POSITION 30 VALUE "/".
    266. 02 LINE 5 POSITION 31 PIC Z(4) USING A-SALIDA.
    267. 01 P-TORGN3.
    268. 02 LINE 9 POSITION 1 VALUE "PLACA DE LA UNIDAD ASIGNADA".
    269. 02 LINE 9 POSITION 29 PIC X(10) USING PLACA-UND-ASIGND.
    270. 02 LINE 10 POSITION 1 VALUE "INGRESE NUMERO DE TURISTAS".
    271. 02 LINE 10 POSITION 28 PIC ZZ USING NUM-TURISTAS.
    272.  
    273. *PANTALLA DE TURISTAS .
    274. 01 P-TURISTAS.
    275. 02 LINE 1 POSITION 1 VALUE "INGRESE CEDULA O PASAPORTE".
    276. 02 LINE 1 POSITION 28 PIC X(10) USING CED-PASPT.
    277. 01 P-TURISTAS2.
    278. 02 LINE 5 POSITION 01 VALUE "NOMBRE".
    279. 02 LINE 5 POSITION 8 PIC X(20) USING NOMBRE.
    280. 02 LINE 6 POSITION 1 VALUE "APELLIDO".
    281. 02 LINE 6 POSITION 10 PIC X(10) USING APELLIDO.
    282. 02 LINE 7 POSITION 1 VALUE "DIRECCION".
    283. 02 LINE 7 POSITION 11 PIC X(30) USING DIRECCION.
    284. 02 LINE 8 POSITION 1 VALUE "TELEFONO HABITACION".
    285. 02 LINE 8 POSITION 21 PIC X(10) USING TLFHABITACION.
    286. 02 LINE 8 POSITION 1 VALUE "TELEFONO CELULAR".
    287. 02 LINE 8 POSITION 18 PIC X(10) USING TLFCELULAR.
    288.  
    289. *PANTALLA DE TURISTAS DE UN TOURS .
    290. 01 P-TTOURS.
    291. 02 LINE 1 POSITION 1 VALUE "INGRESE REGION".
    292. 02 LINE 1 POSITION 16 PIC X(10) USING TTREGION.
    293. 01 P-TTOURS2.
    294. 02 LINE 5 POSITION 1 VALUE "INGRESE FECHA DE SALIDA".
    295. 02 LINE 5 POSITION 25 PIC ZZ USING TTD-SALIDA.
    296. 02 LINE 5 POSITION 28 VALUE "/".
    297. 02 LINE 5 POSITION 29 PIC ZZ USING TTM-SALIDA.
    298. 02 LINE 5 POSITION 31 VALUE "/".
    299. 02 LINE 5 POSITION 32 PIC Z(4) USING TTA-SALIDA.
    300. 01 P-TTOURS3.
    301. 02 LINE 9 POSITION 1 VALUE "INGRESE CEDULA O PASAPORTE".
    302. 02 LINE 9 POSITION 28 PIC X(10) USING TTCED-PASPT.
    303. 01 P-TTOURS4.
    304. 02 LINE 13 POSITION 1 VALUE "INGRESE STATUS DISPONIBLE O NO DISPONIBLE".
    305. 02 LINE 13 POSITION 43 PIC 9(1) USING ST-TTOURS-PART-1-RETIRADO-2.
    306.  
    307. CONSULTAS.......
    308.  
    309. EVALUATE SW-EXISTE
    310. WHEN 1
    311. MOVE "S" TO
    312. ST-UND-TRANS-DIS-S-NODIS-N
    313. WRITE REGISTRO-UND-TRANSPORTE
    314. INVALID KEY NEXT SENTENCE
    315. END-WRITE
    316.  
    317. WHEN 2
    318.  
    319. REWRITE REGISTRO-UND-TRANSPORTE
    320. INVALID KEY NEXT SENTENCE
    321. END-REWRITE
    322. END-EVALUATE.
    323. CLOSE UNIDAD-TRANSPORTE.
    324. MOVE 0 TO SW-EXISTE.
    325. REGIS-UND7.
    326. GO TO REGIS-UND1.
    327. F-REGIS-UND.
    328.  
    329. FIN.
    330.  
    331. STOP RUN.
    332.  
    333. END PROGRAM. AGENCIA-DE-TOURS.

    Mensaje de MODERADOR

    Usa los botones de resalto de sintaxis que son estos:

    0 Not allowed!

  2. #2
      Senior
    J

    Registrado
    junio de 2016
    Ubicación
    Albacete
    Edad
    56
    Mensajes
    336
    Última visita
    Hoy a las 09:18

    Agradecimientos
     
    Recibidos
    221
    Enviados
    128

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

    Predeterminado

    @vortal, agrega el código como fuente de cobol (cbl) porque así es imposible ayudarte.

    Hazlo asi
    COBOL Código:
    1. IDENTIFICATION DIVISION.
    2. PROGRAM-ID. AGENCIA-DE-TOURS.
    3. ENVIRONMENT DIVISION.
    4. INPUT-OUTPUT SECTION.
    5. FILE-CONTROL.
    6. SELECT UNIDAD-TRANSPORTE
    7. ASSIGN TO "TRANSPT.DAT"
    8. ORGANIZATION IS INDEXED
    9. ACCESS MODE IS DYNAMIC
    10. RECORD KEY IS UNIDADTRANSPT-ID
    11. FILE STATUS IS ESTUNDTRAN.
    12.  
    13.  
    14. SELECT DE TOURS
    15. SELECT TOURS
    16. ASSIGN TO "TOURS.DAT"
    17. ORGANIZATION IS INDEXED
    18. ACCESS MODE IS DYNAMIC
    19. RECORD KEY IS

    Lo mas seguro es que sea un problema de no respetar los margenes.

    0 Not allowed!

  3. #3
      Acabo de llegar...
    v

    Registrado
    octubre de 2022
    Mensajes
    7
    Última visita
    31.10.2022

    Agradecimientos
     
    Recibidos
    0
    Enviados
    0

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

    Predeterminado

    @JCantero

    Buenas te pasare el .cbl por un rar ya que no se como pasarlo en .cbl
    Ficheros adjuntos Ficheros adjuntos

    0 Not allowed!

  4. #4
      Acabo de llegar...
    v

    Registrado
    octubre de 2022
    Mensajes
    7
    Última visita
    31.10.2022

    Agradecimientos
     
    Recibidos
    0
    Enviados
    0

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

    Predeterminado

    @JCantero Si pudieras ayudarme te lo agradeceria mucho llevo 2 dias intentando poder arreglar el problema y poder compilar y no lo logro.

    0 Not allowed!

  5. #5
      Senior
    J

    Registrado
    junio de 2016
    Ubicación
    Albacete
    Edad
    56
    Mensajes
    336
    Última visita
    Hoy a las 09:18

    Agradecimientos
     
    Recibidos
    221
    Enviados
    128

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

    Predeterminado

    @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

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

    0 Not allowed!
    Última edición por JCantero; 30.10.2022 a las 01:42 Razón: arreglo

  6. #6
      Acabo de llegar...
    v

    Registrado
    octubre de 2022
    Mensajes
    7
    Última visita
    31.10.2022

    Agradecimientos
     
    Recibidos
    0
    Enviados
    0

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

    Predeterminado

    @JCantero nada amigo me sigue dando errores no se si es porque estoy usando OpenCobolIDE
    Ficheros adjuntos Ficheros adjuntos
    • Tipo de Archivo: rar 1.rar (1.5 KB, visto 21 veces)

    0 Not allowed!

  7. #7
      Senior
    J

    Registrado
    junio de 2016
    Ubicación
    Albacete
    Edad
    56
    Mensajes
    336
    Última visita
    Hoy a las 09:18

    Agradecimientos
     
    Recibidos
    221
    Enviados
    128

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

    Predeterminado

    @vortal, en que linea, que te dice ?

    Hay cosas en ese fuente que el cobol ide no se traga. tendras que cambiarlas.

    0 Not allowed!

  8. #8
      Acabo de llegar...
    v

    Registrado
    octubre de 2022
    Mensajes
    7
    Última visita
    31.10.2022

    Agradecimientos
     
    Recibidos
    0
    Enviados
    0

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

    Predeterminado

    @JCantero me esta dando un poco de errores. a ti te funciono compilando?
    Imagem Anexada Imagem Anexada

    0 Not allowed!

  9. #9
      Acabo de llegar...
    v

    Registrado
    octubre de 2022
    Mensajes
    7
    Última visita
    31.10.2022

    Agradecimientos
     
    Recibidos
    0
    Enviados
    0

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

    Predeterminado

    @JCantero avance un poco y pude resolver algunos errores pero me quedaron estos que no se como resolverlo
    Imagem Anexada Imagem Anexada
    Ficheros adjuntos Ficheros adjuntos
    • Tipo de Archivo: rar 23.rar (1.4 KB, visto 21 veces)

    0 Not allowed!

  10. #10
      Senior
    J

    Registrado
    junio de 2016
    Ubicación
    Albacete
    Edad
    56
    Mensajes
    336
    Última visita
    Hoy a las 09:18

    Agradecimientos
     
    Recibidos
    221
    Enviados
    128

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

    Predeterminado

    @vortal, te dice que la variable borrar-pan no existe.

    No la tienes definida en working. el resto de errores es lo mismo

    0 Not allowed!
    Última edición por JCantero; 30.10.2022 a las 18:54 Razón: arreglo

Página 1 de 2 1 2 ÚltimoÚltimo

Información de Tema

Usuarios Viendo este Tema

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

Temas Similares

  1. [Información] Ayuda con ejercicio de Cobol
    Por abi4997 en el foro COBOL - General
    Respuestas: 4
    Último Mensaje: 28.10.2022, 19:46
  2. [Compilador] Error al compilar con Winspool.lib
    Por fastpho en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 4
    Último Mensaje: 24.08.2022, 17:40
  3. [Sintaxis] Error al compilar open Cobol
    Por Pabloegues en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 08.07.2021, 18:27
  4. [Compilador] Error al compilar con claves alternativas
    Por diego_1970 en el foro RM/COBOL
    Respuestas: 1
    Último Mensaje: 17.06.2016, 09:31

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
  •