teratail
回答率
85.30%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問COBOLで入力レコードの値が定義した配列に上手く入らない

編集履歴

質問編集履歴

12

誤字の修正

2021/06/07 05:20

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -139,7 +139,6 @@
139
139
  MAIN SECTION.
140
140
  PERFORM JUNBI-SYORI
141
141
  PERFORM RECORD-SYORI
142
- UNTIL END-FLAG = "EOF"
143
142
  PERFORM ATOSHIMATSU-SYORI
144
143
  STOP RUN.
145
144
 

11

いただいた修正点をもとに更新

2021/06/07 05:20

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -106,24 +106,18 @@
106
106
  01 KYORI-RECORD.
107
107
  02 EKIMEI-K PIC X(12).
108
108
  02 KYORI-K PIC 99V9.
109
- *初回質問時にご指摘いただき、解決した箇所
110
109
  02 FILLER PIC X(2).
111
110
 
112
111
  FD UNCHIN-FILE.
113
112
  01 UNCHIN-RECORD.
114
113
  02 KYORI-U PIC 9(2).
115
114
  02 UNCHIN-U PIC 9(4).
116
- *初回質問時にご指摘いただき、解決した箇所
117
115
  02 FILLER PIC X(2).
118
116
 
119
117
  WORKING-STORAGE SECTION.
120
118
  01 END-FLAG PIC X(3).
121
119
  01 I PIC 9(2).
122
- *次の問題個所　改善されなかったためコメントアウト中
123
- * 01 EKIMEI-JOUSHA PIC X(14).
124
120
  01 EKIMEI-JOUSHA PIC X(12).
125
- *次の問題個所　改善されなかったためコメントアウト中
126
- * 01 EKIMEI-GESHA PIC X(14).
127
121
  01 EKIMEI-GESHA PIC X(12).
128
122
  01 KYORI-JOUSHA PIC 99V9.
129
123
  01 KYORI-GESHA PIC 99V9.
@@ -131,6 +125,7 @@
131
125
  01 SOTO-KYORI PIC 99V9.
132
126
  01 UTI-KYORI PIC 99V9.
133
127
  01 SAIYO-KYORI PIC Z9.9.
128
+ 01 KYORI-O PIC 9(2).
134
129
  01 UNCHIN-O PIC Z999.
135
130
 
136
131
  01 KYORI-HAIRETU.
@@ -139,7 +134,6 @@
139
134
  03 KYORI-WK PIC 99V9.
140
135
 
141
136
 
142
-
143
137
  PROCEDURE DIVISION.
144
138
  *＜主処理＞--------------------------------------
145
139
  MAIN SECTION.
@@ -179,67 +173,71 @@
179
173
  UNTIL ICCHI-FLAG = 1 OR EKIMEI-JOUSHA = "END"
180
174
  DISPLAY "乗車駅＝＝＞" WITH NO ADVANCING
181
175
  ACCEPT EKIMEI-JOUSHA FROM CONSOLE
176
+
177
+ *EKIMI-JOUSHAの変数の冒頭部分がなぜか消えている
182
- DISPLAY EKIMEI-JOUSHA
178
+ DISPLAY EKIMEI-JOUSHA
183
- *確認用　 MOVE "ｻｸﾗﾉﾐﾔ" TO EKIMEI-JOUSHA
179
+
184
180
  PERFORM JOUSHA-KENSAKU-SYORI
185
181
  END-PERFORM
186
182
 
187
- IF EKIMEI-JOUSHA NOT = "END"
183
+ IF EKIMEI-JOUSHA = "END"
188
184
  THEN
189
- MOVE 0 TO ICCHI-FLAG
190
- PERFORM
185
+ STOP RUN
191
- UNTIL ICCHI-FLAG = 1
192
- DISPLAY "下車駅＝＝＞" WITH NO ADVANCING
193
- ACCEPT EKIMEI-GESHA FROM CONSOLE
194
- *確認用　 MOVE "ﾆｼｸｼﾞｮｳ" TO EKIMEI-GESHA
195
- PERFORM GESHA-KENSAKU-SYORI
196
- END-PERFORM
186
+ END-IF
197
187
 
