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

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

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


AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½è... GAI 2015-7-14 16:12
Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELE... ²¹Àô¹¥¤­¤Î¤¦¤µ¤® 2015-7-14 18:57
Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELE... ¥¿¡¼¥é¥ä¥ó 2015-7-15 0:52
Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELE... gai 2015-7-17 11:53
Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELE... GAI 2015-7-17 11:24
Re: µ×¡¹£Ã£Ï£Â£Ï£Ì£¸£µ¤ò¸«¤Þ¤·¤¿¡£¡ÊA... ¹¾¿ÜÀð 2015-7-16 11:02
Re: µ×¡¹£Ã£Ï£Â£Ï£Ì£¸£µ¤ò¸«¤Þ¤·¤¿¡£¡ÊA... gai 2015-7-17 13:14
Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELE... gai 2015-7-17 14:09
Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELE... GAI 2015-7-17 15:57
Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELE... £Å£Ø£Ã£È£Á£Î£Ç£Å 2015-7-19 16:24
Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELE... MAKI 2015-8-4 14:53
AT¡¡END¤ÏÀµ¤·¤¯Æ°¤¤¤Æ¤¤¤ë¤Î¤Ç¤Ï¡© ¥¿¡¼¥é¥ä¥ó 2015-7-22 0:23
Re: AT¡¡END¤ÏÀµ¤·¤¯Æ°¤¤¤Æ¤¤¤ë¤Î¤Ç¤Ï¡© gai 2015-7-23 15:07

1 AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢ ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹
GAI 2015-7-14 16:12  [ÊÖ¿®] [ÊÔ½¸]

¤³¤ó¤Ë¤Á¤Ï¤¤¤Ä¤âÂçÊѤªÀ¤ÏäˤʤäƤª¤ê¤Þ¤¹¡£

£Ã£Ï£Â£Ï£Ì85¤Ç¡¢
²¼µ­¤Î½èÍý¤ò¤·¤¿¾ì¹ç¡¢
ºÇ½ª¥ì¥³¡¼¥É¤òºï½ü¤·¤¿¸å¡¢
AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢
ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹¡£

¤½¤ì¤Ê¤ê¤Ë¥¹¥­¥ë¤Î¤¢¤ëÁ°Ç¤¼Ô¤¬ºî¤Ã¤¿¥×¥í¥°¥é¥à¤Ç¤¹¡£
ºÇ½ª¥ì¥³¡¼¥É¤¬ºï½ü¤µ¤ì¤¿¤é¡¢¥ì¥³¡¼¥É¤¬¤Ê¤¯¤Ê¤ë¤Î¤Ç¡¢AT END ¤Ë¤Ê¤ë¤È»×¤¦¤Î¤Ç¤¹¤¬¡¢
¤Ê¤¼AT END GOTO ABC-090¤¬Ìµ»ë¤µ¤ì¤Æ¤·¤Þ¤¦¤Î¤Ç¤·¤ç¤¦¤«¡©
¤É¤¦½èÃÖ¤¹¤ì¤Ð¤¤¤¤¤Ç¤·¤ç¤¦¤«¡©


£±¡¥RDB¥Õ¥¡¥¤¥ë¤ò½çÆɤß
£²¡¥ºï½ü¤¹¤ë
£³¡¥¼¡¤Î¥ì¥³¡¼¥É¤òÆɤà¡ÊºÇ½ª¥ì¥³¡¼¥É¡Ë
£´¡¥ºï½ü¤¹¤ë¡ÊºÇ½ª¥ì¥³¡¼¥É¡Ë
£µ¡¥¼¡¤Î¥ì¥³¡¼¥É¤òÆɤà¡ÊAT¡¡END¤Ë¤Ê¤ë¤Ï¤º¡Ë
£¶¡¥ºï½ü¤¹¤ë¡¡¢ª¡¡ÉÔÀµ¥¨¥é¡¼¡ª¡ª¡©

ABC-010.

READ XX-FILE AT END GOTO ABC-090.

DELETE XX-FILE .

GO TO ABC-010.

ABC-090.

¡ÚÎã¡Û
READ¡¡¥ì¥³¡¼¥É¡¡99997 ¢ªDELETE
READ¡¡¥ì¥³¡¼¥É¡¡99998¡¡¢ªDELETE
READ¡¡¥ì¥³¡¼¥É¡¡99999¡¡¢ªDELETE
READ¡¡ E M0021: (PRG=XXXXXX,ADR=00051C12) ÉÔÀµ½½¿Ê¿ô¥¨¥é¡½
2 Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢ ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹
²¹Àô¹¥¤­¤Î¤¦¤µ¤® 2015-7-14 18:57  [ÊÖ¿®] [ÊÔ½¸]

