Google
¥ª¥Õ¥³¥óÎý½¬Ä¢Æâ¤ò¸¡º÷
¥¤¥ó¥¿¡¼¥Í¥Ã¥ÈÁ´ÂΤò¸¡º÷

NEC¥ª¥Õ¥³¥ó´ØÏ¢
¥ª¥Õ¥³¥ó°ìÈÌ
¾ðÊó

£Î£Å£Ã¤Î¥ª¥Õ¥³¥ó¾ðÊó·Ç¼¨ÈġʥΥ¦¥Ï¥¦·Ï¡Ë

£Î£Å£Ã¤Î¥ª¥Õ¥³¥ó¤ò³èÍѤ¹¤ë¤¿¤á¤Î¥Î¥¦¥Ï¥¦¤òÏ䷹礦¤¿¤á¤Î·Ç¼¨ÈĤǤ¹¡£

1: ¡ô£Î£Æ£Ã£Î£Ö¤ÎÀ©¸Â¡©(2)   2: LLNIP¤Î°õºþ(3)   3: ¡ô£Â£Ë£Õ£Ð¤Ç£õ£ó£â¤ËľÀܽÐÎϤǤ­¤Þ¤¹¤«¡©(3)   4: A¡ÝVX¤Î¥×¥ê¥ó¥¿ÀßÄêÊýË¡¤¬Ê¬¤«¤ê¤Þ¤»¤ó(2)   5: £Ï£Ó¤Î£Ã£Ä¤Ë¤Ä¤¤¤Æ(4)   6: ½é´ü¥×¥í¥°¥é¥à¤Ë´Ø¤¹¤ë¼ÁÌä(4)   7: ¥Ü¥ê¥å¡¼¥àMAP¤Ë¤¢¤ë¤¬¡¢#ABC¤À¤È¥Õ¥¡¥¤¥ë¤¬¤ß¤Ä¤«¤é¤Ê¤¤(2)   8: SYS@DDF¤ÎÉüµì(2)   9: ¥¹¥×¡¼¥ë¥Ç¡¼¥¿¤Î¼è¤ê½Ð¤·ÊýË¡¤Ë¤Ä¤¤¤Æ¤Î¼ÁÌä(10)   10: SG½èÍý¤Ë¤Æ¡¢PAGW¼Â¹ÔÃæ¤Ë¥¨¥é¡¼¤¬È¯À¸¤·¤Þ¤·¤¿(9)   11: ¥½¡¼¥¹¥é¥¤¥Ö¥é¥ê¤Î°ì³ç¸¡º÷(9)   12: Ä¢É½¤ò£Ð£Ä£Æ°õºþ¤¹¤ëÊýË¡¡ÊPRINTVEW¤ò»È¤ï¤º¡Ë¤Ï¤¢¤ê¤Þ¤¹¤«(2)   13: SKYLINK¤Ç¥Æ¡¼¥Ö¥ë¤ò¸¡º÷¤¹¤ë¤È¥¨¥é¡¼¤È¤Ê¤ë(1)   14: ¥ª¥Õ¥³¥ó(3)   15: ´ÉÍý¿Í¤µ¤ó¤Ø¤Î¼ÁÌä¤Ç¤¹(3)   16: #LTEDIT¤Ç¥Õ¥©¡¼¥à¤Î¥½¡¼¥¹¤ò»ØÄꤹ¤ë¤È¥á¥ó¥Ð¡¼¤¬¸«¤Ä¤«¤é¤Ê¤¤¤Èɽ¼¨¤µ¤ì¤ë(4)   17: UPS̵¤·¤Î¹½À®¤Ø¤Î¥·¥¹¥Æ¥à°Ü¹Ô(12)   18: #NFCNV ¤Ç¥Ñ¥½¥³¥ó¤ØžÁ÷¤¹¤ë¤È¡¢¥Ç¡¼¥¿¤ÎÀèƬ¤Ë¶õÇò¤¬¤Ä¤¤¤Æ¤·¤Þ¤¦(3)   19: CBL85»ñ»º¤ò£Ï£Ð£Å£Î£ã£ï£â£ï£ì¤Ë°Ü¹Ô¤¹¤ë(3)   20: COBOL¥½¡¼¥¹¤«¤é»ÅÍͽñ¤Î¶ÀºîÀ®¥Ä¡¼¥ë(3)   21: PrintBridge¤Î»È¤¤Êý(8)   22: WS¥¨¥ß¥å¥ì¡¼¥¿¤òWindows7Pro32bitSP1PC¤Ë¥¤¥ó¥¹¥È¡¼¥ë½ÐÍè¤Ê¤¯¤Ê¤Ã¤¿(1)   23: ´Á»ú¤ÈANK¤Î½Ì¾®°õ»ú¤Ë¤Ä¤¤¤Æ(3)   24: #NFCNV¤ÇÀèƬ¤Î¥«¥é¥à¤¬£°¤Ë¤Ê¤ë¤Î¤Ï¡©(2)   25: N7884-14B¤È¸ß´¹À­¤¬¤¢¤ë¥×¥ê¥ó¥¿¤Ë¤Ä¤¤¤Æ(2)   26: É½¼¨¡Ê°õºþ¡Ë¤òǤ°Õ¤Î½çÈ֤ˤ·¤¿¤¤¤Î¤Ç¤¹¤¬¡¦¡¦¡¦(6)   27: JS¤Þ¤¿¤ÏPM¤Î¥³¡¼¥ë¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹(3)   28: ¥Ú¡¼¥¸¥×¥ê¥ó¥¿¡¼¤Î£Ó£ÇÊýË¡(2)   29: SMART¤Î²èÌÌÌÀºÙ¹àÌܤ¬½ª¤ï¤ì¤Ê¤¤(8)   30: £Á£Ö£Ø¤Ç¤Î³°»ú(ô¢¡Ë¤Ë¤Ä¤¤¤Æ(6)  

 ¿·µ¬Åê¹Æ | ¥¹¥ì¥Ã¥Éɽ¼¨ | ¥Ä¥ê¡¼É½¼¨ | Åê¹Æ½çɽ¼¨ | i-mode | ¥È¥Ã¥× 
« 1 ... 93 94 95 (96) 97 98 99 ... 108 »

Re:³µÍץޥ˥奢¥ë¤Î·¿È֤ϡ©
¹¾¿ÜÀð 2004-10-2 17:40:00  [ÊÖ¿®] [ÊÔ½¸]

> ½é¤á¤Þ¤·¤Æ¡£

> Æþ¼Ò¸å¡¢£Á¡Ý£Ö£Ø°ì¶Ú¤Î¤³¤ä¤È¿½¤·¤Þ¤¹¡£

> ¤³¤Î¤è¤¦¤Ê¥µ¥¤¥È¤¬Í­¤Ã¤¿»ö¤òÂçÊÑ´ò¤·¤¯´¶¤¸¤Æ¤¤¤Þ¤¹¡£

½é¤á¤Þ¤·¤Æ¹¾¿ÜÀð¤È¿½¤·¤Þ¤¹¡£

»ä¤â¤³¤Î¥µ¥¤¥È¤Ë´¶·ã¤·»þ¡¹¡¢Î©¤Á´ó¤ë¼Ô¤Ç¤¹¡£



> ¤Ç¡¢ÁᮤǤ¹¤¬¡¢¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£

> ¥¯¥é¥¤¥¢¥ó¥È£Á£Ðµ¯Æ°µ¡Ç½¤ÎÀâÌÀ¤Ë¡¢

> >¾ÜºÙ¤Ï¡¢£Î£Å£Ã¤«¤é½Ð¤Æ¤¤¤ë¡Ö³µÍץޥ˥奢¥ë¡×¤Î¡Ö£×£Ó¥¨¥ß¥å¥ì¡¼¥¿¤Î¥¯¥é¥¤¥¢¥ó¥È£Á£Ðµ¯Æ°µ¡Ç½¤Ë¤Ä¤¤¤Æ¡×¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£

> ¤È¤¢¤ê¤Þ¤¹¤¬¡¢¥Þ¥Ë¥å¥¢¥ë¤ÎÇØɽ»æ¤Ë¤¢¤ë·¿ÈÖ¤ò¶µ¤¨¤Æ夭¤¿¤¤¤Î¤Ç¤¹¤¬¡£¾Ü¤·¤¯ÃΤꤿ¤¤¤Î¤Ç¤¹¤¬¡¢¥Þ¥Ë¥å¥¢¥ë¤¬¸«¤Ä¤«¤ê¤Þ¤»¤ó¡¥¡¥¡¥

> ¤Á¤Ê¤ß¤ËÅöÊý¤Ç¤Î¡¢Æ°ºî¤Ï£Ï£Ë¤Ç¤·¤¿¡ª

> µ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£

¤³¤Î¥Þ¥Ë¥å¥¢¥ë¤ÏºÇ½é¤Ï»ä¤â̤äƤ·¤Þ¤¤¤Þ¤·¤¿¡£

¤Ê¤¼¤Ê¤é¡¢£¶£°£°¥·¥ê¡¼¥º¤Ï´ðËÜŪ¤Ë¤Ï¥Þ¥Ë¥å¥¢¥ë¥ì¥¹¤Ç¡¢£Ã£Ä¤¬ÅºÉÕ¤µ¤ì¤ë¤À¤±¤Ç¤¹¡£»æ¥Þ¥Ë¥å¥¢¥ë¤¬Í­¤ë¤Î¤Ï£Ð£Ã¡¿£×£Ó¡Ý£Å£Í£Ì°Ì¤«¤Ê¡©

¤·¤«¤·£±ºý¡Ü£²ºý¤À¤±¤Ï¥Ï¡¼¥É¹ØÆþ»þ¤ËźÉÕ¤µ¤ì¤Þ¤¹¡££±ºý¤Ï¥Ï¡¼¥É¤ÎÀâÌÀ½ñ¤ÇÇò¤Îɽ»æ¤Ç¤¹¡£¤¢¤È£²ºý¤ÏÜôÇò¤Îɽ»æ¤Ç¡Ö¥·¥¹¥Æ¥àÀßÄêÊѹ¹¤Î¼ê°ú¤­¡×¤È¤³¤Î¡Ö³µÍץޥ˥奢¥ë¡×¤Ç¤¹¡£

Ĺ¡¹½ñ¤­¤Þ¤·¤¿¤¬¡¢¥Ï¡¼¥É¥¦¥§¥¢Æ³Æþ»þ¤ÎźÉÕÉʤò¤ªÃµ¤·¤¯¤À¤µ¤¤¡£

⤷¡¢£Á¡Ý£Ö£Ø£´¡¢£Ò£´¡¥£°°Ê¹ß¤·¤«¤³¤Î»ö¤Ï½ñ¤¤¤Æ¤¢¤ê¤Þ¤»¤ó¡£