188
+ MOVE 0 TO ICCHI-FLAG
189
+ PERFORM
190
+ UNTIL ICCHI-FLAG = 1
191
+ DISPLAY "下車駅＝＝＞" WITH NO ADVANCING
192
+ ACCEPT EKIMEI-GESHA FROM CONSOLE
193
+ PERFORM GESHA-KENSAKU-SYORI
194
+ END-PERFORM
195
+
198
196
  *//最短距離の運賃計算処理-----------
199
- IF KYORI-GESHA - KYORI-JOUSHA > 0
197
+ IF KYORI-GESHA - KYORI-JOUSHA > 0
200
- THEN
198
+ THEN
201
- COMPUTE SOTO-KYORI = KYORI-GESHA - KYORI-JOUSHA
199
+ COMPUTE SOTO-KYORI = KYORI-GESHA - KYORI-JOUSHA
202
- ELSE
200
+ ELSE
203
- COMPUTE SOTO-KYORI = KYORI-JOUSHA - KYORI-GESHA
201
+ COMPUTE SOTO-KYORI = KYORI-JOUSHA - KYORI-GESHA
204
- END-IF
202
+ END-IF
205
203
 
206
- COMPUTE UTI-KYORI = 21.7 - SOTO-KYORI
204
+ COMPUTE UTI-KYORI = 21.7 - SOTO-KYORI
207
205
 
208
- IF SOTO-KYORI <= UTI-KYORI
206
+ IF SOTO-KYORI <= UTI-KYORI
209
- THEN
207
+ THEN
210
- MOVE SOTO-KYORI TO SAIYO-KYORI
208
+ MOVE SOTO-KYORI TO SAIYO-KYORI
211
- ELSE
209
+ ELSE
212
- MOVE UTI-KYORI TO SAIYO-KYORI
210
+ MOVE UTI-KYORI TO SAIYO-KYORI
213
- END-IF
211
+ END-IF
212
+ MOVE SAIYO-KYORI TO KYORI-O
214
- PERFORM UNCHIN-KENSAKU-SYORI
213
+ PERFORM UNCHIN-KENSAKU-SYORI
215
214
 
216
215
  *//画面表示------------------------
217
216
 
218
217
  *確認用********************************************
219
- DISPLAY "乗車駅名　＝　" WITH NO ADVANCING
218
+ DISPLAY "乗車駅名　＝　" WITH NO ADVANCING
220
- DISPLAY EKIMEI-JOUSHA
219
+ DISPLAY EKIMEI-JOUSHA
221
- DISPLAY "乗車駅距離＝　" WITH NO ADVANCING
220
+ DISPLAY "乗車駅距離＝　" WITH NO ADVANCING
222
- DISPLAY KYORI-JOUSHA
221
+ DISPLAY KYORI-JOUSHA
223
- DISPLAY "下車駅名　＝　" WITH NO ADVANCING
222
+ DISPLAY "下車駅名　＝　" WITH NO ADVANCING
224
- DISPLAY EKIMEI-GESHA
223
+ DISPLAY EKIMEI-GESHA
225
- DISPLAY "下車駅距離＝　" WITH NO ADVANCING
224
+ DISPLAY "下車駅距離＝　" WITH NO ADVANCING
226
- DISPLAY KYORI-GESHA
225
+ DISPLAY KYORI-GESHA
227
- DISPLAY ""
226
+ DISPLAY " "
228
- DISPLAY "外回り距離＝　" WITH NO ADVANCING
227
+ DISPLAY "外回り距離＝　" WITH NO ADVANCING
229
- DISPLAY SOTO-KYORI
228
+ DISPLAY SOTO-KYORI
230
- DISPLAY "内回り距離＝　" WITH NO ADVANCING
229
+ DISPLAY "内回り距離＝　" WITH NO ADVANCING
231
- DISPLAY UTI-KYORI
230
+ DISPLAY UTI-KYORI
232
- DISPLAY ""
231
+ DISPLAY " "
233
232
  **************************************************
234
233
 
235
- DISPLAY "距離 ＝ " WITH NO ADVANCING
234
+ DISPLAY "距離 ＝ " WITH NO ADVANCING
236
- DISPLAY SAIYO-KYORI WITH NO ADVANCING
235
+ DISPLAY SAIYO-KYORI WITH NO ADVANCING
237
- DISPLAY " km"
236
+ DISPLAY " km"
238
237
 
