RDBQ2¤Îµ¡Ç½¡Ê½¸·×¤ÎºÇÂç¡Ë¤òCOBOL¤Ç

1:RDBQ2¤Îµ¡Ç½¡Ê½¸·×¤ÎºÇÂç¡Ë¤òCOBOL¤Ç
¤í¤í¤±¤¤ 04/03 13:47
¤¤¤Ä¤â¤ªÀ¤ÏäˤʤäƤª¤ê¤Þ¤¹¡£

RDBQ2¤Ç¼Â¸½¤Ç¤­¤ë¤¢¤ëµ¡Ç½¤ò¡¢COBOL¤Ç¡¢¥³¡¼¥Ç¥£¥ó¥°¤Ç¤Ï¤Ê¤¯µ¡Ç½¤È¤·¤Æ¡¢
¼Â¸½¤Ç¤­¤Ê¤¤¤â¤Î¤«¤È»×¤¤¡¢¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£

¤ä¤ê¤¿¤¤¤³¤È¤Ï¡¢RDBQ2¤Î¡Ö½¸·×¡×¤Î¡ÖºÇÂçÃ͡פò¼èÆÀ¤¹¤ë¤³¤È¤Ç¤¹¡£

Æü¡¹¤ÎÇä¾å¾ðÊó¤¬ÃßÀѤµ¤ì¤Æ¤¤¤ë¥Ç¡¼¥¿¤¬¤¢¤ê¡¢¤½¤³¤«¤é¡¢
¡Ö¸ÜµÒ¥³¡¼¥É¡×¤´¤È¤Î¡ÖºÇ¿·¤ÎÇä¾åÆü¡×¤ò¼èÆÀ¤·¤¿¤¤¤Î¤Ç¤¹¡£

RDBQ2¤À¤È¡¢¸ÜµÒ¥³¡¼¥É¤Ç¥°¥ë¡¼¥×»ØÄꤷ¡¢Çä¾åÆü¤Î½¸·×Íó¤ÇºÇÂç¤òÁª¤Ù¤Ð¡¢
½Ö»þ¤Ë·ë²Ì¤òÆÀ¤é¤ì¤Þ¤¹¤è¤Í¡£

COBOL¤Ç¤³¤ì¤ò¼Â¸½¤¹¤ë¤Ë¤Ï¤ä¤Ï¤ê¡¢¥³¡¼¥Ç¥£¥ó¥°¤Ç¤Ê¤ó¤È¤«¤¹¤ë¤·¤«¤Ê¤¤¤Ç¤¹¤«¤Í¡©

¤Á¤Ê¤ß¤Ë¡¢¥³¡¼¥Ç¥£¥ó¥°¤Ç¤Î¡Öµ»¡×¤Ê¤ó¤«¤â¾Ò²ð¤·¤Æ¤¯¤À¤µ¤ë¤È´ò¤·¤¤¤Ç¤¹¡£

»ä¤ÏÉáÄ̤ˡ¢¸ÜµÒ¥³¡¼¥É¡ÜÇä¾åÆü¤Î¾º½ç¤Ç¤Ò¤¿¤¹¤éÆɤ߹þ¤ß¡¢
¸ÜµÒ¥³¡¼¥É¤¬ÊѤï¤Ã¤¿¤È¤­¤ËľÁ°¤Î¾ðÊó¤òÊݸ¤·¤Æ¤¤¤¯¡¢
¤È¤¤¤¦È¯ÁÛ¤·¤«½Ð¤Æ¤³¤Ê¤¤¤Î¤Ç¤¹¤¬¡Ä¡£

¤ß¤Ê¤µ¤Þ¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

2:Re: RDBQ2¤Îµ¡Ç½¡Ê½¸·×¤ÎºÇÂç¡Ë¤òCOBOL¤Ç
¤³¤í¤¹¤± 04/03 20:48
¥ª¥Õ¥³¥ó¤Î¿¿¿ñ¤Ï¥·¡¼¥±¥ó¥·¥ã¥ë¥Õ¥¡¥¤¥ë¤Ë¤¢¤ê¡£
¤Ò¤¿¤¹¤éÆɤ߹þ¤à»ö¤¬¥¹¥Ô¡¼¥ÉŪ¤Ë¤¢¤Ã¤Æ¤¤¤ë¤È»×¤¤¤Þ¤¹¡£