¤È¤¤¤¦»ö¤Ç¤¹¡£¼ê¸µ¤Ë¤¤¤Þ̵¤¤¤Î¤Ç¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¤¬·¿ÈÖ¤ÏÉÔÌÀ¤Ç¤¹¡£
³µÍץޥ˥奢¥ë¤Î·¿È֤ϡ©
¤³¤ä 2004-10-1 10:36:00  [ÊÖ¿®] [ÊÔ½¸]

½é¤á¤Þ¤·¤Æ¡£

Æþ¼Ò¸å¡¢£Á¡Ý£Ö£Ø°ì¶Ú¤Î¤³¤ä¤È¿½¤·¤Þ¤¹¡£
¤³¤Î¤è¤¦¤Ê¥µ¥¤¥È¤¬Í­¤Ã¤¿»ö¤òÂçÊÑ´ò¤·¤¯´¶¤¸¤Æ¤¤¤Þ¤¹¡£
¤Ç¡¢ÁᮤǤ¹¤¬¡¢¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£
¥¯¥é¥¤¥¢¥ó¥È£Á£Ðµ¯Æ°µ¡Ç½¤ÎÀâÌÀ¤Ë¡¢

>¾ÜºÙ¤Ï¡¢£Î£Å£Ã¤«¤é½Ð¤Æ¤¤¤ë¡Ö³µÍץޥ˥奢¥ë¡×¤Î¡Ö£×£Ó¥¨¥ß¥å¥ì¡¼¥¿¤Î¥¯¥é¥¤¥¢¥ó¥È£Á£Ðµ¯Æ°µ¡Ç½¤Ë¤Ä¤¤¤Æ¡×¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£

¤È¤¢¤ê¤Þ¤¹¤¬¡¢¥Þ¥Ë¥å¥¢¥ë¤ÎÇØɽ»æ¤Ë¤¢¤ë·¿ÈÖ¤ò¶µ¤¨¤Æ夭¤¿¤¤¤Î¤Ç¤¹¤¬¡£¾Ü¤·¤¯ÃΤꤿ¤¤¤Î¤Ç¤¹¤¬¡¢¥Þ¥Ë¥å¥¢¥ë¤¬¸«¤Ä¤«¤ê¤Þ¤»¤ó¡¥¡¥¡¥
¤Á¤Ê¤ß¤ËÅöÊý¤Ç¤Î¡¢Æ°ºî¤Ï£Ï£Ë¤Ç¤·¤¿¡ª

µ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
Re:A-VX¤ò¥Þ¥¹¥¿¡¼¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¦¡¦¡¦
¥¿¡¼¥é¥ä¥ó 2004-9-27 20:19:00  [ÊÖ¿®] [ÊÔ½¸]

> ¤ä¤Þ¤È¿½¤·¤Þ¤¹¡£½é¤á¤Þ¤·¤Æ¡£

¤Ï¤¸¤á¤Þ¤·¤Æ¡£

>
> º£¹¹¤È¤¤¤¦´¶¤¸¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢¤³¤ì¤«¤éA-VX¤ÎÊÙ¶¯¤ò¤·¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£¤Ç¤¹¤¬¡¢¹Ö½¬²ñ¤Ï¤â¤¦¸½ºß¹Ô¤ï¤ì¤Æ¤¤¤Ê¤¤¤è¤¦¤Ç¤¹¤·¡¢¼«½¬ÍѤΥƥ­¥¹¥È¤âÈÎÇ䤵¤ì¤Æ¤¤¤Ê¤¤¤è¤¦¤Ç¤¹¡£
>


¤¿¤·¤«¤ËºÇ¶á¤Ï¹Ö½¬²ñ¤¬¤¢¤ë¤È¤¤¤¦ÏäÏʹ¤«¤Ê¤¤¤Ç¤¹¤Í¡£
¤·¤«¤·°ÊÁ°Ä´¤Ù¤¿¸Â¤ê¤Ç¤Ï¡¢Äê´üŪ¤Ë¹Ö½¬²ñ¤¬³«¤«¤ì¤Æ¤Ï¤¤¤Ê¤¤¤è¤¦¤Ç¤¹¤¬¡¢º£¤Ç¤âÍ×˾¤¬¤¢¤ë¤È¸ÄÊ̤˹ֽ¬²ñ¤ò³«¤¯¤è¤¦¤Ê»ÅÁȤߤˤϤʤäƤ¤¤ë¤è¤¦¤Ç¤¹¡£

¡Ö¤è¤¦¤Ç¤¹¡×¤È¤¤¤¦¤Î¤Ï¡¢¡Ö¸ÄÊ̤ˡפȤ¤¤¦°Ù¤«¡¢¥Æ¥­¥¹¥È¤Ë¥¦¥óËü±ß¡¢¹Ö½¬²ñ¡Ê¿ô»þ´Ö¡Ë¤¬¥¦¥ó½½Ëü±ß¤ÈÈó¾ï¤Ë¤ª¹â¤¯¡¢ÀµÄ¾¹Ö½¬²ñ¤ò¼õ¤±¤ë¤è¤¦¤Ê¤È¤³¤í¤¬¤¢¤ë¤Î¤«¤É¤¦¤«µ¿Ìä¤À¤«¤é¤Ç¤¹¡£


º£¤«¤éÊÙ¶¯¤È¤¤¤¦¤³¤È¤Ë¤Ê¤ë¤È¡¢ÉÕ°¤Î¥Þ¥Ë¥å¥¢¥ë¤Ê¤É¤ò¸«¤ë¤·¤«¤Ê¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¡£

¤ä¤Ï¤ê狼¾Ü¤·¤¤¿Í¤Ëʹ¤¯¤·¤«¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©

ÈÎÇ䏤¬¤Í¡¼
£Â£Ì£Õ£Å£Ì£É£Ï£Î 2004-9-27 11:26:00  [ÊÖ¿®] [ÊÔ½¸]

¥ì¥¹¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹

ÈÎÇ䏤ˤÏÌ䤤¹ç¤ï¤»¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢ÆüΩ¤È¤Î³Î¼¹¤¬¤¢¤ë¤ß¤¿¤¤¤Ç
ÀÕǤ¤¢¤ë²óÅú¤¬¤Ç¤Æ¤­¤Þ¤»¤ó

ËÜ·ï¤Ë¤Ï´Ø·¸¤Ê¤¤¤Ç¤¹¤¬£Î£Å£Ã¤ÇôÅö¤ò·è¤á¤Æ¤¤¤ë¤ß¤¿¤Ç¾¤ÎÈÎÇäŹ¤Ë¥·¥¹¥Æ¥à¤ÎÊݼé¤òÍê¤à¤ÈÃǤé¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤³¤ÎÊդΥ·¥¹¥Æ¥à¤Ï²þÁ±¤·¤Æ¤Û¤·¤¤¤¾¡ä¡äNEC

¤¤¤í¤¤¤íÄ´¤Ù¤¿¤È¤³¤í¡¡KEIS¡¡¡á¡¡JIS¡¡+¡¡HEX"8080"¡¡¤Ç¤¤¤±¤½¤¦¤Ç¤¹

¼ÂºÝ¥³¥ó¥Ð¡¼¥È¥¹¥¿¡¼¤ÇJIS¤«¤éKEIS¤ËÊÑ´¹¤·¤¿¤é¤½¤Î¤è¤¦¤Ë¤Ê¤Ã¤Æ¤Þ¤·¤¿

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

Re:A-VX¤ò¥Þ¥¹¥¿¡¼¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¦¡¦¡¦
¹¾¿ÜÀð 2004-9-25 15:59:00  [ÊÖ¿®] [ÊÔ½¸]

> ¤ä¤Þ¤È¿½¤·¤Þ¤¹¡£½é¤á¤Þ¤·¤Æ¡£

----------------------------------------------------------------------

¹¾¿ÜÀð¤È¤â¤¦¤·¤Þ¤¹¡£½é¤á¤Þ¤·¤Æ¡£



> ÁᮤǤ¹¤¬A-VX¤Ë¤Ä¤¤¤Æ¤Ê¤Î¤Ç¤¹¤¬¡¢

> º£¹¹¤È¤¤¤¦´¶¤¸¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢¤³¤ì¤«¤éA-VX¤ÎÊÙ¶¯¤ò¤·¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£¤Ç¤¹¤¬¡¢¹Ö½¬²ñ¤Ï¤â¤¦¸½ºß¹Ô¤ï¤ì¤Æ¤¤¤Ê¤¤¤è¤¦¤Ç¤¹¤·¡¢¼«½¬ÍѤΥƥ­¥¹¥È¤âÈÎÇ䤵¤ì¤Æ¤¤¤Ê¤¤¤è¤¦¤Ç¤¹¡£

> ¤É¤¦¤·¤¿¤éÎɤ¤¤Ç¤·¤ç¤¦¤«¡£

----------------------------------------------------------------------

¶Ä¤ëÄ̤ê¥á¡¼¥«¡¼¡Ê£Î£Å£Ã¡Ë¤Î»ÑÀª¤¬¤½¤¦¤À¤ÈÂçÊÑÉ԰¤ˤʤê¤Þ¤¹¤Í¡£

ÂçÊѼºÎé¤Ç¤¹¤¬¡¢ÈÎÇ䏤ˤ´ÁêÃ̤µ¤ì¤Þ¤·¤¿¤«¡©¤½¤Î²óÅú¤ÏÇ¡²¿¤Ç¤·¤¿¤«¡©

¶ñÂÎŪ¤Ë¤Ï¡¢¡ÖÅÌÄïÀ©ÅÙŪ¡×¤ËÈÎÇ䏤ÎÎɤ¯ÃΤäƤ¤¤ë£Ó£Å¤«¤é¶µ¤¨¤Æ¤â¤é¤¦

¤·¤«¤¢¤ê¤Þ¤»¤ó¡£¥ª¥Õ¥³¥ó¤ÏÅÁÅý·Ýǽ¤äÅÁÅý¹©·Ý¤ò¼é¤ë¤è¤¦¤Ê¤â¤Î¤ËÀ®¤ê²¼¤¬¤Ã

¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£¤¿¤ÀµÕÀâŪ¤Ë¹Í¤¨¤ì¤Ð¿Í¤Ë»Ù¤¨¤é¤ì¤¿µæ¶Ë¤Î¥»¥­¥å¥ê¥Æ¥£ÊÝ

¸î¤«¤â¤·¤ì¤Þ¤»¤ó¡£¤Þ¤¿¡¢¤³¤ì¤¬¸½¾õ¤ÎºÇÂç¤Î¥á¥ê¥Ã¥È¤È»ä¤Ï»×¤¤¤Þ¤¹¡£

¾ì¹ç¤Ë¤è¤Ã¤Æ¤ÏÈÎÇäŹ¤Ë±ì¤¿¤¬¤é¤ì¤ë¤Î¤Ç¡¢ÈñÍѤòÍ׵ᤵ¤ì¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¡£

