Ｏｐｅｎ-ＣＯＢＯＬ　テストプログラム

NO テスト内容 PROGRAM-ID VER0.9での結果
1 Ｓ９(01)〜Ｓ9（18）に、それぞれＳ９（02）・Ｓ９（02）BINARY・Ｓ９（02）ＣＯＭＰタイプを加算 test20.cbl OK
2 S9(01)COMP〜S9(18)COMPに　それぞれS9(02)・S9(02)BINARY・S9(02)COMPを加算 test21.cbl OK
3 S9(01)COMP-3〜S9(18)BINARYに それぞれS9(02)・S9(02)BINARY・S9(02)COMPを加算 test22.cbl OK
4 S9(1)V9(01)〜 S9(1)V9(17)に それぞれS9(1)V9(17)・S9(1)V9(17) BINARY・S9(1)V9(17) COMPを加算 test23.cbl OK
5 S9(01）〜S9(18）に　それぞれS9(02）・S9(02) BINARY・ S9(02) COMPを減算 test24.cbl OK
6 S9(01) COMP〜 S9(18) COMPに　それぞれS9(02）・S9(02)BINARY・ S9(02) COMPを減算 test25.cbl OK
7 S9(02) COMP-3〜S9(18) BINARYに　それぞれS9(02）・S9(02) BINARY・ S9(02) COMPを減算 test26.cbl OK
8 S9(1)V9(01）〜 S9(1)V9(17) に　それぞれS9(1)V9(17) ・S9(1)V9(17) BINARY・S9(1)V9(17) ＣＯＭＰを減算 test27.cbl OK
9 S9(1)V9(01)〜 S9(1)V9(17)に　それぞれ S9(1)V9(17)・ S9(1)V9(17)BINARY・ S9(1)V9(17)ＣＯＭＰを減算 test28.cbl OK
10 S9(01) 〜 S9(18) に　それぞれ S9(02) ・ S9(02) BYNARY・ S9(02) ＣＯＭＰを乗算 test29.cbl OK
11 S9(01) ＣＯＭＰ〜 S9(18)ＣＯＭＰ に　それぞれ S9(02) ・ S9(02)BINARY・ S9(02) ＣＯＭＰを乗算 test30.cbl OK
12 S9(01)ＣＯＭＰ−3 〜 S9(18)BINARY に　それぞれ S9(02) ・ S9(02) BINARY・ S9(02) ＣＯＭＰを乗算 test31.cbl OK
13 S9(03）・Ｓ9(03)BINARY・Ｓ9(03)ＣＯＭＰに　それぞれプラス値・マイナス値　乗算の組み合わせ test32.cbl OK
14 S9(01) 〜 S9(18) に　それぞれ S9(02) ・ S9(02)BINARY・ S9(02) ＣＯＭＰを除算 test33.cbl OK
15 S9(01) COMP〜 S9(18) COMPに　それぞれ　S9(02）・S9(02)BINARY・ S9(02) COMPを除算 test34.cbl OK
16 S9(01) COMP〜 S9(18) COMP-3に　それぞれ　S9(02）・S9(02) BINARY・ S9(02) COMPを除算 test35.cbl OK
17 S9(03）・Ｓ9(03)BINARY・Ｓ9(03)ＣＯＭＰに　それぞれプラス値・マイナス値　除算の組み合わせ test36.cbl OK
18 S9(03)V9(02)・ S9(03)V9(04) COMP・ S9(03)V9(05)BINARYに　それぞれプラス値・マイナス値　乗算と除算の組み合わせ test37.cbl OK
19 ＳＥＱＵＥＮＴＩＡＬファイルＷＲＩＴＥ test50.cbl OK
20 ＳＥＱＵＥＮＴＩＡＬファイルＲＥＡＤ test51.cbl ＡＴ　ENDの判定NG
21 ＬＩＮＥ　ＳＥＱＵＥＮＴＩＡＬファイルＷＲＩＴＥ test52.cbl OK
22 ＬＩＮＥ　ＳＥＱＵＥＮＴＩＡＬファイルＲＥＡＤ test53.cbl ＡＴ　ENDの判定NG
23 ＩＮＤＥＸファイルＷＲＩＴＥ test54.cbl OK
24 ＩＮＤＥＸファイルＲＥＡＤ　ＮＥＸＴ test55.cbl ＡＴ　ENDの判定NG
25 RELATIVEファイルＷＲＩＴＥ test56.cbl OK
26 RELATIVEファイルRANDOM　ＲＥＡＤ test57.cbl OK
27 ＩＮＤＥＸファイルＲＡＮＤＯＭ　ＲＥＡＤ test58.cbl OK
28 ＩＮＤＥＸファイルＳＴＡＲＴ　ＲＥＡＤ test59.cbl ＡＴ　ENDの判定NG
29 INDEXファイル　コマンドラインアクセプト指示による各種ＩＯ test60.cbl OK


上記プログラムはこちらtestpro.tar.gzをダウンロードして下さい。