¤Þ¤ºÂè°ì¤Ëµ¿¤¦¤Ù¤­¤â¤Î¤Ï¡¢¥Õ¥¡¥¤¥ë¤ËÂФ¹¤ë I-O Ì¿Î᤬Àµ¾ï¤Ë¼Â¹Ô¤µ¤ì¤Æ¤¤¤ë¤Î¤«¤É¤¦¤«¤È¤¤¤¦¤³¤È¤Ç¤¹¡£
¤¹¤Ê¤ï¤Á¡¢AT END ¤¬Ìµ»ë¤µ¤ì¤¿¤Î¤Ç¤Ï¤Ê¤¯¡¢READ Ì¿ÎἫÂΤ¬Àµ¤·¤¯¼Â¹Ô¤µ¤ì¤Ê¤«¤Ã¤¿¤È¹Í¤¨¤ë¤Ù¤­¤Ç¤¹¡£
¤½¤ì¤ò¥Á¥§¥Ã¥¯¤¹¤ëºÇ¤â´Êñ¤ÊÊýË¡¤Ï¡¢¡ÖOPEN¡×¡ÖREAD¡×¡ÖDELETE¡×³ÆÌ¿Îá¤Îľ¸å¤Ë¥Õ¥¡¥¤¥ë¥¹¥Æ¡¼¥¿¥¹¤ÎÃͤò²èÌÌɽ¼¨¤µ¤»¤ë¤³¤È¤Ç¤¹¡£

¤¹¤Ù¤ÆÃͤ¬Àµ¾ï½ªÎ»¤Ç¤¢¤ì¤Ð¡¢Ê̤θ¶°ø¤òõ¤¹É¬Íפ¬¤¢¤ê¤Þ¤¹¡£
3 Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢ ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹
¥¿¡¼¥é¥ä¥ó 2015-7-15 0:52  [ÊÖ¿®] [ÊÔ½¸]