µÕ¤Ë¤½¤Î»ö¤Ç¤½¤ÎÈÎÇ䏤λÑÀª¤ò¸«¤¿¤éÇ¡²¿¤Ç¤·¤ç¤¦¤«¡©

²¾¤ËÈñÍѸ«ÀѤ¬ÈÎÇ䏤«¤é½Ð¤Æ¤­¤¿¤é¶È̳¤Ç¤¹¤Î¤Ç¾å»Ê¤Ë¤´ÁêÃ̤µ¤ì¤ÆÈñÍÑÂÐ

¸ú²Ì¤ò¸¡Æ¤¤µ¤ì¤ë¤Ù¤­¤È¤â»×¤¤¤Þ¤¹¡£

¥ª¥Õ¥³¥ó¤Ï¶È̳¤Ç»ÈÍѤ¹¤ë¤â¤Î¤Ç¤¹¤Î¤Ç¶µ°éÅê»ñ¤ÏɬÍפȻפ¤¤Þ¤¹¡£

»ä¤Î»ýÏÀ¤Ç¤¹¤¬¥ª¥Õ¥³¥ó¤Ë´Ø¤ï¤é¤º¥Ñ¥½¥³¥ó¤Ç¤â¶µ°éÅê»ñ¤ÏɬÍפǤ¹¡£ÍøÍѼÔ

¤ÏÁàºîÊýË¡¤Î½ÏÃΤÀ¤±¤ÇÎɤ¤¤Î¤Ç°ìÈÌÃ챤ÎÈÏ°ÏÆâ¤ÇÃΤäƤ¤¤ì¤ÐÎɤ¤¤Î¤Ç¤·¤ç

¤¦¤¬¡¢¼ÒÆ⥷¥¹¥Æ¥à¤Î³«È¯¼Ô¡¢±¿ÍÑÊݼé¼Ô¤Ï¤½¤ì¤Ê¤ê¤ÎÃ챤ÏɬÍפȻפ¤¤Þ¤¹¡£

½¾¤Ã¤Æ¶µ°éÅê»ñ¤ÎÈñÍѤÏɬÍפȻפ¤¤Þ¤¹¡£¤½¤ì¤¬¤Ç¤­¤Ê¤±¤ì¤Ï¡¢ÀìÌç²ñ¼Ò¤Ë¥¢

¥¦¥È¥½¡¼¥·¥ó¥°¤ò¤¹¤ë¤·¤«¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£



> ¼Â¤Ïº£¡¢´ð´´¥·¥¹¥Æ¥à¤ÇA-VX¤¬²ÔÆ°¤·¤Æ¤¤¤Þ¤·¤Æ¡¢¤â¤¦¥µ¥Ý¡¼¥È¤¬Ìµ¤¯¤Ê¤Ã¤Æ¤¤¤¯Êý¸þ¤Ê¤é¡¢¤»¤á¤Æº£Æ°¤¤¤Æ¤¤¤ëCOBOL¤äJCL¤Î¥½¡¼¥¹¤ò¸«¤Æ¡Ê½ÐÍè¤ì¤ÐWindows¤Þ¤¿¤ÏFreeBSD¤Ë¼è¤ê½Ð¤·¤¿¤¤¡Ë¤ß¤¿¤¤¤È»×¤¤¤Þ¤¹¤¬¤³¤Î¾ì¹ç¤É¤¦¤¹¤ì¤Ð²Äǽ¤Ç¤·¤ç¤¦¤«¡©

----------------------------------------------------------------------

¾åµ­¤Ï¤³¤Î¥µ¥¤¥È¤Î¤¢¤Á¤³¤Á¸«¤Æ¤¤¤¿¤À¤±¤ì¤Ð²ò¤«¤ë¤È»×¤¤¤Þ¤¹¡£

Æäˡֵ»½Ñ¥á¥â¢ª¥æ¡¼¥Æ¥£¥ê¥Æ¥£¡¼¤Î»È¤¤Êý¡×¤ò¸«¤Æ¤ß¤¿¤é¤¤¤«¤¬¤Ç¤¹¤«¡©

¤Þ¤¿µ¡¼ï¤ä£Ï£Ó¤Î¥Ð¡¼¥¸¥ç¥ó¤¬²ò¤«¤ê¤Þ¤»¤ó¤¬¡¢£Á¡Ý£Ö£Ø£´£Ò£²¡¥£°°Ê¹ß¤Ç¤¢

¤ì¤Ð¡¢£Æ£é£ì£ö£å£ò£ô¤ÎºÇ¿·µ¡Ç½¤Ç£×£é£î£ä£ï£÷£ó¤Î¥¨¥Ç¥£¥¿¡¼¤¬»È¤¨¤ë¤È»×

¤¤¤Þ¤¹¡£



http://www.ace.comp.nec.co.jp/filvert/verup.html

KEIS¥³¡¼¥É¤«¤éJIPS¤ÎÊÑ´¹
¹¾¿ÜÀð 2004-9-25 10:27:00  [ÊÖ¿®] [ÊÔ½¸]

¤³¤ó¤Ë¤Á¤Ï¹¾¿ÜÀð¤È¿½¤·¤Þ¤¹¡£

ÂçÊѼºÎé¤Ç¤¹¤¬¡¢ÈÎÇ䏤ˤ´ÁêÃ̤µ¤ì¤Þ¤·¤¿¤«¡©
ÀΡ¢¥á¡¼¥«¡¼¡Ê£Î£Å£Ã¡Ë¤Ï¾¼Ò¥ª¥Õ¥³¥ó¤Î¥ê¥×¥ì¡¼¥¹Âбþ¤È¤·¤Æ¥³¡¼¥ÉÊÑ´¹¤Î¥×¥í
¥°¥é¥à¤òÈÎÇ䏤ËÄ󶡤·¤Æ¤¤¤¿¤è¤¦¤Êµ¤¤â¤·¤Þ¤¹¡£
¤Þ¤¿¡¢¤½¤Î¸å¡¢»÷¤¿¤è¤¦¤ÊÍ­½þ¥½¥Õ¥È¤âÄ󶡤·¤Æ¤¤¤ë¤È»×¤¤¤Þ¤¹¡£
¡Ê£É£Â£Í¡¢ÉÙ»ÎÄ̤À¤±¤«¤âÆüΩ¤Ï¡©¡©¡©¡©¡Ë
¤¿¤À¡¢Í­½þ¥½¥Õ¥È¤ÏÈÎÇäÄä»ß¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¡£
¥ê¥×¥ì¡¼¥¹ÍÑ¤Î¥×¥í¥°¥é¥à¤â¥æ¡¼¥¶¡¼¤Ë¤Ï¸ø³«¤Ï¤·¤Æ¤Ê¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¡£

°ÊÁ°¡¢¥³¡¼¥ÉÊÑ´¹¤ÎËܤâ»ý¤Ã¤Æ¤¤¤¿¤Î¤Ç¤¹¤¬¡¢Ã¯¤«¤ËÂߤ·¤¿¤Þ¤Þ¤«¡¢²¿½è¤«¤Ë¤Ê¤¯
¤·¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

£Ë£Å£É£Ó¤Î¥³¡¼¥ÉÂηϤâÍ­¤Ã¤¿Íͤʵ­²±¤Ç¤¹¡£
´ðËÜŪ¤Ë¤Ï£Ê£É£Ó¥³¡¼¥ÉËô¤Ï¶èÅÀ¥³¡¼¥É¤ËÂФ·¤ÆÆüËܸì£Ï£Î¡¢£Ï£Æ£Æ¥³¡¼¥É¤òÉÕ¤±
¤Æ£±¥Ð¥¤¥ÈÌܤȣ²¥Ð¥¤¥ÈÌܤò²¿¤é¤«¤Îµ¬Â§¤Ç¥·¥Õ¥È¤·¤Æ¤¤¤¿¤Î¤Ç¤Ï¤È»×¤¤¤Þ¤¹¡£
¤¢¤¯¤Þ¤Ç¤âµ­²±¤Ç¤¹¡£¡Ê»ä¤Ï¥¢¥Ð¥¦¥È£Ó£Å¡õ³õ³ª£Ó£Å¡Ê¥·¡¼¥é¥«¥ó¥¹£Ó£Å¡Ë¤Ç¤¹¡£¡Ë

ÆüΩ¦¤Ç£Ê£É£Ó¥³¡¼¥É¤ËÊÑ´¹¤Ç¤­¤ì¤Ð¡¢¡ô£Ë£Æ£Ã£Î£Ö¤òÍøÍѤǤ­¤ë¤È»×¤¤¤Þ¤¹¡£


²¼µ­¤ÏÀΡ¹ºî¤Ã¤¿£Ç£Ï£Ô£ÏÍ­¤êÍ­¤ê¤ÎÆâÉô¥³¡¼¥É¤È£Ó£É£Æ£É£Ô£Ê£É£Ó¤ÎÊÑ´¹¥µ¥Ö¥ë¡¼
¥Á¥ó¤Ç¤¹¡£

»²¹Í¤Ë¤Ê¤ì¤Ð¤ÈźÉÕ¤·¤Þ¤·¤¿¡£

---------------------------------------------------------------------------

¡¡¤³¤ì¤Ï¡¢S3100A ¥â¥Ç¥ë¤Î #PCCNV ¤Ç MSDOS¡¡¥Æ¥­¥¹¥È¥Õ¥¡¥¤¥ë¤òÊÑ´¹¤·¤¿¤È¤­Åö
»þ¤Î #PCCNV ¤Î¥Ð¡¼¥¸¥ç¥ó¤Ç¤Ï 1 ¥Ð¥¤¥È¡¢2 ¥Ð¥¤¥È¤Îº®ºß¤Î¥Õ¥£¡¼¥ë¥É¤ÏÊÑ´¹½ÐÍè
¤Ê¤¤¤Î¤Ç COBOL85 ¤ÇºîÀ®¤·¤¿¤â¤Î¤Ç¤¹¡£

¡¡ÊýË¡¤Ï¤Á¤ç¤Ã¤ÈÊѤǤ¹¤¬ #PCCNV ¤ÇÁ´¤Æ 1 ¥Ð¥¤¥È¤Î ANK¡¡ÊÑ´¹¤ò¤·¤¿¥Õ¥¡¥¤¥ë¤ò
ÆþÎÏ¥Õ¥¡¥¤¥ë¤È¤·ºÆÅÙ¡¡1 ¥Ð¥¤¥È¤Ç EBCDIC ¤«¤é JIS8 ¤ËÊÑ´¹¤·¡¢1 ¥Ð¥¤¥È·Ï¤«¡¢2
¥Ð¥¤¥È·Ï¤«¤ò¥Á¥§¥Ã¥¯¤· 2 ¥Ð¥¤¥È·Ï¤ÏÆâÉô´Á»ú¥³¡¼¥É (J) ¤ËÊÑ´¹¤·¤Þ¤¹¡£ ºÇ¸å¤Ë
¤Þ¤¿Á´¤Æ¡¢ 1 ¥Ð¥¤¥È¤È¤·¤Æ¡¢JIS8 ¤«¤é¡¢EBCDIC ¤ËÊÑ´¹¤·¤Æ¡¢½ªÎ»¤·¤Þ¤¹¡£ÊÑ´¹Éô
ʬ¤Ï¥µ¥Ö¥ë¡¼¥Á¥ó¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤Ç¡¢¥Õ¥£¡¼¥ë¥Éñ°Ì¤ÎÊÑ´¹¤â²Äǽ¤Ç¤¹¡£