239
- DISPLAY "運賃 ＝ " WITH NO ADVANCING
238
+ DISPLAY "運賃 ＝ " WITH NO ADVANCING
240
- DISPLAY UNCHIN-O WITH NO ADVANCING
239
+ DISPLAY UNCHIN-O WITH NO ADVANCING
241
- DISPLAY " 円"
240
+ DISPLAY " 円".
242
- END-IF.
243
241
 
244
242
  * ＜乗車駅検索処理＞---------------------------------------
245
243
  JOUSHA-KENSAKU-SYORI SECTION.
@@ -274,9 +272,16 @@
274
272
  * ＜運賃検索処理＞----------------------------------------
275
273
  UNCHIN-KENSAKU-SYORI SECTION.
276
274
  MOVE SPACE TO END-FLAG
275
+
276
+ READ UNCHIN-FILE
277
+ AT END
278
+ MOVE "EOF" TO END-FLAG
279
+ NOT AT END
277
- MOVE 1 TO I
280
+ MOVE UNCHIN-U TO UNCHIN-O
281
+ END-READ
282
+
278
283
  PERFORM
279
- TEST AFTER UNTIL SAIYO-KYORI <= KYORI-U
284
+ UNTIL KYORI-O <= KYORI-U OR END-FLAG = "EOF"
280
285
  OR END-FLAG = "EOF"
281
286
  READ UNCHIN-FILE
282
287
  AT END

10

いただいた修正点をもとに更新

2021/06/07 04:18

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -76,7 +76,15 @@
76
76
 
77
77
  ### 次の問題点
78
78
  ACCEPT文記述の箇所でも、変数に値を上手く受け取れない問題が発生。受け取る変数の定義にも改行コード分の領域を定義したりしてみても改善されず
79
+ ➤ACCEPTは行指向なので、改行いらない
79
80
 
81
+ 【問題分析】
82
+ ①ACCEPTで受け取った変数の冒頭の値が、空白で置き換えられている
83
+ ②ACCEPT後に書いたDISPLAY文での固定文字列表示の冒頭も空白で置き換えられている
84
+ ③②の後で、変数の値を表示するとしっかり値が受け取られている
85
+
86
+ `現状原因不明`
87
+
80
88
  ### 該当のソースコード
81
89
  `ARRAN5.COB`
82
90
 

9

いただいた修正点をもとに更新

2021/06/06 22:58

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -290,7 +290,9 @@
290
290
  ﾔ
291
291
  乗車駅＝＝＞
292
292
  ```
293
- …変数に上手く入力値が入らない
293
+ ➤変数に上手く入力値が入らない
294
+ ➤配列に一致する入力値が見つからず、常に駅名の再入力処理に戻される
295
+ ➤ENDを入力して終了する処理も同様に、値が上手く入らないため再入力処理に戻される
294
296
 
295
297
 
296
298
  ### 他、実行に利用しているファイル

8

いただいた修正点をもとに更新

2021/06/06 12:38

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -284,6 +284,13 @@
284
284
  CLOSE UNCHIN-FILE.
285
285
 
286
286
  ```
287
+ ACCEPTで入力値を受け取った変数`EKIMEI-JOUSHA`の確認
288
+ ```
289
+ 乗車駅＝＝＞ｻｸﾗﾉﾐﾔ
290
+ ﾔ
291
+ 乗車駅＝＝＞
292
+ ```
293
+ …変数に上手く入力値が入らない
287
294
 
288
295
 
289
296
  ### 他、実行に利用しているファイル

7

誤字の修正

2021/06/06 12:33

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -238,7 +238,7 @@
238
238
  MOVE 1 TO I
239
239
 
240
240
  PERFORM
241
- UNTIL EKIMEI-WK(I) = EKIMEI-JOUSHA OR I = 13
241
+ UNTIL EKIMEI-WK(I) = EKIMEI-JOUSHA OR I = 20
242
242
  ADD 1 TO I
243
243
  END-PERFORM
244
244
 

6

いただいた修正点をもとに更新

2021/06/06 12:14

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -81,7 +81,7 @@
81
81
  `ARRAN5.COB`
82
82
 
