質問編集履歴
12
誤字の修正
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
いただいた修正点をもとに更新
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
|
-
|
178
|
+
DISPLAY EKIMEI-JOUSHA
|
183
|
-
|
179
|
+
|
184
180
|
PERFORM JOUSHA-KENSAKU-SYORI
|
185
181
|
END-PERFORM
|
186
182
|
|
187
|
-
IF EKIMEI-JOUSHA
|
183
|
+
IF EKIMEI-JOUSHA = "END"
|
188
184
|
THEN
|
189
|
-
MOVE 0 TO ICCHI-FLAG
|
190
|
-
|
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
|
-
|
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
|
-
|
197
|
+
IF KYORI-GESHA - KYORI-JOUSHA > 0
|
200
|
-
|
198
|
+
THEN
|
201
|
-
|
199
|
+
COMPUTE SOTO-KYORI = KYORI-GESHA - KYORI-JOUSHA
|
202
|
-
|
200
|
+
ELSE
|
203
|
-
|
201
|
+
COMPUTE SOTO-KYORI = KYORI-JOUSHA - KYORI-GESHA
|
204
|
-
|
202
|
+
END-IF
|
205
203
|
|
206
|
-
|
204
|
+
COMPUTE UTI-KYORI = 21.7 - SOTO-KYORI
|
207
205
|
|
208
|
-
|
206
|
+
IF SOTO-KYORI <= UTI-KYORI
|
209
|
-
|
207
|
+
THEN
|
210
|
-
|
208
|
+
MOVE SOTO-KYORI TO SAIYO-KYORI
|
211
|
-
|
209
|
+
ELSE
|
212
|
-
|
210
|
+
MOVE UTI-KYORI TO SAIYO-KYORI
|
213
|
-
|
211
|
+
END-IF
|
212
|
+
MOVE SAIYO-KYORI TO KYORI-O
|
214
|
-
|
213
|
+
PERFORM UNCHIN-KENSAKU-SYORI
|
215
214
|
|
216
215
|
*//画面表示------------------------
|
217
216
|
|
218
217
|
*確認用********************************************
|
219
|
-
|
218
|
+
DISPLAY "乗車駅名 = " WITH NO ADVANCING
|
220
|
-
|
219
|
+
DISPLAY EKIMEI-JOUSHA
|
221
|
-
|
220
|
+
DISPLAY "乗車駅距離= " WITH NO ADVANCING
|
222
|
-
|
221
|
+
DISPLAY KYORI-JOUSHA
|
223
|
-
|
222
|
+
DISPLAY "下車駅名 = " WITH NO ADVANCING
|
224
|
-
|
223
|
+
DISPLAY EKIMEI-GESHA
|
225
|
-
|
224
|
+
DISPLAY "下車駅距離= " WITH NO ADVANCING
|
226
|
-
|
225
|
+
DISPLAY KYORI-GESHA
|
227
|
-
|
226
|
+
DISPLAY " "
|
228
|
-
|
227
|
+
DISPLAY "外回り距離= " WITH NO ADVANCING
|
229
|
-
|
228
|
+
DISPLAY SOTO-KYORI
|
230
|
-
|
229
|
+
DISPLAY "内回り距離= " WITH NO ADVANCING
|
231
|
-
|
230
|
+
DISPLAY UTI-KYORI
|
232
|
-
|
231
|
+
DISPLAY " "
|
233
232
|
**************************************************
|
234
233
|
|
235
|
-
|
234
|
+
DISPLAY "距離 = " WITH NO ADVANCING
|
236
|
-
|
235
|
+
DISPLAY SAIYO-KYORI WITH NO ADVANCING
|
237
|
-
|
236
|
+
DISPLAY " km"
|
238
237
|
|
239
|
-
|
238
|
+
DISPLAY "運賃 = " WITH NO ADVANCING
|
240
|
-
|
239
|
+
DISPLAY UNCHIN-O WITH NO ADVANCING
|
241
|
-
|
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
|
-
|
280
|
+
MOVE UNCHIN-U TO UNCHIN-O
|
281
|
+
END-READ
|
282
|
+
|
278
283
|
PERFORM
|
279
|
-
|
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
いただいた修正点をもとに更新
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
いただいた修正点をもとに更新
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
いただいた修正点をもとに更新
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
誤字の修正
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 =
|
241
|
+
UNTIL EKIMEI-WK(I) = EKIMEI-JOUSHA OR I = 20
|
242
242
|
ADD 1 TO I
|
243
243
|
END-PERFORM
|
244
244
|
|
6
いただいた修正点をもとに更新
title
CHANGED
File without changes
|
body
CHANGED
@@ -81,7 +81,7 @@
|
|
81
81
|
`ARRAN5.COB`
|
82
82
|
|
83
83
|
```COBOL
|
84
|
-
|
84
|
+
IDENTIFICATION DIVISION.
|
85
85
|
PROGRAM-ID. ARRAN5.
|
86
86
|
|
87
87
|
|
5
いただいた修正点をもとに更新
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(
|
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
いただいた修正点をもとに更新
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
いただいた修正点をもとに更新
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
|
+
・2つの入力ファイルの改行コードを考慮して、データ定義部で改行コード分の領域を取る
|
75
|
+
➤解決
|
76
|
+
|
77
|
+
### 次の問題点
|
78
|
+
ACCEPT文記述の箇所で、変数に値を上手く受け取れない問題が発生。受け取る変数の定義にも改行コード分の領域を定義したりしてみても改善されず
|
79
|
+
|
68
80
|
### 該当のソースコード
|
69
81
|
`ARRAN5.COB`
|
70
82
|
|
71
83
|
```COBOL
|
72
|
-
|
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
|
120
|
+
01 KYORI-JOUSHA PIC 99V9.
|
101
|
-
01 KYORI-GESHA PIC
|
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
|
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
|
-
|
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
|
-
|
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-
|
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
|
-
・2つの入力ファイルの改行コードを考慮して、データ定義部で改行コード分の領域を取る
|
319
|
-
➤解決ならず
|
320
|
-
|
321
331
|
### 補足情報(FW/ツールのバージョンなど)
|
322
332
|
【OS】Windows10
|
323
333
|
【コンパイラ】MinGW
|
2
いただいた修正点をもとに更新
title
CHANGED
File without changes
|
body
CHANGED
@@ -314,6 +314,10 @@
|
|
314
314
|
フクシマ 207
|
315
315
|
オオサカ 217
|
316
316
|
```
|
317
|
+
### ご指摘いただいて、試したこと
|
318
|
+
・2つの入力ファイルの改行コードを考慮して、データ定義部で改行コード分の領域を取る
|
319
|
+
➤解決ならず
|
320
|
+
|
317
321
|
### 補足情報(FW/ツールのバージョンなど)
|
318
322
|
【OS】Windows10
|
319
323
|
【コンパイラ】MinGW
|
1
誤字の修正
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`
|