¡¡¤Þ¤¿¡¢NEC ÆâÉô¤«¤é¡¢SIFTJIS ¤â¥µ¥Ö¥ë¡¼¥Á¥ó¤Ïºî¤Ã¤Æ¤¢¤ê¤Þ¤¹¡£


000010 IDENTIFICATION¡¡DIVISION.
000020*******************************************************************
000030*¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ *
000040*¡¡¡¡SJIS TO NEC(INTERNAL(E))¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡<< SJ2NEC >>¡¡¡¡ *
000050*¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡UPDATE : 93/11/25¡¡¡¡¡¡*
000060*******************************************************************
000070 PROGRAM-ID.¡¡¡¡¡¡¡¡ SJ2NEC.
000080 ENVIRONMENT¡¡¡¡¡¡¡¡ DIVISION.
000090 CONFIGURATION¡¡¡¡¡¡ SECTION.
000100 SOURCE-COMPUTER.¡¡¡¡NEC.
000110 OBJECT-COMPUTER.¡¡¡¡NEC.
000120 INPUT-OUTPUT¡¡¡¡¡¡¡¡SECTION.
000130 FILE-CONTROL.
000140¡¡¡¡ SELECT¡¡CIFNEC¡¡ASSIGN¡¡TO¡¡¡¡¡¡CIFNEC-MSD.
000150¡¡¡¡ SELECT¡¡CIFSJIS ASSIGN¡¡TO¡¡¡¡¡¡CIFSJIS-MSD.
000160*
000170 DATA¡¡¡¡DIVISION.
000180 FILE¡¡¡¡SECTION.
000190*
000200 FD¡¡CIFNEC¡¡¡¡¡¡LABEL¡¡RECORD¡¡¡¡ IS¡¡ STANDARD
000210¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ BLOCK¡¡CONTAINS¡¡ 16¡¡ RECORDS
000220¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE¡¡OF¡¡IDENTIFICATION¡¡¡¡¡¡"CIFNEC".
000230 01¡¡CIFNEC-REC¡¡¡¡ PIC¡¡¡¡X(80).
000240*
000250 FD¡¡CIFSJIS¡¡¡¡ LABEL¡¡RECORD¡¡¡¡ IS¡¡ STANDARD
000260¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ BLOCK¡¡CONTAINS¡¡ 16¡¡ RECORDS
000270¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE¡¡OF¡¡IDENTIFICATION¡¡¡¡¡¡"CIFSJIS".
000280 01¡¡CIFSJIS-REC¡¡¡¡ PIC¡¡¡¡X(80).
000290*
000300*
000310**************************************************************
000320 WORKING-STORAGE SECTION.
000330**************************************************************
000340 01¡¡WORK-AREA.
000350¡¡¡¡ 03¡¡END-FLG¡¡¡¡ PIC X(03)¡¡VALUE SPACE.
000360 01¡¡KASAN¡¡¡¡¡¡¡¡¡¡ PIC 9(5).
000370 01¡¡KASAN2¡¡¡¡¡¡¡¡¡¡PIC 9(5).
000380 01¡¡EVEN¡¡¡¡¡¡¡¡¡¡¡¡PIC 9(5).
000390 01¡¡DAI¡¡¡¡¡¡¡¡¡¡¡¡ PIC 9(5).
000400 01¡¡CNV-AREA.
000410¡¡¡¡ 03¡¡C1¡¡¡¡¡¡¡¡¡¡PIC X(1) OCCURS 256 INDEXED BY C1-IDX.
000420 01¡¡CHKK-AREA.
000430¡¡¡¡ 03¡¡FILLER¡¡¡¡¡¡PIC X(1) VALUE LOW-VALUE.
000440¡¡¡¡ 03¡¡CHKK¡¡¡¡¡¡¡¡PIC X(1).
000450 01¡¡CHKK2-AREA REDEFINES CHKK-AREA.
000460¡¡¡¡ 03¡¡CHKK2¡¡¡¡¡¡ USAGE COMP-1.
000470 01¡¡CHKT-AREA.
000480¡¡¡¡ 03¡¡FILLER¡¡¡¡¡¡PIC X(1) VALUE LOW-VALUE.
000490¡¡¡¡ 03¡¡CHKT¡¡¡¡¡¡¡¡PIC X(1).
000500 01¡¡CHKT2-AREA REDEFINES CHKT-AREA.
000510¡¡¡¡ 03¡¡CHKT2¡¡¡¡¡¡ USAGE COMP-1.
000520 01¡¡CNV-NUMB¡¡¡¡¡¡¡¡PIC 9(4).
000530 01¡¡EJ-TBL.
000540¡¡¡¡ 03 FILLER PIC X(16)
000550¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""000102039C09867F978D8E0B0C0D0E0F"".
000560¡¡¡¡ 03 FILLER PIC X(16)
000570¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""101112139D0A08871819928F1C1D1E1F"".
000580¡¡¡¡ 03 FILLER PIC X(16)
000590¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""808182838485171B88898A8B8C050607"".
000600¡¡¡¡ 03 FILLER PIC X(16)
000610¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""909116939495960498999A9B14159E1A"".
000620¡¡¡¡ 03 FILLER PIC X(16)
000630¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""20A1A2A3A4A5A6A7A8A95B2E3C282B21"".
000640¡¡¡¡ 03 FILLER PIC X(16)
000650¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""26AAABACADAEAF61B0625D5C2A293B5E"".
000660¡¡¡¡ 03 FILLER PIC X(16)
000670¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""2D2F636465666768696A7C2C255F3E3F"".
000680¡¡¡¡ 03 FILLER PIC X(16)
000690¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""6B6C6D6E6F70717273603A2340273D22"".
000700¡¡¡¡ 03 FILLER PIC X(16)
000710¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""74B1B2B3B4B5B6B7B8B9BA75BBBCBDBE"".
000720¡¡¡¡ 03 FILLER PIC X(16)
000730¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""BFC0C1C2C3C4C5C6C7C8C97677CACBCC"".
000740¡¡¡¡ 03 FILLER PIC X(16)
000750¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""787ECDCECFD0D1D2D3D4D579D6D7D8D9"".
000760¡¡¡¡ 03 FILLER PIC X(16)
000770¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""7AA0E0E1E2E3E4E5E6E7DADBDCDDDEDF"".
000780¡¡¡¡ 03 FILLER PIC X(16)
000790¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""7B414243444546474849E8E9EAEBECED"".
000800¡¡¡¡ 03 FILLER PIC X(16)
000810¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""7D4A4B4C4D4E4F505152EEEFF0F1F2F3"".
000820¡¡¡¡ 03 FILLER PIC X(16)
000830¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""249F535455565758595AF4F5F6F7F8F9"".
000840¡¡¡¡ 03 FILLER PIC X(16)
000850¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""30313233343536373839FAFBFCFDFEFF"".
000860 01¡¡JE-TBL.
000870¡¡¡¡ 03 FILLER PIC X(16)
000880¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""00010203372D2E2F1605150B0C0D0E0F"".
000890¡¡¡¡ 03 FILLER PIC X(16)
000900¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""101112133C3D322618193F271C1D1E1F"".
000910¡¡¡¡ 03 FILLER PIC X(16)
000920¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""404F7F7BE06C507D4D5D5C4E6B604B61"".
000930¡¡¡¡ 03 FILLER PIC X(16)
000940¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F"".
000950¡¡¡¡ 03 FILLER PIC X(16)
000960¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6"".
000970¡¡¡¡ 03 FILLER PIC X(16)
000980¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""D7D8D9E2E3E4E5E6E7E8E94A5B5A5F6D"".
000990¡¡¡¡ 03 FILLER PIC X(16)
001000¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""79575962636465666768697071727374"".
001010¡¡¡¡ 03 FILLER PIC X(16)
001020¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""75767778808B9B9CA0ABB0C06AD0A107"".
001030¡¡¡¡ 03 FILLER PIC X(16)
001040¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""202122232425061728292A2B2C090A1B"".
001050¡¡¡¡ 03 FILLER PIC X(16)
001060¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""30311A333435360838393A3B04143EE1"".
001070¡¡¡¡ 03 FILLER PIC X(16)
001080¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""B1414243444546474849515253545556"".
001090¡¡¡¡ 03 FILLER PIC X(16)
001100¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""588182838485868788898A8C8D8E8F90"".
001110¡¡¡¡ 03 FILLER PIC X(16)
001120¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""9192939495969798999A9D9E9FA2A3A4"".
001130¡¡¡¡ 03 FILLER PIC X(16)
001140¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""A5A6A7A8A9AAACADAEAFBABBBCBDBEBF"".
001150¡¡¡¡ 03 FILLER PIC X(16)
001160¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""B2B3B4B5B6B7B8B9CACBCCCDCECFDADB"".
001170¡¡¡¡ 03 FILLER PIC X(16)
001180¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ VALUE ""DCDDDEDFEAEBECEDEEEFFAFBFCFDFEFF"".
001190**************************************************************
001200 PROCEDURE¡¡ DIVISION.
001210**************************************************************
001220 HAJIME.
001230¡¡¡¡ PERFORM¡¡¡¡INIT-RTN¡¡¡¡ THRU¡¡¡¡ INIT-EXT.
001240¡¡¡¡ PERFORM¡¡¡¡MAIN-RTN¡¡¡¡ THRU¡¡¡¡ MAIN-EXT
001250¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡UNTIL¡¡¡¡¡¡¡¡END-FLG¡¡=¡¡¡¡"END".
001260¡¡¡¡ PERFORM¡¡¡¡END-RTN¡¡¡¡¡¡THRU¡¡¡¡ END-EXT.
001270**************************************************************
001280*¡¡¡¡½é´ü½èÍý
001290**************************************************************
001300 INIT-RTN.
001310¡¡¡¡ OPEN¡¡¡¡INPUT¡¡ CIFSJIS.
001320¡¡¡¡ OPEN¡¡¡¡OUTPUT¡¡CIFNEC.
001330¡¡¡¡ INITIALIZE¡¡¡¡¡¡WORK-AREA.
001340 INIT-EXT.
001350¡¡¡¡ EXIT.
001360**************************************************************
001370*¡¡¡¡¼ç¡¡½èÍý
001380**************************************************************
001390 MAIN-RTN.
001400¡¡¡¡ READ CIFSJIS AT END MOVE "END" TO END-FLG
001410¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ GO TO MAIN-EXT.
001420¡¡¡¡ MOVE 80 TO CNV-NUMB.
001430¡¡¡¡ MOVE CIFSJIS-REC TO CNV-AREA.
001440¡¡¡¡ PERFORM JE-RTN THRU JE-EXT.
001450¡¡¡¡ MOVE CNV-AREA TO CIFNEC-REC.
001460¡¡¡¡ WRITE CIFNEC-REC.
001470 MAIN-EXT.
001480¡¡¡¡ EXIT.
001490**************************************************************
001500*¡¡¡¡½ªÎ»½èÍý
001510**************************************************************
001520 END-RTN.
001530¡¡¡¡ CLOSE¡¡¡¡¡¡¡¡¡¡ CIFNEC¡¡CIFSJIS.
001540¡¡¡¡ STOP RUN.
001550 END-EXT.
001560¡¡¡¡ EXIT.
001570**************************************************************
001580*¡¡¡¡NEC-INTERNAL(E) TO SIFT-JIS
001590**************************************************************
001600 EJ-RTN.
001610¡¡¡¡ CALL "CBLCODE" USING CNV-AREA CNV-NUMB EJ-TBL.
001620¡¡¡¡ SET C1-IDX TO 1.
001630 EJ1-RTN.
001640¡¡¡¡ MOVE ZERO¡¡TO CHKK2
001650¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ CHKT2
001660¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ KASAN
001670¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ KASAN2
001680¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ EVEN
001690¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ DAI.
001700¡¡¡¡ MOVE C1(C1-IDX)¡¡¡¡ TO CHKK.
001710¡¡¡¡ IF¡¡¡¡¡¡¡¡¡¡ CHKK2 <¡¡96 GO¡¡¡¡¡¡ TO EJ3-RTN
001720¡¡¡¡¡¡ELSE IF¡¡¡¡ CHKK2 < 125 MOVE¡¡81 TO KASAN
001730¡¡¡¡¡¡ ELSE IF¡¡¡¡CHKK2 > 223 MOVE 112 TO KASAN
001740¡¡¡¡¡¡¡¡ELSE IF¡¡ CHKK2 > 159 GO¡¡¡¡¡¡ TO EJ3-RTN
001750¡¡¡¡¡¡¡¡ ELSE IF¡¡CHKK2 > 127 MOVE¡¡80 TO KASAN
001760¡¡¡¡¡¡¡¡¡¡ELSE IF CHKK2 = 126 MOVE 143 TO CHKK2
001770¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡MOVE¡¡ 1 TO EVEN
001780¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡GO¡¡¡¡¡¡ TO EJ2-RTN
001790¡¡¡¡¡¡¡¡¡¡ ELSE¡¡¡¡¡¡¡¡¡¡¡¡¡¡ GO¡¡¡¡¡¡ TO EJ3-RTN.
001800¡¡¡¡ DIVIDE 2 INTO CHKK2 GIVING CHKK2 REMAINDER EVEN.
001810¡¡¡¡ COMPUTE CHKK2 = CHKK2 + KASAN.
001820 EJ2-RTN.
001830¡¡¡¡ MOVE C1(C1-IDX + 1) TO CHKT.
001840¡¡¡¡ IF CHKT2 > 95 MOVE 1 TO DAI
001850¡¡¡¡¡¡¡¡¡¡¡¡¡¡ELSE MOVE 0 TO DAI.
001860¡¡¡¡ COMPUTE CHKT2 = CHKT2 + 31 + DAI - DAI * EVEN + 95 * EVEN.
001870¡¡¡¡ MOVE CHKK TO C1(C1-IDX).
001880¡¡¡¡ MOVE CHKT TO C1(C1-IDX + 1).
001890¡¡¡¡ SET C1-IDX UP BY 2.
001900¡¡¡¡ IF C1-IDX < CNV-NUMB GO TO EJ1-RTN.
001910¡¡¡¡ GO TO EJ4-RTN.
001920 EJ3-RTN.
001930¡¡¡¡ SET C1-IDX UP BY 1.
001940¡¡¡¡ IF C1-IDX < CNV-NUMB GO TO EJ1-RTN.
001950 EJ4-RTN.
001960¡¡¡¡ CALL "CBLCODE" USING CNV-AREA CNV-NUMB JE-TBL.
001970 EJ-EXT.
001980¡¡¡¡ EXIT.
001990**************************************************************
002000*¡¡¡¡SIFT-JIS TO NEC-INTERNAL(E)
002010**************************************************************
002020 JE-RTN.
002030¡¡¡¡ CALL "CBLCODE" USING CNV-AREA CNV-NUMB EJ-TBL.
002040¡¡¡¡ SET C1-IDX TO 1.
002050 JE1-RTN.
002060¡¡¡¡ MOVE ZERO¡¡TO CHKK2
002070¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ CHKT2
002080¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ KASAN
002090¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ KASAN2
002100¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ EVEN
002110¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ DAI.
002120¡¡¡¡ MOVE C1(C1-IDX)¡¡¡¡ TO CHKK.
002130¡¡¡¡ IF¡¡¡¡¡¡¡¡¡¡¡¡ CHKK2 <¡¡96 GO¡¡¡¡¡¡ TO JE4-RTN
002140¡¡¡¡¡¡ELSE IF¡¡¡¡¡¡ CHKK2 < 127 GO¡¡¡¡¡¡ TO JE3-RTN
002150¡¡¡¡¡¡ ELSE IF¡¡¡¡¡¡CHKK2 < 129 GO¡¡¡¡¡¡ TO JE4-RTN
002160¡¡¡¡¡¡¡¡ ELSE IF¡¡¡¡CHKK2 > 239 GO¡¡¡¡¡¡ TO JE4-RTN
002170¡¡¡¡¡¡¡¡¡¡ELSE IF¡¡ CHKK2 > 223 MOVE 112 TO KASAN
002180¡¡¡¡¡¡¡¡¡¡ ELSE IF¡¡CHKK2 > 159 GO¡¡¡¡¡¡ TO JE4-RTN
002190¡¡¡¡¡¡¡¡¡¡¡¡ELSE IF CHKK2 > 143 MOVE¡¡80 TO KASAN
002200¡¡¡¡¡¡¡¡¡¡¡¡ ELSE¡¡¡¡¡¡¡¡¡¡¡¡¡¡ MOVE¡¡81 TO KASAN
002210¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ IF CHKK2 = 143 MOVE¡¡ 1 TO DAI.
002220¡¡¡¡ MOVE C1(C1-IDX + 1) TO CHKT.
002230¡¡¡¡ IF¡¡¡¡¡¡ CHKT2 < 127 MOVE¡¡31 TO KASAN2
002240¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡MOVE¡¡ 0 TO EVEN
002250¡¡¡¡¡¡ELSE IF CHKT2 < 159 MOVE¡¡32 TO KASAN2
002260¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡MOVE¡¡ 0 TO EVEN
002270¡¡¡¡¡¡ ELSE¡¡¡¡¡¡¡¡¡¡¡¡¡¡ MOVE 126 TO KASAN2
002280¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡MOVE¡¡ 1 TO EVEN.
002290 JE2-RTN.
002300¡¡¡¡ COMPUTE CHKK2 = (CHKK2 - KASAN) * 2 + EVEN + EVEN * DAI.
002310¡¡¡¡ COMPUTE CHKT2 = CHKT2 - KASAN2.
002320¡¡¡¡ MOVE CHKK TO C1(C1-IDX).
002330¡¡¡¡ MOVE CHKT TO C1(C1-IDX + 1).
002340¡¡¡¡ SET C1-IDX UP BY 2.
002350¡¡¡¡ IF C1-IDX < CNV-NUMB GO TO JE1-RTN.
002360¡¡¡¡ GO TO JE5-RTN.
002370 JE3-RTN.
002380¡¡¡¡ COMPUTE CHKK2 = CHKK2 - 32.
002390¡¡¡¡ MOVE CHKK TO C1(C1-IDX).
002400 JE4-RTN.
002410¡¡¡¡ SET C1-IDX UP BY 1.
002420¡¡¡¡ IF C1-IDX < CNV-NUMB GO TO JE1-RTN.
002430 JE5-RTN.
002440¡¡¡¡ CALL "CBLCODE" USING CNV-AREA CNV-NUMB JE-TBL.
002450 JE-EXT.
002460¡¡¡¡ EXIT.

