質問編集履歴
16
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -18,7 +18,7 @@
|
|
18
18
|
|
19
19
|
```Cobol
|
20
20
|
|
21
|
-
IDENTIFICATION DIVISION.
|
21
|
+
IDENTIFICATION DIVISION. *>見出し部
|
22
22
|
|
23
23
|
PROGRAM-ID. RENSYU-1.
|
24
24
|
|
15
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -18,10 +18,12 @@
|
|
18
18
|
|
19
19
|
```Cobol
|
20
20
|
|
21
|
-
IDENTIFICATION DIVISION. *>見出し部
|
21
|
+
IDENTIFICATION DIVISION. *>見出し部
|
22
22
|
|
23
23
|
PROGRAM-ID. RENSYU-1.
|
24
24
|
|
25
|
+
|
26
|
+
|
25
27
|
ENVIRONMENT DIVISION. *>環境部
|
26
28
|
|
27
29
|
CONFIGURATION SECTION.
|
@@ -42,6 +44,8 @@
|
|
42
44
|
|
43
45
|
*> SELECT LP-FILE ASSIGN TO LP. -------------修正済みの箇所
|
44
46
|
|
47
|
+
|
48
|
+
|
45
49
|
DATA DIVISION. *>データ部
|
46
50
|
|
47
51
|
FILE SECTION.
|
@@ -90,6 +94,8 @@
|
|
90
94
|
|
91
95
|
77 EOF PIC X(3) VALUE SPACE.
|
92
96
|
|
97
|
+
|
98
|
+
|
93
99
|
PROCEDURE DIVISION. *>手続き部
|
94
100
|
|
95
101
|
HAZIME.
|
14
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -18,7 +18,7 @@
|
|
18
18
|
|
19
19
|
```Cobol
|
20
20
|
|
21
|
-
IDENTIFICATION DIVISION. *>見出し部
|
21
|
+
IDENTIFICATION DIVISION. *>見出し部
|
22
22
|
|
23
23
|
PROGRAM-ID. RENSYU-1.
|
24
24
|
|
@@ -84,13 +84,13 @@
|
|
84
84
|
|
85
85
|
02 FILLER PIC X(10).
|
86
86
|
|
87
|
-
WORKING-STORAGE SECTION.
|
87
|
+
WORKING-STORAGE SECTION.
|
88
88
|
|
89
89
|
77 KINGAKU-W PIC 9(7).
|
90
90
|
|
91
91
|
77 EOF PIC X(3) VALUE SPACE.
|
92
92
|
|
93
|
-
PROCEDURE DIVISION.
|
93
|
+
PROCEDURE DIVISION. *>手続き部
|
94
94
|
|
95
95
|
HAZIME.
|
96
96
|
|
13
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -221,3 +221,9 @@
|
|
221
221
|
windows10
|
222
222
|
|
223
223
|
open-cobol-1.0-2
|
224
|
+
|
225
|
+
|
226
|
+
|
227
|
+
<ソースコードの出典>
|
228
|
+
|
229
|
+
『【午後選択】基本情報技術者試験らくらく突破COBOL 穂積和子+藤山秋良・著』
|
12
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -38,6 +38,10 @@
|
|
38
38
|
|
39
39
|
SELECT LP-FILE ASSIGN TO './lp.dat'.
|
40
40
|
|
41
|
+
*> SELECT CD-FILE ASSIGN TO CR. -------------※当初の質問でOrlofskyさんにご指摘いただき、
|
42
|
+
|
43
|
+
*> SELECT LP-FILE ASSIGN TO LP. -------------修正済みの箇所
|
44
|
+
|
41
45
|
DATA DIVISION. *>データ部
|
42
46
|
|
43
47
|
FILE SECTION.
|
11
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -16,7 +16,9 @@
|
|
16
16
|
|
17
17
|
dodox86様に載せていただいたコードに同じ( t03.cob)
|
18
18
|
|
19
|
+
```Cobol
|
20
|
+
|
19
|
-
|
21
|
+
IDENTIFICATION DIVISION. *>見出し部
|
20
22
|
|
21
23
|
PROGRAM-ID. RENSYU-1.
|
22
24
|
|
@@ -126,7 +128,7 @@
|
|
126
128
|
|
127
129
|
|
128
130
|
|
129
|
-
|
131
|
+
|
130
132
|
|
131
133
|
```
|
132
134
|
|
@@ -168,7 +170,7 @@
|
|
168
170
|
|
169
171
|
c:\Cobol>
|
170
172
|
|
171
|
-
|
173
|
+
|
172
174
|
|
173
175
|
```
|
174
176
|
|
@@ -190,7 +192,7 @@
|
|
190
192
|
|
191
193
|
|
192
194
|
|
193
|
-
|
195
|
+
|
194
196
|
|
195
197
|
```
|
196
198
|
|
10
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -168,6 +168,10 @@
|
|
168
168
|
|
169
169
|
c:\Cobol>
|
170
170
|
|
171
|
+
コード
|
172
|
+
|
173
|
+
```
|
174
|
+
|
171
175
|
|
172
176
|
|
173
177
|
### cr.dat(データファイル)の内容
|
@@ -200,6 +204,10 @@
|
|
200
204
|
|
201
205
|
|
202
206
|
|
207
|
+
|
208
|
+
|
209
|
+
|
210
|
+
|
203
211
|
### 補足情報(FW/ツールのバージョンなど)
|
204
212
|
|
205
213
|
|
9
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -132,9 +132,9 @@
|
|
132
132
|
|
133
133
|
|
134
134
|
|
135
|
-
### 実行結果
|
136
|
-
|
137
|
-
コマンドプロンプト画面:<実行の流れ>
|
135
|
+
### コマンドプロンプト画面:<実行の流れ>
|
136
|
+
|
137
|
+
|
138
138
|
|
139
139
|
```
|
140
140
|
|
@@ -168,9 +168,9 @@
|
|
168
168
|
|
169
169
|
c:\Cobol>
|
170
170
|
|
171
|
-
|
171
|
+
|
172
|
-
|
172
|
+
|
173
|
-
cr.dat(データファイル)の内容
|
173
|
+
### cr.dat(データファイル)の内容
|
174
174
|
|
175
175
|
```
|
176
176
|
|
@@ -186,6 +186,12 @@
|
|
186
186
|
|
187
187
|
|
188
188
|
|
189
|
+
コード
|
190
|
+
|
191
|
+
```
|
192
|
+
|
193
|
+
|
194
|
+
|
189
195
|
|
190
196
|
|
191
197
|
|
8
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -168,7 +168,7 @@
|
|
168
168
|
|
169
169
|
c:\Cobol>
|
170
170
|
|
171
|
-
|
171
|
+
```
|
172
172
|
|
173
173
|
cr.dat(データファイル)の内容
|
174
174
|
|
@@ -186,12 +186,6 @@
|
|
186
186
|
|
187
187
|
|
188
188
|
|
189
|
-
コード
|
190
|
-
|
191
|
-
```
|
192
|
-
|
193
|
-
|
194
|
-
|
195
189
|
|
196
190
|
|
197
191
|
|
7
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -170,32 +170,26 @@
|
|
170
170
|
|
171
171
|
|
172
172
|
|
173
|
+
cr.dat(データファイル)の内容
|
174
|
+
|
175
|
+
```
|
176
|
+
|
177
|
+
SHOUHINMEI-1 123100####################################################
|
178
|
+
|
179
|
+
SHOUHINMEI-2 500200####################################################
|
180
|
+
|
181
|
+
SHOUHINMEI-3 800300####################################################
|
182
|
+
|
183
|
+
SHOUHINMEI-4 900400####################################################
|
184
|
+
|
185
|
+
SHOUHINMEI-5 600200####################################################
|
186
|
+
|
187
|
+
|
188
|
+
|
173
189
|
コード
|
174
190
|
|
175
191
|
```
|
176
192
|
|
177
|
-
```
|
178
|
-
|
179
|
-
cr.dat(データファイル)の内容
|
180
|
-
|
181
|
-
|
182
|
-
|
183
|
-
SHOUHINMEI-1 123100####################################################
|
184
|
-
|
185
|
-
SHOUHINMEI-2 500200####################################################
|
186
|
-
|
187
|
-
SHOUHINMEI-3 800300####################################################
|
188
|
-
|
189
|
-
SHOUHINMEI-4 900400####################################################
|
190
|
-
|
191
|
-
SHOUHINMEI-5 600200####################################################
|
192
|
-
|
193
|
-
|
194
|
-
|
195
|
-
コード
|
196
|
-
|
197
|
-
```
|
198
|
-
|
199
193
|
|
200
194
|
|
201
195
|
|
6
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -136,6 +136,8 @@
|
|
136
136
|
|
137
137
|
コマンドプロンプト画面:<実行の流れ>
|
138
138
|
|
139
|
+
```
|
140
|
+
|
139
141
|
c:\Cobol>cobc -x --free test.cbl
|
140
142
|
|
141
143
|
|
@@ -168,6 +170,12 @@
|
|
168
170
|
|
169
171
|
|
170
172
|
|
173
|
+
コード
|
174
|
+
|
175
|
+
```
|
176
|
+
|
177
|
+
```
|
178
|
+
|
171
179
|
cr.dat(データファイル)の内容
|
172
180
|
|
173
181
|
|
@@ -184,6 +192,10 @@
|
|
184
192
|
|
185
193
|
|
186
194
|
|
195
|
+
コード
|
196
|
+
|
197
|
+
```
|
198
|
+
|
187
199
|
|
188
200
|
|
189
201
|
|
5
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -8,7 +8,7 @@
|
|
8
8
|
|
9
9
|
### 発生している問題・エラーメッセージ
|
10
10
|
|
11
|
-
「cr.dat」最終行のSHOUHINMEI-5が、「lp.dat」に出力されない
|
11
|
+
「cr.dat」最終行の"SHOUHINMEI-5"が、「lp.dat」に出力されない
|
12
12
|
|
13
13
|
|
14
14
|
|
4
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -10,132 +10,126 @@
|
|
10
10
|
|
11
11
|
「cr.dat」最終行のSHOUHINMEI-5が、「lp.dat」に出力されない
|
12
12
|
|
13
|
+
|
14
|
+
|
15
|
+
### 該当のソースコード
|
16
|
+
|
17
|
+
dodox86様に載せていただいたコードに同じ( t03.cob)
|
18
|
+
|
19
|
+
```IDENTIFICATION DIVISION. *>見出し部
|
20
|
+
|
21
|
+
PROGRAM-ID. RENSYU-1.
|
22
|
+
|
23
|
+
ENVIRONMENT DIVISION. *>環境部
|
24
|
+
|
25
|
+
CONFIGURATION SECTION.
|
26
|
+
|
27
|
+
SOURCE-COMPUTER. COMPUTER-X.
|
28
|
+
|
29
|
+
OBJECT-COMPUTER. COMPUTER-X.
|
30
|
+
|
31
|
+
INPUT-OUTPUT SECTION.
|
32
|
+
|
33
|
+
FILE-CONTROL.
|
34
|
+
|
35
|
+
SELECT CD-FILE ASSIGN TO './cr.dat'.
|
36
|
+
|
37
|
+
SELECT LP-FILE ASSIGN TO './lp.dat'.
|
38
|
+
|
39
|
+
DATA DIVISION. *>データ部
|
40
|
+
|
41
|
+
FILE SECTION.
|
42
|
+
|
43
|
+
FD CD-FILE
|
44
|
+
|
45
|
+
LABEL RECORD IS OMITTED.
|
46
|
+
|
47
|
+
01 CD-REC.
|
48
|
+
|
49
|
+
02 SHOUHINMEI-I PIC X(20).
|
50
|
+
|
51
|
+
02 SURYOU-I PIC 9(3).
|
52
|
+
|
53
|
+
02 TANKA-I PIC 9(3).
|
54
|
+
|
55
|
+
02 FILLER PIC X(54).
|
56
|
+
|
57
|
+
FD LP-FILE
|
58
|
+
|
59
|
+
LABEL RECORD IS OMITTED.
|
60
|
+
|
61
|
+
01 LP-REC.
|
62
|
+
|
63
|
+
02 FILLER PIC X(10).
|
64
|
+
|
65
|
+
02 SHOUHINMEI-O PIC X(20).
|
66
|
+
|
67
|
+
02 FILLER PIC X(10).
|
68
|
+
|
69
|
+
02 SURYOU-O PIC 999.
|
70
|
+
|
71
|
+
02 FILLER PIC X(10).
|
72
|
+
|
73
|
+
02 TANKA-O PIC 999.
|
74
|
+
|
75
|
+
02 FILLER PIC X(10).
|
76
|
+
|
77
|
+
02 KINGAKU-O PIC 9(7).
|
78
|
+
|
79
|
+
02 FILLER PIC X(10).
|
80
|
+
|
81
|
+
WORKING-STORAGE SECTION. *>手続き部
|
82
|
+
|
83
|
+
77 KINGAKU-W PIC 9(7).
|
84
|
+
|
85
|
+
77 EOF PIC X(3) VALUE SPACE.
|
86
|
+
|
87
|
+
PROCEDURE DIVISION.
|
88
|
+
|
89
|
+
HAZIME.
|
90
|
+
|
91
|
+
OPEN INPUT CD-FILE
|
92
|
+
|
93
|
+
OUTPUT LP-FILE.
|
94
|
+
|
95
|
+
MOVE SPACE TO LP-REC.
|
96
|
+
|
97
|
+
PERFORM UNTIL EOF = "END"
|
98
|
+
|
99
|
+
READ CD-FILE RECORD
|
100
|
+
|
101
|
+
AT END
|
102
|
+
|
103
|
+
MOVE "END" TO EOF
|
104
|
+
|
105
|
+
NOT AT END
|
106
|
+
|
107
|
+
COMPUTE KINGAKU-W = SURYOU-I * TANKA-I
|
108
|
+
|
109
|
+
MOVE SHOUHINMEI-I TO SHOUHINMEI-O
|
110
|
+
|
111
|
+
MOVE SURYOU-I TO SURYOU-O
|
112
|
+
|
113
|
+
MOVE TANKA-I TO TANKA-O
|
114
|
+
|
115
|
+
MOVE KINGAKU-W TO KINGAKU-O
|
116
|
+
|
117
|
+
WRITE LP-REC AFTER 2 LINES
|
118
|
+
|
119
|
+
END-READ
|
120
|
+
|
121
|
+
END-PERFORM.
|
122
|
+
|
123
|
+
CLOSE CD-FILE LP-FILE.
|
124
|
+
|
125
|
+
STOP RUN.
|
126
|
+
|
127
|
+
|
128
|
+
|
129
|
+
Cobol
|
130
|
+
|
13
131
|
```
|
14
132
|
|
15
|
-
エラーメッセージ
|
16
|
-
|
17
|
-
```
|
18
|
-
|
19
|
-
|
20
|
-
|
21
|
-
### 該当のソースコード
|
22
|
-
|
23
|
-
dodox86様に載せていただいたコードに同じ( t03.cob)
|
24
|
-
|
25
|
-
```IDENTIFICATION DIVISION. *>見出し部
|
26
|
-
|
27
|
-
PROGRAM-ID. RENSYU-1.
|
28
|
-
|
29
|
-
ENVIRONMENT DIVISION. *>環境部
|
30
|
-
|
31
|
-
CONFIGURATION SECTION.
|
32
|
-
|
33
|
-
SOURCE-COMPUTER. COMPUTER-X.
|
34
|
-
|
35
|
-
OBJECT-COMPUTER. COMPUTER-X.
|
36
|
-
|
37
|
-
INPUT-OUTPUT SECTION.
|
38
|
-
|
39
|
-
FILE-CONTROL.
|
40
|
-
|
41
|
-
SELECT CD-FILE ASSIGN TO './cr.dat'.
|
42
|
-
|
43
|
-
SELECT LP-FILE ASSIGN TO './lp.dat'.
|
44
|
-
|
45
|
-
DATA DIVISION. *>データ部
|
46
|
-
|
47
|
-
FILE SECTION.
|
48
|
-
|
49
|
-
FD CD-FILE
|
50
|
-
|
51
|
-
LABEL RECORD IS OMITTED.
|
52
|
-
|
53
|
-
01 CD-REC.
|
54
|
-
|
55
|
-
02 SHOUHINMEI-I PIC X(20).
|
56
|
-
|
57
|
-
02 SURYOU-I PIC 9(3).
|
58
|
-
|
59
|
-
02 TANKA-I PIC 9(3).
|
60
|
-
|
61
|
-
02 FILLER PIC X(54).
|
62
|
-
|
63
|
-
FD LP-FILE
|
64
|
-
|
65
|
-
LABEL RECORD IS OMITTED.
|
66
|
-
|
67
|
-
01 LP-REC.
|
68
|
-
|
69
|
-
02 FILLER PIC X(10).
|
70
|
-
|
71
|
-
02 SHOUHINMEI-O PIC X(20).
|
72
|
-
|
73
|
-
02 FILLER PIC X(10).
|
74
|
-
|
75
|
-
02 SURYOU-O PIC 999.
|
76
|
-
|
77
|
-
02 FILLER PIC X(10).
|
78
|
-
|
79
|
-
02 TANKA-O PIC 999.
|
80
|
-
|
81
|
-
02 FILLER PIC X(10).
|
82
|
-
|
83
|
-
02 KINGAKU-O PIC 9(7).
|
84
|
-
|
85
|
-
02 FILLER PIC X(10).
|
86
|
-
|
87
|
-
WORKING-STORAGE SECTION. *>手続き部
|
88
|
-
|
89
|
-
77 KINGAKU-W PIC 9(7).
|
90
|
-
|
91
|
-
77 EOF PIC X(3) VALUE SPACE.
|
92
|
-
|
93
|
-
PROCEDURE DIVISION.
|
94
|
-
|
95
|
-
HAZIME.
|
96
|
-
|
97
|
-
OPEN INPUT CD-FILE
|
98
|
-
|
99
|
-
OUTPUT LP-FILE.
|
100
|
-
|
101
|
-
MOVE SPACE TO LP-REC.
|
102
|
-
|
103
|
-
PERFORM UNTIL EOF = "END"
|
104
|
-
|
105
|
-
READ CD-FILE RECORD
|
106
|
-
|
107
|
-
AT END
|
108
|
-
|
109
|
-
MOVE "END" TO EOF
|
110
|
-
|
111
|
-
NOT AT END
|
112
|
-
|
113
|
-
COMPUTE KINGAKU-W = SURYOU-I * TANKA-I
|
114
|
-
|
115
|
-
MOVE SHOUHINMEI-I TO SHOUHINMEI-O
|
116
|
-
|
117
|
-
MOVE SURYOU-I TO SURYOU-O
|
118
|
-
|
119
|
-
MOVE TANKA-I TO TANKA-O
|
120
|
-
|
121
|
-
MOVE KINGAKU-W TO KINGAKU-O
|
122
|
-
|
123
|
-
WRITE LP-REC AFTER 2 LINES
|
124
|
-
|
125
|
-
END-READ
|
126
|
-
|
127
|
-
END-PERFORM.
|
128
|
-
|
129
|
-
CLOSE CD-FILE LP-FILE.
|
130
|
-
|
131
|
-
STOP RUN.
|
132
|
-
|
133
|
-
|
134
|
-
|
135
|
-
Cobol
|
136
|
-
|
137
|
-
```
|
138
|
-
|
139
133
|
|
140
134
|
|
141
135
|
### 実行結果
|
3
再度修正をおこないました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -2,13 +2,13 @@
|
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
オープンCobolで、読み込んだデータファイルより、帳票を作成し、画面に表示
|
5
|
+
オープンCobolで、読み込んだデータファイル「cr.dat」より、帳票を作成し、出力先ファイル「 lp.dat」の中身をコマンドプロンプトで画面に表示したい
|
6
6
|
|
7
7
|
|
8
8
|
|
9
9
|
### 発生している問題・エラーメッセージ
|
10
10
|
|
11
|
-
cr.dat
|
11
|
+
「cr.dat」最終行のSHOUHINMEI-5が、「lp.dat」に出力されない
|
12
12
|
|
13
13
|
```
|
14
14
|
|
2
ご指摘いただきました点に注意して、質問を修正いたしました。至らぬ点も多々あるかと思いますが、よろしくお願いします。
test
CHANGED
File without changes
|
test
CHANGED
@@ -2,29 +2,13 @@
|
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
|
5
|
+
オープンCobolで、読み込んだデータファイルより、帳票を作成し、画面に表示する
|
6
|
-
|
7
|
-
家のプリンタとパソコンのみでそれは可能でしょうか
|
8
|
-
|
9
|
-
また、あるソースコードを実行したときに次のようなエラーが出ました
|
10
|
-
|
11
|
-
![コード前半](333caca38f87bc0ff589d4c769f8f3a1.jpeg)
|
12
|
-
|
13
|
-
![コード後半](f5620f97d45234f68e77e38d245b7e9a.jpeg)
|
14
|
-
|
15
|
-
![コードエラー文](e34c8ad90b186862a538975a7574cb9a.jpeg)
|
16
|
-
|
17
|
-
教材に書いてあったコードを試しに実行してみたものです
|
18
|
-
|
19
|
-
(基礎から勉強したいと思い、基本情報技術者試験用のCOBOL教材で勉強しておりまして、まだ勉強したてで、これが汎用系のものなのか、オープン系のものなのかはよくわかっておりません。すみません。)
|
20
|
-
|
21
|
-
未熟な質問かと思いますが、ご教授いただければ幸いです。
|
22
6
|
|
23
7
|
|
24
8
|
|
25
9
|
### 発生している問題・エラーメッセージ
|
26
10
|
|
27
|
-
|
11
|
+
cr.dat(データファイル)最終行のSHOUHINMEI-5が画面に出力されない
|
28
12
|
|
29
13
|
```
|
30
14
|
|
@@ -36,9 +20,117 @@
|
|
36
20
|
|
37
21
|
### 該当のソースコード
|
38
22
|
|
23
|
+
dodox86様に載せていただいたコードに同じ( t03.cob)
|
24
|
+
|
25
|
+
```IDENTIFICATION DIVISION. *>見出し部
|
26
|
+
|
27
|
+
PROGRAM-ID. RENSYU-1.
|
28
|
+
|
29
|
+
ENVIRONMENT DIVISION. *>環境部
|
30
|
+
|
31
|
+
CONFIGURATION SECTION.
|
32
|
+
|
33
|
+
SOURCE-COMPUTER. COMPUTER-X.
|
34
|
+
|
35
|
+
OBJECT-COMPUTER. COMPUTER-X.
|
36
|
+
|
37
|
+
INPUT-OUTPUT SECTION.
|
38
|
+
|
39
|
+
FILE-CONTROL.
|
40
|
+
|
41
|
+
SELECT CD-FILE ASSIGN TO './cr.dat'.
|
42
|
+
|
43
|
+
SELECT LP-FILE ASSIGN TO './lp.dat'.
|
44
|
+
|
45
|
+
DATA DIVISION. *>データ部
|
46
|
+
|
47
|
+
FILE SECTION.
|
48
|
+
|
49
|
+
FD CD-FILE
|
50
|
+
|
51
|
+
LABEL RECORD IS OMITTED.
|
52
|
+
|
53
|
+
01 CD-REC.
|
54
|
+
|
55
|
+
02 SHOUHINMEI-I PIC X(20).
|
56
|
+
|
57
|
+
02 SURYOU-I PIC 9(3).
|
58
|
+
|
59
|
+
02 TANKA-I PIC 9(3).
|
60
|
+
|
61
|
+
02 FILLER PIC X(54).
|
62
|
+
|
63
|
+
FD LP-FILE
|
64
|
+
|
65
|
+
LABEL RECORD IS OMITTED.
|
66
|
+
|
67
|
+
01 LP-REC.
|
68
|
+
|
69
|
+
02 FILLER PIC X(10).
|
70
|
+
|
71
|
+
02 SHOUHINMEI-O PIC X(20).
|
72
|
+
|
73
|
+
02 FILLER PIC X(10).
|
74
|
+
|
75
|
+
02 SURYOU-O PIC 999.
|
76
|
+
|
77
|
+
02 FILLER PIC X(10).
|
78
|
+
|
79
|
+
02 TANKA-O PIC 999.
|
80
|
+
|
81
|
+
02 FILLER PIC X(10).
|
82
|
+
|
83
|
+
02 KINGAKU-O PIC 9(7).
|
84
|
+
|
85
|
+
02 FILLER PIC X(10).
|
86
|
+
|
87
|
+
WORKING-STORAGE SECTION. *>手続き部
|
88
|
+
|
89
|
+
77 KINGAKU-W PIC 9(7).
|
90
|
+
|
91
|
+
77 EOF PIC X(3) VALUE SPACE.
|
92
|
+
|
93
|
+
PROCEDURE DIVISION.
|
94
|
+
|
95
|
+
HAZIME.
|
96
|
+
|
97
|
+
OPEN INPUT CD-FILE
|
98
|
+
|
99
|
+
OUTPUT LP-FILE.
|
100
|
+
|
101
|
+
MOVE SPACE TO LP-REC.
|
102
|
+
|
103
|
+
PERFORM UNTIL EOF = "END"
|
104
|
+
|
105
|
+
READ CD-FILE RECORD
|
106
|
+
|
107
|
+
AT END
|
108
|
+
|
109
|
+
MOVE "END" TO EOF
|
110
|
+
|
111
|
+
NOT AT END
|
112
|
+
|
113
|
+
COMPUTE KINGAKU-W = SURYOU-I * TANKA-I
|
114
|
+
|
115
|
+
MOVE SHOUHINMEI-I TO SHOUHINMEI-O
|
116
|
+
|
117
|
+
MOVE SURYOU-I TO SURYOU-O
|
118
|
+
|
119
|
+
MOVE TANKA-I TO TANKA-O
|
120
|
+
|
121
|
+
MOVE KINGAKU-W TO KINGAKU-O
|
122
|
+
|
123
|
+
WRITE LP-REC AFTER 2 LINES
|
124
|
+
|
125
|
+
END-READ
|
126
|
+
|
127
|
+
END-PERFORM.
|
128
|
+
|
129
|
+
CLOSE CD-FILE LP-FILE.
|
130
|
+
|
39
|
-
|
131
|
+
STOP RUN.
|
40
|
-
|
41
|
-
|
132
|
+
|
133
|
+
|
42
134
|
|
43
135
|
Cobol
|
44
136
|
|
@@ -46,9 +138,63 @@
|
|
46
138
|
|
47
139
|
|
48
140
|
|
49
|
-
###
|
141
|
+
### 実行結果
|
50
|
-
|
142
|
+
|
51
|
-
コン
|
143
|
+
コマンドプロンプト画面:<実行の流れ>
|
144
|
+
|
145
|
+
c:\Cobol>cobc -x --free test.cbl
|
146
|
+
|
147
|
+
|
148
|
+
|
149
|
+
c:\Cobol>test.exe
|
150
|
+
|
151
|
+
|
152
|
+
|
153
|
+
c:\Cobol>type lp.dat
|
154
|
+
|
155
|
+
|
156
|
+
|
157
|
+
|
158
|
+
|
159
|
+
SHOUHINMEI-1 123 100 0012300
|
160
|
+
|
161
|
+
|
162
|
+
|
163
|
+
SHOUHINMEI-2 500 200 0100000
|
164
|
+
|
165
|
+
|
166
|
+
|
167
|
+
SHOUHINMEI-3 800 300 0240000
|
168
|
+
|
169
|
+
|
170
|
+
|
171
|
+
SHOUHINMEI-4 900 400 0360000
|
172
|
+
|
173
|
+
c:\Cobol>
|
174
|
+
|
175
|
+
|
176
|
+
|
177
|
+
cr.dat(データファイル)の内容
|
178
|
+
|
179
|
+
|
180
|
+
|
181
|
+
SHOUHINMEI-1 123100####################################################
|
182
|
+
|
183
|
+
SHOUHINMEI-2 500200####################################################
|
184
|
+
|
185
|
+
SHOUHINMEI-3 800300####################################################
|
186
|
+
|
187
|
+
SHOUHINMEI-4 900400####################################################
|
188
|
+
|
189
|
+
SHOUHINMEI-5 600200####################################################
|
190
|
+
|
191
|
+
|
192
|
+
|
193
|
+
|
194
|
+
|
195
|
+
|
196
|
+
|
197
|
+
|
52
198
|
|
53
199
|
|
54
200
|
|
1
仰っていただいた内容の修正をおこないました。画像の方がコードが見やすいかと思い、添付させてもらいました
test
CHANGED
File without changes
|
test
CHANGED
@@ -6,9 +6,17 @@
|
|
6
6
|
|
7
7
|
家のプリンタとパソコンのみでそれは可能でしょうか
|
8
8
|
|
9
|
-
また、あるソースコードを実行したときに次のようなエラーが出ました
|
9
|
+
また、あるソースコードを実行したときに次のようなエラーが出ました
|
10
|
+
|
11
|
+
![コード前半](333caca38f87bc0ff589d4c769f8f3a1.jpeg)
|
12
|
+
|
13
|
+
![コード後半](f5620f97d45234f68e77e38d245b7e9a.jpeg)
|
14
|
+
|
15
|
+
![コードエラー文](e34c8ad90b186862a538975a7574cb9a.jpeg)
|
10
16
|
|
11
17
|
教材に書いてあったコードを試しに実行してみたものです
|
18
|
+
|
19
|
+
(基礎から勉強したいと思い、基本情報技術者試験用のCOBOL教材で勉強しておりまして、まだ勉強したてで、これが汎用系のものなのか、オープン系のものなのかはよくわかっておりません。すみません。)
|
12
20
|
|
13
21
|
未熟な質問かと思いますが、ご教授いただければ幸いです。
|
14
22
|
|
@@ -28,121 +36,7 @@
|
|
28
36
|
|
29
37
|
### 該当のソースコード
|
30
38
|
|
31
|
-
IDENTIFICATION DIVISION. *>見出し部
|
32
|
-
|
33
|
-
PROGRAM-ID. RENSYU-1.
|
34
|
-
|
35
|
-
|
36
|
-
|
37
|
-
ENVIRONMENT DIVISION. *>環境部
|
38
|
-
|
39
|
-
CONFIGURATION SECTION.
|
40
|
-
|
41
|
-
SOURCE-COMPUTER. COMPUTER-X.
|
42
|
-
|
43
|
-
OBJECT-COMPUTER. COMPUTER-X.
|
44
|
-
|
45
|
-
INPUT-OUTPUT SECTION.
|
46
|
-
|
47
|
-
FILE-CONTROL.
|
48
|
-
|
49
|
-
SELECT CD-FILE ASSIGN TO CR.
|
50
|
-
|
51
|
-
SELECT LP-FILE ASSIGN TO LP.
|
52
|
-
|
53
|
-
|
54
|
-
|
55
|
-
DATA DIVISION. *>データ部
|
56
|
-
|
57
|
-
FILE SECTION.
|
58
|
-
|
59
|
-
FD CD-FILE
|
60
|
-
|
61
|
-
LABEL RECORD IS OMITTED.
|
62
|
-
|
63
|
-
01 CD-REC.
|
64
|
-
|
65
|
-
02 SHOUHINMEI-I PIC X(20).
|
66
|
-
|
67
|
-
02 SURYOU-I PIC 9(3).
|
68
|
-
|
69
|
-
02 TANKA-I PIC 9(3).
|
70
|
-
|
71
|
-
02 FILLER PIC X(54).
|
72
|
-
|
73
|
-
FD LP-FILE
|
74
|
-
|
75
|
-
LABEL RECORD IS OMITTED.
|
76
|
-
|
77
|
-
01 LP-REC.
|
78
|
-
|
79
|
-
02 FILLER PIC X(10).
|
80
|
-
|
81
|
-
02 SHOUHINMEI-O PIC X(20).
|
82
|
-
|
83
|
-
02 FILLER PIC X(10).
|
84
|
-
|
85
|
-
02 SURYOU-O PIC 999.
|
86
|
-
|
87
|
-
02 FILLER PIC X(10).
|
88
|
-
|
89
|
-
02 TANKA-O PIC 999.
|
90
|
-
|
91
|
-
02 FILLER PIC X(10).
|
92
|
-
|
93
|
-
02 KINGAKU-O PIC 9(7).
|
94
|
-
|
95
|
-
02 FILLER PIC X(10).
|
96
|
-
|
97
|
-
|
98
|
-
|
99
|
-
WORKING-STORAGE SECTION. *>手続き部
|
100
|
-
|
101
|
-
77 KINGAKU-W PIC 9(7).
|
102
|
-
|
103
|
-
77 EOF PIC X(3) VALUE SPACE.
|
104
|
-
|
105
|
-
PROCEDURE DIVISION.
|
106
|
-
|
107
|
-
HAZIME.
|
108
|
-
|
109
|
-
OPEN INPUT CD-FILE
|
110
|
-
|
111
|
-
OUTPUT LP-FILE.
|
112
|
-
|
113
|
-
MOVE SPACE TO LP-REC.
|
114
|
-
|
115
|
-
PERFORM UNTIL EOF = "END"
|
116
|
-
|
117
|
-
READ CD-FILE RECORD
|
118
|
-
|
119
|
-
AT END
|
120
|
-
|
121
|
-
MOVE "END" TO EOF
|
122
|
-
|
123
|
-
NOT AT END
|
124
|
-
|
125
|
-
COMPUTE KINGAKU-W = SURYOU-I * TANKA-I
|
126
|
-
|
127
|
-
MOVE SHOUHINMEI-I TO SHOUHINMEI-O
|
128
|
-
|
129
|
-
MOVE SURYOU-I TO SURYOU-O
|
130
|
-
|
131
|
-
MOVE TANKA-I TO TANKA-O
|
132
|
-
|
133
|
-
MOVE KINGAKU-W TO KINGAKU-O
|
134
|
-
|
135
|
-
WRITE LP-REC AFTER 2 LINES
|
136
|
-
|
137
|
-
END-READ
|
138
|
-
|
139
|
-
END-PERFORM.
|
140
|
-
|
141
|
-
CLOSE CD-FILE LP-FILE.
|
142
|
-
|
143
|
-
|
39
|
+
画像を参照ください
|
144
|
-
|
145
|
-
|
146
40
|
|
147
41
|
```ここに言語名を入力
|
148
42
|
|
@@ -164,4 +58,6 @@
|
|
164
58
|
|
165
59
|
|
166
60
|
|
61
|
+
windows10
|
62
|
+
|
167
|
-
|
63
|
+
open-cobol-1.0-2
|