83
83
  ```COBOL
84
- IDENTIFICATION DIVISION.
84
+ IDENTIFICATION DIVISION.
85
85
  PROGRAM-ID. ARRAN5.
86
86
 
87
87
 

5

いただいた修正点をもとに更新

2021/06/06 12:10

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -115,7 +115,7 @@
115
115
  * 01 EKIMEI-JOUSHA PIC X(14).
116
116
  01 EKIMEI-JOUSHA PIC X(12).
117
117
  *次の問題個所　改善されなかったためコメントアウト中
118
- * 01 EKIMEI-GESHA PIC X(12).
118
+ * 01 EKIMEI-GESHA PIC X(14).
119
119
  01 EKIMEI-GESHA PIC X(12).
120
120
  01 KYORI-JOUSHA PIC 99V9.
121
121
  01 KYORI-GESHA PIC 99V9.

4

いただいた修正点をもとに更新

2021/06/06 12:08

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -14,7 +14,7 @@
14
14
  【処理部の説明】
15
15
  ＜補足説明＞
16
16
  ・乗車駅にENDを入力するとプログラムを終了
17
- ・入力した駅が該当しない場合は、再度駅名入力させる
17
+ ・入力した駅が該当しない場合は、再度駅名を入力させる
18
18
 
19
19
  ＜処理内容＞
20
20
  ・内回りと外回りの短い方の距離と安い方の運賃を求める
@@ -75,7 +75,7 @@
75
75
  ➤解決
76
76
 
77
77
  ### 次の問題点
78
- ACCEPT文記述の箇所で、変数に値を上手く受け取れない問題が発生。受け取る変数の定義にも改行コード分の領域を定義したりしてみても改善されず
78
+ ACCEPT文記述の箇所でも、変数に値を上手く受け取れない問題が発生。受け取る変数の定義にも改行コード分の領域を定義したりしてみても改善されず
79
79
 
80
80
  ### 該当のソースコード
81
81
  `ARRAN5.COB`

3

いただいた修正点をもとに更新

2021/06/06 12:05

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -65,11 +65,23 @@
65
65
  ```
66
66
  …正しく値が入っていない
67
67
 
68
+ ### 試したこと
69
+
70
+ 駅名に半角カナ文字を利用して データ部では英数字項目(x)で定義していましたが、これに問題があるのかと思い、`KYORI-FILE.DAT`の`EKIMEI-K`を全角カナで書き直して、データ定義部で「PIC N(12)」を指定したのですが、これでも上手くいきませんでした。
71
+
72
+
73
+ ### ご指摘いただいて、試したこと
74
+ ・２つの入力ファイルの改行コードを考慮して、データ定義部で改行コード分の領域を取る
75
+ ➤解決
76
+
77
+ ### 次の問題点
78
+ ACCEPT文記述の箇所で、変数に値を上手く受け取れない問題が発生。受け取る変数の定義にも改行コード分の領域を定義したりしてみても改善されず
79
+
68
80
  ### 該当のソースコード
69
81
  `ARRAN5.COB`
70
82
 
