£Î£Å£Ã¤Î¥ª¥Õ¥³¥ó¾ðÊó·Ç¼¨ÈġʥΥ¦¥Ï¥¦·Ï¡Ë
£Î£Å£Ã¤Î¥ª¥Õ¥³¥ó¤ò³èÍѤ¹¤ë¤¿¤á¤Î¥Î¥¦¥Ï¥¦¤òÏ䷹礦¤¿¤á¤Î·Ç¼¨ÈĤǤ¹¡£
|
| ¢£¢¥¢§
|
1 |
µì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¤½¤Î£¹¡Ë |
|
¹¾¿ÜÀð 2003-11-9 7:04:49
[ÊÖ¿®] [ÊÔ½¸]
-------------------------------------------------------------------------------------------
¤½¤Î£¹¡Ë¡ô£Á£Â£Ã¤Î΢µ»
-------------------------------------------------------------------------------------------
¡ô£Á£Â£Ã¤òµ¯Æ°¤·¤¿»þ¡¢¥á¥Ë¥å¡¼¤¬É½¼¨¤µ¤ì¤Þ¤¹¤¬¡¢¤½¤³¤Ëɽ¼¨¤µ¤ì¤Æ¤¤¤ëÈֹ椷¤«ÁªÂò½ÐÍè¤Ê¤¤¤È¤ª»×¤¤¤Ç¤·¤ç¤¦¤«¡©
¼Â¤Ï¤½¤ì°Ê³°¤Ë¤âÈÖ¹æ¤òÁªÂò¤¹¤ë»ö¤¬½ÐÍè¤Þ¤¹¡£
°ìÅÙ¡¢Â¾¤ÎÈÖ¹æ¤òÆþ¤ì¤Æõ¤·¤Æ¸«¤Æ¤¯¤À¤µ¤¤¡£»Ò¥á¥Ë¥å¡¼¤¬½ÐÍèÍè¤Þ¤¹¡£
-------------------------------------------------------------------------------------------
¡Ö¤Ê¤ª¡¢¤½¤ÎÈÖ¹æ¤ÎÃæ¿È¤ò¼Â¹Ô¤·¤Æ¥Ç¡¼¥¿¤¬¾Ãµî¤µ¤ì¤¿¤ê¡¢¤¢¤ë¤¤¤Ï¥×¥í¥°¥é¥à¤¬Ë½Áö¤·¤Æ¤â»ä¤Ï¤¤¤Ã¤µ¤¤´ØÃΤ·¤Þ¤»¤ó¡×
¤È¥¹¥Ñ¥¤ÂçºîÀïÉ÷¡Ê¸Å¤ë¡Á¡Ë¤Ë¥³¥á¥ó¥È¤·¤Æ¤ª¤¤Þ¤¹¡£
|
2 |
¡ÊÊä¡˵ì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¤½¤Î£¹¡Ë |
|
¹¾¿ÜÀð 2003-11-10 3:35:51
[ÊÖ¿®] [ÊÔ½¸]
¡ô£Á£Â£Ã¤¬¥ê¥ê¡¼¥¹¤µ¤ì¤¿»þ¤«¤é¤³¤Îµ¡Ç½¤¬¤¢¤Ã¤¿¤È¤¹¤ì¤Ð¡¢
ÍøÍѲÄǽ£Ï£Ó¤Ï£É£Ô£Ï£ÓÅÓÃæ¥Ð¡¼¥¸¥ç¥ó¡Á¤Ç¤¹¡£
¥Æ¥ó¥¡¼£²·å¿ô»ú¡¢ÆþÎÏÎý½¬¡¢¤ªÈè¤ì¤µ¤Þ¤Ç¤·¤¿¡£
Àµ²ò¤Ï¡É£¹£¶¡É¤Ç¤¹¡£
£±£³ÈÖ¡¢£±£´È֤ϻä¤â²ò¤ê¤Þ¤»¤ó¡£ ¤´Â¸ÃΤÎÊý¡¢¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£
°Ê¾å
|
3 |
Re:µì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¤½¤Î£¹¡Ë |
|
¥¿¡¼¥é¥ä¥ó 2003-11-11 2:29:50
[ÊÖ¿®] [ÊÔ½¸]
±£¤·¤Îµ¡Ç½°ìÍ÷¤ò¸«¤ë¸Â¤ê¡¢ÉáÃʤϻÈÍѤ·¤Ê¤¤¤â¤Î¡¢³°¤Î¥æ¡¼¥Æ¥£¥ê¥Æ¥£¤äµ¡Ç½¤ò¸Æ¤Ó½Ð¤¹¤À¤±¤Ê¤â¤Î¤¬¤Û¤È¤ó¤É¤Î¤è¤¦¤Ç¤¹¤Í¡£
¼Â¤Ï»ä¤âÀΡ¢Â¾¤Î¿Í¤«¤é¶µ¤¨¤é¤ì¤Þ¤·¤¿¡£
£±£³¡¢£±£´¤Ë¤Ä¤¤¤Æ¤â¡¢¤½¤Î»þ¤Ë¶µ¤¨¤Æ¤â¤é¤Ã¤¿µ¤¤¬¤¹¤ë¤Î¤Ç¤¹¤¬¡¢Ëº¤ì¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£
|
| ¢£¢¥¢§
|
1 |
µì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¤½¤Î£¸¡Ë |
|
¹¾¿ÜÀð 2003-10-26 13:42:56
[ÊÖ¿®] [ÊÔ½¸]
-------------------------------------------------------------------------------------------
¤½¤Î£¸¡Ë¥×¥í¥°¥é¥à¤Î¥á¥ó¥Ð¡¼¥ê¥¹¥È¤ò£×£é£î£ä£ï£÷£ó¡Ê£Ä£Ï£Ó¡Ë¤Ë¼è¤ê¹þ¤ß¤¿¤¤¡£
-------------------------------------------------------------------------------------------
¥ª¥Õ¥³¥ó¤Î¥×¥í¥°¥é¥à¤Î°ìÍ÷ɽ¤ò£×£é£î£ä£ï£÷£ó¦¤Ë¼è¤ê¹þ¤ó¤Ç£Å£Ø£Ã£Å£Ì¤ÇÍøÍѤ·¤¿¤¤¤È»×¤Ã¤¿¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¤«¡©
¤½¤ó¤Ê¤ªÇº¤ß¤Îµ®Å¤˼è¤Ã¤ÆÃÖ¤¤Î¾ðÊó¤ò¤ª¶µ¤¨¤·¤Þ¤¹¡£
»æ¤Ë°õºþ¤·¤Æ¥¹¥¥ã¥Ê¡¼¤ÇÆɤ߼è¤Ã¤Æ£Ï£Ã£Ò¤ÇÊÑ´¹¤¹¤ë¡£
¤¤¤¨¤¤¤¨°ã¤¤¤Þ¤¹¡£
¤Þ¤º¡¢¡ô£Ì£Â£Í¤Ç°ìÍ÷ɽ¤ò£Ó£Ð£Ï£Ï£Ì¤·¤Þ¤¹¡£¡Ê¤½¤Î£µ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡Ë
¤¢¤È¤Ï¡¢£Ð£ò£é£î£ô£Ö£é£å£÷¤Ç»ØÄꤷ¤Æ¤ª¤±¤Ð¡¢£×£é£î£ä£ï£÷£ó¦¤Ç¸«¤¿¤ê¼è¤ê¹þ¤ß¤â¤Ç¤¤Þ¤¹¡£
¥¨¥§?¡¢£Ð£ò£é£î£ô£Ö£é£å£÷¤Ï¹â¤¤¤«¤éÇã¤Ã¤Æ¤Ê¤¤¤Ã¤Æ¡¢¤Ç¤â¤´¿´ÇÛ̵ÍÑ¡£
¤ª¶â¤¬Ìµ¤¤Êý¤Ï¼ê´Ö·ä¤ò³Ý¤±¤ì¤Ð¼è¤ê¹þ¤ß¤Ï¤Ç¤¤Þ¤¹¡£
£Ó£Ð£Ï£Ï£Ì¥Õ¥¡¥¤¥ë¤ò¡ô£Á£Â£Ã¤Ç½çÊÔÀ®¥Õ¥¡¥¤¥ë¤Ë¤·¤Þ¤¹¡£
¤½¤ÎÊýË¡¤Ï¡Ö£µ¡¥Ê£¼Ì¡ÊÊÑ´¹¡Ë¡×¤Î¡Ö¥Õ¥¡¥¤¥ë¡×¤òÁª¤Ó¤Þ¤¹¡£
Ê£¼Ì¸µ¤Ï£Ó£Ð£Ï£Ï£Ì¥Õ¥¡¥¤¥ë¡Ê¡ô£Ó£Ð£Ï£Ï£Ì¤Î¾ÜºÙɽ¼¨¤Ç¥Õ¥¡¥¤¥ë̾¤Ï¤ï¤«¤ê¤Þ¤¹¡£¡Ë
Ê£¼ÌÀè¤ÏǤ°Õ¤Î½çÊÔÀ®¥Õ¥¡¥¤¥ë¡Ê¥ì¥³¡¼¥ÉĹ¤Ï£²£µ£¶¤ÇÎɤ¤¤È»×¤¤¤Þ¤¹¡£¡Ë
¥ª¥×¥·¥ç¥ó»ØÄê¤Ç¸ÇÄêĹ¡Ê£Æ£É£Ø¡Ë¤òÁª¤ó¤Ç¤¯¤À¤µ¤¤¡£
³Æ¥ì¥³¡¼¥É¤ÎÀèƬ¤Ë¥´¥ß¤¬¤¢¤ê¤Þ¤¹¡£¡Ê¿ʬ²þ¹Ô¾ðÊ󡩡ˤޤ¿¡¢¥¿¥¤¥È¥ëÅù¤Î;ʬ¤Ê¹Ô¤â¤¢¤ê¤Þ¤¹¡£
£Á¡Ý£Ö£Ø¦¤Ç£Ã£Ï£Â£Ï£Ì¥×¥í¥°¥é¥à¤òºî¤Ã¤Æºï½ü¤¹¤ë¤«£×£é£î£ä£ï£÷£ó¤Ç¼è¤ê¹þ¤ó¤Ç¤«¤éºï½ü¤·¤Æ¤¯¤À¤µ¤¤¡£
¤³¤³¤Þ¤Ç½ñ¤±¤Ð¸å¤Ï¤ª²ò¤«¤ê¤È»×¤¤¤Þ¤¹¤¬£×£é£î£ä£ï£÷£ó¤Î¼è¤ê¹þ¤ß¤Ï¡¢¡ô£Î£Æ£Ã£Î£Ö¤ò¤Ä¤«¤Ã¤Æ¥Æ¥¥¹¥È¤È¤·¤ÆÊÑ´¹¤¹¤ì¤ÐÎɤ¤¤È»×¤¤¤Þ¤¹¡£
-------------------------------------------------------------------------------------------
¡Ê¥³¥á¥ó¥È¡Ë¤½¤Î£´¤«¤é¤½¤Î£·¤ÏÁ°¿¶¤ê¤Ç¤·¤¿¡£º£Æü¤Î¥á¥¤¥ó¤Ï¤³¤ì¤Ç¤¹¡£
£Ð£ò£é£î£ô£Ö£é£å£÷¤¬Ìµ¤¯¤Æ¤â¤³¤ÎÊýË¡¤Ç¼ê´Ö·ä¤«¤±¤ì¤Ð¤¤¤í¤¤¤í¤ÊĢɼ¤ò£×£é£î£ä£ï£÷£ó¦¤Ë¼è¤ê¹þ¤à»ö¤¬¤Ç¤¤Þ¤¹¡£
|
2 |
Re:µì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ» |
|
¥¿¡¼¥é¥ä¥ó 2003-10-26 14:24:12
[ÊÖ¿®] [ÊÔ½¸]
»ä¤¬¡¢£Á¡Ý£Ö£ØIV¤Î¼¡¤Î£Ï£Ó¤ÎÏäÎÊÖ»ö¤ò½ñ¤¤¤Æ¤¤¤ë´Ö¤Ë¡¢°ìµ¤¤Ë½ñ¤¹þ¤Þ¤ì¤Æ¤¤¤Þ¤·¤¿¡£
¤¹¤Ð¤é¤·¤¤¤Ç¤¹¡£
»ä¤â¤¬¤ó¤Ð¤Ã¤Æ£È£Ð¤Î¹¹¿·¤ò¤·¤Ê¤±¤ì¤Ð¤¤¤±¤Þ¤»¤ó¡£
Ê䤹¤ë¤Ê¤é¤Ð¡¢¡Ê¤½¤Î£¸¡Ë¤Ï¡¢¡Ê¤¤¤Ä¤Î¥Ð¡¼¥¸¥ç¥ó¤«¤é¤«¤Ï˺¤ì¤Þ¤·¤¿¤¬¡Ë£Á¡Ý£Ö£Ø£´¤«¤é²Äǽ¤Êµ»¤Ç¤¹¡£
¤Þ¤À£Ó£³£±£°£°¤ä£Ó£·£²£°£°¤ò»È¤Ã¤Æ¤¤¤ëÊý¤âÂçÀª¤¤¤é¤Ã¤·¤ã¤ë¤è¤¦¤Ê¤Î¤Ç¡¢Ç°¤Î°Ù»ÈÍѲÄǽ¤Ê¥Ð¡¼¥¸¥ç¥ó¤â½ñ¤¤¤Æ¤ª¤¤¤¿Êý¤¬¤¤¤¤¤Ç¤·¤ç¤¦¡£
COBOL¤Î¥×¥í¥°¥é¥à¤â¡¢¤Ê¤«¤Ê¤«¤ª¤â¤·¤í¤¤µ¡Ç½¤ò¤¤¤í¤¤¤í¤È»ÈÍѤ·¤Æ¤¤¤ë¤è¤¦¤Ç¤¹¡£
|
4 |
µì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¥Ð¡¼¥¸¥ç¥ó¾ðÊó¡Ë |
|
¹¾¿ÜÀð 2003-11-1 8:05:49
[ÊÖ¿®] [ÊÔ½¸]
> »ä¤¬¡¢£Á¡Ý£Ö£ØIV¤Î¼¡¤Î£Ï£Ó¤ÎÏäÎÊÖ»ö¤ò½ñ¤¤¤Æ¤¤¤ë´Ö¤Ë¡¢°ìµ¤¤Ë½ñ¤¹þ¤Þ¤ì¤Æ¤¤¤Þ¤·¤¿¡£ > ¤¹¤Ð¤é¤·¤¤¤Ç¤¹¡£ > »ä¤â¤¬¤ó¤Ð¤Ã¤Æ£È£Ð¤Î¹¹¿·¤ò¤·¤Ê¤±¤ì¤Ð¤¤¤±¤Þ¤»¤ó¡£
º£Æü¤Ï¡¢¥¿¡¼¥é¥ä¥ó¤µ¤ó¡¢¡Ê¤½¤Î£¸¡Ë¤ò½ñ¤¤¿¤«¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¤Ë¤ÏºÙ¤«¤Êµ¡Ç½¤ò»È¤Ã¤Æ¤ª¤ê¤½¤ÎÀâÌÀ¤ò¤Ä¤¤¤Ç¤Ë¤·¤Þ¤·¤¿¡£ ¤³¤ÎÃæ¤Ç»Ä¤·¤ÆÊý¤¬Îɤ¤µ¡Ç½¤¬¤¢¤ì¤Ð¡¢ÊݸÈǤȤ·¤Æ¡ÖƦÃμ±¡×¤ØÅÐÏ¿¤·¤Æ¤¤¤¿¤À¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£
> Ê䤹¤ë¤Ê¤é¤Ð¡¢¡Ê¤½¤Î£¸¡Ë¤Ï¡¢¡Ê¤¤¤Ä¤Î¥Ð¡¼¥¸¥ç¥ó¤«¤é¤«¤Ï˺¤ì¤Þ¤·¤¿¤¬¡Ë£Á¡Ý£Ö£Ø£´¤«¤é²Äǽ¤Êµ»¤Ç¤¹¡£
»ä¤ÏÆɲòÎÏÉÔ¤ʤΤǡ¢¾åµ¤Ï¡¢
£±¡¥¡Ê¤½¤Î£¸¡Ë¤è¤ê´Êñ¤ÇÎɤ¤ÊýË¡¤¬¤¢¤ë¡£ £²¡¥¡Ê¤½¤Î£¸¡Ë¤Ï£Á¡Ý£Ö£Ø£´¤Ç²Äǽ¤Ç¤¢¤ë¡£
¤É¤Á¤é¤Ç¤·¤ç¤¦¤«¡©¡¡£±È֤Ǥ·¤¿¤é¤¼¤Ò¤½¤Îµ»¤Î¤´¶µ¼ø¤ò¤ª´ê¤¤¿½¤·¾å¤²¤Þ¤¹¡£
> ¤Þ¤À£Ó£³£±£°£°¤ä£Ó£·£²£°£°¤ò»È¤Ã¤Æ¤¤¤ëÊý¤âÂçÀª¤¤¤é¤Ã¤·¤ã¤ë¤è¤¦¤Ê¤Î¤Ç¡¢Ç°¤Î°Ù»ÈÍѲÄǽ¤Ê¥Ð¡¼¥¸¥ç¥ó¤â½ñ¤¤¤Æ¤ª¤¤¤¿Êý¤¬¤¤¤¤¤Ç¤·¤ç¤¦¡£
¤à?¡¢Æñ¤·¤¤¡£³õ³ª£Ó£Å¤Ï¡¢¥¢¥Ð¥¦¥È£Ó£Å¤Ê¤Î¤Ç¡¢°Ê²¼¤ÏÃÇÄêŪ¤Ë½ñ¤¤¤Æ¤¤¤Þ¤¹¤¬¡¢Á´¤Æ¡Ö¿ʬ¡×¤ä¡Ö¤È»×¤¤¤Þ¤¹¡×¤¬ÉÕ¤¤Þ¤¹¡£¤¼¤Ò¡¢¾Ü¤·¤¤¥Ð¡¼¥¸¥ç¥ó¤Î²ò¤«¤ëÊý¤ÏµÕ¤Ë¤´»ØŦ¤¯¤À¤µ¤¤¡£
¡Ê¤½¤Î£±¡Ë£Á¡Ý£Ö£Ø£±£°½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡ÊÀâÌÀ¡Ë¥·¥¹¥Æ¥à¥á¥Ë¥å¡¼¤¬¥ê¥ê¡¼¥¹¤µ¤ì¤Æ¤«¤é²Äǽ ¡Ê¤½¤Î£²¡Ë£É£Ô£Ï£Ó½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡¡¡¡¡ÊÀâÌÀ¡Ëµì£±£°£°¡ÊÀÖ£±£°£°¡Ë¤ÎÂåÂص¡Ç½¤Î°Ù ¡Ê¤½¤Î£³¡Ë£Á¡Ý£Ö£Ø£±£°½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡ÊÀâÌÀ¡Ë£Ó£Í£Á£Ò£Ô¶£Å£Ø¤¬¥ê¥ê¡¼¥¹¤µ¤ì¤Æ¤«¤é²Äǽ ¡Ê¤½¤Î£´¡Ë£É£Ô£Ï£Ó½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡¡¡¡¡ÊÀâÌÀ¡ËºÇ½é¤Î£Ã£Ï£Â£Ï£Ì¤Î£Ä£É£Ó£Ð£Ã£Ò£Ô¤ÇÍøÍѲÄǽ ¡Ê¤½¤Î£µ¡Ë£É£Ô£Ï£Ó½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡¡¡¡¡ÊÀâÌÀ¡Ë¥¹¥×¡¼¥ëµ¡Ç½¤¬¥ê¥ê¡¼¥¹¤µ¤ì¤Æ¤«¤é²Äǽ ¡Ê¤½¤Î£¶¡Ë£É£Ô£Ï£ÓÅÓÃæ¥Ð¡¼¥¸¥ç¥ó¡Á¡¡¡¡¡ÊÀâÌÀ¡Ë£Ã£Ï£Â£Ï£Ì£¸£µ¤¬¥ê¥ê¡¼¥¹¤µ¤ì¤Æ¤«¤é²Äǽ ¡Ê¤½¤Î£·¡Ë£Á£Ô£Ô£Á£Ã£È¡á£Í£Á£Î£Õ£Á£Ì ¡¡¡¡¡¡¡¡¡¡£É£Ô£Ï£Ó½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡¡¡¡¡ÊÀâÌÀ¡Ë¥³¥Þ¥ó¥É¡Ê£Ê£Ã£Ì¡Ë¤¬¤¤¤Ä¸ø³«¤µ¤ì¤Æ¤¿¤«¤ÏÉÔÌÀ¡¡ ¡¡¡¡¡¡¡¡¡¡£Ó£Ù£Ó£Ó£Ð£Á£×£Î ¡¡¡¡¡¡¡¡¡¡£É£Ô£Ï£Ó½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡¡¡¡¡ÊÀâÌÀ¡Ë¥µ¥Ö¥ë¡¼¥Á¥ó¤¬¤¤¤Ä¸ø³«¤µ¤ì¤Æ¤¿¤«¤ÏÉÔÌÀ ¡Ê¤½¤Î£¸¡Ë¡ô£Á£Â£Ã¤Î£Ð£É£ÆÊÑ´¹ ¡¡¡¡¡¡¡¡¡¡£É£Ô£Ï£ÓÅÓÃæ¥Ð¡¼¥¸¥ç¥ó¡Á¡¡¡¡¡ÊÀâÌÀ¡Ë¡ô£Á£Â£Ã¤¬¥ê¥ê¡¼¥¹¤µ¤ì¤Æ¤«¤é²Äǽ ¡¡¡¡¡¡¡¡¡¡¡ô£Ð£Ã£Ã£Î£Ö¡Êͽþ¥½¥Õ¥È¡¢¡ô£Î£Æ£Ã£Î£Ö¤¬»È¤¨¤Ê¤¤£Ï£Ó¤Î¾ì¹ç¡¢£Æ£Ä£ÄÂбþ¡Ë ¡¡¡¡¡¡¡¡¡¡£Á¡Ý£Ö£Ø£±£°½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡ÊÀâÌÀ¡Ë⤷£±¡¤£²¥Ð¥¤¥Èº®ºß¤ÏÉÔ²Ä ¡¡¡¡¡¡¡¡¡¡¡ô£Î£Æ£Ã£Î£Ö ¡¡¡¡¡¡¡¡¡¡£Á¡Ý£Ö£Ø·½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡¡¡ÊÀâÌÀ¡Ë£×£Î£ÔÎΰè¤Ç²Äǽ
¤È¤¤¤¦»ö¤ÇËؤɤ¬¸Å¤¤µ¡Ç½¤Ç¤¹¤Î¤Ç£Ó£³£±£°£°¤Ç¤â£Á¡Ý£Ö£Ø¤Ç¤¢¤ì¤Ð²Äǽ¤Ç¤¹¡£
> COBOL¤Î¥×¥í¥°¥é¥à¤â¡¢¤Ê¤«¤Ê¤«¤ª¤â¤·¤í¤¤µ¡Ç½¤ò¤¤¤í¤¤¤í¤È»ÈÍѤ·¤Æ¤¤¤ë¤è¤¦¤Ç¤¹¡£
£Ã£Ï£Â£Ï£Ì¥·¥¹¥Æ¥à¥µ¥Ö¥ë¡¼¥Á¥óÀâÌÀ½ñ¤Ï²¿¤«ÍøÍѽÐÍè¤ëʪ¤Ï¤Ê¤¤¤«¤Èº£¤Ç¤â¤¿¤Þ¤Ë¸«¤Æ¤ª¤ê¤Þ¤¹¡£
|
5 |
¡ÊÊä¡˵ì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¥Ð¡¼¥¸¥ç¥ó¾ðÊó¡Ë |
|
¹¾¿ÜÀð 2003-11-2 2:15:08
[ÊÖ¿®] [ÊÔ½¸]
¡Ê¤½¤Î£¸¡Ë¤Ï¡ô£Æ£Ô£Ã£Î£Ö¡Êͽþ¥½¥Õ¥È¡Ë¤È¤¤¤¦ÊýË¡¤â¤¢¤ê¤Þ¤·¤¿¡£
ºÆÅÙÅ»¤á¤ë¤È
£Á¡Ý£Ö£Ø£±£°½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡¡¤Ï¡ô£Ð£Ã£Ã£Î£Ö¡Êͽþ¥½¥Õ¥È¡Ë¤òÍøÍÑ £Á¡Ý£Ö£Ø¶½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡¡¡¡¤Ï¾åµËô¤Ï¡ô£Æ£Ô£Ã£Î£Ö¡Êͽþ¥½¥Õ¥È¡Ë¤òÍøÍÑ £Á¡Ý£Ö£Ø·½é´ü¥Ð¡¼¥¸¥ç¥ó¡Á¡¡¡¡¤Ï¾åµËô¤Ï¡ô£Î£Æ£Ã£Î£Ö¡Êɸ½à¥½¥Õ¥È¡Ë¤òÍøÍÑ
°Ê¾å
|
6 |
Re:µì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¥Ð¡¼¥¸¥ç¥ó¾ðÊó¡Ë |
|
¥¿¡¼¥é¥ä¥ó 2003-11-3 9:32:17
[ÊÖ¿®] [ÊÔ½¸]
> ¤³¤ÎÃæ¤Ç»Ä¤·¤ÆÊý¤¬Îɤ¤µ¡Ç½¤¬¤¢¤ì¤Ð¡¢ÊݸÈǤȤ·¤Æ¡ÖƦÃμ±¡×¤ØÅÐÏ¿¤·¤Æ¤¤¤¿¤À¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£
º£¡¢³§¤µ¤ó¤Î½ñ¤«¤ì¤¿¾ðÊó¤ò»Ä¤¹ÊýË¡¤ò¹Í¤¨¤Æ¤¤¤Þ¤¹¡£ ¥¸¥ª¥Ü¡¼¥É¤Ë½ñ¤«¤ì¤¿½çÈ֡ʤĤޤ꺣¤Î½çÈ֡ˤˤ·¤è¤¦¤«¡¢¤¢¤ëÄøÅÙ¥¸¥ã¥ó¥ëÊ̤Ëʬ¤±¤ë¡¿½ñ¤¤¤Æ¤¤¤¿¤À¤¤¤¿ÊýÊ̤Ëʬ¤±¤ë¤Ê¤É¡¢¤É¤Î¤è¤¦¤ËÊݸ¤¹¤ì¤ÐÎɤ¤¤«¹Í¤¨¤Æ¤¤¤ë¤È¤³¤í¤Ç¤¹¡£ ¤â¤Á¤í¤ó¡¢¹¾¿ÜÀ𤵤ó¤Î½ñ¤«¤ì¤¿¤â¤Î¤â»Ä¤·¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£
> > > > Ê䤹¤ë¤Ê¤é¤Ð¡¢¡Ê¤½¤Î£¸¡Ë¤Ï¡¢¡Ê¤¤¤Ä¤Î¥Ð¡¼¥¸¥ç¥ó¤«¤é¤«¤Ï˺¤ì¤Þ¤·¤¿¤¬¡Ë£Á¡Ý£Ö£Ø£´¤«¤é²Äǽ¤Êµ»¤Ç¤¹¡£ > > »ä¤ÏÆɲòÎÏÉÔ¤ʤΤǡ¢¾åµ¤Ï¡¢ > > £±¡¥¡Ê¤½¤Î£¸¡Ë¤è¤ê´Êñ¤ÇÎɤ¤ÊýË¡¤¬¤¢¤ë¡£ > £²¡¥¡Ê¤½¤Î£¸¡Ë¤Ï£Á¡Ý£Ö£Ø£´¤Ç²Äǽ¤Ç¤¢¤ë¡£ > > ¤É¤Á¤é¤Ç¤·¤ç¤¦¤«¡©¡¡£±È֤Ǥ·¤¿¤é¤¼¤Ò¤½¤Îµ»¤Î¤´¶µ¼ø¤ò¤ª´ê¤¤¿½¤·¾å¤²¤Þ¤¹¡£ >
¤½¤Î£¸¤Ç#NFCNV¤ò»ÈÍѤ·¤Æ¤¤¤Þ¤¹¤¬¡¢#NFCNV¤Ï¡¢¾¯¤Ê¤¯¤È¤âS7200¥·¥ê¡¼¥º¡ÊA-VX10 or A-VX2¡Ë¤Îº¢¤Ï¤Þ¤À¤Ê¤¤¤Ï¤º¡£¡Ê¤¿¤·¤«A-VX4¤Îº¢¤«¤é¤Ç¤¹¤è¤Í¡£¡Ë S3100¤äS7200¤ò»ÈÍѤµ¤ì¤Æ¤¤¤ëÊý¤¬¡¢¹¾¿ÜÀ𤵤ó¤Î½ñ¤«¤ì¤¿ÆâÍƤò¸«¤Æ¤ä¤Ã¤Æ¤ß¤è¤¦¤È¹Í¤¨¤ë¤³¤È¤â¤¢¤ë¤«¤È»×¤¤¤Þ¤·¤¿¤Î¤Ç¡¢°ì¸ÀÉÕ¤±²Ã¤¨¤Þ¤·¤¿¡£
|
7 |
¡ÊÊ䣲¡Ëµì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¥Ð¡¼¥¸¥ç¥ó¾ðÊó¡Ë |
|
¹¾¿ÜÀð 2003-11-4 3:44:49
[ÊÖ¿®] [ÊÔ½¸]
¸Å¤¤¥Þ¥Ë¥å¥¢¥ë¤¬¤¢¤Ã¤¿¤Î¤Ç¡¢Êä¤Ǥ¹¡£
¡Ê¤½¤Î£³¡Ë¤Î£Ó£Í£Á£Ò£Ô¶£Å£Ø¤Ï£É£Ô£Ï£Ó¤Ç¤â¥ê¥ê¡¼¥¹¤µ¤ì¤Æ¤¤¤Þ¤¹¤¬¡¢£Ò£²£±¡¥£µ»þÅÀ¤Ç¤Ï¡¢¡ô£Ó£Æ£Ç£Å£ÎÍѤΣӣգ̤ÎÆþ½ÐÎϤϽÐÍè¤Ê¤¤¤è¤¦¤Ç¤¹¡£
¡Ê¤½¤Î£¸¡Ë¤Î¡ô£Á£Â£Ã¤Î£Ó£Ð£Ï£Ï£Ì¤«¤é£Ð£É£ÆÊÑ´¹¤Ï£É£Ô£Ï£Ó¤Î£±£·¡¥£µ¤Ç¤Ï´û¤Ë¤Ç¤¤ë¤è¤¦¤Ç¤¹¡£
°Ê¾å
|
| ¢£¢¥¢§
|
1 |
µì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¤½¤Î£·¡Ë |
|
¹¾¿ÜÀð 2003-10-26 13:32:00
[ÊÖ¿®] [ÊÔ½¸]
-------------------------------------------------------------------------------------------
¤½¤Î£·¡Ë΢²èÌÌ¤Ç¥×¥í¥°¥é¥à¤òµ¯Æ°¤·¤Æ²èÌÌÀܳ¤ò¤·¤Ê¤¤¤Èɽ²èÌ̤˽Фµ¤Ê¤¤ÊýË¡¡£
-------------------------------------------------------------------------------------------
£Ò£Õ£Î¥³¥Þ¥ó¥É¤Ç
£Ò£Õ£Î¡¡£ø£ø£ø£ø£ø£ø¡¤£Á£Ô£Ô£Á£Ã£È¡á£Í£Á£Î£Õ£Á£Ì¡¨
¤Ç¼Â¹Ô¤·¤Þ¤¹¡£
¥×¥í¥°¥é¥à¥³¡¼¥ë¤¹¤ë¾ì¹ç¤Ï¡¢£Ã£Ï£Â£Ï£Ì¥·¥¹¥Æ¥à¥µ¥Ö¥ë¡¼¥Á¥ó£Ó£Ù£Ó£Ó£Ð£Á£×£Î¤òÍøÍѤ·¤Þ¤¹¡£
-------------------------------------------------------------------------------------------
¡Ê¥³¥á¥ó¥È¡Ë¾ïÃó¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤·¤¿»þ¤Ê¤É͸ú¤Ç¤¹¡£
¸å¤Ç¾å¤²¤Æ¤ª¤¤Þ¤¹¤Î¤Ç¡¢¡Ö£Ã£Ï£Â£Ï£Ì¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à£²¡×¤ò»²¹Í¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
|
2 |
£Ã£Ï£Â£Ï£Ì¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à£² |
|
¹¾¿ÜÀð 2003-10-26 13:37:07
[ÊÖ¿®] [ÊÔ½¸]
000010 IDENTIFICATION DIVISION.
000020***************************************************************
000030* ¥×¥ê¥ó¥¿ÀêÍ¥×¥í¥°¥é¥àµ¯Æ° (PRLOCK CALL) *
000040***************************************************************
000050* ºîÀ®¼Ô¡¡¹¾¿ÜÀð
000060* ºîÀ®Æü¡¡£²£°£°£³Ç¯£±£°·î£²£¶Æü
000070 PROGRAM-ID. PRLCKC.
000080 ENVIRONMENT DIVISION.
000090 CONFIGURATION SECTION.
000100 SOURCE-COMPUTER. EXPRESS5800.
000110 OBJECT-COMPUTER. EXPRESS5800.
000120 DATA DIVISION.
000130 WORKING-STORAGE SECTION.
000140 01 SPAWN-REC1.
000150 02 SPAWN11 PIC X(256).
000160 01 SPAWN-REC2.
000170 02 SPAWN21 PIC 9(04).
000180 01 SPAWN-REC3.
000190 02 SPAWN31 PIC X(10).
000200 02 SPAWN32 PIC X(02).
000210 02 SPAWN33 PIC X(10).
000220 02 SPAWN34 PIC X(08).
000230 01 TIMER PIC 9(04).
000240*
000250*
000260 SCREEN SECTION .
000270 SD GAMEN END STATUS IS ENDSTS.
000280 01 HAJIMEDSP CLEAR SCREEN.
000290 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101004".
000300 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101407".
000310 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0324402".
000320 02 LINE 03 COLUMN 24 PIC N(18) VALUE
000330 NC"¡ä¡ä¥×¥ê¥ó¥¿ÀêÍ¥×¥í¥°¥é¥àµ¯Æ°¡ã¡ã".
000340 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0358407".
000350 01 HAJIMEDSP2.
000360 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0721164".
000370 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0721404".
000380 02 LINE 07 COLUMN 24 PIC N(18) VALUE
000390 NC"¡¡¡¡¡¡¢¨¡¡¾õ¡¡ÂÖ¡¡É½¡¡¼¨¡¡¢¨".
000400 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0761104".
000410 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0761407".
000420 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821104".
000430 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821403".
000440 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0861100".
000450 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0862000".
000460 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0863004".
000470 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0863407".
000480 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921104".
000490 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921403".
000500 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0961100".
000510 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0962000".
000520 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0963004".
000530 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0963407".
000540 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021104".
000550 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021403".
000560 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1061100".
000570 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1062000".
000580 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1063004".
000590 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1063407".
000600 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121104".
000610 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121403".
000620 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1161100".
000630 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1162000".
000640 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1163004".
000650 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1163407".
000660 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221104".
000670 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221403".
000680 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1261100".
000690 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1262000".
000700 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1263004".
000710 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1263407".
000720 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321106".
000730 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321403".
000740 02 LINE 13 COLUMN 23 PIC N(18) VALUE
000750 NC"¡¡¡¡¥×¥ê¥ó¥¿ÀêÍ¥×¥í¥°¥é¥àµ¯Æ°Ãæ".
000760 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1361100".
000770 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1362000".
000780 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1363004".
000790 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1363407".
000800 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421104".
000810 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421403".
000820 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1461100".
000830 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1462000".
000840 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1463004".
000850 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1463407".
000860 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521104".
000870 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521403".
000880 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1561100".
000890 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1562000".
000900 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1563004".
000910 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1563407".
000920 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621104".
000930 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621403".
000940 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1661100".
000950 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1662000".
000960 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1663004".
000970 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1663407".
000980 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721104".
000990 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721403".
001000 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1761100".
001010 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1762000".
001020 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1763004".
001030 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1763407".
001040 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821144".
001050 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821403".
001060 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1861100".
001070 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1862000".
001080 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1863004".
001090 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1863407".
001100 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1922000".
001110 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1963004".
001120 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1963407".
001130 01 SPOOLDSP.
001140 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821403".
001150 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921403".
001160 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021403".
001170 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121403".
001180 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221403".
001190 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321403".
001200 02 LINE 13 COLUMN 23 PIC N(18) VALUE
001210 NC"¡¡¡¡¡ô£Ó£Ð£Ï£Ï£Ì¥×¥í¥°¥é¥àµ¯Æ°Ãæ".
001220 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421403".
001230 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521403".
001240 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621403".
001250 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721403".
001260 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821403".
001270 01 OWARIDSP.
001280 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821402".
001290 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921402".
001300 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021402".
001310 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121402".
001320 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221402".
001330 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321402".
001340 02 LINE 13 COLUMN 24 PIC N(18) VALUE
001350 NC"¡¡¥×¥ê¥ó¥¿ÀêÍ¥×¥í¥°¥é¥àµ¯Æ°½ªÎ»".
001360 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421402".
001370 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521402".
001380 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621402".
001390 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721402".
001400 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821402".
001410*
001420*
001430*
001440************************************************************
001450 PROCEDURE DIVISION.
001460 HAJIME.
001470 DISPLAY HAJIMEDSP WITH BYPASS.
001480 MOVE 0010 TO TIMER.
001490 CALL "CBLTIMER" USING TIMER.
001500 MOVE "PRLOCK,FIL=TESTLML,ATTACH=MANUAL;" TO SPAWN11.
001510 MOVE 0033 TO SPAWN21.
001520 MOVE "MODE=DEFER" TO SPAWN31.
001530 CALL "SYSSPAWN" USING SPAWN-REC1 SPAWN-REC2 SPAWN-REC3.
001540 DISPLAY HAJIMEDSP2 WITH BYPASS.
001550*
001560 CALL "CBLTIMER" USING TIMER.
001570 MOVE "#SPOOL,ATTACH=MANUAL;" TO SPAWN11.
001580 MOVE 0021 TO SPAWN21.
001590 MOVE "MODE=DEFER" TO SPAWN31.
001600 CALL "SYSSPAWN" USING SPAWN-REC1 SPAWN-REC2 SPAWN-REC3.
001610 DISPLAY SPOOLDSP WITH BYPASS.
001620*
001630 CALL "CBLTIMER" USING TIMER.
001640 DISPLAY OWARIDSP WITH BYPASS.
001650*
001660 CALL "CBLTIMER" USING TIMER.
001670 STOP RUN.
|
| ¢£¢¥¢§
|
1 |
µì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¤½¤Î£¶¡Ë |
|
¹¾¿ÜÀð 2003-10-26 13:26:10
[ÊÖ¿®] [ÊÔ½¸]
-------------------------------------------------------------------------------------------
¤½¤Î£¶¡Ë²èÌÌÆþÎÏÂÔ¤Á¤Ç¤Ê¤¯¤Æ¤â£Ð£Æ¥¡¼¤ò͸ú¤Ë¤¹¤ëÊýË¡¡£
-------------------------------------------------------------------------------------------
Ä̾ï¤Ï£Á£Ã£Ã£Å£Ð£ÔÂÔ¤Á¤Ç¡¢½ªÎ»¥¡¼¤òȽÄꤷ¤Þ¤¹¤¬¡¢£Á£Ã£Ã£Å£Ð£ÔÂÔ¤Á¤Ë¤·¤¿¤¯¤Ê¤¤¾ì¹ç¤Ê¤É¤ËÍøÍѤ·¤Þ¤¹¡£
ÊýË¡¤Ï£Æ£Õ£Î£Ã£Ô£É£Ï£Î¡Ý£Ë£Å£Ù¤òÍøÍѤ·¤Þ¤¹¡£
£Ö£Â¤Î¤è¤¦¤Ë³ä¤ê¹þ¤ß¤¬Æþ¤Ã¤¿¤é¥µ¥Ö¥ë¡¼¥Á¥ó¤ò¼Â¹Ô¤È¸À¤¦·Á¤Ë¤Ï¤Ç¤¤Þ¤»¤ó¡£
¼«Ê¬¤Ç£É£ÆÌ¿Îá¤òÍ×½êÍ×½ê¤Ë¤¤¤ì¤Æ¤ª¤¯É¬Íפ¬¤¢¤ê¤Þ¤¹¡£
-------------------------------------------------------------------------------------------
¡Ê¥³¥á¥ó¥È¡Ë¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¤Ï£Á£Ã£Ã£Å£Ð£ÔÂÔ¤Á¤Ç¤âÌäÂ꤬¤¢¤ê¤Þ¤»¤ó¤¬¡¢·ë²Ì¤ò²èÌÌɽ¼¨¤¹¤ë¾ì¹ç¡¢£Á£Ã£Ã£Å£Ð£ÔÂÔ¤Á¤À¤È¤¤¤Ä¤Þ¤Ç¤â½ª¤ï¤é¤Ê¤¤¤Î¤Ç¡¢»þ´Ö¤¬Î©¤Æ¤Ð¼«Æ°Åª¤Ë½ª¤ï¤ê¤¿¤¤»þ¤Ê¤É¤Ë»È¤¤¤Þ¤¹¡£
¸å¤Ç¾å¤²¤Æ¤ª¤¤Þ¤¹¤Î¤Ç¡¢¡Ö£Ã£Ï£Â£Ï£Ì¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à£±¡×¤ò»²¹Í¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
|
2 |
£Ã£Ï£Â£Ï£Ì¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à£± |
|
¹¾¿ÜÀð 2003-10-26 13:30:29
[ÊÖ¿®] [ÊÔ½¸]
000010 IDENTIFICATION DIVISION.
000020***************************************************************
000030* ¥×¥ê¥ó¥¿ÀêÍ¥×¥í¥°¥é¥à (PRINTER LOCK) *
000040***************************************************************
000050* ºîÀ®¼Ô¡¡¹¾¿ÜÀð
000060* ºîÀ®Æü¡¡£²£°£°£³Ç¯£±£°·î£²£¶Æü
000070 PROGRAM-ID. PRLOCK.
000080 ENVIRONMENT DIVISION.
000090 CONFIGURATION SECTION.
000100 SOURCE-COMPUTER. EXPRES5800.
000110 OBJECT-COMPUTER. EXPRES5800.
000120 INPUT-OUTPUT SECTION.
000130 FILE-CONTROL.
000140 SELECT LP-F ASSIGN TO LP-PRN999.
000150 I-O-CONTROL.
000160 APPLY SHIFT-CODE ON LP-F.
000170 DATA DIVISION.
000180 FILE SECTION.
000190 FD LP-F
000200 LABEL RECORD OMITTED
000210 LINAGE IS 66 LINES.
000220 01 LP-REC.
000230 03 FILLER PIC X(200).
000240 WORKING-STORAGE SECTION.
000250 01 TIMER PIC 9(04).
000260*
000270*
000280 SCREEN SECTION .
000290 SD GAMEN END STATUS IS ENDSTS.
000300 01 HAJIMEDSP CLEAR SCREEN.
000310 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101004".
000320 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101407".
000330 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0325402".
000340 02 LINE 03 COLUMN 25 PIC N(18) VALUE
000350 NC"¡ä¡ä£Ð£Ò£Î£¹£¹£¹¥×¥ê¥ó¥¿ÀêÍ¡ã¡ã".
000360 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0357407".
000370 01 HAJIMEDSP2.
000380 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101004".
000390 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101407".
000400 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0325402".
000410 02 LINE 03 COLUMN 25 PIC N(18) VALUE
000420 NC"¡ä¡ä£Ð£Ò£Î£¹£¹£¹¥×¥ê¥ó¥¿ÀêÍ¡ã¡ã".
000430 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0357407".
000440 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0721164".
000450 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0721404".
000460 02 LINE 07 COLUMN 24 PIC N(18) VALUE
000470 NC"¡¡¡¡¡¡¢¨¡¡¾õ¡¡ÂÖ¡¡É½¡¡¼¨¡¡¢¨".
000480 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0761104".
000490 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0761407".
000500 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821104".
000510 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821401".
000520 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0861100".
000530 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0862000".
000540 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0863004".
000550 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0863407".
000560 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921104".
000570 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921401".
000580 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0961100".
000590 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0962000".
000600 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0963004".
000610 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0963407".
000620 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021104".
000630 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021401".
000640 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1061100".
000650 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1062000".
000660 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1063004".
000670 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1063407".
000680 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121104".
000690 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121401".
000700 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1161100".
000710 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1162000".
000720 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1163004".
000730 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1163407".
000740 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221104".
000750 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221401".
000760 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1261100".
000770 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1262000".
000780 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1263004".
000790 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1263407".
000800 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321106".
000810 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321401".
000820 02 LINE 13 COLUMN 24 PIC N(18) VALUE
000830 NC"¡¡¡¡£Ð£Ò£Î£¹£¹£¹¥×¥ê¥ó¥¿ÀêÍÃæ".
000840 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1361100".
000850 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1362000".
000860 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1363004".
000870 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1363407".
000880 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421104".
000890 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421401".
000900 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1461100".
000910 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1462000".
000920 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1463004".
000930 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1463407".
000940 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521104".
000950 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521401".
000960 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1561100".
000970 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1562000".
000980 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1563004".
000990 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1563407".
001000 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621104".
001010 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621401".
001020 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1661100".
001030 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1662000".
001040 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1663004".
001050 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1663407".
001060 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721104".
001070 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721401".
001080 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1761100".
001090 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1762000".
001100 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1763004".
001110 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1763407".
001120 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821144".
001130 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821401".
001140 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1861100".
001150 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1862000".
001160 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1863004".
001170 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1863407".
001180 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1922000".
001190 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1963004".
001200 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1963407".
001210 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"2221006".
001220 02 LINE 22 COLUMN 24 PIC N(18) VALUE
001230 NC"¡¡¤É¤ì¤«¤Î£Ð£Æ¥¡¼¤ò²¡¤·¤Æ¤¯¤À¤µ¤¤¡£".
001240************************************************************
001250 PROCEDURE DIVISION.
001260 HAJIME.
001270 DISPLAY HAJIMEDSP WITH BYPASS.
001280 MOVE 0010 TO TIMER.
001290 CALL "CBLTIMER" USING TIMER.
001300 OPEN OUTPUT LP-F.
001310*
001320 OWARI.
001330 DISPLAY HAJIMEDSP2 WITH BYPASS.
001340 CALL "CBLTIMER" USING TIMER.
001350 IF FUNCTION-KEY = ""FF"" OR ""00"" GO TO OWARI.
001360 CLOSE LP-F.
001370 STOP RUN.
|
| ¢£¢¥¢§
|
1 |
µì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¤½¤Î£µ¡Ë |
|
¹¾¿ÜÀð 2003-10-26 13:23:56
[ÊÖ¿®] [ÊÔ½¸]
-------------------------------------------------------------------------------------------
¤½¤Î£µ¡Ë°õºþ¥¹¥×¡¼¥ë¤Î»ØÄê½ÐÍè¤Ê¤¤¥×¥í¥°¥é¥à¤Î°õºþ¤ò¥¹¥×¡¼¥ë¤¹¤ëÊýË¡¡£
-------------------------------------------------------------------------------------------
¡ô£Ì£Â£ÍÅù¡¢°õºþ¤Ç¥¹¥×¡¼¥ë¤ò»ØÄê¤Ç¤¤Ê¤¤¥×¥í¥°¥é¥à¤Ç¥¹¥×¡¼¥ë¤ò¤¹¤ë¾ì¹ç¤ËÍøÍѤ·¤Þ¤¹¡£
ÊýË¡¤Ï¡¢¥×¥ê¥ó¥¿¡¼¥Ó¥¸¡¼¥¹¥×¡¼¥ë¤¬£Ó£Ç¤Ç¤µ¤ì¤Æ¤¤¤ëÁ°Äó¤Ç¤¹¡£
¤Þ¤º¡¢Î¢²èÌ̤ǣУңΣ¹£¹£¹¤ò£Ï£Ð£Å£Î¤·¤Ã¤Ñ¤Ê¤·¤Ë¤·¤Æ¤ª¤¤¤Æ¡¢É½²èÌ̤ǣУңΣ¹£¹¤Ë°õºþ¤·¤Æ¤Ç¼Â¹Ô¤¹¤ì¤Ð¥×¥ê¥ó¥¿¡¼¥Ó¥¸¡¼¤È¤Ê¤ê¤Þ¤¹¡£
¤½¤Î»þ¤Ë¼«Æ°Ëô¤Ï¼êÆ°¡Ê£Ó£Ç¤ÎÀßÄê¤Ë¤è¤ë¡Ë¤Ç¥¹¥×¡¼¥ë¤¹¤ì¤Ð²Äǽ¤È¤Ê¤ê¤Þ¤¹¡£
-------------------------------------------------------------------------------------------
¡Ê¥³¥á¥ó¥È¡Ë¤Ê¤¼¡ô£Ì£Â£Í¤ò¥¹¥×¡¼¥ë¤¹¤ëɬÍפ¬Í¤ë¤«¤ÏÊ̹à¤ÇÀâÌÀ¤·¤Þ¤¹¡£
¸å¤Ç¾å¤²¤Æ¤ª¤¤Þ¤¹¤Î¤Ç¡¢¡Ö£Ã£Ï£Â£Ï£Ì¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à£±¡×¤ò»²¹Í¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
|