http://www.e-bellnet.com/technical/hint/0910/hint_...
¤Îµ»ö¤ÎV5R2ÈǤȻפäƤ¯¤À¤µ¤¤¡£
²òÀâ¤Ï¥Ö¥í¥°¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£
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
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
¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È
93lHgC I think this is a real great article. Want more.