計算最速伝説(V5R2) 
各環境によるベンチマークをやってみました
ベンチにて使用したテーブルやプログラムの資料
V5R2で作業ライブラリはCREATE SCHEMAで作成したスキーマです。
ベンチにて使用したテーブルやプログラムの資料
V5R2で作業ライブラリはCREATE SCHEMAで作成したスキーマです。
テーブル作成
SQLでテーブルを作成した際のクエリです。
SQL09A
CREATE TABLE PRIMULA/TB1 ( NO INTEGER NOT NULL PRIMARY KEY , TYPE CHAR(1) NOT NULL , COL1 DECIMAL(19,2) NOT NULL , COL2 DECIMAL(19,2) NOT NULL )
SQL09B
CREATE TABLE PRIMULA/TB2 ( NO2 INTEGER NOT NULL , CALTYP CHAR(1) NOT NULL , COL3 DECIMAL(19,2) NOT NULL , PRIMARY KEY (NO2,CALTYP) )
データ作成プログラム
計算元となるデータを作成するプログラムです。
ILE-RPGで作成しています。
ILE-RPGで作成しています。
R09C.RPGLE
FTB1 O A E K DISK RENAME(TB1:TB1R)
D R09C PR
*
D R09C PI
D I S 10I 0
D J S 10I 0 INZ(1)
D C S 1A INZ('A')
D WK1 S 19P 2 INZ(1)
D WK2 S 19P 2 INZ(1)
/free
for I = 1 to 1000000 ;
NO = I ;
TYPE = C ;
COL1 = WK1 ;
COL2 = WK2 ;
write TB1R ;
select ;
when C = 'A' ;
C = 'B' ;
when C = 'B' ;
C = 'C' ;
when C = 'C' ;
C = 'A' ;
endsl ;
WK1 += 3;
WK2 += 2;
endfor ;
*inLR = *on ;
return ;
/End-Free
更新プログラム
いずれも同じ計算結果を出力するプログラムです
RPG��
H Y/ 1
FTB1 IF E K DISK
F TB1 KRENAMETB1R
FTB2 O E K DISK A
F TB2 KRENAMETB2R
C*
C DO *HIVAL
C READ TB1R 99
C 99 LEAVE
C TYPE IFEQ 'B'
C Z-ADDNO NO2
C MOVEL'A' CALTYP
C COL1 ADD COL2 COL3
C WRITETB2R
C MOVEL'S' CALTYP
C COL1 SUB COL2 COL3
C WRITETB2R
C MOVEL'M' CALTYP
C COL1 MULT COL2 COL3
C WRITETB2R
C MOVEL'D' CALTYP
C COL1 DIV COL2 COL3
C WRITETB2R
C ENDIF
C ENDDO
C*
C SETON LR
C RETRN
ILE-RPG
H DATEDIT(*YMD/)
FTB1 IF E K DISK
F RENAME(TB1:TB1R)
FTB2 O A E K DISK
F RENAME(TB2:TB2R)
C*
C DO *HIVAL
C READ TB1R 99
C 99 LEAVE
C TYPE IFEQ 'B'
C Z-ADD NO NO2
C MOVEL 'A' CALTYP
C COL1 ADD COL2 COL3
C WRITE TB2R
C MOVEL 'S' CALTYP
C COL1 SUB COL2 COL3
C WRITE TB2R
C MOVEL 'M' CALTYP
C COL1 MULT COL2 COL3
C WRITE TB2R
C MOVEL 'D' CALTYP
C COL1 DIV COL2 COL3
C WRITE TB2R
C ENDIF
C ENDDO
C*
C SETON LR
C RETURN
SQL
命令を並べただけです
INSERT INTO PRIMULA/TB2 SELECT NO,'A',COL1+COL2 FROM PRIMULA/TB1 WHERE TYPE='B' ; INSERT INTO PRIMULA/TB2 SELECT NO,'S',COL1-COL2 FROM PRIMULA/TB1 WHERE TYPE='B' ; INSERT INTO PRIMULA/TB2 SELECT NO,'M',COL1*COL2 FROM PRIMULA/TB1 WHERE TYPE='B' ; INSERT INTO PRIMULA/TB2 SELECT NO,'D',COL1/COL2 FROM PRIMULA/TB1 WHERE TYPE='B' ;
SQLストアド
先のSQLをストアド化しただけ
CREATE PROCEDURE PRIMULA/SQL09G () LANGUAGE SQL BEGIN INSERT INTO PRIMULA/TB2 SELECT NO,'A',COL1+COL2 FROM PRIMULA/TB1 WHERE TYPE='B' ; INSERT INTO PRIMULA/TB2 SELECT NO,'S',COL1-COL2 FROM PRIMULA/TB1 WHERE TYPE='B' ; INSERT INTO PRIMULA/TB2 SELECT NO,'M',COL1*COL2 FROM PRIMULA/TB1 WHERE TYPE='B' ; INSERT INTO PRIMULA/TB2 SELECT NO,'D',COL1/COL2 FROM PRIMULA/TB1 WHERE TYPE='B' ; END
SQLストアド FETCHしてLOOPしてINSERT
CREATE PROCEDURE PRIMULA/SQL09H ()
LANGUAGE SQL
BEGIN
DECLARE NO2 INTEGER ;
DECLARE CALTYP CHAR(1) ;
DECLARE COL1 DECIMAL(19,2) ;
DECLARE COL2 DECIMAL(19,2) ;
DECLARE COL3 DECIMAL(19,2) ;
DECLARE AT_END INT DEFAULT 0;
DECLARE NOT_FOUND CONDITION FOR '02000' ;
DECLARE C1 CURSOR FOR
SELECT NO,COL1,COL2 FROM PRIMULA/TB1 WHERE TYPE = 'B' ;
DECLARE CONTINUE HANDLER FOR NOT_FOUND SET AT_END = 1 ;
--
OPEN C1;
FETCH_LOOP:
LOOP
FETCH C1 INTO NO2 , COL1 , COL2 ;
IF AT_END = 0 THEN
SET CALTYP = 'A' ;
SET COL3 = COL1 + COL2 ;
INSERT INTO PRIMULA/TB2 VALUES( NO2, CALTYP , COL3 ) ;
SET CALTYP = 'S' ;
SET COL3 = COL1 - COL2 ;
INSERT INTO PRIMULA/TB2 VALUES( NO2, CALTYP , COL3 ) ;
SET CALTYP = 'M' ;
SET COL3 = COL1 * COL2 ;
INSERT INTO PRIMULA/TB2 VALUES( NO2, CALTYP , COL3 ) ;
SET CALTYP = 'D' ;
SET COL3 = COL1 / COL2 ;
INSERT INTO PRIMULA/TB2 VALUES( NO2, CALTYP , COL3 ) ;
ELSE
LEAVE FETCH_LOOP ;
END IF ;
END LOOP FETCH_LOOP;
CLOSE C1 ;
END ;
伝統的な物理ファイル＆論理ファイルを利用する
CREATE TABLEではなくCRTPFにて物理ファイル（テーブル）を作成してみます。
TB1.pf
A**
A UNIQUE
A R TB1
A NO 9B 0 TEXT('NO')
A TYPE 1A TEXT('TYPE')
A COL1 19P 2 TEXT('COL1')
A COL2 19P 2 TEXT('COL2')
A K NO
TB2.pf
A**
A UNIQUE
A R TB2
A NO2 9B 0 TEXT('NO')
A CALTYP 1A TEXT('TYPE')
A COL3 19P 2 TEXT('COL3')
A K NO2
A K CALTYP
TB1LF1.lf
A R TB1 PFILE(TB1)
A TEXT('TEST')
A K NO
A S TYPE CMP(EQ 'B')
このページへのコメント
5IoylJ I loved your article post.Thanks Again. Great.
E4mI0h I really like and appreciate your article post.Really looking forward to read more. Fantastic.
DweBmk <a href="http://hkhvvgvxgxmf.com/">hkhvvgvxgxmf</a>, [url=http://qvoacjgfoikk.com/]qvoacjgfoikk[/url], [link=http://qqagurthpgau.com/]qqagurthpgau[/link], http://qnibkkvpnmht.com/
XyIAvt <a href="http://ugmqosmpfmsa.com/">ugmqosmpfmsa</a>, [url=http://cjanjincqfrc.com/]cjanjincqfrc[/url], [link=http://xdzoednrzkts.com/]xdzoednrzkts[/link], http://rffbgcibwymg.com/