---------------------------------------------------------------------------

Ãí¡Ë·Ç¼¨ÈÄÂбþ¤Ç¥¹¥Ú¡¼¥¹¤ò£²¥Ð¥¤¥È¥¹¥Ú¡¼¥¹¤ËÊѹ¹¤·¤Æ¤ª¤ê¤Þ¤¹¡£
¡¡¡¡¤³¤Î¥ê¥¹¥È¤ò¤½¤Î¤Þ¤ÞÍøÍѤ¹¤ë¾ì¹ç¤Ï£²¥Ð¥¤¥È¥¹¥Ú¡¼¥¹¤ò£±¥Ð¥¤¥È¥¹¥Ú¡¼¥¹£²Ê¸
¡¡¡¡»ú¤ËÌᤷ¤Æ¤·¤Æ¤¯¤À¤µ¤¤¡£
Re:#TEDIT¤Ç¡©
¹¾¿ÜÀð 2004-9-25 9:23:00  [ÊÖ¿®] [ÊÔ½¸]

µµ¥ì¥¹¤¹¤¤¤Þ¤»¤ó¡£

¹¾¿ÜÀð¤È¿½¤·¤Þ¤¹¡£


¡ô£Ô£Å£Ä£É£Ô¤òΩ¤Á¾å¤²¤¿¥³¥Þ¥ó¥ÉÆþÎϤǣȣţ̣Х­¡¼¡Ê£Å£î£ä¡Ë¥­¡¼¤ò²¡¤¹¤È²¼µ­¤Î¤è¤¦¤Ê¤â¤Î¤¬¤Ç¤Þ¤¹¡£

--------------------------------------------------------------------------------

TOP : 0001 CUR : 0001 END : 9999 TEXT : XXXXXX REV : 9999

--------------------------------------------------------------------------------

* * * #TEDIT COMMAND * * *

