Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Cobol » Error al compilar con ejercicio de Cobol

Cobol - Error al compilar con ejercicio de Cobol

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Error al compilar con ejercicio de Cobol

Publicado por Manuel (1 intervención) el 30/10/2022 16:25:18
Screenshot_2

Buenas si alguien me puede ayudar a resolver estos errores que me esta dando Actualmente estoy utilizando OpenCobolIDE ajunto el .cbl en un rar

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

Error al compilar con ejercicio de Cobol

Publicado por SuperIndio (35 intervenciones) el 03/11/2022 16:38:18
Dice que estas Variables no han sido definidas en Working o Screen Section

1
2
3
BORRAR-PAN
P-UND-TRANS
UNDTRANS2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Adrian

Error al compilar con ejercicio de Cobol

Publicado por Adrian (1 intervención) el 01/01/2023 15:51:03
Dear Customer., we have a expert TEAM remote to support and modernization Cobol Skill, we can work crop-to-corp, w2 w8, outsourcing services. We have 10 Years in Modernization Cobol and DB connect, the modernization is a non stop software operations,
Save time and money with redCapital I.T. Ltda. See the
https://youtu.be/Ql4BqVxIHA8
Best Regards,

Adrian Rodas
CEO
redCapital I.T. Ltda.
www.redcapital.ec
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar