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

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

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


Re:£Í£É£Ø¹àÌܤΣ±¡¤£²¥Ð¥¤¥Èʸ»úȽÃÇ ÉÙ»³À¶É÷ 2005-4-13 13:03
Re:£Í£É£Ø¹àÌܤΣ±¡¤£²¥Ð¥¤¥Èʸ»úȽÃÇ ¤¦¤É¤ó 2005-4-13 18:07
Re:£Í£É£Ø¹àÌܤΣ±¡¤£²¥Ð¥¤¥Èʸ»úȽÃÇ ÉÙ»³À¶É÷ 2005-4-13 18:23
´ª°ã¤¤¤·¤Æ¤Þ¤·¤¿ ¤¦¤É¤ó 2005-4-14 15:52
Re:´ª°ã¤¤¤·¤Æ¤Þ¤·¤¿ ÉÙ»³À¶É÷ 2005-4-14 18:46

2 Re:£Í£É£Ø¹àÌܤΣ±¡¤£²¥Ð¥¤¥Èʸ»úȽÃÇ
ÉÙ»³À¶É÷ 2005-4-13 13:03  [ÊÖ¿®] [ÊÔ½¸]

¡Ö¤¦¤É¤ó¡×¤µ¤ó¡¢¤³¤ó¤Ë¤Á¤Ï¡£



»ä¤Ï°Ê²¼¤Î¤è¤¦¤Ë¤·¤ÆȽÃǤ·¤Æ¤¤¤Þ¤¹¡£



£±¥Ð¥¤¥È¤Å¤Ä½ç¼¡¥Á¥§¥Ã¥¯¤·¡¢²¼µ­¥Æ¡¼¥Ö¥ë¤È¾È¹ç¤·¡¢

¡Ö£Á¡×¤Ç¤¢¤ì¤Ð¡¢ANK¤Ç¤¢¤ê¡¢

¡Ö£Ê¡×¤Ç¤¢¤ì¤Ð¡¢Á´³Ñ¤ÎÁ°È¾¤Ç¤¢¤ë¤¿¤á¡¢

¼¡¤Î£±¥Ð¥¤¥È¡ÊÁ´³Ñ¤Î¸åȾ¡Ë¤È¹ç¤ï¤»¤Æ£²¥Ð¥¤¥È¤¹¤Ê¤ï¤ÁÁ´³Ñ£±Ê¸»ú¤È¤·¤Æ°·¤Ã¤Æ¤¤¤Þ¤¹¡£



¤Á¤Ê¤ß¤Ë¡¢²¼µ­¤Îɽ¤Ï¡¢¡ÖA-VX­¸¥á¥Ã¥»¡¼¥¸´ÉÍý£³ÀâÌÀ½ñ¤ÎÉÕÏ¿£Â¤Î£Â¡Ý£¶¤Ëµ­ºÜ¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤ò»È¤Ã¤Æ¤¤¤Þ¤¹¡×



°Ê¾å¤Ç¤¹¤¬¡¢¤ªÌò¤Ë¤¿¤Æ¤Ð¹¬¤¤¤Ç¤¹¡£



"001420 01  CON-CNV-TBL."
"001430****                                        0123456789ABCDEF"
"001440     03  F               PIC  X(16)  VALUE "AAAAJAJAJJJAAAAA".     0"
"001450     03  F               PIC  X(16)  VALUE "AAAAJAAJAAJJAAAA".     1"
"001460     03  F               PIC  X(16)  VALUE "JJJJJJAAJJJJJAAA".     2"
"001470     03  F               PIC  X(16)  VALUE "JJAJJJJAJJJJAAJA".     3"
"001480     03  F               PIC  X(16)  VALUE "AAAAAAAAAAAAAAAA".     4"
"001490     03  F               PIC  X(16)  VALUE "AAAAAAAJAJAAAAAA".     5"
"001500     03  F               PIC  X(16)  VALUE "AAJJJJJJJJJAAAAA".     6"
"001510     03  F               PIC  X(16)  VALUE "JJJJJJJJJJAAAAAA".     7"
"001520     03  F               PIC  X(16)  VALUE "JAAAAAAAAAAJAAAA".     8"
"001530     03  F               PIC  X(16)  VALUE "AAAAAAAAAAAJJAAA".     9"
"001540     03  F               PIC  X(16)  VALUE "JJAAAAAAAAAJAAAA".     A"
"001550     03  F               PIC  X(16)  VALUE "JAJJJJJJJJAAAAAA".     B"
"001560     03  F               PIC  X(16)  VALUE "JAAAAAAAAAJJJJJJ".     C"
"001570     03  F               PIC  X(16)  VALUE "AAAAAAAAAAJJJJJJ".     D"
"001580     03  F               PIC  X(16)  VALUE "AJAAAAAAAAJJJJJJ".     E"
"001590     03  F               PIC  X(16)  VALUE "AAAAAAAAAAJJJJJJ".     F"
"001600 01  CON-CNV-TBL-R       REDEFINES CON-CNV-TBL."
"001610     03  CON-CNV-T-O     OCCURS 256."
"001620       05  CON-CNV-T-1   PIC  X(01)."


