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

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

[·Ç¼¨ÈĤËÌá¤ë]


Re: £Ï£Ã£ÒÍÑ¥Õ¥©¥ó¥È¤Ë¤Ä¤¤¤Æ ¥È¥¯¥À 2011-4-21 11:53
Re: £Ï£Ã£ÒÍÑ¥Õ¥©¥ó¥È¤Ë¤Ä¤¤¤Æ £Å£Ø£Ã£È£Á£Î£Ç£Å 2011-4-21 19:06
Re: £Ï£Ã£ÒÍÑ¥Õ¥©¥ó¥È¤Ë¤Ä¤¤¤Æ ¥È¥¯¥À 2011-4-22 10:23

3 Re: £Ï£Ã£ÒÍÑ¥Õ¥©¥ó¥È¤Ë¤Ä¤¤¤Æ
¥È¥¯¥À 2011-4-21 11:53  [ÊÖ¿®] [ÊÔ½¸]

²¹Àô¹¥¤­¤Î¤¦¤µ¤®¤µ¤ó

¥¢¥É¥Ð¥¤¥¹¤¤¤¿¤À¤¤¤¿Ä̤ꡢESC¥·¡¼¥±¥ó¥¹¤ÇHS¥Ñ¥¤¥«¥â¡¼¥É¤ò»È¤Ã¤Æ¤ß¤¿¤é½ÐÍè¤Þ¤·¤¿¡ª
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¤Õ¤À¤óÀ©¸æÉä¹æ¤Ï¤¢¤Þ¤ê»È¤ï¤Ê¤¤¤Î¤ÇÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤·¤¿¡£
¤¢¤ÈESC¥·¡¼¥±¥ó¥¹¤ò¸«¤Æ¤¤¤ë¤È¡¢µ¼»÷OCR¥Õ¥©¥ó¥È¤È¤¤¤¦¤Î¤¬¤¢¤ê¤Þ¤·¤¿¡£
¤½¤ì¤ò»È¤Ã¤Æ¤â½ÐÍè¤Þ¤·¤¿¡£

¤¿¤À¡¢¤Ò¤È¤ÄÌäÂ꤬¡¦¡¦¡¦
¥Õ¥©¥ó¥È»ØÄê¤À¤±COBOL¤Ç¤ä¤Ã¤Æ¡¢°õºþ¤ÏSMART­¶¤Ç¤ä¤í¤¦¤È¤·¤Æ¤¤¤Þ¤¹¡£
»ä¤ÎCOBOl¤Î½ñ¤­Êý¤ÎÌäÂ꤫¤â¤·¤ì¤Þ¤»¤ó¤¬¡£
À©¸æÉä¹æ¤òÁ÷¤Ã¤¿¸å¤Ë¡¢²¿¤é¤«¤Î·Á¤Ç²þ¹Ô¤·¤Ê¤¤¤ÈÀßÄ꤬ͭ¸ú¤Ë¤Ê¤é¤Ê¤¤¤ó¤Ç¤¹¡£
²þ¹Ô¤·¤Ê¤¤¤ÇÍ­¸ú¤Ë¤¹¤ëÊýË¡¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©

COBOL
*************************************
WRITE XXXX FROM YYYY AFTER 0.
*************************************
AFTER 0 ¤Ë¤¹¤ë¤È¡¢²þ¹Ô¤Ï¤·¤Ê¤¤¤Ç¤¹¤¬Í­¸ú¤Ë¤Ê¤ê¤Þ¤»¤ó¡£
AFTER 1 ¤Ë¤¹¤ë¤È¡¢²þ¹Ô¤·¤ÆÍ­¸ú¤Ë¤Ê¤ê¤Þ¤¹¡£

AFTER 0 ¤Ç ¥Õ¥¡¥¤¥ë¤òCLOSE¤¹¤ë¤È¡¢²þ¹Ô¤µ¤ì¤ÆÍ­¸ú¤Ë¤Ê¤ê¤Þ¤¹¡£
AFTER 0 ¤Ç ¥Õ¥¡¥¤¥ë¤òCLOSE¤·¤Ê¤¤¤Ç½ªÎ»¤¹¤ë¤È¡¢²þ¹Ô¤µ¤ì¤Þ¤»¤ó¤¬Í­¸ú¤Ë¤Ê¤ê¤Þ¤»¤ó¡£

AFTER 0 ¤Ç¤â COBOL¤Ç¤Ê¤Ë¤«°õºþ¤¹¤ë¤È¡¢Í­¸ú¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£°ì¹Ô;ʬ¤Ë²þ¹Ô¤¹¤ë¤ï¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£

ÀâÌÀ¤¬Ê¬¤«¤ê¤Ë¤¯¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢
¥¢¥É¥Ð¥¤¥¹¤¤¤¿¤À¤±¤ë¤È½õ¤«¤ê¤Þ¤¹¡£

4 Re: £Ï£Ã£ÒÍÑ¥Õ¥©¥ó¥È¤Ë¤Ä¤¤¤Æ
£Å£Ø£Ã£È£Á£Î£Ç£Å 2011-4-21 19:06  [ÊÖ¿®] [ÊÔ½¸]

£Í£Ï£Ö£Å ""À©¸æ¥³¡¼¥É"" £Ô£Ï¡¡£Á£Á¡¥
£×£Ò£É£Ô£Å¡¡£Ð£Ò¡Ý£Ò£Å£Ã¡¡£Æ£Ò£Ï£Í¡¡£Á£Á¡¡£Â£Å£Æ£Ï£Ò£Å¡¡£°¡¥

