Skip to content

Commit d475ea2

Browse files
mo-shimadamo-shimada
authored
Merge pull request #2 from momo2584/develop
HTML版マニュアルの追加
2 parents a5ba8a7 + 1f3c34b commit d475ea2

File tree

981 files changed

+32974
-8
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

981 files changed

+32974
-8
lines changed

‎COPYING.DOC

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -89,7 +89,7 @@ Examples of suitable formats for Transparent copies include plain
8989
ASCII without markup, Texinfo input format, LaTeX input format, SGML
9090
or XML using a publicly available DTD, and standard-conforming simple
9191
HTML, PostScript or PDF designed for human modification. Examples of
92-
transparent image formats include PNG, XCF and JPG. Opaque formats
92+
transparent image formats include png, XCF and JPG. Opaque formats
9393
include proprietary formats that can be read and edited only by
9494
proprietary word processors, SGML or XML for which the DTD and/or
9595
processing tools are not generally available, and the

‎HTML_TOC.png

55.4 KB
Loading

‎README.md

Lines changed: 15 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,18 +1,26 @@
1-
# opensource COBOL Programmer’s Guide (COBOLマニュアル 日本語版)
21

3-
COBOL文法の完全日本語マニュアル[『opensource COBOL Programmer's Guide』](/guides/opensourceCOBOLProgrammersGuide.pdf)を公開しています。
2+
COBOL文法の完全日本語マニュアル『opensource COBOL Programmer's Guide』を公開しています。
3+
4+
- [PDF版](/guides/opensourceCOBOLProgrammersGuide.pdf)
5+
- [HTML版](/markdown/TOC.md)
46

57
2021年より始動した本プロジェクトは、OSSコンソーシアム オープンCOBOLソリューション部会が活動の一環として、マニュアルの翻訳・執筆を進めています（プロジェクトリーダー：東京システムハウス 島田桃花）。
68

79
初版は原著をそのまま翻訳した内容です。第二版では、opensource COBOL で追加実装した日本語機能や新機能の説明を追加しました。
810
第三版以降で、新製品である opensource COBOL 4J についての説明を追加していく予定です。
911

10-
[<img width="300" src="https://github.com/opensourcecobol/opensourcecobol.github.io/assets/5810740/d8108368-9a9d-4df8-8cd9-9873d0f5d01d">](/guides/opensourceCOBOLProgrammersGuide.pdf)
12+
| PDF版 | HTML版 |
13+
| --- | --- |
14+
| [<img width="300" src="https://github.com/opensourcecobol/opensourcecobol.github.io/assets/5810740/d8108368-9a9d-4df8-8cd9-9873d0f5d01d">](/guides/opensourceCOBOLProgrammersGuide.pdf) | [<img width="300" src="HTML_TOC.png">](/markdown/TOC.md) |
15+
16+
1117

1218
原著はGary Cultlerさんの[『OpenCOBOL Programmer's Guide』](https://gnucobol.sourceforge.io/guides/OpenCOBOL%20Programmers%20Guide.pdf)です。私たちの opensource COBOLのフォーク元である OpenCOBOLのCOBOL文法や使い方のマニュアルです。
1319

1420
ライセンスは、GNU Free Documentation License(FDL)です。日本語のCOBOLマニュアルがオープンソースのライセンスで公開されるのは業界初です。COBOL開発の現場での利用はもちろん、レガシー対策で一層需要が高まるCOBOLスキルの学習教材としても、自由にご利用いただけます。
1521

22+
23+
1624
## 改訂履歴
1725

1826
|版|発行日|改訂詳細|
@@ -21,17 +29,17 @@ COBOL文法の完全日本語マニュアル[『opensource COBOL Programmer's Gu
2129
|v1.1.0|2023/9/21|誤字や翻訳漏れを修正。|
2230
|v1.2.0|2023/10/16|条件名の訳語を一部修正。|
2331
|v2.0.0|2024/2/29|通貨記号の既定値を「＄」から「￥」に変更。|
24-
|||「1.4 ソースコードの形式」に$IF、$ELSE、$ENDに関する記述を追加。|
32+
|||「1.4. ソースコードの形式」に$IF、$ELSE、$ENDに関する記述を追加。|
2533
|||「1.6. COPY文の使い方」にREPLACING句のLEADING/TRAILING指定、JOINING句のPREFIX/SUFFIX指定、PREFIXING/SUFFIXING句に関する記述を追加。|
2634
|||「1.7. 定数の使い方 」に「1.7.3. 日本語定数」を追加。|
27-
|||「4.2.1 ファイル管理段落 図4-10-ファイル管理段落構文」を一部修正。|
35+
|||「4.2.1. ファイル管理段落 図4-10-ファイル管理段落構文」を一部修正。|
2836
|||「4.2.1.3. 索引編成ファイル」に分割キーに関する記述を追加。|
2937
|||「5.3 データ記述の形式」にASCENDING KEY/DESCENDING KEY句とINDEXED BY句の記述順の許容に関する記述を追加。|
3038
|||「6.1.4.2.5. 比較条件 図6-12-比較条件構文」を一部修正。|
3139
|||「6.8. CANCEL」に「6.8.2. CANCEL文の書き方2 ― CANCEL ALL」を追加。|
32-
|||「6.13 DELETE」に「6.13.2. DELETE文の書き方2 ― DELETE FILE」を追加。|
40+
|||「6.13. DELETE」に「6.13.2. DELETE文の書き方2 ― DELETE FILE」を追加。|
3341
|||新しい章として「7. 日本語対応」を追加。|
34-
|||「8.1.2 コンパイルオプション」に「-assign_external」と「-free_1col_aster」の項目を追加。|
42+
|||「8.1.2. コンパイルオプション」に「-assign_external」と「-free_1col_aster」の項目を追加。|
3543
|||「8.1.7. 重要な環境変数 表8-4-環境変数コンパイラ」に環境変数「COB_DATE」「COB_IO_ASSUME_REWRITE」「COB_NIBBLE_C_UNSIGNED」「COB_VERBOSE」「OC_EXTEND_CREATES」「OC_IO_CREATES」「OC_USERFH」の項目を追加。|
3644
|||「8.3.1. 「名前による呼び出し」ルーチン 」に「8.3.1.1. CALL “C$CALLEDBY” USING program-name GIVING status」「8.3.1.7. CALL “C$LIST-DIRECTORY” USING item-1, item-2, item-3」「8.3.1.32. CALL “CBL_OC_KEISEN” USING item-1」を追加。|
3745

‎_config.yml

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,2 @@
1+
2+
title: opensource COBOL Programmer’s Guide (COBOLマニュアル 日本語版)

‎_layouts/default.html

Lines changed: 43 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,43 @@
1+
<!DOCTYPE html>
2+
<html lang="{{ page.lang | default: site.lang | default: "en-US" }}">
3+
<head>
4+
5+
<style>
6+
code {
7+
white-space: pre-wrap;
8+
word-wrap: break-word;
9+
}
10+
</style>
11+
<meta charset="UTF-8">
12+
<meta http-equiv="X-UA-Compatible" content="IE=edge">
13+
<meta name="viewport" content="width=device-width, initial-scale=1">
14+
{% seo %}
15+
<link rel="stylesheet" href="{{ "/assets/css/style.css?v=" | append: site.github.build_revision | relative_url }}">
16+
{% include head-custom.html %}
17+
18+
</head>
19+
<body>
20+
21+
<div class="container-lg px-3 my-5 markdown-body">
22+
{% if site.title and site.title != page.title %}
23+
<h1 style="display: flex; ">
24+
<a href="https://momo2584.github.io/opensourcecobol.github.io/">
25+
<img src="https://momo2584.github.io/opensourcecobol.github.io/markdown/opensourcecobol.png" alt="サイトのロゴ" style="height: 50px; vertical-align: middle;">
26+
opensource COBOL Programmer’s Guide</a></h1>
27+
{% endif %}
28+
29+
{{ content }}
30+
31+
{% if site.github.private != true and site.github.license %}
32+
<div class="footer border-top border-gray-light mt-5 pt-3 text-right text-gray">
33+
Copyright © OSS Consortium All Rights Reserved.
34+
</div>
35+
{% endif %}
36+
</div>
37+
38+
<script src="https://cdnjs.cloudflare.com/ajax/libs/anchor-js/4.1.0/anchor.min.js" integrity="sha256-lZaRhKri35AyJSypXXs4o6OPFTbTmUoltBbDCbdzegg=" crossorigin="anonymous"></script>
39+
<script>anchors.add();</script>
40+
41+
</body>
42+
43+
</html>

‎automanual/AUTODELETE copy.cbl

Lines changed: 105 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,105 @@
1+
IDENTIFICATION DIVISION.
2+
PROGRAM-ID. AUTODELETE.
3+
AUTHOR. M SHIMADA.
4+
DATE-WRITTEN. 2024-09-04.
5+
*2024/09/11のMSフォローアップ時に色々試したファイル
6+
******************************************************************
7+
ENVIRONMENT DIVISION.
8+
******************************************************************
9+
*-------------------------------------*
10+
INPUT-OUTPUT SECTION.
11+
*-------------------------------------*
12+
FILE-CONTROL.
13+
SELECT OLDFILE ASSIGN TO DYNAMIC
14+
OLD-FILE-PATH
15+
ORGANIZATION IS LINE SEQUENTIAL
16+
FILE STATUS IS OLD-STS.
17+
SELECT NEWFILE ASSIGN TO DYNAMIC
18+
NEW-FILE-PATH
19+
ORGANIZATION IS LINE SEQUENTIAL
20+
FILE STATUS IS NEW-STS.
21+
******************************************************************
22+
DATA DIVISION.
23+
******************************************************************
24+
*-------------------------------------*
25+
FILE SECTION.
26+
*-------------------------------------*
27+
FD OLDFILE.
28+
78 C-OLD-REC-START-1 VALUE "<!--navi start1-->".
29+
78 C-OLD-REC-START-2 VALUE "<!--navi start2-->".
30+
01 OLD-REC PIC X(50000).
31+
88 OLD-REC-START-1 VALUE C-OLD-REC-START-1.
32+
88 OLD-REC-START-2 VALUE C-OLD-REC-START-2.
33+
34+
FD NEWFILE.
35+
77 NEW-REC PIC X(50000).
36+
*-------------------------------------*
37+
WORKING-STORAGE SECTION.
38+
*-------------------------------------*
39+
77 OLD-STS PIC X(02).
40+
77 NEW-STS PIC X(02).
41+
77 OLD-FILE-PATH PIC X(256).
42+
77 NEW-FILE-PATH PIC X(256).
43+
77 MD-NAME PIC X(250).
44+
*ファイルの終端を示すフラグ
45+
77 WS-END-OF-FILE PIC X VALUE 'N'.
46+
77 WS-IN-NAVI-SECTION PIC X VALUE 'N'.
47+
******************************************************************
48+
PROCEDURE DIVISION.
49+
******************************************************************
50+
*-------------------------------------*
51+
MAIN-CONTROL SECTION.
52+
*-------------------------------------*
53+
MAIN-000.
54+
*実行コマンドの引数からファイル名を取得する
55+
ACCEPT MD-NAME FROM COMMAND-LINE.
56+
*変換前後のファイルをフォルダ分けするためディレクトリを追加する
57+
MOVE SPACE TO OLD-FILE-PATH.
58+
STRING "old_delete/" DELIMITED BY SIZE
59+
MD-NAME DELIMITED BY SPACE
60+
INTO OLD-FILE-PATH.
61+
MOVE SPACE TO NEW-FILE-PATH.
62+
STRING "new_delete/" DELIMITED BY SIZE
63+
MD-NAME DELIMITED BY SPACE
64+
INTO NEW-FILE-PATH.
65+
66+
IF OLD-FILE-PATH = SPACE
67+
GO TO MAIN-900
68+
END-IF.
69+
70+
OPEN INPUT OLDFILE
71+
OUTPUT NEWFILE.
72+
MAIN-100.
73+
PERFORM UNTIL WS-END-OF-FILE = 'Y'
74+
*1行ずつ読み込む
75+
READ OLDFILE INTO OLD-REC
76+
*終わったら、ファイルの終端を示すフラグを'Y'にする
77+
AT END
78+
MOVE 'Y' TO WS-END-OF-FILE
79+
NOT AT END
80+
*<!--navi start1-->から<!--navi end1-->の書き込みをスキップする
81+
* IF OLD-REC = "<!--navi start1-->"
82+
* OR "<!--navi start2-->"
83+
IF OLD-REC-START-1 OR OLD-REC-START-2
84+
MOVE 'Y' TO WS-IN-NAVI-SECTION
85+
*PERFORMの直下、READへ
86+
EXIT PERFORM CYCLE
87+
END-IF
88+
IF OLD-REC = "<!--navi end1-->"
89+
OR "<!--navi end2-->"
90+
MOVE 'N' TO WS-IN-NAVI-SECTION
91+
*PERFORMの直下、READへ
92+
EXIT PERFORM CYCLE
93+
END-IF
94+
IF WS-IN-NAVI-SECTION = 'N'
95+
*書き込み
96+
WRITE NEW-REC FROM OLD-REC
97+
END-IF
98+
END-READ
99+
END-PERFORM.
100+
101+
CLOSE NEWFILE.
102+
CLOSE OLDFILE.
103+
104+
MAIN-900.
105+
STOP RUN.

‎automanual/AUTODELETE$1.class

1.18 KB
Binary file not shown.

‎automanual/AUTODELETE$2.class

1.18 KB
Binary file not shown.

‎automanual/AUTODELETE$3.class

1.18 KB
Binary file not shown.

‎automanual/AUTODELETE$4.class

3.01 KB
Binary file not shown.

‎automanual/AUTODELETE$5.class

3.18 KB
Binary file not shown.

‎automanual/AUTODELETE$6.class

1.4 KB
Binary file not shown.

‎automanual/AUTODELETE$7.class

1.46 KB
Binary file not shown.

‎automanual/AUTODELETE.cbl

Lines changed: 94 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,94 @@
1+
IDENTIFICATION DIVISION.
2+
PROGRAM-ID. AUTODELETE.
3+
AUTHOR. M SHIMADA.
4+
DATE-WRITTEN. 2024-09-04.
5+
******************************************************************
6+
ENVIRONMENT DIVISION.
7+
******************************************************************
8+
*-------------------------------------*
9+
INPUT-OUTPUT SECTION.
10+
*-------------------------------------*
11+
FILE-CONTROL.
12+
SELECT OLDFILE ASSIGN TO DYNAMIC
13+
OLD-FILE-PATH
14+
ORGANIZATION IS LINE SEQUENTIAL
15+
FILE STATUS IS OLD-STS.
16+
SELECT NEWFILE ASSIGN TO DYNAMIC
17+
NEW-FILE-PATH
18+
ORGANIZATION IS LINE SEQUENTIAL
19+
FILE STATUS IS NEW-STS.
20+
******************************************************************
21+
DATA DIVISION.
22+
******************************************************************
23+
*-------------------------------------*
24+
FILE SECTION.
25+
*-------------------------------------*
26+
FD OLDFILE.
27+
01 OLD-REC PIC X(50000).
28+
FD NEWFILE.
29+
01 NEW-REC PIC X(50000).
30+
*-------------------------------------*
31+
WORKING-STORAGE SECTION.
32+
*-------------------------------------*
33+
77 OLD-STS PIC X(02).
34+
77 NEW-STS PIC X(02).
35+
77 OLD-FILE-PATH PIC X(256).
36+
77 NEW-FILE-PATH PIC X(256).
37+
77 MD-NAME PIC X(250).
38+
*ファイルの終端を示すフラグ
39+
77 WS-END-OF-FILE PIC X VALUE 'N'.
40+
77 WS-IN-NAVI-SECTION PIC X VALUE 'N'.
41+
******************************************************************
42+
PROCEDURE DIVISION.
43+
******************************************************************
44+
*-------------------------------------*
45+
MAIN-CONTROL SECTION.
46+
*-------------------------------------*
47+
MAIN-000.
48+
*実行コマンドの引数からファイル名を取得する
49+
ACCEPT MD-NAME FROM COMMAND-LINE.
50+
*変換前後のファイルをフォルダ分けするためディレクトリを追加する
51+
MOVE SPACE TO OLD-FILE-PATH.
52+
STRING "old_delete/" DELIMITED BY SIZE
53+
MD-NAME DELIMITED BY SPACE
54+
INTO OLD-FILE-PATH.
55+
MOVE SPACE TO NEW-FILE-PATH.
56+
STRING "new_delete/" DELIMITED BY SIZE
57+
MD-NAME DELIMITED BY SPACE
58+
INTO NEW-FILE-PATH.
59+
60+
IF OLD-FILE-PATH = SPACE GO TO MAIN-900.
61+
62+
OPEN INPUT OLDFILE
63+
OUTPUT NEWFILE.
64+
MAIN-100.
65+
PERFORM UNTIL WS-END-OF-FILE = 'Y'
66+
*1行ずつ読み込む
67+
READ OLDFILE INTO OLD-REC
68+
*終わったら、ファイルの終端を示すフラグを'Y'にする
69+
AT END
70+
MOVE 'Y' TO WS-END-OF-FILE
71+
NOT AT END
72+
*<!--navi start1and2-->から<!--navi end1and2-->の記述を削除する
73+
IF OLD-REC = "<!--navi start1-->"
74+
OR "<!--navi start2-->"
75+
MOVE 'Y' TO WS-IN-NAVI-SECTION
76+
EXIT PERFORM CYCLE
77+
END-IF
78+
IF OLD-REC = "<!--navi end1-->"
79+
OR "<!--navi end2-->"
80+
MOVE 'N' TO WS-IN-NAVI-SECTION
81+
EXIT PERFORM CYCLE
82+
END-IF
83+
*書き込み
84+
IF WS-IN-NAVI-SECTION = 'N'
85+
WRITE NEW-REC FROM OLD-REC
86+
END-IF
87+
END-READ
88+
END-PERFORM.
89+
90+
CLOSE NEWFILE.
91+
CLOSE OLDFILE.
92+
93+
MAIN-900.
94+
STOP RUN.

‎automanual/AUTODELETE.class

8.33 KB
Binary file not shown.

0 commit comments

Comments
 (0)