71
83
  ```COBOL
72
- IDENTIFICATION DIVISION.
84
+ IDENTIFICATION DIVISION.
73
85
  PROGRAM-ID. ARRAN5.
74
86
 
75
87
 
@@ -86,36 +98,44 @@
86
98
  01 KYORI-RECORD.
87
99
  02 EKIMEI-K PIC X(12).
88
100
  02 KYORI-K PIC 99V9.
101
+ *初回質問時にご指摘いただき、解決した箇所
102
+ 02 FILLER PIC X(2).
89
103
 
90
104
  FD UNCHIN-FILE.
91
105
  01 UNCHIN-RECORD.
92
106
  02 KYORI-U PIC 9(2).
93
107
  02 UNCHIN-U PIC 9(4).
108
+ *初回質問時にご指摘いただき、解決した箇所
109
+ 02 FILLER PIC X(2).
94
110
 
95
111
  WORKING-STORAGE SECTION.
96
112
  01 END-FLAG PIC X(3).
97
113
  01 I PIC 9(2).
114
+ *次の問題個所　改善されなかったためコメントアウト中
115
+ * 01 EKIMEI-JOUSHA PIC X(14).
98
116
  01 EKIMEI-JOUSHA PIC X(12).
117
+ *次の問題個所　改善されなかったためコメントアウト中
118
+ * 01 EKIMEI-GESHA PIC X(12).
99
119
  01 EKIMEI-GESHA PIC X(12).
100
- 01 KYORI-JOUSHA PIC 9(3).
120
+ 01 KYORI-JOUSHA PIC 99V9.
101
- 01 KYORI-GESHA PIC 9(3).
121
+ 01 KYORI-GESHA PIC 99V9.
102
122
  01 ICCHI-FLAG PIC 9(1).
103
123
  01 SOTO-KYORI PIC 99V9.
104
124
  01 UTI-KYORI PIC 99V9.
105
- 01 SAIYO-KYORI PIC 99V9.
125
+ 01 SAIYO-KYORI PIC Z9.9.
126
+ 01 UNCHIN-O PIC Z999.
106
127
 
107
128
  01 KYORI-HAIRETU.
108
129
  02 KOUMOKU OCCURS 20 TIMES.
109
130
  03 EKIMEI-WK PIC X(12).
110
131
  03 KYORI-WK PIC 99V9.
132
+
111
133
 
112
134
 
113
135
  PROCEDURE DIVISION.
114
136
  *＜主処理＞--------------------------------------
115
137
  MAIN SECTION.
116
- DISPLAY "JUNBI-MAE"
117
138
  PERFORM JUNBI-SYORI
118
- DISPLAY "JUNBI-ATO"
119
139
  PERFORM RECORD-SYORI
120
140
  UNTIL END-FLAG = "EOF"
121
141
  PERFORM ATOSHIMATSU-SYORI
@@ -136,11 +156,8 @@
136
156
  MOVE "EOF" TO END-FLAG
137
157
  NOT AT END
138
158
  MOVE EKIMEI-K TO EKIMEI-WK(I)
139
- * MOVE KYORI-K TO KYORI-WK(I)
159
+ MOVE KYORI-K TO KYORI-WK(I)
140
- * DISPLAY EKIMEI-WK(I) WITH NO ADVANCING
141
- DISPLAY EKIMEI-WK(I) WITH NO ADVANCING
142
- * DISPLAY KYORI-WK(I)
143
- ADD 1 TO I
160
+ ADD 1 TO I
144
161
  END-READ
145
162
  END-PERFORM
146
163
  MOVE SPACE TO END-FLAG.
@@ -151,18 +168,22 @@
151
168
  *//入力処理----------------------
152
169
  MOVE 0 TO ICCHI-FLAG
153
170
  PERFORM
154
- UNTIL ICCHI-FLAG = 1
171
+ UNTIL ICCHI-FLAG = 1 OR EKIMEI-JOUSHA = "END"
155
172
  DISPLAY "乗車駅＝＝＞" WITH NO ADVANCING
156
173
  ACCEPT EKIMEI-JOUSHA FROM CONSOLE
174
+ DISPLAY EKIMEI-JOUSHA
175
+ *確認用　 MOVE "ｻｸﾗﾉﾐﾔ" TO EKIMEI-JOUSHA
157
176
  PERFORM JOUSHA-KENSAKU-SYORI
158
177
  END-PERFORM
159
178
 
160
179
  IF EKIMEI-JOUSHA NOT = "END"
161
180
  THEN
181
+ MOVE 0 TO ICCHI-FLAG
162
182
  PERFORM
163
183
  UNTIL ICCHI-FLAG = 1
164
184
  DISPLAY "下車駅＝＝＞" WITH NO ADVANCING
165
185
  ACCEPT EKIMEI-GESHA FROM CONSOLE
186
+ *確認用　 MOVE "ﾆｼｸｼﾞｮｳ" TO EKIMEI-GESHA
166
187
  PERFORM GESHA-KENSAKU-SYORI
167
188
  END-PERFORM
168
189
 
@@ -185,22 +206,39 @@
185
206
  PERFORM UNCHIN-KENSAKU-SYORI
186
207
 
187
208
  *//画面表示------------------------
209
+
210
+ *確認用********************************************
211
+ DISPLAY "乗車駅名　＝　" WITH NO ADVANCING
212
+ DISPLAY EKIMEI-JOUSHA
213
+ DISPLAY "乗車駅距離＝　" WITH NO ADVANCING
214
+ DISPLAY KYORI-JOUSHA
215
+ DISPLAY "下車駅名　＝　" WITH NO ADVANCING
216
+ DISPLAY EKIMEI-GESHA
217
+ DISPLAY "下車駅距離＝　" WITH NO ADVANCING
218
+ DISPLAY KYORI-GESHA
219
+ DISPLAY ""
220
+ DISPLAY "外回り距離＝　" WITH NO ADVANCING
221
+ DISPLAY SOTO-KYORI
222
+ DISPLAY "内回り距離＝　" WITH NO ADVANCING
223
+ DISPLAY UTI-KYORI
224
+ DISPLAY ""
225
+ **************************************************
226
+
188
227
  DISPLAY "距離 ＝ " WITH NO ADVANCING
189
228
  DISPLAY SAIYO-KYORI WITH NO ADVANCING
190
229
  DISPLAY " km"
191
230
 
192
231
  DISPLAY "運賃 ＝ " WITH NO ADVANCING
193
- DISPLAY UNCHIN-U WITH NO ADVANCING
232
+ DISPLAY UNCHIN-O WITH NO ADVANCING
194
233
  DISPLAY " 円"
195
234
  END-IF.
196
235
 
197
236
  * ＜乗車駅検索処理＞---------------------------------------
198
237
  JOUSHA-KENSAKU-SYORI SECTION.
199
- MOVE 0 TO ICCHI-FLAG
200
238
  MOVE 1 TO I
201
239
 
202
240
  PERFORM
203
- UNTIL EKIMEI-WK(I) = EKIMEI-JOUSHA
241
+ UNTIL EKIMEI-WK(I) = EKIMEI-JOUSHA OR I = 13
204
242
  ADD 1 TO I
205
243
  END-PERFORM
206
244
 
@@ -212,11 +250,10 @@
212
250
 
213
251
  * ＜下車駅検索処理＞--------------------------------------
214
252
  GESHA-KENSAKU-SYORI SECTION.
215
- MOVE 0 TO ICCHI-FLAG
216
253
  MOVE 1 TO I
217
254
 
218
255
  PERFORM
219
- UNTIL EKIMEI-WK(I) = EKIMEI-GESHA
256
+ UNTIL EKIMEI-WK(I) = EKIMEI-GESHA OR I = 20
220
257
  ADD 1 TO I
221
258
  END-PERFORM
222
259
 
@@ -236,6 +273,8 @@
236
273
  READ UNCHIN-FILE
237
274
  AT END
238
275
  MOVE "EOF" TO END-FLAG
276
+ NOT AT END
277
+ MOVE UNCHIN-U TO UNCHIN-O
239
278
  END-READ
240
279
  END-PERFORM.
241
280
 
@@ -246,6 +285,7 @@
246
285
 
247
286
  ```