¤È¤¤¤¦¤ä¤êÊý¤Ç½ÐÍ褿¤è¤¦¤Êµ­²±¤¬¤¢¤ë¤Î¤Ç¤¹¤¬¡¢¤À¤á¤Ç¤·¤ç¤¦¤«¡©
5 Re: £Ï£Ã£ÒÍÑ¥Õ¥©¥ó¥È¤Ë¤Ä¤¤¤Æ
¥È¥¯¥À 2011-4-22 10:23  [ÊÖ¿®] [ÊÔ½¸]

£Å£Ø£Ã£È£Á£Î£Ç£Å¤µ¤ó¡¢¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

£Å£Ø£Ã£È£Á£Î£Ç£Å¤µ¤ó¤Î¥¢¥É¥Ð¥¤¥¹Ä̤ê¤ä¤Ã¤Æ¤ß¤Þ¤·¤¿¤¬¡¢
²þ¹Ô¤µ¤ì¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

ÀâÌÀ¤¬²¼¼ê¤Ç¤´¤á¤ó¤Ê¤µ¤¤¡£
¤¤¤Þ¤Ï²¼µ­¤Î¤è¤¦¤Ë¤·¤Æ¤¤¤Þ¤¹¡£
*****************************************************************************
01 MEISAII91.
   02  FILLER    PIC X(03) VALUE ""À©¸æ¥³¡¼¥É"".

WRITE  PRNT-R  FROM  MEISAII91 AFTER  0.  <-- ¤³¤Î»þÅÀ¤Ç¤Ï¥×¥ê¥ó¥¿¤ÏÆ°¤­¤Þ¤»¤ó¡£
                                              ¥Ç¡¼¥¿¤¬Íè¤Æ¤ëÍͻҤâ¤Ê¤¤¤Ç¤¹¡£
                                              BEFOR 0 ¤Ç¤âÂÌÌܤǤ·¤¿¡£

CLOSE  PRNT-F. <-- ¤³¤Î¸å¡¢°ì¹Ô²þ¹Ô¤µ¤ì¤Þ¤¹¡£

STOP RUN.

£Ï£Ã£Ò¥Õ¥©¥ó¥È»ØÄ꤬ͭ¸ú¤Ë¤Ê¤ê¤Þ¤¹¡£
*****************************************************************************


¾¤Ë»î¤·¤Æ¤ß¤¿¤ä¤êÊý¤Ç¤¹¡£
¤½¤Î£±
*****************************************************************************
01 MEISAII91.
   02  FILLER    PIC X(03) VALUE ""À©¸æ¥³¡¼¥É"".

WRITE  PRNT-R  FROM  MEISAII91 AFTER  1.  <-- £±¹Ô²þ¹Ô¤µ¤ì¤Þ¤¹¡£

CLOSE  PRNT-F. <-- ²þ¹Ô¤µ¤ì¤Þ¤»¤ó

STOP RUN.

¤³¤ì¤Ï£Ï£Ã£Ò¥Õ¥©¥ó¥È»ØÄ꤬ͭ¸ú¤Ë¤Ê¤ê¤Þ¤¹¡£
*****************************************************************************


¤½¤Î£²
*****************************************************************************
01 MEISAII91.
   02  FILLER    PIC X(03) VALUE ""À©¸æ¥³¡¼¥É"".

WRITE  PRNT-R  FROM  MEISAII91 AFTER  0.  <-- £±¹Ô²þ¹Ô¤µ¤ì¤Þ¤»¤ó¡£

STOP RUN.

CLOSE¤·¤Ê¤¤¤Ç½ª¤ï¤Ã¤Æ¤ß¤Þ¤·¤¿¡£
¤³¤ì¤Ï£Ï£Ã£Ò¥Õ¥©¥ó¥È»ØÄ꤬ͭ¸ú¤Ë¤Ê¤ê¤Þ¤»¤ó¡£
*****************************************************************************


¤½¤Î£³
*****************************************************************************
01 MEISAII91.
   02  FILLER    PIC X(03) VALUE ""À©¸æ¥³¡¼¥É"".
01 MEISAII92.
   02  FILLER    PIC X(04) VALUE "TEST".

WRITE  PRNT-R  FROM  MEISAII91 AFTER  0.  <-- £±¹Ô²þ¹Ô¤µ¤ì¤Þ¤»¤ó¡£

WRITE  PRNT-R  FROM  MEISAII92 AFTER  1.  <-- £±¹Ô²þ¹Ô¤µ¤ì¤Þ¤¹¡£

STOP RUN.

°ì¹Ô°õºþ¤·¤Æ¡¢CLOSE¤·¤Ê¤¤¤Ç½ª¤ï¤Ã¤Æ¤ß¤Þ¤·¤¿¡£
¤³¤ì¤Ï£Ï£Ã£Ò¥Õ¥©¥ó¥È»ØÄ꤬ͭ¸ú¤Ë¤Ê¤ê¤Þ¤¹¡£
*****************************************************************************

»î¤·¤Æ¤ß¤ë¤È²þ¹Ô(£Ã£Ò¡Ë¤¬¤Ê¤¤¤È¤¢¤«¤ó¤Î¤«¤Ê¤¡¤È»×¤Ã¤¿¤ê¤·¤Þ¤·¤¿¡£
½ñ¤­Êý¤¬¤Þ¤º¤«¤Ã¤¿¤ê¤¹¤ë¤ó¤Ç¤·¤ç¤¦¤«¡©

BluesBB ©Sting_Band