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

NEC¥ª¥Õ¥³¥ó´ØÏ¢
¥ª¥Õ¥³¥ó°ìÈÌ
¾ðÊó
Re: AT¡¡END¤ÏÀµ¤·¤¯Æ°¤¤¤Æ¤¤¤ë¤Î¤Ç¤Ï¡©

Åê¹Æ¼Ô¡§ gai Åê¹ÆÆü»þ¡§ 2015-7-23 15:07:40

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

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

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

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

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

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



***********************************************************
­¡¡¡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¤òÂàÈò¤¹¤ë¥ï¡¼¥¯¹àÌÜ


̾Á°¢¨
Âê̾
¥á¥Ã¥»¡¼¥¸ url email imgsrc image code quote
¥µ¥ó¥×¥ë
bold italic underline linethrough  



 [¤â¤Ã¤È...]
¥Ñ¥¹¥ï¡¼¥É¢¨
¥ª¥×¥·¥ç¥ó ¢¨°õ¤Î¹àÌܤò¥¯¥Ã¥­¡¼¤ËÊݸ