¥¹¥Ô¡¼¥Èµ¤¤Ë¤»¤º¡¢³Ú¤ò¤·¤¿¤¤¤Î¤Ç¤¢¤ê¤Ð¸ÜµÒËè¤ÇSELECT¤¹¤ë¤È¤«¡Ê¼ÙÆ»¡Ë¡¢¤Þ¤¿¤Ï¸ÜµÒ¡¦Çä¾åÆü¤Ç¥­¡¼¥Õ¥¡¥¤¥ë¤òºîÀ®¤·¤ÆSTART¤ÇµÕÆɤߤ·¤Æ¼èÆÀ¤¹¤ë¤È¤«¤«¤Ê¡¦¡¦¡¦

¼ÙÆ»¤Ê»ö¤ò¤·¤Æ¤â¥¹¥Ô¡¼¥ÉŪ¤ËÃÙ¤¯¤Ê¤ë¤Î¤Ç¡¢¤ä¤Ã¤Ñ¤êÉáÄ̤˾º½ç¤¬¤¤¤¤¤È»×¤¤¤Þ¤¹¡£

3:Re: RDBQ2¤Îµ¡Ç½¡Ê½¸·×¤ÎºÇÂç¡Ë¤òCOBOL¤Ç
¤í¤í¤±¤¤ 04/05 09:25
¤³¤í¤¹¤±¤µ¤Þ

¤ªÊÖ»ö¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¤ª¤Ã¤·¤ã¤ë¤È¤ª¤ê¤Ç¤¹¤Í¡£
º£¤Þ¤Ç¤É¤ì¤À¤±¡¢¥ª¥Õ¥³¥ó¤Î·øÏ´¤Ê½çÆɤ߽èÍý¤Ë¤ªÀ¤ÏäˤʤäƤ­¤¿¤³¤È¤«¡£
½èÍý¼«ÂΤϥ·¥ó¥×¥ë¤Ê¤Î¤À¤«¤é¡¢ÁÇľ¤Ë½çÆɤ߽èÍý¤Çºî¤Ã¤Æ¤ß¤Þ¤¹¡£

¤Æ¤«¡¢ºî¤Ã¤Æ¤ß¤Æ¡¢»î¤·¤Æ¤ß¤Þ¤·¤¿¡£
£±£²Ëü·ï¤Î¥Ç¡¼¥¿¤ò¡¢£µÊ¬¤Ç½èÍý¤·¤Æ¤¯¤ì¤Þ¤·¤¿¡£
¤Á¤ç¤Ã¤È¸Å¤á¤Ê¥Ï¡¼¥É¤Ç¤³¤ì¤Ç¤¹¤«¤é¡¢¤¼¤ó¤¼¤óÌäÂê¤Ê¤«¤Ã¤¿¤Ç¤¹¡£

¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£


ÀµÄ¾¡¢¼ÒÆâ¤Ç¤Ï¡¢¥ª¥Õ¥³¥ó¤Ø¤Î¥Ð¥Ã¥·¥ó¥°¤¬Æü¡¹¶¯¤¯¤Ê¤Ã¤Æ¤­¤Æ¤¤¤Þ¤¹¡£
»þÂå¤Îή¤ì¡¢»ÅÊý¤Î¤Ê¤¤¤³¤È¤À¤È¤Ï»×¤¦¤Î¤Ç¤¹¤¬¡¢ºÇ¸å¤Þ¤Ç¡¢¥ª¥Õ¥³¥ó¤ÈÃçÎɤ¯ÉÕ¤­¹ç¤Ã¤Æ¤¤¤­¤¿¤¤¤È»×¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£
;Ã̤Ǥ·¤¿¡£