01. POSITION; NNNN +NNNN -NNNN -NNNN /STRING/
02. READ; R [(PROGRAM)] DEVICE [[CID] FILE[(VOLUME)]] [L1[,L2]]
03. WRITE; W[N][A/R] DEVICE [[CID] FILE[(VOLUME)]] [L1[,L2]] [PRN[NNN]]
04. INSERT; I
05. DELETE; X [L1[,L2]]
06. SUBSTITUTE; S [L1[,L2]] S/STRING1/[-] [[/STRING2/]/[X]]
07. COPY; C [L1[,L2]] [(NNN)]
08. MOVE; M [L1[,L2]]
09. GLOBAL; G[DEVICE/X] [L1[,L2]] S/STRING/
10. EXCLUDE; E[DEVICE/X] [L1[,L2]] S/STRING/
11. TAB; T / T N1,N2...N20 / T RNN / T ? / T [F/S/U/I]
12. NAME; N PROGRAM [REV.]
13. AUTO; A
14. HISTORY; H[ON/OFF] [PRN999/PRN[NNN]]

SELECT NO.( )

--------------------------------------------------------------------------------

* * *

--------------------------------------------------------------------------------

--

--------------------------------------------------------------------------------

NOTE : FROM= TO=

--------------------------------------------------------------------------------

A #TEDIT 01

¤Þ¤¿¡¢£Ó£Ã£Ò£Ï£Ì£Ì£Õ£Ð¡Ê£Ó£è£é£æ£ô¡Ü£Ð£á£ç£å£ä£ï£÷£î¡Ë¤ò²¡¤¹¤È²¼µ­¤Î¤è¤¦¤Ê¤â¤Î¤¬¤Ç¤Þ¤¹¡£ÈÖ¹æ¤òÁªÂò¤¹¤ë¤È¾ÜºÙÀâÌÀ¤¬¤Ç¤Þ¤¹¡£

--------------------------------------------------------------------------------

TOP : 0001 CUR : 0001 END : 9999 TEXT : XXXXXX REV : 9999

--------------------------------------------------------------------------------


15. ZONE; Z [C1[,C2]]
16. IDENTIFY; ID[U/C/ ] /STRING/
17. SPLIT; SPL [U/L/Q] TYPE DEVICE [[CID] FILE[(VOLUME)][,NEW]] SIZE
18. TRANSFER; TR [T1[,T2]]
19. QUIT; Q [REL/SAVE]

* * * #TEDIT PF-KEY * * *

PF1 ... SET NOTE
PF2 ... RESET NOTE
PF3 ... SCROLL UP
PF4 ... SCROLL DOWN
PF5 ... STOP SCROLL
PF6 ... CHANGE SCREEN



SELECT NO.( )

--------------------------------------------------------------------------------

* * *

--------------------------------------------------------------------------------

--

--------------------------------------------------------------------------------

NOTE : FROM= TO=

--------------------------------------------------------------------------------

A #TEDIT 01

°Ê¾å¡¢µµ¥ì¥¹¤Ç¤·¤¿¡£
A-VX¤ò¥Þ¥¹¥¿¡¼¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¦¡¦¡¦
¤ä¤Þ 2004-9-24 15:29:00  [ÊÖ¿®] [ÊÔ½¸]

¤ä¤Þ¤È¿½¤·¤Þ¤¹¡£½é¤á¤Þ¤·¤Æ¡£

ÁᮤǤ¹¤¬A-VX¤Ë¤Ä¤¤¤Æ¤Ê¤Î¤Ç¤¹¤¬¡¢

º£¹¹¤È¤¤¤¦´¶¤¸¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢¤³¤ì¤«¤éA-VX¤ÎÊÙ¶¯¤ò¤·¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£¤Ç¤¹¤¬¡¢¹Ö½¬²ñ¤Ï¤â¤¦¸½ºß¹Ô¤ï¤ì¤Æ¤¤¤Ê¤¤¤è¤¦¤Ç¤¹¤·¡¢¼«½¬ÍѤΥƥ­¥¹¥È¤âÈÎÇ䤵¤ì¤Æ¤¤¤Ê¤¤¤è¤¦¤Ç¤¹¡£

¤É¤¦¤·¤¿¤éÎɤ¤¤Ç¤·¤ç¤¦¤«¡£

¼Â¤Ïº£¡¢´ð´´¥·¥¹¥Æ¥à¤ÇA-VX¤¬²ÔÆ°¤·¤Æ¤¤¤Þ¤·¤Æ¡¢¤â¤¦¥µ¥Ý¡¼¥È¤¬Ìµ¤¯¤Ê¤Ã¤Æ¤¤¤¯Êý¸þ¤Ê¤é¡¢¤»¤á¤Æº£Æ°¤¤¤Æ¤¤¤ëCOBOL¤äJCL¤Î¥½¡¼¥¹¤ò¸«¤Æ¡Ê½ÐÍè¤ì¤ÐWindows¤Þ¤¿¤ÏFreeBSD¤Ë¼è¤ê½Ð¤·¤¿¤¤¡Ë¤ß¤¿¤¤¤È»×¤¤¤Þ¤¹¤¬¤³¤Î¾ì¹ç¤É¤¦¤¹¤ì¤Ð²Äǽ¤Ç¤·¤ç¤¦¤«¡©

KEIS¥³¡¼¥É¤«¤éJIPS¤ÎÊÑ´¹
Bluelion 2004-9-24 13:56:00  [ÊÖ¿®] [ÊÔ½¸]

A-VX¤ÇÆüΩ¤Î¥Ç¡¼¥¿¡ÊKEIS¥³¡¼¥É¡Ë¤ÎMT¤ò½èÍý¤·¤¿¤¤¤Î¤Ç¤¹¤¬

KEIS¤«¤é¤ÎÊÑ´¹¤Ã¤Æ¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©
KEIS¤½¤Î¤â¤Î¤Î»ÅÍͤ¬¤ï¤«¤Ã¤Æ¤¤¤Þ¤»¤ó
¤¦¡¼¡¼¤ó¡¡JIPS¤ò½èÍý¤Ç¤­¤ë¤±¤ÉJIPS.JIS¤Ç¤ÏÄ󶡤Ǥ­¤Ê¤¤¡ÊKEIS¡Ë¤È¸À¤¦ÊѤÊÏäʤó¤Ç¤¹¤±¤É

¤¤¤ÞS100¡ÊS7200ÆâÉô¥³¡¼¥É¡Ë¤ÈKEIS¤ÎÂбþɽ¤òºî¤Ã¤ÆÊÑ´¹¥×¥í¥°¥é¥à¤ÇÊÑ´¹¤¹¤ë¤³¤È¤ò¤«¤ó¤¬¤¨¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢¥Ó¥Ã¥È¤Î¥·¥Õ¥È¤äAND¡¦OR¤ò¶î»È¤·¤ÆÊÑ´¹¤Ç¤­¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¤Í¡©

¤Á¤Ê¤ß¤Ë³°»ú¤Ï¤Ê¤Ë¤«¤Ë¡Ê¢£¤È¤«¡Ë¤ª¤­¤«¤¨¤Æ½èÍý¤¹¤ëͽÄê¤Ç¤¹

°Ê¾å¡¡¤ª¤·¤¨¤Æ¤¯¤À¤µ¤¤



Re:#TEDIT¤Ç¡©
½é¿´¼Ô¤ËµÕÌá¤ê 2004-9-21 11:49:00  [ÊÖ¿®] [ÊÔ½¸]

¤ªÆó¿Í¤ËRes¤¤¤¿¤À¤­¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

[]¤ÏÃΤê¤Þ¤»¤ó¤Ç¤·¤¿¡£¡Ê˺¤ì¤Æ¤¤¤ë¤Î¤«¤âŽ¤Ž¤orz¡Ë

¤â¤¦¤Á¤ç¤Ã¤È»î¤·¤Æ¤ß¤Þ¤¹¡£
Re:#TEDIT¤Ç¡©
£Å£Ø£Ã£È£Á£Î£Ç£Å 2004-9-17 12:48:00  [ÊÖ¿®] [ÊÔ½¸]

> R (¥½¡¼¥¹Ì¾) MSD (¥½¡¼¥¹¥é¥¤¥Ö¥é¥ê)[Enter]

> ¤È¤·¤Æ¤â¥Ñ¥é¥á¡¼¥¿¤¬°ã¤Ã¤Æ¤¤¤ë¤È¥¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£



¡ù¡¡¤´¼ÁÌä¤Î¥Ñ¥é¥á¡¼¥¿»ØÄê¤Ç¤Ï¡¢¡¡¡Ê¥½¡¼¥¹¥é¥¤¥Ö¥é¥ê¡Ë¡¡¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¤¬¡¢¥é¥¤¥Ö¥é¥ê̾¤ÎÁ°¸å¤Ë¡¡"(" ")"¤¬Æþ¤Ã¤Æ¤·¤Þ¤Ã¤Æ¤¤¤ë¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©¡¡¤³¤³¤Ï¡¡¡Ê¡¡¡Ë¤Ê¤·¤Ç¡¢

¡¡£Ò¡¡¡Ê¥½¡¼¥¹¥á¥ó¥Ð̾¡Ë¡¡£Í£Ó£Ä¡¡¥½¡¼¥¹¥é¥¤¥Ö¥é¥ê̾¡¡£Å£î£ô£å£ò²¡²¼¡¡¤Ç¤¹¡£



¡ù¡¡¤Ê¤ª¡¢¥½¡¼¥¹¥á¥ó¥Ð̾¤ÎÁ°¸å¤Î¡Ê¡¡¡Ë¤Ï¡¢[ ]¡¡¤Ç¤â£Ï£Ë¤Ê¤Î¤Ç¡¢»ä¤Ï£ó£è£é£æ£ô¥­¡¼¤ò²¡¤µ¤Ê¤¯¤Æ¤âÎɤ¤ [ ]¤ò»È¤Ã¤Æ¤¤¤Þ¤¹¡£



¡¡¡¡

Re:#TEDIT¤Ç¡©
BLUELION 2004-9-17 11:34:00  [ÊÖ¿®] [ÊÔ½¸]

COBOL¤Î¥½¡¼¥¹¤Ê¤é

R [MEMBER] MSD SYS@SUL

¤Ê¤ó¤Æ´¶¤¸¤Ç¤¤¤¤¤ó¤Ç¤¹¤è



´ðËÜŪ¤Ë¤Ï´Ö°ã¤¤¤¬¤Ê¤¤¤è¤¦¤Ë¤ª¤â¤¤¤Þ¤¹
#TEDIT¤Ç¡©
½é¿´¼Ô¤ËµÕÌá¤ê 2004-9-17 9:50:00  [ÊÖ¿®] [ÊÔ½¸]

¶Ë¡¹½éÊâ¤Î¼ÁÌä¤Ç¤¹¤¬¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£

£·Ç¯¿¶¤ê¤ËITOS¡¢¡¢¤¤¤äA-VX¤ò¿¨¤ë¤³¤È¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

5800/600´Ä¶­¤Ï½é¤á¤Æ¤Ç¤¹¤¬Ã¼Ëö¥¨¥ß¥å¥ì¡¼¥¿´Þ¤á¤Æ¤Ê¤«¤Ê¤«¤¤¤¤´¶¤¸¤Ç¤¹¡£

