Open-COBOL テストプログラム

NO テスト内容 PROGRAM-ID VER0.9での結果
1 S9(01)〜S9(18)に、それぞれS9(02)・S9(02)BINARY・S9(02)COMPタイプを加算 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) COMPを減算 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)COMPを減算 test28.cbl OK
10 S9(01) 〜 S9(18) に それぞれ S9(02) ・ S9(02) BYNARY・ S9(02) COMPを乗算 test29.cbl OK
11 S9(01) COMP〜 S9(18)COMP に それぞれ S9(02) ・ S9(02)BINARY・ S9(02) COMPを乗算 test30.cbl OK
12 S9(01)COMP−3 〜 S9(18)BINARY に それぞれ S9(02) ・ S9(02) BINARY・ S9(02) COMPを乗算 test31.cbl OK
13 S9(03)・S9(03)BINARY・S9(03)COMPに それぞれプラス値・マイナス値 乗算の組み合わせ test32.cbl OK
14 S9(01) 〜 S9(18) に それぞれ S9(02) ・ S9(02)BINARY・ S9(02) COMPを除算 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)・S9(03)BINARY・S9(03)COMPに それぞれプラス値・マイナス値 除算の組み合わせ test36.cbl OK
18 S9(03)V9(02)・ S9(03)V9(04) COMP・ S9(03)V9(05)BINARYに それぞれプラス値・マイナス値 乗算と除算の組み合わせ test37.cbl OK
19 SEQUENTIALファイルWRITE test50.cbl OK
20 SEQUENTIALファイルREAD test51.cbl AT ENDの判定NG
21 LINE SEQUENTIALファイルWRITE test52.cbl OK
22 LINE SEQUENTIALファイルREAD test53.cbl AT ENDの判定NG
23 INDEXファイルWRITE test54.cbl OK
24 INDEXファイルREAD NEXT test55.cbl AT ENDの判定NG
25 RELATIVEファイルWRITE test56.cbl OK
26 RELATIVEファイルRANDOM READ test57.cbl OK
27 INDEXファイルRANDOM READ test58.cbl OK
28 INDEXファイルSTART READ test59.cbl AT ENDの判定NG
29 INDEXファイル コマンドラインアクセプト指示による各種IO test60.cbl OK


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