4:Re: ¥«¥¿¥í¥°µ¡Ç½¡ÊRDBQ2¤Îµ¡Ç½¡Ê½¸·×¤ÎºÇÂç¡Ë¤òCOBOL¤Ç¡Ë
¹¾¿ÜÀð 04/07 23:00
»Ï¤á¤Þ¤·¤Æ¹¾¿ÜÀð¤È¿½¤·¤Þ¤¹¡£

£Ã£Ï£Â£Ï£Ì¤Ç¤Ï¤Ç¤­¤Ê¤¤¤Ç¤¹¤Í¡£

¥«¥¿¥í¥°µ¡Ç½¤ò»È¤Ã¤Æ·ë²Ì¤ò£Ä£Â¥Õ¥¡¥¤¥ë½ÐÎϤ·
¤½¤ì¤ò»È¤Ã¤Æ¤ª¤ê¤Þ¤·¤¿¡£




5:Re: ¥«¥¿¥í¥°µ¡Ç½¡ÊRDBQ2¤Îµ¡Ç½¡Ê½¸·×¤ÎºÇÂç¡Ë¤òCOBOL¤Ç¡Ë
¤í¤í¤±¤¤ 04/09 18:04
¹¾¿ÜÀ𤵤ó

¾ðÊó¤ò¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¥«¥¿¥í¥°ºîÀï¡¢»î¤·¤Æ¤ß¤Þ¤·¤¿¡£
¤³¤ì¤ò£Ê£Ó¤ËÁȤ߹þ¤á¤Ð¡¢¤¦¤Þ¤¯»È¤¨¤½¤¦¤Ç¤¹¤Í¡£

º£²ó¤Ï¥·¥ó¥×¥ë¤ÊÃê½Ð¾ò·ï¤Ê¤Î¤Ç¡¢COBOL¤Ç¤Ò¤¿¤¹¤éÆɤ߹þ¤ßºîÀï¤òºÎÍѤ·¤Þ¤¹¤¬¡¢
º£¸å¤Î¤¿¤á¤ËÁªÂò»è¤¬Áý¤¨¤¿¤Î¤Ç¤è¤«¤Ã¤¿¤Ç¤¹¡£

¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

6:Re: RDBQ2¤Îµ¡Ç½¡Ê½¸·×¤ÎºÇÂç¡Ë¤òCOBOL¤Ç
¥¿¡¼¥é¥ä¥ó 04/13 22:55
ƒ¯COBOLSQLSQLEXTENSION
ƒ²ƒÉ

A-VX RDB„UCOBOLSQL

PERFORM X THRU Y.
EXEC SQL
SELECT MAX(A) INTO B FROM C-FILE GROUP BY D
END-EXEC.
MOVE B TO E.


ıEXEC SQLEND-EXECSQL


COBOLOracleDBPRO*COBOLı
ƒ±„R
COBOLıı


7:Re: RDBQ2¤Îµ¡Ç½¡Ê½¸·×¤ÎºÇÂç¡Ë¤òCOBOL¤Ç
¤í¤í¤±¤¤ 04/23 19:32
¥¿¡¼¥é¥ä¥ó¤µ¤Þ

ÃÙ¤¤¤ªÊÖ»ö¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£

¾ðÊ󤢤꤬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

COBOLÆâ¤ÇSQLʸ¡£
ÉáÄ̤˻Ȥ¨¤¿¤é¡¢²ÄǽÀ­¤¬¤µ¤é¤Ë¹­¤¬¤Ã¤¿¤Ç¤·¤ç¤¦¤Í¡£

»î¤·¤Ë¡¢½ñ¤¤¤Æ¤ß¤Þ¤·¤¿¡£
¡Ö'EXEC'¤¬¸í¤Ã¤Æ¤¤¤ë¡×
¤ÇÅܤé¤ì¤Þ¤·¤¿¡ÊÇú¡Ë

¤¢¤¿¤ê¤Þ¤¨¤Ç¤¹¤è¤Í(^^;

¼ºÎ餤¤¿¤·¤Þ¤·¤¿¡£


Á°¼¡1-¿·½ñÈÄ

BluesBB ©Sting_Band