----------end

3 Re:£Í£É£Ø¹àÌܤΣ±¡¤£²¥Ð¥¤¥Èʸ»úȽÃÇ
¤¦¤É¤ó 2005-4-13 18:07  [ÊÖ¿®] [ÊÔ½¸]

ÉÙ»³À¶É÷¤µ¤ó

¤µ¤Ã¤½¤¯¤Î²óÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£



£²¥Ð¥¤¥Èʸ»ú¤Î£±¥Ð¥¤¥ÈÌܤ¬¡¢A-VX­¸¥á¥Ã¥»¡¼¥¸´ÉÍý£³ÀâÌÀ½ñ¤Î

ÉÕÏ¿£Â¤Î£Â¡Ý£¶¤Îɽ¤Ë¤¢¤ëÃÍ(£±£¶¿Ê)¤Ê¤é£²¥Ð¥¤¥Èʸ»ú¤È¤¤¤¦·Á¤Ç

²ò¼á¤·¤Þ¤·¤¿¡£



¥Æ¥¹¥È¥×¥í¥°¥é¥à¤òºîÀ®¤·¤ÆÆ°¤«¤·¤Þ¤·¤¿¤¬¡¢È¾³Ñ¥¹¥Ú¡¼¥¹(40H¡Ë

¤â£²¥Ð¥¤¥È¤È¤·¤Æǧ¼±¤·¤Æ¤·¤Þ¤¤¤Þ¤¹¤è¤Í¡©

ɽ¤Î¸«¤«¤¿¤¬´Ö°ã¤Ã¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©

4 Re:£Í£É£Ø¹àÌܤΣ±¡¤£²¥Ð¥¤¥Èʸ»úȽÃÇ
ÉÙ»³À¶É÷ 2005-4-13 18:23  [ÊÖ¿®] [ÊÔ½¸]

Îó¤È¹Ô¤¬µÕ¤Ç¤Ï¤Ê¤¤¤Ç¤¹¤«¡©

5 ´ª°ã¤¤¤·¤Æ¤Þ¤·¤¿
¤¦¤É¤ó 2005-4-14 15:52  [ÊÖ¿®] [ÊÔ½¸]

> Îó¤È¹Ô¤¬µÕ¤Ç¤Ï¤Ê¤¤¤Ç¤¹¤«¡©



»×¤¤¤Ã¤­¤ê´ª°ã¤¤¤·¤Æ¤Þ¤·¤¿¡£

Î㤨¤Ð¡¢¥Á¥§¥Ã¥¯¤·¤¿¤¤Ãͤ¬¡ÉP2¡É(16¿Ê¤ÇD7)¤Ê¤é¡¢Á°²óÄó¼¨Äº¤¤¤¿

¥½¡¼¥¹Æâ¤Î CON-CNV-T-1 ¤Î¥¤¥ó¥Ç¥Ã¥¯¥¹¤ÎÃͤ¬¡¢216¤ÎÃͤò»²¾È

¤¹¤ë¤È¤¤¤¦»ö¤Ç¤¹¤Í¡£

(CON-CNV-T-1(216)¤ÎÃͤϡÉA¡É¤Ê¤Î¤Ç¡¢£±¥Ð¥¤¥Èʸ»ú¤È¤Ê¤ë)



¤¢¤È¡¢¥³¥Ü¥ë¤Ç16¿Ê¤Ë¤¹¤ëÌ¿Îá¤È¤«Ìµ¤¤¤Ç¤¹¤è¤Í¡©

6 Re:´ª°ã¤¤¤·¤Æ¤Þ¤·¤¿
ÉÙ»³À¶É÷ 2005-4-14 18:46  [ÊÖ¿®] [ÊÔ½¸]

> ¤¢¤È¡¢¥³¥Ü¥ë¤Ç16¿Ê¤Ë¤¹¤ëÌ¿Îá¤È¤«Ìµ¤¤¤Ç¤¹¤è¤Í¡©



ÊýË¡¤Ï¿§¡¹¤¢¤ë¤È»×¤¤¤Þ¤¹¤¬»ä¤·°Ê²¼¤Î¤è¤¦¤Ë¤·¤Æ¤¤¤Þ¤¹¡£



002080 01  WK-CNV-COMP                 COMP-1.
002090 01  WK-CNV-COMP-R           REDEFINES WK-CNV-COMP.
002100     03  WK-CNV-00           PIC X(01).
002110     03  WK-CNV-ANK          PIC X(01).
                                                            

004050         MOVE    LOW-VALUE       TO  WK-CNV-00.
004060         MOVE    WK-1 (IX-WORK)  TO  WK-CNV-ANK.
004080         COMPUTE WK-CNV-COMP     =   WK-CNV-COMP + 1
004090         IF    ( CON-CNV-T-1(WK-CNV-COMP) =   "J" )
004120             MOVE    "ANKŽÅŽ¼"     TO  STS-ANK-UMU
004110         ELSE
004120             MOVE    "ANKŽ±ŽØ"     TO  STS-ANK-UMU
004130         END-IF


»²¹Í¤Þ¤Ç¤Ë



BluesBB ©Sting_Band