»ä¤â²¹Àô¹¥¤­¤Î¤¦¤µ¤®¤µ¤ó¤ÈƱ¤¸°Õ¸«¤Ç¤¹¡£
READ¤Ê¤É¤ÎÌ¿Îá¼Â¹Ô¸å¤Î¥Õ¥¡¥¤¥ë¥¹¥Æ¡¼¥¿¥¹¤ò¸«¤Æ¤ß¤¿Êý¤¬¤¤¤¤¤Ç¤¹¡£
Î㤨¤Ð
READ XX-FILE AT END GOTO ABC-090.
¤Î¸åÊÕ¤ê¤Ç¡¢
IF ¥Õ¥¡¥¤¥ë¥¹¥Æ¡¼¥¿¥¹(1:1¡ËNOT= '0'
¡¡DISPLAY ¥Õ¥¡¥¤¥ë¥¹¥Æ¡¼¥¿¥¹
END-IF
¤ß¤¿¤¤¤Ê´¶¤¸¤Ç¡£

¤Ê¤ó¤È¤Ê¤¯ÉáÄ̤˹ͤ¨¤ë¤È¡¢ºÇ½ª¥ì¥³¡¼¥É¤òºï½ü¤·¤¿¤Î¤Ç¼¡¤ÏAT END¤È¤Ê¤ë¡¢¤È¤¤¤¦¤è¤¦¤Ë¤â»×¤ï¤ì¤Þ¤¹¤¬¡¢¼Â¤ÏÊ̤Υ¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤«¤â¤·¤ì¤Þ¤»¤ó¡£


¤½¤ì¤Ê¤ê¤Ë¥¹¥­¥ë¤Î¤¢¤ëÁ°Ç¤¼Ô¤¬ºî¤Ã¤¿¥×¥í¥°¥é¥à¤È¤Î¤³¤È¤Ç¤¹¤¬¡¢º£¤Þ¤Ç¤º¤Ã¤ÈÆ°¤¤¤Æ¤¤¤¿¤±¤ÉÆÍÁ³¥¨¥é¡¼¤¬½Ð¤ë¤è¤¦¤Ë¤Ê¤Ã¤ÆÆ°¤«¤Ê¤¯¤Ê¤Ã¤¿¤È¤¤¤¦¤è¤¦¤Ê¡¢º£¤Þ¤Ç¤½¤ì¤Ê¤ê¤Ë¼ÂÀÓ¤¬¤¢¤ë¤È¤¤¤¦¤ï¤±¤Ç¤Ï¤Ê¤¤¤Ç¤¹¤è¤Í¡£¤½¤Î¿Í¤¬ºî¤Ã¤¿¤³¤È¤Ïºî¤Ã¤¿¤¬¡¢Æ°¤«¤·¤¿¤Î¤Ïº£²ó½é¤á¤Æ¤È¤¤¤¦¤³¤È¤Ç¤¹¤è¤Í¡£


¤È¤³¤í¤ÇORGANIZATION¤Ï²¿¤ò»ØÄꤷ¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«


¤³¤Î¥×¥í¥°¥é¥à¤Ï²¿¤ò¤·¤è¤¦¤È¤·¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡¢Á´Éô¤Î¥ì¥³¡¼¥É¤òºï½ü¤·¤Æ¥Æ¡¼¥Ö¥ë¤ò¤Þ¤Ã¤µ¤é¤Ë¤¹¤ë¤È¤¤¤¦¥×¥í¥°¥é¥à¤Ç¤·¤ç¤¦¤«
4 Re: µ×¡¹£Ã£Ï£Â£Ï£Ì£¸£µ¤ò¸«¤Þ¤·¤¿¡£¡ÊAT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢ ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹¡Ë
¹¾¿ÜÀð 2015-7-16 11:02  [ÊÖ¿®] [ÊÔ½¸]

»ä¤âµ×¡¹¤Ë¸«¤ë¤Î¤Ç¡¢µ­²±°ã¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢

¥×¥í¥°¥é¥àÆâ¤Ç£Æ£É£Ì£Å¡¡£Ó£Ô£Á£Ô£Õ£Ó¤ò°ì¤«½ê¤â»È¤Ã¤Æ¤Ê¤¤¾ì¹ç¤Ï
£Á£Ô¡¡£Å£Î£Ä¡¡¤ÇºÆÆɤ߹þ¤ß¤ò¼Â¹Ô¤¹¤ë¤ÈÌ¿Îá¼Â¹Ô½ç½ø¥¨¥é¡¼¤Ç
¥¨¥é¡¼É½¼¨¤¹¤ë¤Î¤Ç¤Ï¤Èµ­²±¤·¤Æ¤ª¤ê¤Þ¤¹¡£

¤·¤«¤·¤Ê¤¬¤é£Æ£É£Ì£Å¡¡£Ó£Ô£Á£Ô£Õ£Ó¤ò»È¤Ã¤Æ¤¤¤ë¾ì¹ç¤Ï
¤½¤ÎÌ¿Îá¤Ç£Ï£Ó¤«¤é¤Î¥¨¥é¡¼¤Ïɽ¼¨¤µ¤ì¤º¡£
¼¡¤Î¹Ô¤Çɬ¤º£Ó£Ô£Á£Ô£Õ£Ó¤ò£É£ÆÌ¿Îá¤Ç³Î¤«¤á¤ëɬÍפ¬
¤¢¤ë¤È»×¤¤¤Þ¤¹¡£

¤Þ¤¿¡¢£Ä£Å£Ì£Å£Ô£ÅÌ¿Îá¤ÇÉÔÀµ½½¿Ê¿ô¤Ï¥¨¥é¡¼½Ð¤Ê¤¤¤Èµ­²±¤·¤Æ¤ª¤ê¤Þ¤¹¡£

ÀâÌÀ¾å¾Êά¤·¤Æ¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤¬£Ò£Å£Á£Ä¤Î¸å¡¢²¿¤é¤«¤Î½èÍý¤Ç¥¨¥é¡¼¤¬½Ð¤Æ¤¤¤ë¤È¹Í¤¨¤Þ¤¹¡£

ÂбþÊýË¡¤Ï

£±¡¥Á´¤Æ¤Î£Æ£É£Ì£Å¡¡£Ó£Ô£Á£Ô£Õ£Ó¤ò¥³¥á¥ó¥È¤Ë¤·¤Æ
¡¡£Ï£Ó¤Î¥¨¥é¡¼µ¡Ç½¤Î¤ß¤Ç¼Â¹Ô¤¹¤ë
£²¡¥Á´¤Æ¤ÎÆþ½ÐÎÏÌ¿Îá¡Ê£Ï£Ð£Å£Î¡¢£Ã£Ì£Ï£Ó£Å¡¢£Ò£Å£Á£Ä¡¢£Ä£Å£Ì£Å£Ô£ÅÅù¡Ë¤Îľ¸å¤Ç£Ó£Ô£Á£Ô£Õ£Ó¤ò³Îǧ¤·¤ÆÁ´¤Æ¼«¸Ê´ÉÍý¤Ë¤¹¤ë

¤Î¤É¤Á¤é¤«¤Ë¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£
ÃæÅÓȾü¡Ê¤¹¤¤¤Þ¤»¤ó¸ÀÍÕ¤¬¤­¤Ä¤¤¤«¤â¡Ë¤Ë£Ó£Ô£Á£Ô£Õ£Ó¤ò³Îǧ¤¹¤ë¤ÈÀµ¤·¤¤È½Ä꤬¤Ç¤­¤Þ¤»¤ó¡£
¤Þ¤º¤Ï¤½¤³¤ò¤´³Îǧ¤¯¤À¤µ¤¤¡£

£Ð£Ó¡§
¤½¤ì¤Ë¤·¤Æ¤âµì£±£°£°¤«¤é£Ã£Ï£Â£Ï£Ì¤¬¤¢¤Ã¤¿¤Î¤Ç¤½¤ì¤ò°ú¤­·Ñ¤¤¤À¥×¥í¥°¥é¥à¤¬Â¿¤¤¤Î¤Ç
£Ç£Ï¡¡£Ô£Ï¡¡¤¢¤ê¤¢¤ê¤Î¥×¥í¥°¥é¥à¤Ï¤ä¤à¤òÆÀ¤Ê¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¤¬
¿·µ¬¤Ç¤¢¤ì¤Ð£Ã£Ï£Â£Ï£Ì£¸£µ¤Ï£Å£Î£Ä¡Ý£Ø£Ø£Ø¤È£Ð£Å£Ò£Æ£Ï£Ò£Í
¤ò»È¤Ã¤¿¹½Â¤²½¥×¥í¥°¥é¥à¤¬ºîÀ®¤¬²Äǽ¤Ë¤Ê¤ê¤Þ¤¹¡£
¥Ç¡¼¥¿¥Ù¡¼¥¹¤Î£Ó£Å£Ì£Å£Ã£Ô¤ÈÌ¿Îá¤ÈÁȤ߹ç¤ï¤»¤ë¤È
¤«¤Ê¤ê¤¹¤Ã¤­¤ê¤·¤¿¥×¥í¥°¥é¥à¤Ë¤Ê¤ê¤Þ¤¹¡£
¤¤¤Þ¤µ¤é¤Ç¤¹¤¬»²¹Í¤Î°Ù¤Ë¼Ø­¤ò½ñ¤­¤Þ¤·¤¿¡£
5 Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢ ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹
GAI 2015-7-17 11:24  [ÊÖ¿®] [ÊÔ½¸]

¥Õ¥¡¥¤¥ë¥¹¥Æ¡¼¥¿¥¹¤Ç¤¹¤Í¡©¡ª
¤ä¤êÊýÄ´¤Ù¤Æ¼Â»Ü¤·¤Æ¤ß¤Þ¤¹¡ª
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡É
6 Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢ ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹
gai 2015-7-17 11:53  [ÊÖ¿®] [ÊÔ½¸]

¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¤ª¤Ã¤·¤ã¤ë¤È¤ª¤ê¡¢¤½¤ì¤Ê¤ê¤Ë¼ÂÀÓ¤¬¤¢¤ë¤È¤¤¤¤¤Ä¤Ä¡¢
¤¢¤ë¤È¤¤¤¦¤ï¤±¤Ç¤Ï¤Ê¤¤¤Ç¤¹¤è¤Í¡£
10ǯ°Ê¾åËè·îÆ°¤¤¤Æ¤¤¤ë£Ð£Ç¤Ç¤¹¤¬¡¢
¤â¤·¤«¤·¤¿¤é²áµî¤â¤¢¤Ã¤¿¤Î¤«¤â¤·¤ì¤Þ¤»¤ó¡£

ORGANIZATION IS INDEXED

¤È¤Ê¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£

£Ò£Ä£Â¤òº÷°ú½ç¤ËÆɤߤʤ¬¤é¡¢
¤¢¤ë¾ò·ï¤Ë¹çÃפ·¤¿¡¢¸Å¤¤¥ì¥³¡¼¥É¤òºï½ü¤¹¤ë¡¢
¤È¤¤¤¦½èÍý¤Ç¤¹¡£


7 Re: µ×¡¹£Ã£Ï£Â£Ï£Ì£¸£µ¤ò¸«¤Þ¤·¤¿¡£¡ÊAT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢ ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹¡Ë
gai 2015-7-17 13:14  [ÊÖ¿®] [ÊÔ½¸]

¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

£Æ£É£Ì£Å¡¡£Ó£Ô£Á£Ô£Õ£Ó¤Ç¥½¡¼¥¹¤ò¸¡º÷¤·¤¿¤È¤³¤í¡¢
FILE-CONTROL.¤Ç
¤Ê¤ó¤³¤«¤ÎSELECT¡¡¤Ç
FILE STATUS IS XXXXX
¤È½ñ¤¤¤Æ¤¢¤ê¤Þ¤·¤¿¡£
file status¤È¤Ï¡¡¤³¤Îµ­½Ò¤Î¤³¤È¤Ç¤·¤ç¤¦¤«¡©
¤³¤³¤ÇÄêµÁ¤·¤Æ¤ª¤­¤Ê¤¬¤é¡¢
¼ÂºÝ¤Îprocedure¡¡division¤Ç¤Ï¡¢
file status xxxx ¤Ï»È¤Ã¤Æ¤ª¤ê¤Þ¤»¤ó¤¬¡£

¤·¤¿¤¬¤Ã¤Æ¡¢FILE status ¤òÁ´½èÍý¤Ç¡¡DISPLAY¤·¤Æ¤ß¤Þ¤¹¡£

8 Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢ ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹
gai 2015-7-17 14:09  [ÊÖ¿®] [ÊÔ½¸]

¤³¤ó¤Ë¤Á¤Ï¡£

³Æ½ê¤ËDISPLAY¤òÆþ¤ì¤Æ¡¢
fileSTATUS¤òɽ¼¨¤·¤Æ¤ß¤Þ¤·¤¿¡£

ºÇ¸å¤Î¥ì¥³¡¼¥É¤¬DELETE ¤µ¤ì¤¿¤¢¤È¡¢
ºÆÅÙREADÌ¿Îá¤ò¼Â¹Ô¤·¤¿ºÝ¡¢

READ¡¡XXXX¡¡NEXT
AT END ¤Îľ¸å¤Ë
DISPLAY¡¡¤·¤¿¤È¤³¤í
¡¡¡É£±£°¡É¡¡
¤¬É½¼¨¤µ¤ì¤Þ¤·¤¿¡£

10¤ÏAT¡¡END¤Ç¤¹¤è¤Í¡©

ɽ¼¨¤·¤¿¤¢¤È¡¢¤½¤³¤Ç¡¡½½¿Ê¿ô¥¨¥é¡¼¤Ë¤Ê¤ê¤Þ¤¹¡£

¤â¤·¤«¤·¤¿¤é¡¢KEY¤Ë¡¡HIGH-VALUE ¤òÆþ¤ì¤Æ¤¤¤ë¤«¤é¤¤¤±¤Ê¤¤¤Î¤Ç¤Ç¤¹¤«¡©¡©

READ XXXX NEXT
AT END
DISPLAY STS UPON AAA-GDD
MOVE HIGH-VALUE TO XXXX-KEY2.

¤È½ñ¤¤¤Æ¤¢¤ê¤Þ¤¹¡£


9 Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢ ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹
GAI 2015-7-17 15:57  [ÊÖ¿®] [ÊÔ½¸]

¤³¤ó¤Ë¤Á¤Ï¡£

¤¿¤á¤·¤Ë¡¢

MOVE HIGH-VALUE TO XXXX-KEY2.

¢­

MOVE 88888888 TO XXXX-KEY2.

¤È¤ä¤Ã¤¿¤é¡¢¥¨¥é¡¼¤Ë¤Ê¤é¤Ê¤¯¤Ê¤ê¤Þ¤·¤¿¡£

¾å°Ì¤Î¥í¥¸¥Ã¥¯¤Ç¤Ï¡¢

XXXX-KEY2¡¡¤¬¡¡88888888¡¡¤À¤Ã¤¿¤é¡¢
½èÍý½¤Î»Åª¤Ë¼ê³¤­¤ò»Å¹þ¤ß¤Þ¤·¤¿¡£

¤È¤ê¤¢¤¨¤ºÌµÍý¤ä¤ê¤Ç¤¹¤¬¡¢¤³¤ì¤Ç±¿ÍѤϤǤ­¤½¤¦¤Ç¤¹¤¬¡¢
¤Ê¤ó¤Ç¡¡HIGH-VALUE ¤òÆþ¤ì¤¿¤é
½½¿Ê¿ô¥¨¥é¡¼¤Ê¤Î¤«¤ÏÉԻ׵ĤǤ¹¡£







10 Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢ ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹
£Å£Ø£Ã£È£Á£Î£Ç£Å 2015-7-19 16:24  [ÊÖ¿®] [ÊÔ½¸]

¡ù ÇÒ¸«¤µ¤»¤Æ¤¤¤¿¤À¤¤¤Æ¡¢Á°Ç¤¼Ô¤Ï¤«¤Ê¤ê¸ÅÉ÷¤Ê¥½¥Õ¥È½ñË¡¤ò¤´Â¸¤¸¤ÎÊý¤È»×¤¤¤Þ¤¹¡£¤Ò¤ç¤Ã¤È¤·¤¿¤é£Á¡Ý£Ö£Ø°Ê³°¤Ç¤Î£Ã£Ï£Â£Ï£Ì¤ò»È¤Ã¤Æ¤ª¤é¤ì¤¿·Ð¸³¼Ô¤«¤â¡©low-value high-value¤òend¤¬¤é¤ß¤Ç»È¤ï¤ì¤Æ¤¤¤ë¤È¤³¤í¤Ê¤ó¤«¤½¤ì¤Ã¤Ý¤¤´¶¤¸¤¬¤·¤Þ¤¹¡Ë

¡ù¤½¤ì¤Ï¤È¤â¤«¤¯¡¢»ä¤Ï¹¾¿ÜÀ𤵤ó¤Î¤´»ØŦ¤¬¡Ê¸½ºß¤Ê¤é¡ËÂÅÅö¤Ê½ñË¡¤Ç¤Ï¤Ê¤¤¤«¤ÈƱ´¶¤¤¤¿¤·¤Þ¤¹¡£

°Ê²¼¡¢¡Ê¹¾¿ÜÀð»á¤è¤ê°úÍÑ¡Ë
>¤½¤ì¤Ë¤·¤Æ¤âµì£±£°£°¤«¤é£Ã£Ï£Â£Ï£Ì¤¬¤¢¤Ã¤¿¤Î¤Ç¤½¤ì¤ò°ú¤­·Ñ¤¤¤À¥×¥í¥°¥é¥à¤¬Â¿¤¤¤Î¤Ç
>£Ç£Ï¡¡£Ô£Ï¡¡¤¢¤ê¤¢¤ê¤Î¥×¥í¥°¥é¥à¤Ï¤ä¤à¤òÆÀ¤Ê¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¤¬
>¿·µ¬¤Ç¤¢¤ì¤Ð£Ã£Ï£Â£Ï£Ì£¸£µ¤Ï£Å£Î£Ä¡Ý£Ø£Ø£Ø¤È£Ð£Å£Ò£Æ£Ï£Ò£Í
¤ò»È¤Ã¤¿¹½Â¤²½¥×¥í¥°¥é¥à¤¬ºîÀ®¤¬²Äǽ¤Ë¤Ê¤ê¤Þ¤¹¡£
>¥Ç¡¼¥¿¥Ù¡¼¥¹¤Î£Ó£Å£Ì£Å£Ã£Ô¤ÈÌ¿Îá¤ÈÁȤ߹ç¤ï¤»¤ë¤È
¤«¤Ê¤ê¤¹¤Ã¤­¤ê¤·¤¿¥×¥í¥°¥é¥à¤Ë¤Ê¤ê¤Þ¤¹¡£
11 AT¡¡END¤ÏÀµ¤·¤¯Æ°¤¤¤Æ¤¤¤ë¤Î¤Ç¤Ï¡©
¥¿¡¼¥é¥ä¥ó 2015-7-22 0:23  [ÊÖ¿®] [ÊÔ½¸]

HIGH-VALUE¤ò8888¡¦¡¦¤Ëľ¤·¤Æ¤¦¤Þ¤¯Æ°¤¯¤è¤¦¤Ë¤Ê¤Ã¤¿¤Î¤Ç¤·¤¿¤é¡¢Îɤ¤¤È¤Ï»×¤¤¤Þ¤¹¤¬¡¦¡¦¡¦


¤â¤È¤â¤È¤Î¤´¼ÁÌä¤Ï

¡ÖºÇ½ª¥ì¥³¡¼¥É¤¬ºï½ü¤µ¤ì¤¿¤é¡¢¥ì¥³¡¼¥É¤¬¤Ê¤¯¤Ê¤ë¤Î¤Ç¡¢AT END ¤Ë¤Ê¤ë¤È»×¤¦¤Î¤Ç¤¹¤¬¡¢
¤Ê¤¼AT END GOTO ABC-090¤¬Ìµ»ë¤µ¤ì¤Æ¤·¤Þ¤¦¤Î¤Ç¤·¤ç¤¦¤«¡©¡×

¤À¤Ã¤¿¤È»×¤¤¤Þ¤¹¡£

¡ÖºÇ¸å¤Î¥ì¥³¡¼¥É¤¬DELETE ¤µ¤ì¤¿¤¢¤È¡¢
ºÆÅÙREADÌ¿Îá¤ò¼Â¹Ô¤·¤¿ºÝ¡¢
READ¡¡XXXX¡¡NEXT
AT END ¤Îľ¸å¤Ë
DISPLAY¡¡¤·¤¿¤È¤³¤í
¡¡¡É£±£°¡É¡¡
¤¬É½¼¨¤µ¤ì¤Þ¤·¤¿¡£¡×

¤È¤¤¤¦¤³¤È¤Ê¤é¤Ð¡¢
AT END¤Îľ¸å¤ÎDISPLAYʸ¤¬¼Â¹Ô¤µ¤ì¤¿¤È¤¤¤¦¤³¤È¤Ç¤¹¤Î¤Ç¡¢
¡ÖºÇ½ª¥ì¥³¡¼¥É¤¬ºï½ü¤µ¤ì¤¿¤é¡¢¥ì¥³¡¼¥É¤¬¤Ê¤¯¤Ê¤ë¤Î¤Ç¡¢AT END¤Ë¤Ê¤Ã¤Æ¤¤¤ë¡×
¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£



¥×¥í¥°¥é¥à¤Î°ìÉôʬ¤·¤«¸«¤¨¤Ê¤¤¤Î¤Ç¡¢¤Ï¤Ã¤­¤ê¤È¤Ï¤ï¤«¤ê¤Þ¤»¤ó¤¬¡¢
¼Â¤ÏGOTOʸ¤ÎÁ°¤ËHIGH-VALUE¤òMOVE¤¹¤ë½èÍý¤â¤¢¤ë¤è¤¦¤Ç¤¹¤·¡¢
Î㤨¤Ð¡¢MOVE¤ÈGOTO¤Î´Ö¤ÎÊ̤ÎÌ¿Î᤬¤¢¤Ã¤ÆÉÔÀµ½½¿Ê¥¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤È¤«¡¢
XXXX-KEY2¤¬±Ñ¿ô»ú¹àÌܤÇÄêµÁ¤µ¤ì¤Æ¤¤¤Æ¡¢HIGH-VALUE¤òÆþ¤ì¤¿¸å¤Ë
¤É¤³¤«¤ÇXXXX-KEY2¤ò»È¤Ã¤Æ·×»»¤·¤Æ¡ÊÎ㤨¤ÐCOMPUTE A=XXXX-KEY/2¤Î¤è¤¦¤Ë¡Ë
ÉÔÀµ½½¿Ê¥¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤È¤«
AT END¤ÈGOTO¤Î´Ö¤¬¶õ¤¤¤Æ¤¤¤ë¤Î¤Ê¤é¡¢GOTO¤Ç¥¸¥ã¥ó¥×¤·¤Ê¤¤·ÐÏ©¤¬¤¢¤êͽÁÛ³°¤Î¾ì½ê¤ò¼Â¹Ô¤·¤Æ¤¤¤ë¤È¤«
¤É¤³¤«¤Ë¥í¥¸¥Ã¥¯¤Ë¸í¤ê¤¬¤¢¤ë¤Î¤Ç¤Ï¤Ê¤¤¤«¡¢¤È¤¤¤¦µ¤¤â¤·¤Þ¤¹¡£


12 Re: AT¡¡END¤ÏÀµ¤·¤¯Æ°¤¤¤Æ¤¤¤ë¤Î¤Ç¤Ï¡©
gai 2015-7-23 15:07  [ÊÖ¿®] [ÊÔ½¸]

ÀâÌÀ¤ï¤«¤ê¤Å¤é¤¯¤Æ¤¹¤ß¤Þ¤»¤ó¡£

¾Êά¤·¤Æ¥·¥ó¥×¥ë¤Ë½ñ¤­¤¹¤®¤¿¤Î¤È¡¢
¾ðÊ󳫼¨¤ÎÌäÂê¤ÇÂçÊѤ狼¤ê¤Å¤é¤¯¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£

³¬Áع½Â¤¤Ë¤Ê¤Ã¤Æ¤ª¤ê¡¢­¡¿Æ¡¡­¢»Ò¡¡­£Â¹

¤È¤Ê¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£

¤¿¤À¤·¡¢¤³¤ì¤Ç¤â¤µ¤é¤Ë¾å°Ì³¬ÁؤΥ롼¥Á¥ó¤¬¤¢¤ê¤Þ¤¹¡£
¤½¤³¤Þ¤Çµ¿¤¦¤È¥­¥ê¤¬¤¢¤ê¤Þ¤»¤ó¤·
¥Õ¥¡¥¤¥ë¥ì¥¤¥¢¥¦¥È¤¬¤É¤¦¤Ê¤Ã¤Æ¤ë¤ó¤À¤È¤«¡¢
£Ä£Â¤Î¾ÜºÙ¤Ï¤É¤¦¤À¤È¤«¤¤¤¦Ïäˤâ¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¤Î¤Ç¡¢
¤¢¤­¤é¤á¤Þ¤¹¡£
¤Ç¤â¤º¤¤¤Ö¤ó¥¹¥Ã¥­¥ê¤·¤Þ¤·¤¿¡£

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



***********************************************************
­¡¡¡PERFORM DELETE-PROC UNTIL WK-DNO NOT = XXXX-DNO.
***********************************************************



­¢
***********************************************************
DELETE-PROC SECTION.
KK-010.
DELETE XXXX-F INVALID KEY
MOVE MSG-ABC TO KB-MSG1
MOVE XX-KEY TO KB-MSG2
PERFORM MSG-RTN THRU MSG-EXT.
PERFORM READ-PROC.
KK-DELETE-EXIT.
EXIT.
***********************************************************


­£
***********************************************************
READ-PROC SECTION.
K-010.
READ XXXX-F NEXT
AT END MOVE HIGH-VALUE TO XXXX-KEY2.
READ-EXIT.
EXIT.
***********************************************************

¡¡XXXX-KEY2 ¤Ï¿ô»ú¹àÌÜ¡¡½¸ÃĹàÌÜ

¡¡XXXX-DNO 9(06)
¡¡XXXX-KNO 9(02)

WK-DNO¡¡9(06) ¤Ï¥Ö¥ì¡¼¥¯¤·¤¿¤È¤­XXXX-DNO¤òÂàÈò¤¹¤ë¥ï¡¼¥¯¹àÌÜ
13 Re: AT¡¡END¡¡¤¬Ìµ»ë¤µ¤ì¤Æ¡¢ºÆÅÙ¡¢DELETE½èÍý¤ò¹Ô¤¤¡¢ ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ç¡¡¥¢¥Ü¡¼¥È¤·¤Æ¤·¤Þ¤¤¤Þ¤¹
MAKI 2015-8-4 14:53  [ÊÖ¿®] [ÊÔ½¸]

HIGH-VALUE¤ÏÆâÉô¥³¡¼¥É¤ÏFF¤Ê¤ó¤Ç¿ôÃ͹àÌܤËMOVE¤·¤è¤¦¤È¤¹¤ë¤È
ÉÔÀµ½½¿Ê¿ô¥¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤È¤¤¤¦¤³¤È¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£
¤ï¤¶¤È¥¢¥Ü¡¼¥È¤µ¤»¤Æ¥×¥í¥°¥é¥à¤ò½ªÎ»¤µ¤»¤Æ¤¤¤ë¤Ê¤ó¤Æ¤³¤È¤Ï
¤Ê¤¤¤Ç¤·¤ç¤¦¤Í¡©

BluesBB ©Sting_Band