ÀÀ¿ëÇÁ·Î±×·¥ °³¹ß ¾È³»¼­


REXX¿¡¼­ Embedding SQL¹®

SQLEXEC ·çƾÀ» »ç¿ëÇÏ¸é ¸ðµç SQL¹®À» ó¸®ÇÒ ¼ö ÀÖ½À´Ï´Ù. SQLEXEC ·çƾ¿¡ ´ëÇÑ ¹®ÀÚ¿­ Àμö´Â ´ÙÀ½ ±¸¼º¿ä¼Ò·Î ±¸¼ºµË´Ï´Ù.

SQLEXEC ·çƾÀ¸·Î À¯È¿ÇÑ SQL¹®À» Àü´ÞÇÏ¿© °¢ ¿äûÀ» ÀÛ¼ºÇϽʽÿÀ. ´ÙÀ½ ±¸¹®À» »ç¿ëÇϽʽÿÀ.

     CALL SQLEXEC 'statement'

SQL¹®ÀÌ ÇÑ Çà ÀÌ»óÀ¸·Î ¿¬¼ÓµÉ ¼ö ÀÖ½À´Ï´Ù. ´ÙÀ½°ú °°ÀÌ ¸í·É¹®ÀÇ °¢ ºÎºÐÀº ´ÜÀÏ ÀÎ¿ë ºÎÈ£·Î ´Ý¾Æ¾ß Çϸç Ãß°¡ ¸í·É¹® ÅØ½ºÆ®´Â ½°Ç¥·Î ºÐ¸®ÇØ¾ß ÇÕ´Ï´Ù.

     CALL SQLEXEC 'SQL text',
                  'additional text',
                       .
                       .
                       .
                  'final text'

´ÙÀ½Àº REXX¿¡¼­ÀÇ SQL¹® EmbeddingÀÇ ¿¹ÀÔ´Ï´Ù.

     statement = "UPDATE STAFF SET JOB = 'Clerk' WHERE JOB = 'Mgr'"
     CALL SQLEXEC 'EXECUTE IMMEDIATE :statement'
     IF ( SQLCA.SQLCODE < 0) THEN
        SAY 'Update Error:  SQLCODE = ' SQLCA.SQLCODE

ÀÌ ¿¹¿¡¼­ SQLCA ±¸Á¶ÀÇ SQLCODE Çʵ带 Á¡°ËÇÏ¿© °»½ÅÀÌ ¼º°øÇß´ÂÁö ¿©ºÎ¸¦ ÆÇº°ÇÕ´Ï´Ù.

´ÙÀ½ ±ÔÄ¢ÀÌ Embedded SQL¹®¿¡ Àû¿ëµË´Ï´Ù.


[ ÆäÀÌÁöÀÇ ¸Ç À§ | ÀÌÀü ÆäÀÌÁö | ´ÙÀ½ ÆäÀÌÁö | ¸ñÂ÷ | »öÀÎ ]