248
287
 
288
+
249
289
  ### 他、実行に利用しているファイル
250
290
  `KYORI-FILE.DAT`
251
291
  ```DAT
@@ -287,37 +327,7 @@
287
327
  701050
288
328
  801210
289
329
  ```
290
- ### 試したこと
291
330
 
292
- 駅名に半角カナ文字を利用して データ部では英数字項目(x)で定義していましたが、これに問題があるのかと思い、`KYORI-FILE.DAT`の`EKIMEI-K`を全角カナで書き直して、データ定義部で「PIC N(12)」を指定したのですが、これでも上手くいきませんでした。
293
-
294
- ### 全角用に変えた`KYORI-FILE.DAT`
295
- `KYORIFILE-ZENKAKU.DAT`
296
- ```DAT
297
- テンマ　　　　　　　　　016
298
- サクラノミヤ　　　　　　024
299
- キヨウバシ　　　　　　　042
300
- オオサカジヨウコウエン　050
301
- モリノミヤ　　　　　　　059
302
- タマツクリ　　　　　　　068
303
- ツルハシ　　　　　　　　077
304
- モモダニ　　　　　　　　085
305
- テラダチョウ　　　　　　097
306
- テンノウジ　　　　　　　107
307
- シンイマミヤ　　　　　　117
308
- イマミヤ　　　　　　　　129
309
- アシハラバシ　　　　　　135
310
- タイシヨウ　　　　　　　147
311
- ベンテンチョウ　　　　　165
312
- ニシクジヨウ　　　　　　181
313
- ノダ　　　　　　　　　　193
314
- フクシマ　　　　　　　　207
315
- オオサカ　　　　　　　　217
316
- ```
317
- ### ご指摘いただいて、試したこと
318
- ・２つの入力ファイルの改行コードを考慮して、データ定義部で改行コード分の領域を取る
319
- ➤解決ならず
320
-
321
331
  ### 補足情報（FW/ツールのバージョンなど）