¤·¤«¤·#TEDIT;¤«¤éCOBOL¡¢TEMPORARY¡¢Åù¡¹¤È¤·¡¢--¥×¥í¥ó¥×¥È¤«¤é

R (¥½¡¼¥¹Ì¾) MSD (¥½¡¼¥¹¥é¥¤¥Ö¥é¥ê)[Enter]

¤È¤·¤Æ¤â¥Ñ¥é¥á¡¼¥¿¤¬°ã¤Ã¤Æ¤¤¤ë¤È¥¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

»ä¤Îµ­²±¤¬´Ö°ã¤Ã¤Æ¤¤¤ë¤Î¤«¤Ê¤Ë¤«´ª°ã¤¤¤·¤Æ¤¤¤ë¤Î¤«¤Ï¤¿¤Þ¤¿¹½Ê¸¤¬ÊѤï¤Ã¤Æ¤·¤Þ¤Ã¤¿¤Î¤Ç¤·¤ç¤¦¤«¡©


£Ò£Ä£Â¤ÎÉôʬ°ìÃ׸¡º÷
¹¾¿ÜÀð 2004-9-11 23:59:00  [ÊÖ¿®] [ÊÔ½¸]

¹¾¿ÜÀð¤Ç¤¹¡£¤Þ¤¿¤Þ¤¿£Ã£Ï£Â£Ï£Ì¤Î¼ÁÌä¤Ç¤¹¡£



£Ò£Ä£Â¤ÇÉôʬ°ìÃ׸¡º÷¤ò¤·¤¿¤¤¾ì¹ç
£Ò£Ä£Â£Ñ£²¤Ç¤Ï¡¡¡ª¡É£Ø£Ø£Ø¡É¡ª¤Ç£Ï£Ë¤Ç¤¹¡£
£Ó£Í£Á£Ò£Ô­¶£Å£Ø¤Ç¤ÏÁªÂò»ØÄê¤Î£¸¡¥£Å£Ñ¡ÊÉôʬ°ìÃסˤDzÄǽ¤Ç¤¹¤¬
£Ã£Ï£Â£Ï£Ì£¸£µ¤Î¾ì¹ç¤Ï¡¢¹ª¤¯¤¤¤­¤Þ¤»¤ó¡£
±¦¹àÌܤ˥¹¥Ú¡¼¥¹¤¬Í­¤ë¾ì¹ç¤Ï¥¹¥Ú¡¼¥¹¤âÂоݤˤʤë¤è¤¦¤Ç¤¹¤½¤³¤Ç»ä¤Ï²¼µ­
¤ÎÎã¤ÎÍÍ¥³¡¼¥Ç¥£¥ó¥°¤ò¤·¤Æ¤ª¤ê¤Þ¤¹¤¬¤³¤ì¤·¤«¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©

¤â¤Ã¤ÈÎɤ¤ÊýË¡¤ò¤´Â¸ÃΤÎÊý¤Ï¤ª¶µ¤¨¤¯¤À¤µ¤¤¡£

----------------------------------------------------------------------

000010 IDENTIFICATION¡¡¡¡DIVISION.
000020 PROGRAM-ID.¡¡¡¡ ¡¡SELTST.
000030 ENVIRONMENT¡¡¡¡ ¡¡DIVISION.
000040 CONFIGURATION¡¡¡¡ SECTION.
000050 SOURCE-COMPUTER.¡¡EXPRESS5800.
000060 OBJECT-COMPUTER.¡¡EXPRESS5800.
000070 INPUT-OUTPUT¡¡¡¡SECTION.
000080 FILE-CONTROL.
000090¡¡ SELECT¡¡RDBFILE¡¡ASSIGN¡¡TO¡¡RDBFILE-RDB.
000100 DATA¡¡¡¡¡¡¡¡DIVISION.
000110 FILE¡¡¡¡¡¡¡¡SECTION.
000120 FD¡¡RDBFILE
000130¡¡ LABEL¡¡¡¡RECORD¡¡¡¡¡¡IS¡¡ STANDARD
000160¡¡ VALUE¡¡¡¡OF¡¡IDENTIFICATION "RDBFILE".
000170¡¡ COPY RDBFILE-R OF DDF.
000180 WORKING-STORAGE¡¡¡¡¡¡¡¡¡¡¡¡SECTION.
000210 01¡¡WRK-REC.
000230 ¡¡¡¡02¡¡WRK-CCNT¡¡¡¡¡¡¡¡¡¡¡¡PIC¡¡9(02).
000240 ¡¡¡¡02¡¡WRK-SELECT¡¡¡¡¡¡¡¡¡¡PIC¡¡X(05).
000250 ¡¡¡¡02¡¡WRK-SELECTR1 REDEFINES WRK-SELECT.
000260 ¡¡¡¡¡¡03¡¡WRK-SELECT1¡¡¡¡¡¡ PIC¡¡X(01).
000270 ¡¡¡¡¡¡03¡¡FILLER¡¡¡¡¡¡¡¡¡¡¡¡PIC¡¡X(04).
000280 ¡¡¡¡02¡¡WRK-SELECTR2 REDEFINES WRK-SELECT.
000290 ¡¡¡¡¡¡03¡¡WRK-SELECT2¡¡¡¡¡¡ PIC¡¡X(02).
000300 ¡¡¡¡¡¡03¡¡FILLER¡¡¡¡¡¡¡¡¡¡¡¡PIC¡¡X(03).
000310 ¡¡¡¡02¡¡WRK-SELECTR3 REDEFINES WRK-SELECT.
000320 ¡¡¡¡¡¡03¡¡WRK-SELECT3¡¡¡¡¡¡ PIC¡¡X(03).
000330 ¡¡¡¡¡¡03¡¡FILLER¡¡¡¡¡¡¡¡¡¡¡¡PIC¡¡X(02).
000340 ¡¡¡¡02¡¡WRK-SELECTR4 REDEFINES WRK-SELECT.
000350 ¡¡¡¡¡¡03¡¡WRK-SELECT4¡¡¡¡¡¡ PIC¡¡X(04).
000360 ¡¡¡¡¡¡03¡¡FILLER¡¡¡¡¡¡¡¡¡¡¡¡PIC¡¡X(01).
000670 PROCEDURE¡¡ DIVISION.
000680 INIT-RTN.
000690¡¡¡¡ ACCEPT¡¡¡¡WRK-SELECT.
000700¡¡¡¡ MOVE ZERO TO WRK-CCNT.
000710¡¡¡¡ INSPECT WRK-SELECT TALLYING WRK-CCNT FOR CHARACTERS
000720¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡BEFORE " ".
000730¡¡¡¡ OPEN¡¡¡¡I-O¡¡¡¡¡¡¡¡RDBFILE.
000740¡¡¡¡ EVALUATE WRK-CCNT
000750¡¡¡¡¡¡¡¡ WHEN 1
000760¡¡¡¡¡¡¡¡¡¡¡¡¡¡SELECT RDBFILE WHERE BPW-BUBN CHARACTERS WRK-SELECT1
000770¡¡¡¡¡¡¡¡ WHEN 2
000780¡¡¡¡¡¡¡¡¡¡¡¡¡¡SELECT RDBFILE WHERE BPW-BUBN CHARACTERS WRK-SELECT2
000790¡¡¡¡¡¡¡¡ WHEN 3
000800¡¡¡¡¡¡¡¡¡¡¡¡¡¡SELECT RDBFILE WHERE BPW-BUBN CHARACTERS WRK-SELECT3
000810¡¡¡¡¡¡¡¡ WHEN 4
000820¡¡¡¡¡¡¡¡¡¡¡¡¡¡SELECT RDBFILE WHERE BPW-BUBN CHARACTERS WRK-SELECT4
000830¡¡¡¡¡¡¡¡ WHEN 5
001040¡¡¡¡¡¡¡¡¡¡¡¡¡¡SELECT RDBFILE WHERE BPW-BUBN CHARACTERS WRK-SELECT
001050¡¡¡¡ END-EVALUATE.
°Ê²¼Î¬¡Á
Re:¥Ï¡¼¥É¥Ç¥£¥¹¥¯
assisi 2004-9-4 8:27:00  [ÊÖ¿®] [ÊÔ½¸]

> ³§¤µ¤óÊÖ¿®Í­Æñ¤¦¤´¤¶¤¤¤Þ¤¹¡£
> ¤½¤¦¤Ç¤¹¤Í¡¢¤ª¤Ã¤·¤ã¤ëÄ̤겿¤«Í­¤Ã¤¿»þ¤Î¥ê¥¹¥¯¤ò¹Í¤¨¤ë¤È½ãÀµÉÊ
> ¤¬°ìÈְ¿´¤·¤Æ»ÈÍѤ·¤Æ¤¤¤é¤ì¤Þ¤¹¤Í¡£
> ¸½ºß¡¢ÂçÍÆÎ̤ΣȣĤ¬¤«¤Ê¤ê°Â²Á¤Ç¼ê¤ËÆþ¤ë»þÂå¤Ç¤¹¤Î¤Ç»×¤Ã¤¿¤Þ¤Ç
> ¤Ç¤¹¡£

¥á¥â¥ê¡¼¤Ï¡¡¥Ï¥®¥ï¥é¥·¥¹¥³¥àÀ½¤Ç»ÈÍѤǤ­¤Þ¤¹¤è
½ãÀµÉʤè¤ê¡¡¤«¤Ê¤ê°Â¤¤¤Ç¤¹
ÁýÀߤâ¥Ñ¥½¥³¥ó¤È°ì½ï¤Ç´Êñ¤Ë¤Ç¤­¤Þ¤¹
Re:#FLCNV #SORT¤Ë¤Ä¤¤¤Æ
¥´¥ê¥Þ¥¹ 2004-9-1 8:43:00  [ÊÖ¿®] [ÊÔ½¸]

¤Ï¤¸¤á¤Þ¤·¤Æ¡ª¡¡¥¿¡¼¥é¥ä¥ó¤µ¤ó

¡¡¤´²óÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£



΢µ»¡©¡ª¤ÇMTU¤ÈƱ¤¸»È¤¤Êý¤¬¤Ç¤­¤Ê¤¤¤â¤Î¤«¤È¡¢¹Í¤¨¤Æ¤¤¤¿¤Î¤Ç¤¹¤¬¡¢ÌµÍý¤ß¤¿¤¤¤Ç¤¹¤Í¡£¡°¡°¡¨¡¡¹¾¿ÜÀ𤵤󤫤é¤â¤´ÊÖ¿®Äº¤­¤Þ¤·¤¿¡£

£Í£Ô£Õ¢ª£Ä£Á£Ô¤Ø¤Î°Ü¹Ôºî¶È¡¢ÃÏÆ»¤Ë´èÄ¥¤ê¤Þ¤¹¡£

¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£¡¡<(_ _)>
Re:#FLCNV #SORT¤Ë¤Ä¤¤¤Æ
¥´¥ê¥Þ¥¹ 2004-9-1 0:38:00  [ÊÖ¿®] [ÊÔ½¸]

¤Ï¤¸¤á¤Þ¤·¤Æ¡ª¹¾¿ÜÀ𤵤ó¡£ÁᮤΥ쥹¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¡ÊºÞØϾġ¦¡¦¤Ê¤ó¤«¤ª¤«¤·¤Ê̾Á°¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡Ë



£Ä£Á£Ô¤ÎÍøÍѤˤĤ¤¤Æ¤Ï¡¢º£¸½ºß¥ª¡¼¥×¥ó£Í£Ô¤Ç¥Ç¡¼¥¿´ÉÍý¤·¤Æ¤¤¤ë¤â¤Î¤¬Â¿¡¹¤¢¤ê¤Þ¤·¤Æ¤â¤Î¤Ç¡ÊNEC¤¬MT¤ÎÀ½Â¤¤òÃæ»ß¤·¤Æ¤«¤é¿ôǯ·Ð²á¤·¤Æ¤Þ¤¹¤·¡Ë¤½¤í¤½¤í¿·¤·¤¤ÇÞÂΤò¸¡Æ¤¤»¤Í¤Ð¡£¡£¤È¤¤¤¦»ö¤Ç£Ä£Á£Ô¤òÁªÂò¤·¤è¤¦¤È¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢¤É¤¦¤â£Í£Ô(MTU)¤ÈÈæ¤Ù¤ë¤È¾¡¼ê¤¬°­¤¯¤Æ¡£¡£¥×¥í¥°¥é¥à¤ÇľÀÜ¥¢¥µ¥¤¥ó¤Ç¤­¤¿¤ê¡¢#FLCNVÅù¤Î¥æ¡¼¥Æ¥£¥ê¥Æ¥£¡¼¤ÇÆþ½ÐÎϤǤ­¤ì¤Ð°Ü¹Ôºî¶È¤âñ½ã¤Ë¤Ê¤ë¤Î¤Ç¤Ï¤È»×¤Ã¤¿¤Î¤Ç¤¹¤¬¡£

MSD¤Ë¤¹¤ë¤Ë¤âÍÆÎ̤¬Â­¤ê¤½¤¦¤Ë¤Ê¤¤¤·¡¦¡¦¡£ÃÏÆ»¤Ë´èÄ¥¤ë¤·¤«¤Ê¤µ¤½¤¦¤Ç¤¹¤Í¡£

¹¾¿ÜÀ𤵤ó¡¢ËÜÅö¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£ÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤·¤¿¡£
Re:#FLCNV #SORT¤Ë¤Ä¤¤¤Æ
¥¿¡¼¥é¥ä¥ó 2004-9-1 0:20:00  [ÊÖ¿®] [ÊÔ½¸]

¤Ï¤¸¤á¤Þ¤·¤Æ¡£


> £Á¡Ý£Ö£Ø­·¤Ç¼Â¸½²Äǽ¤«ÃΤꤿ¤¤¤Î¤Ç¤¹¤¬¡¢DATÁõÃÖ(CTU)¤ò
> ¡¡#FLCNV¡¦#SORT¤Çǧ¼±¤¹¤ë»ö¤ÏÉÔ²Äǽ¤Ç¤·¤ç¤¦¤«¡©


»ä¤ÎÃΤë¸Â¤ê¤Ç¤­¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£


> DAT¤¬¤â¤Ã¤ÈÍøÍѤǤ­¤¿¤é¡¦¡¦¤È¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢#BKUP°Ê³°¤Î¥æ¡¼¥Æ¥£¥ê¥Æ¥£¡¼¤Ç¤Ï¡¢¤½¤Î¤Þ¤Þ¥¢¥µ¥¤¥ó¤Ç¤­¤Ê¤¤¤â¤Î¤Ç¡£¥æ¡¼¥Æ¥£¥ê¥Æ¥£¡¼¤Î¥Ð¡¼¥¸¥ç¥óÅù¤Ç¼Â¸½²Äǽ¤Ç¤·¤ç¤¦¤«¡©¤´Â¸ÃΤÎÊý¡¢¤¤¤é¤Ã¤·¤ã¤¤¤Þ¤·¤¿¤é¶µ¤¨¤Æ²¼¤µ¤¤¡£<(_ _)>


#SORT¤Î̾Á°¤¬½Ð¤Æ¤¤¤ë¤³¤È¤«¤éÁÛÁü¤·¤Æ¡¢DATÆâ¤Î¥Ç¡¼¥¿¤òľÀÜ¥½¡¼¥È¤·¤¿¤ê¥Þ¡¼¥¸¤·¤¿¤ê
DATÆâ¤Î¥Ç¡¼¥¿¤òľÀܸ«¤Æ½ñ¤­´¹¤¨¤¿¤ê¤È¤¤¤¦¤³¤È¤ò¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£

Re:#FLCNV #SORT¤Ë¤Ä¤¤¤Æ
¹¾¿ÜÀð 2004-8-31 22:23:00  [ÊÖ¿®] [ÊÔ½¸]

¤Ï¤¸¤á¤Þ¤·¤Æ¡ª¡ÖºÞØϾġפµ¤ó

¹¾¿ÜÀð¤È¤â¤¦¤·¤Þ¤¹¡£


> £Á¡Ý£Ö£Ø­·¤Ç¼Â¸½²Äǽ¤«ÃΤꤿ¤¤¤Î¤Ç¤¹¤¬¡¢DATÁõÃÖ(CTU)¤ò
> ¡¡#FLCNV¡¦#SORT¤Çǧ¼±¤¹¤ë»ö¤ÏÉÔ²Äǽ¤Ç¤·¤ç¤¦¤«¡©

¤Ç¤­¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£
¡ô£Â£Ë£Õ£Ð¤Ç¥Õ¥¡¥¤¥ëñ°Ì¤Î»ØÄê¤ò¤¹¤ë¤·¤«¤Ê¤¤¤Î¤Ç¤Ï¤È»×¤¤¤Þ¤¹¡£
¡ô£Æ£Ì£Ã£Î£Ö¤Î¥Õ¥©¡¼¥Þ¥Ã¥ÈÊÑ´¹¤Ï£×£ï£ò£ë¥Õ¥¡¥¤¥ë¤ò»È¤¤
¤½¤ì¤«¤é¡ô£Â£Ë£Õ£Ð¤ò¥Õ¥¡¥¤¥ëñ°Ì¤ÇÍøÍѤ¹¤ë¤·¤«¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£
¥½¡¼¥È¤âƱ¤¸¤À¤È»×¤¤¤Þ¤¹¡£


> DAT¤¬¤â¤Ã¤ÈÍøÍѤǤ­¤¿¤é¡¦¡¦¤È¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢#BKUP°Ê³°¤Î¥æ¡¼¥Æ¥£¥ê¥Æ¥£¡¼¤Ç¤Ï¡¢¤½¤Î¤Þ¤Þ¥¢¥µ¥¤¥ó¤Ç¤­¤Ê¤¤¤â¤Î¤Ç¡£

Ū³°¤ì¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢ÌÜŪ¤¬¤ï¤«¤é¤Ê¤¤¤Î¤Ç¤Ê¤ó¤È¤â¤¤¤¨¤Þ¤»¤ó¤¬
¾¤Î£Á¡Ý£Ö£Ø¤È¥Ç¡¼¥¿¸ò´¹¤ò¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¤¹¤«¡©
¤½¤ì¤Ç¤¢¤ë¤Ê¤é¤Ð¡ô£Â£Ë£Õ£Ð¤ÇÎɤ¤¤È»×¤¤¤Þ¤¹¤¬¡©
£×£é£î£ä£ï£÷£ó¥¢¥×¥ê¤Ç¥Ç¡¼¥¿¤òÍøÍѤò¤¹¤ë¤È¤¤¤¦¤³¤È¤Ç¤¹¤«¡©
¤½¤Î¾ì¹ç¤Ç¤¢¤ì¤Ð¡ô£Î£Æ£Ã£Î£Ö¤ÇÊÑ´¹¤·¤Æ£Î£Ô¥Ð¥Ã¥¯¥¢¥Ã¥×Åù¤òÍøÍѤ¹¤ëÊýË¡¤Ë¤Ê¤ë¤È»×¤¤¤Þ¤¹¡£

#FLCNV #SORT¤Ë¤Ä¤¤¤Æ
ºÞØϾĠ2004-8-31 18:30:00  [ÊÖ¿®] [ÊÔ½¸]

¤Ï¤¸¤á¤Þ¤·¤Æ¡ª¤³¤Î¤è¤¦¤ÊÊØÍø·Ç¼¨ÈĤ¬¤¢¤ë¤È¤Ï¡¢ÃΤê¤Þ¤»¤ó¤Ç¤·¤¿¡£
¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£
ÁᮤǤ¹¤¬¡¢¤¹¤ß¤Þ¤»¤ó¡£


£Á¡Ý£Ö£Ø­·¤Ç¼Â¸½²Äǽ¤«ÃΤꤿ¤¤¤Î¤Ç¤¹¤¬¡¢DATÁõÃÖ(CTU)¤ò
¡¡#FLCNV¡¦#SORT¤Çǧ¼±¤¹¤ë»ö¤ÏÉÔ²Äǽ¤Ç¤·¤ç¤¦¤«¡©
DAT¤¬¤â¤Ã¤ÈÍøÍѤǤ­¤¿¤é¡¦¡¦¤È¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢#BKUP°Ê³°¤Î¥æ¡¼¥Æ¥£¥ê¥Æ¥£¡¼¤Ç¤Ï¡¢¤½¤Î¤Þ¤Þ¥¢¥µ¥¤¥ó¤Ç¤­¤Ê¤¤¤â¤Î¤Ç¡£¥æ¡¼¥Æ¥£¥ê¥Æ¥£¡¼¤Î¥Ð¡¼¥¸¥ç¥óÅù¤Ç¼Â¸½²Äǽ¤Ç¤·¤ç¤¦¤«¡©¤´Â¸ÃΤÎÊý¡¢¤¤¤é¤Ã¤·¤ã¤¤¤Þ¤·¤¿¤é¶µ¤¨¤Æ²¼¤µ¤¤¡£<(_ _)>

 ¿·µ¬Åê¹Æ | ¥¹¥ì¥Ã¥Éɽ¼¨ | ¥Ä¥ê¡¼É½¼¨ | Åê¹Æ½çɽ¼¨ | i-mode | ¥È¥Ã¥× 
« 1 ... 93 94 95 (96) 97 98 99 ... 108 »

BluesBB ©Sting_Band