質問編集履歴
16
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
### 該当のソースコード
|
|
9
9
|
dodox86様に載せていただいたコードに同じ( t03.cob)
|
|
10
10
|
```Cobol
|
|
11
|
-
IDENTIFICATION DIVISION.
|
|
11
|
+
IDENTIFICATION DIVISION. *>見出し部
|
|
12
12
|
PROGRAM-ID. RENSYU-1.
|
|
13
13
|
|
|
14
14
|
ENVIRONMENT DIVISION. *>環境部
|
15
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,8 +8,9 @@
|
|
|
8
8
|
### 該当のソースコード
|
|
9
9
|
dodox86様に載せていただいたコードに同じ( t03.cob)
|
|
10
10
|
```Cobol
|
|
11
|
-
IDENTIFICATION DIVISION. *>見出し部
|
|
11
|
+
IDENTIFICATION DIVISION. *>見出し部
|
|
12
12
|
PROGRAM-ID. RENSYU-1.
|
|
13
|
+
|
|
13
14
|
ENVIRONMENT DIVISION. *>環境部
|
|
14
15
|
CONFIGURATION SECTION.
|
|
15
16
|
SOURCE-COMPUTER. COMPUTER-X.
|
|
@@ -20,6 +21,7 @@
|
|
|
20
21
|
SELECT LP-FILE ASSIGN TO './lp.dat'.
|
|
21
22
|
*> SELECT CD-FILE ASSIGN TO CR. -------------※当初の質問でOrlofskyさんにご指摘いただき、
|
|
22
23
|
*> SELECT LP-FILE ASSIGN TO LP. -------------修正済みの箇所
|
|
24
|
+
|
|
23
25
|
DATA DIVISION. *>データ部
|
|
24
26
|
FILE SECTION.
|
|
25
27
|
FD CD-FILE
|
|
@@ -44,6 +46,7 @@
|
|
|
44
46
|
WORKING-STORAGE SECTION.
|
|
45
47
|
77 KINGAKU-W PIC 9(7).
|
|
46
48
|
77 EOF PIC X(3) VALUE SPACE.
|
|
49
|
+
|
|
47
50
|
PROCEDURE DIVISION. *>手続き部
|
|
48
51
|
HAZIME.
|
|
49
52
|
OPEN INPUT CD-FILE
|
14
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
### 該当のソースコード
|
|
9
9
|
dodox86様に載せていただいたコードに同じ( t03.cob)
|
|
10
10
|
```Cobol
|
|
11
|
-
IDENTIFICATION DIVISION.
|
|
11
|
+
IDENTIFICATION DIVISION. *>見出し部
|
|
12
12
|
PROGRAM-ID. RENSYU-1.
|
|
13
13
|
ENVIRONMENT DIVISION. *>環境部
|
|
14
14
|
CONFIGURATION SECTION.
|
|
@@ -41,10 +41,10 @@
|
|
|
41
41
|
02 FILLER PIC X(10).
|
|
42
42
|
02 KINGAKU-O PIC 9(7).
|
|
43
43
|
02 FILLER PIC X(10).
|
|
44
|
-
WORKING-STORAGE SECTION.
|
|
44
|
+
WORKING-STORAGE SECTION.
|
|
45
45
|
77 KINGAKU-W PIC 9(7).
|
|
46
46
|
77 EOF PIC X(3) VALUE SPACE.
|
|
47
|
-
PROCEDURE DIVISION.
|
|
47
|
+
PROCEDURE DIVISION. *>手続き部
|
|
48
48
|
HAZIME.
|
|
49
49
|
OPEN INPUT CD-FILE
|
|
50
50
|
OUTPUT LP-FILE.
|
13
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -109,4 +109,7 @@
|
|
|
109
109
|
### 補足情報（FW/ツールのバージョンなど）
|
|
110
110
|
|
|
111
111
|
windows10
|
|
112
|
-
open-cobol-1.0-2
|
|
112
|
+
open-cobol-1.0-2
|
|
113
|
+
|
|
114
|
+
<ソースコードの出典>
|
|
115
|
+
『【午後選択】基本情報技術者試験らくらく突破COBOL 穂積和子＋藤山秋良・著』
|
12
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -18,6 +18,8 @@
|
|
|
18
18
|
FILE-CONTROL.
|
|
19
19
|
SELECT CD-FILE ASSIGN TO './cr.dat'.
|
|
20
20
|
SELECT LP-FILE ASSIGN TO './lp.dat'.
|
|
21
|
+
*> SELECT CD-FILE ASSIGN TO CR. -------------※当初の質問でOrlofskyさんにご指摘いただき、
|
|
22
|
+
*> SELECT LP-FILE ASSIGN TO LP. -------------修正済みの箇所
|
|
21
23
|
DATA DIVISION. *>データ部
|
|
22
24
|
FILE SECTION.
|
|
23
25
|
FD CD-FILE
|
11
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -7,7 +7,8 @@
|
|
|
7
7
|
|
|
8
8
|
### 該当のソースコード
|
|
9
9
|
dodox86様に載せていただいたコードに同じ( t03.cob)
|
|
10
|
+
```Cobol
|
|
10
|
-
|
|
11
|
+
IDENTIFICATION DIVISION. *>見出し部
|
|
11
12
|
PROGRAM-ID. RENSYU-1.
|
|
12
13
|
ENVIRONMENT DIVISION. *>環境部
|
|
13
14
|
CONFIGURATION SECTION.
|
|
@@ -62,7 +63,7 @@
|
|
|
62
63
|
CLOSE CD-FILE LP-FILE.
|
|
63
64
|
STOP RUN.
|
|
64
65
|
|
|
65
|
-
|
|
66
|
+
|
|
66
67
|
```
|
|
67
68
|
|
|
68
69
|
### コマンドプロンプト画面：＜実行の流れ＞
|
|
@@ -83,7 +84,7 @@
|
|
|
83
84
|
|
|
84
85
|
SHOUHINMEI-4 900 400 0360000
|
|
85
86
|
c:\Cobol>
|
|
86
|
-
|
|
87
|
+
|
|
87
88
|
```
|
|
88
89
|
|
|
89
90
|
### cr.dat(データファイル)の内容
|
|
@@ -94,7 +95,7 @@
|
|
|
94
95
|
SHOUHINMEI-4 900400####################################################
|
|
95
96
|
SHOUHINMEI-5 600200####################################################
|
|
96
97
|
|
|
97
|
-
|
|
98
|
+
|
|
98
99
|
```
|
|
99
100
|
|
|
100
101
|
|
10
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -83,6 +83,8 @@
|
|
|
83
83
|
|
|
84
84
|
SHOUHINMEI-4 900 400 0360000
|
|
85
85
|
c:\Cobol>
|
|
86
|
+
コード
|
|
87
|
+
```
|
|
86
88
|
|
|
87
89
|
### cr.dat(データファイル)の内容
|
|
88
90
|
```
|
|
@@ -99,6 +101,8 @@
|
|
|
99
101
|
|
|
100
102
|
|
|
101
103
|
|
|
104
|
+
|
|
105
|
+
|
|
102
106
|
### 補足情報（FW/ツールのバージョンなど）
|
|
103
107
|
|
|
104
108
|
windows10
|
9
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -65,8 +65,8 @@
|
|
|
65
65
|
Cobol
|
|
66
66
|
```
|
|
67
67
|
|
|
68
|
-
### 実行結果
|
|
69
|
-
コマンドプロンプト画面：＜実行の流れ＞
|
|
68
|
+
### コマンドプロンプト画面：＜実行の流れ＞
|
|
69
|
+
|
|
70
70
|
```
|
|
71
71
|
c:\Cobol>cobc -x --free test.cbl
|
|
72
72
|
|
|
@@ -83,19 +83,22 @@
|
|
|
83
83
|
|
|
84
84
|
SHOUHINMEI-4 900 400 0360000
|
|
85
85
|
c:\Cobol>
|
|
86
|
+
|
|
87
|
+
### cr.dat(データファイル)の内容
|
|
86
88
|
```
|
|
87
|
-
cr.dat(データファイル)の内容
|
|
88
|
-
```
|
|
89
89
|
SHOUHINMEI-1 123100####################################################
|
|
90
90
|
SHOUHINMEI-2 500200####################################################
|
|
91
91
|
SHOUHINMEI-3 800300####################################################
|
|
92
92
|
SHOUHINMEI-4 900400####################################################
|
|
93
93
|
SHOUHINMEI-5 600200####################################################
|
|
94
94
|
|
|
95
|
+
コード
|
|
96
|
+
```
|
|
95
97
|
|
|
96
98
|
|
|
97
99
|
|
|
98
100
|
|
|
101
|
+
|
|
99
102
|
### 補足情報（FW/ツールのバージョンなど）
|
|
100
103
|
|
|
101
104
|
windows10
|
8
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -83,7 +83,7 @@
|
|
|
83
83
|
|
|
84
84
|
SHOUHINMEI-4 900 400 0360000
|
|
85
85
|
c:\Cobol>
|
|
86
|
-
|
|
86
|
+
```
|
|
87
87
|
cr.dat(データファイル)の内容
|
|
88
88
|
```
|
|
89
89
|
SHOUHINMEI-1 123100####################################################
|
|
@@ -92,13 +92,10 @@
|
|
|
92
92
|
SHOUHINMEI-4 900400####################################################
|
|
93
93
|
SHOUHINMEI-5 600200####################################################
|
|
94
94
|
|
|
95
|
-
コード
|
|
96
|
-
```
|
|
97
95
|
|
|
98
96
|
|
|
99
97
|
|
|
100
98
|
|
|
101
|
-
|
|
102
99
|
### 補足情報（FW/ツールのバージョンなど）
|
|
103
100
|
|
|
104
101
|
windows10
|
7
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -84,11 +84,8 @@
|
|
|
84
84
|
SHOUHINMEI-4 900 400 0360000
|
|
85
85
|
c:\Cobol>
|
|
86
86
|
|
|
87
|
-
|
|
87
|
+
cr.dat(データファイル)の内容
|
|
88
88
|
```
|
|
89
|
-
```
|
|
90
|
-
cr.dat(データファイル)の内容
|
|
91
|
-
|
|
92
89
|
SHOUHINMEI-1 123100####################################################
|
|
93
90
|
SHOUHINMEI-2 500200####################################################
|
|
94
91
|
SHOUHINMEI-3 800300####################################################
|
6
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -67,6 +67,7 @@
|
|
|
67
67
|
|
|
68
68
|
### 実行結果
|
|
69
69
|
コマンドプロンプト画面：＜実行の流れ＞
|
|
70
|
+
```
|
|
70
71
|
c:\Cobol>cobc -x --free test.cbl
|
|
71
72
|
|
|
72
73
|
c:\Cobol>test.exe
|
|
@@ -83,6 +84,9 @@
|
|
|
83
84
|
SHOUHINMEI-4 900 400 0360000
|
|
84
85
|
c:\Cobol>
|
|
85
86
|
|
|
87
|
+
コード
|
|
88
|
+
```
|
|
89
|
+
```
|
|
86
90
|
cr.dat(データファイル)の内容
|
|
87
91
|
|
|
88
92
|
SHOUHINMEI-1 123100####################################################
|
|
@@ -91,6 +95,8 @@
|
|
|
91
95
|
SHOUHINMEI-4 900400####################################################
|
|
92
96
|
SHOUHINMEI-5 600200####################################################
|
|
93
97
|
|
|
98
|
+
コード
|
|
99
|
+
```
|
|
94
100
|
|
|
95
101
|
|
|
96
102
|
|
5
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
オープンCobolで、読み込んだデータファイル「cr.dat」より、帳票を作成し、出力先ファイル「 lp.dat」の中身をコマンドプロンプトで画面に表示したい
|
|
4
4
|
|
|
5
5
|
### 発生している問題・エラーメッセージ
|
|
6
|
-
「cr.dat」最終行のSHOUHINMEI-5が、「lp.dat」に出力されない
|
|
6
|
+
「cr.dat」最終行の"SHOUHINMEI-5"が、「lp.dat」に出力されない
|
|
7
7
|
|
|
8
8
|
### 該当のソースコード
|
|
9
9
|
dodox86様に載せていただいたコードに同じ( t03.cob)
|
4
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -4,9 +4,6 @@
|
|
|
4
4
|
|
|
5
5
|
### 発生している問題・エラーメッセージ
|
|
6
6
|
「cr.dat」最終行のSHOUHINMEI-5が、「lp.dat」に出力されない
|
|
7
|
-
```
|
|
8
|
-
エラーメッセージ
|
|
9
|
-
```
|
|
10
7
|
|
|
11
8
|
### 該当のソースコード
|
|
12
9
|
dodox86様に載せていただいたコードに同じ( t03.cob)
|
3
再度修正をおこないました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,9 +1,9 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
|
|
3
|
-
オープンCobolで、読み込んだデータファイルより、帳票を作成し、画面に表示
|
|
3
|
+
オープンCobolで、読み込んだデータファイル「cr.dat」より、帳票を作成し、出力先ファイル「 lp.dat」の中身をコマンドプロンプトで画面に表示したい
|
|
4
4
|
|
|
5
5
|
### 発生している問題・エラーメッセージ
|
|
6
|
-
cr.dat
|
|
6
|
+
「cr.dat」最終行のSHOUHINMEI-5が、「lp.dat」に出力されない
|
|
7
7
|
```
|
|
8
8
|
エラーメッセージ
|
|
9
9
|
```
|
2
ご指摘いただきました点に注意して、質問を修正いたしました。至らぬ点も多々あるかと思いますが、よろしくお願いします。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,31 +1,104 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
|
|
3
|
-
|
|
3
|
+
オープンCobolで、読み込んだデータファイルより、帳票を作成し、画面に表示する
|
|
4
|
-
家のプリンタとパソコンのみでそれは可能でしょうか
|
|
5
|
-
また、あるソースコードを実行したときに次のようなエラーが出ました
|
|
6
|
-
|
|
7
|
-
|
|
8
|
-
|
|
9
|
-
教材に書いてあったコードを試しに実行してみたものです
|
|
10
|
-
(基礎から勉強したいと思い、基本情報技術者試験用のCOBOL教材で勉強しておりまして、まだ勉強したてで、これが汎用系のものなのか、オープン系のものなのかはよくわかっておりません。すみません。)
|
|
11
|
-
未熟な質問かと思いますが、ご教授いただければ幸いです。
|
|
12
4
|
|
|
13
5
|
### 発生している問題・エラーメッセージ
|
|
14
|
-
|
|
6
|
+
cr.dat(データファイル)最終行のSHOUHINMEI-5が画面に出力されない
|
|
15
7
|
```
|
|
16
8
|
エラーメッセージ
|
|
17
9
|
```
|
|
18
10
|
|
|
19
11
|
### 該当のソースコード
|
|
12
|
+
dodox86様に載せていただいたコードに同じ( t03.cob)
|
|
13
|
+
```IDENTIFICATION DIVISION. *>見出し部
|
|
14
|
+
PROGRAM-ID. RENSYU-1.
|
|
15
|
+
ENVIRONMENT DIVISION. *>環境部
|
|
16
|
+
CONFIGURATION SECTION.
|
|
17
|
+
SOURCE-COMPUTER. COMPUTER-X.
|
|
18
|
+
OBJECT-COMPUTER. COMPUTER-X.
|
|
19
|
+
INPUT-OUTPUT SECTION.
|
|
20
|
+
FILE-CONTROL.
|
|
21
|
+
SELECT CD-FILE ASSIGN TO './cr.dat'.
|
|
22
|
+
SELECT LP-FILE ASSIGN TO './lp.dat'.
|
|
23
|
+
DATA DIVISION. *>データ部
|
|
24
|
+
FILE SECTION.
|
|
25
|
+
FD CD-FILE
|
|
26
|
+
LABEL RECORD IS OMITTED.
|
|
27
|
+
01 CD-REC.
|
|
28
|
+
02 SHOUHINMEI-I PIC X(20).
|
|
29
|
+
02 SURYOU-I PIC 9(3).
|
|
30
|
+
02 TANKA-I PIC 9(3).
|
|
31
|
+
02 FILLER PIC X(54).
|
|
32
|
+
FD LP-FILE
|
|
33
|
+
LABEL RECORD IS OMITTED.
|
|
34
|
+
01 LP-REC.
|
|
35
|
+
02 FILLER PIC X(10).
|
|
36
|
+
02 SHOUHINMEI-O PIC X(20).
|
|
37
|
+
02 FILLER PIC X(10).
|
|
38
|
+
02 SURYOU-O PIC 999.
|
|
39
|
+
02 FILLER PIC X(10).
|
|
40
|
+
02 TANKA-O PIC 999.
|
|
41
|
+
02 FILLER PIC X(10).
|
|
42
|
+
02 KINGAKU-O PIC 9(7).
|
|
43
|
+
02 FILLER PIC X(10).
|
|
44
|
+
WORKING-STORAGE SECTION. *>手続き部
|
|
45
|
+
77 KINGAKU-W PIC 9(7).
|
|
46
|
+
77 EOF PIC X(3) VALUE SPACE.
|
|
47
|
+
PROCEDURE DIVISION.
|
|
48
|
+
HAZIME.
|
|
49
|
+
OPEN INPUT CD-FILE
|
|
50
|
+
OUTPUT LP-FILE.
|
|
51
|
+
MOVE SPACE TO LP-REC.
|
|
52
|
+
PERFORM UNTIL EOF = "END"
|
|
53
|
+
READ CD-FILE RECORD
|
|
54
|
+
AT END
|
|
55
|
+
MOVE "END" TO EOF
|
|
56
|
+
NOT AT END
|
|
57
|
+
COMPUTE KINGAKU-W = SURYOU-I * TANKA-I
|
|
58
|
+
MOVE SHOUHINMEI-I TO SHOUHINMEI-O
|
|
59
|
+
MOVE SURYOU-I TO SURYOU-O
|
|
60
|
+
MOVE TANKA-I TO TANKA-O
|
|
61
|
+
MOVE KINGAKU-W TO KINGAKU-O
|
|
62
|
+
WRITE LP-REC AFTER 2 LINES
|
|
63
|
+
END-READ
|
|
64
|
+
END-PERFORM.
|
|
65
|
+
CLOSE CD-FILE LP-FILE.
|
|
20
|
-
|
|
66
|
+
STOP RUN.
|
|
21
|
-
|
|
67
|
+
|
|
22
68
|
Cobol
|
|
23
69
|
```
|
|
24
70
|
|
|
25
|
-
###
|
|
71
|
+
### 実行結果
|
|
26
|
-
コン
|
|
72
|
+
コマンドプロンプト画面：＜実行の流れ＞
|
|
73
|
+
c:\Cobol>cobc -x --free test.cbl
|
|
27
74
|
|
|
75
|
+
c:\Cobol>test.exe
|
|
28
76
|
|
|
77
|
+
c:\Cobol>type lp.dat
|
|
78
|
+
|
|
79
|
+
|
|
80
|
+
SHOUHINMEI-1 123 100 0012300
|
|
81
|
+
|
|
82
|
+
SHOUHINMEI-2 500 200 0100000
|
|
83
|
+
|
|
84
|
+
SHOUHINMEI-3 800 300 0240000
|
|
85
|
+
|
|
86
|
+
SHOUHINMEI-4 900 400 0360000
|
|
87
|
+
c:\Cobol>
|
|
88
|
+
|
|
89
|
+
cr.dat(データファイル)の内容
|
|
90
|
+
|
|
91
|
+
SHOUHINMEI-1 123100####################################################
|
|
92
|
+
SHOUHINMEI-2 500200####################################################
|
|
93
|
+
SHOUHINMEI-3 800300####################################################
|
|
94
|
+
SHOUHINMEI-4 900400####################################################
|
|
95
|
+
SHOUHINMEI-5 600200####################################################
|
|
96
|
+
|
|
97
|
+
|
|
98
|
+
|
|
99
|
+
|
|
100
|
+
|
|
101
|
+
|
|
29
102
|
### 補足情報（FW/ツールのバージョンなど）
|
|
30
103
|
|
|
31
104
|
windows10
|
1
仰っていただいた内容の修正をおこないました。画像の方がコードが見やすいかと思い、添付させてもらいました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,8 +2,12 @@
|
|
|
2
2
|
|
|
3
3
|
OpenCOBOLで帳票を作成し、出力する方法はありますか
|
|
4
4
|
家のプリンタとパソコンのみでそれは可能でしょうか
|
|
5
|
-
また、あるソースコードを実行したときに次のようなエラーが出ました
|
|
5
|
+
また、あるソースコードを実行したときに次のようなエラーが出ました
|
|
6
|
+
|
|
7
|
+
|
|
8
|
+
|
|
6
9
|
教材に書いてあったコードを試しに実行してみたものです
|
|
10
|
+
(基礎から勉強したいと思い、基本情報技術者試験用のCOBOL教材で勉強しておりまして、まだ勉強したてで、これが汎用系のものなのか、オープン系のものなのかはよくわかっておりません。すみません。)
|
|
7
11
|
未熟な質問かと思いますが、ご教授いただければ幸いです。
|
|
8
12
|
|
|
9
13
|
### 発生している問題・エラーメッセージ
|
|
@@ -13,64 +17,7 @@
|
|
|
13
17
|
```
|
|
14
18
|
|
|
15
19
|
### 該当のソースコード
|
|
16
|
-
IDENTIFICATION DIVISION. *>見出し部
|
|
17
|
-
PROGRAM-ID. RENSYU-1.
|
|
18
|
-
|
|
19
|
-
ENVIRONMENT DIVISION. *>環境部
|
|
20
|
-
CONFIGURATION SECTION.
|
|
21
|
-
SOURCE-COMPUTER. COMPUTER-X.
|
|
22
|
-
OBJECT-COMPUTER. COMPUTER-X.
|
|
23
|
-
INPUT-OUTPUT SECTION.
|
|
24
|
-
FILE-CONTROL.
|
|
25
|
-
SELECT CD-FILE ASSIGN TO CR.
|
|
26
|
-
SELECT LP-FILE ASSIGN TO LP.
|
|
27
|
-
|
|
28
|
-
DATA DIVISION. *>データ部
|
|
29
|
-
FILE SECTION.
|
|
30
|
-
FD CD-FILE
|
|
31
|
-
LABEL RECORD IS OMITTED.
|
|
32
|
-
01 CD-REC.
|
|
33
|
-
02 SHOUHINMEI-I PIC X(20).
|
|
34
|
-
02 SURYOU-I PIC 9(3).
|
|
35
|
-
02 TANKA-I PIC 9(3).
|
|
36
|
-
02 FILLER PIC X(54).
|
|
37
|
-
FD LP-FILE
|
|
38
|
-
LABEL RECORD IS OMITTED.
|
|
39
|
-
01 LP-REC.
|
|
40
|
-
02 FILLER PIC X(10).
|
|
41
|
-
02 SHOUHINMEI-O PIC X(20).
|
|
42
|
-
02 FILLER PIC X(10).
|
|
43
|
-
02 SURYOU-O PIC 999.
|
|
44
|
-
02 FILLER PIC X(10).
|
|
45
|
-
02 TANKA-O PIC 999.
|
|
46
|
-
02 FILLER PIC X(10).
|
|
47
|
-
02 KINGAKU-O PIC 9(7).
|
|
48
|
-
02 FILLER PIC X(10).
|
|
49
|
-
|
|
50
|
-
WORKING-STORAGE SECTION. *>手続き部
|
|
51
|
-
77 KINGAKU-W PIC 9(7).
|
|
52
|
-
77 EOF PIC X(3) VALUE SPACE.
|
|
53
|
-
PROCEDURE DIVISION.
|
|
54
|
-
HAZIME.
|
|
55
|
-
OPEN INPUT CD-FILE
|
|
56
|
-
OUTPUT LP-FILE.
|
|
57
|
-
MOVE SPACE TO LP-REC.
|
|
58
|
-
PERFORM UNTIL EOF = "END"
|
|
59
|
-
READ CD-FILE RECORD
|
|
60
|
-
AT END
|
|
61
|
-
MOVE "END" TO EOF
|
|
62
|
-
NOT AT END
|
|
63
|
-
COMPUTE KINGAKU-W = SURYOU-I * TANKA-I
|
|
64
|
-
MOVE SHOUHINMEI-I TO SHOUHINMEI-O
|
|
65
|
-
MOVE SURYOU-I TO SURYOU-O
|
|
66
|
-
MOVE TANKA-I TO TANKA-O
|
|
67
|
-
MOVE KINGAKU-W TO KINGAKU-O
|
|
68
|
-
WRITE LP-REC AFTER 2 LINES
|
|
69
|
-
END-READ
|
|
70
|
-
END-PERFORM.
|
|
71
|
-
CLOSE CD-FILE LP-FILE.
|
|
72
|
-
|
|
20
|
+
画像を参照ください
|
|
73
|
-
|
|
74
21
|
```ここに言語名を入力
|
|
75
22
|
Cobol
|
|
76
23
|
```
|
|
@@ -81,4 +28,5 @@
|
|
|
81
28
|
|
|
82
29
|
### 補足情報（FW/ツールのバージョンなど）
|
|
83
30
|
|
|
31
|
+
windows10
|
|
84
|
-
|
|
32
|
+
open-cobol-1.0-2
|