322
332
  【OS】Windows10
323
333
  【コンパイラ】MinGW

2

いただいた修正点をもとに更新

2021/06/06 12:00

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -314,6 +314,10 @@
314
314
  フクシマ　　　　　　　　207
315
315
  オオサカ　　　　　　　　217
316
316
  ```
317
+ ### ご指摘いただいて、試したこと
318
+ ・２つの入力ファイルの改行コードを考慮して、データ定義部で改行コード分の領域を取る
319
+ ➤解決ならず
320
+
317
321
  ### 補足情報（FW/ツールのバージョンなど）
318
322
  【OS】Windows10
319
323
  【コンパイラ】MinGW

1

誤字の修正

2021/06/06 07:21

投稿

COBOL_TURAI
COBOL_TURAI

スコア2

title CHANGED
File without changes
body CHANGED
@@ -2,13 +2,13 @@
2
2
 
3
3
  このプログラムでやろうとしていることは、入力された乗車駅と下車駅から、2駅間の距離と大阪環状線の運賃を求めて、表示するものです。
4
4
 
5
- 入力ファイルとして、KYORI-FILEとUNCHIN-FILEがあります。
5
+ 入力ファイルとして、`KYORI-FILE`と`UNCHIN-FILE`があります。
6
6
 
7
7
  ■`KYORI-FILE.DAT`
8
- 項目EKIMEI-Kは大阪環状線の各駅名、項目KYORI-Kは大阪駅を基準にそれぞれの駅に外回りで到達するまでの距離が入っている。KYORI-Kは小数第一位まで表示する
8
+ 項目`EKIMEI-K`は大阪環状線の各駅名、項目`KYORI-K`は大阪駅を基準にそれぞれの駅に外回りで到達するまでの距離が入っている。`KYORI-K`は小数第一位まで表示する
9
9
 
10
10
  ■`UNCHIN-FILE.DAT`
11
- 項目KYORI-Uは距離、UNCHIN-UはKYORI-U当たりにかかる運賃が入っている
11
+ 項目`KYORI-U`は距離、`UNCHIN-U`は`KYORI-U`当たりにかかる運賃が入っている
12
12
 
13
13
 
14
14
  【処理部の説明】
@@ -66,7 +66,7 @@
66
66
  …正しく値が入っていない
67
67
 
68
68
  ### 該当のソースコード
69
- ARRAN5.COB
69
+ `ARRAN5.COB`
70
70
 
71
71
  ```COBOL
72
72
  IDENTIFICATION DIVISION.
@@ -247,7 +247,7 @@
247
247
  ```
248
248
 
249
249
  ### 他、実行に利用しているファイル
250
- KYORI-FILE.DAT
250
+ `KYORI-FILE.DAT`
251
251
  ```DAT
252
252
  ﾃﾝﾏ 016
253
253
  ｻｸﾗﾉﾐﾔ 024
@@ -270,7 +270,7 @@
270
270
  ｵｵｻｶ 217
271
271
  ```
272
272
 
273
- UNCHIN-FILE.DAT
273
+ `UNCHIN-FILE.DAT`
274
274
  ```DAT
275
275
  030120
276
276
  060160
@@ -289,7 +289,7 @@
289
289
  ```
290
290
  ### 試したこと
291
291
 
292
- 駅名に半角カナ文字を利用して データ部では英数字項目(x)で定義していましたが、これに問題があるのかと思い、KYORI-FILE.DATの`EKIMEI-K`を全角カナで書き直して、データ定義部で「PIC N(12)」を指定したのですが、これでも上手くいきませんでした。
292
+ 駅名に半角カナ文字を利用して データ部では英数字項目(x)で定義していましたが、これに問題があるのかと思い、`KYORI-FILE.DAT`の`EKIMEI-K`を全角カナで書き直して、データ定義部で「PIC N(12)」を指定したのですが、これでも上手くいきませんでした。
293
293
 
294
294
  ### 全角用に変えた`KYORI-FILE.DAT`
295
295
  `KYORIFILE-ZENKAKU.DAT`