SQLRPGLE カーソルを使わない動的SQL 
静的SQLのサンプル
IBM503R.SQLRPGLE
H DFTACTGRP(*NO) ACTGRP(*CALLER)
*
D LASTNAME S 17A INZ(*BLANK)
C*
C *ENTRY PLIST
C PARM EMPNO 6
C/EXEC SQL
C+ SELECT LASTNAME INTO :LASTNAME
C+ FROM EMPLOYEE WHERE EMPNO = :EMPNO
C/END-EXEC
C/EXEC SQL
C+ WHENEVER NOT FOUND GOTO EOF
C/END-EXEC
C*
/Free
dsply ('EMPNO=' + EMPNO + ' LASTNAME=' + LASTNAME ) ;
/End-Free
C EOF TAG
C*
C SETON LR
C RETURN
ライブラリーリストにいつものSAMPLEDBを追加します。コンパイルはPDMで15
カーソルを使わない動的SQLのサンプル
IBM504R.SQLRPGLE
H DFTACTGRP(*NO) ACTGRP(*CALLER)
*
D LASTNAME S 17A INZ(*BLANK)
D query S 1000A varying
C*
C *ENTRY PLIST
C PARM EMPNO 6
/Free
query = 'values(select LASTNAME from employee where EMPNO = ? ' +
' ) into ? ' ;
/End-Free
C/EXEC SQL
C+ prepare Stmp from :query
C/END-EXEC
C/EXEC SQL
C+ execute Stmp Using :EMPNO , :LASTNAME
C/END-EXEC
C/EXEC SQL
C+ WHENEVER NOT FOUND GOTO EOF
C/END-EXEC
C*
/Free
dsply ('EMPNO=' + EMPNO + ' LASTNAME=' + LASTNAME ) ;
/End-Free
C EOF TAG
C*
C SETON LR
C RETURN
コンパイルはPDMで15 実行結果
4 > CALL IBM503R '000010'
DSPLY EMPNO=000010 LASTNAME=HAAS
4 > CALL IBM503R '000020'
DSPLY EMPNO=000020 LASTNAME=THOMPSON
4 > CALL IBM504R '000050'
DSPLY EMPNO=000050 LASTNAME=GEYER
このページへのコメント
93lHgC I think this is a real great article. Want more.