[ Á°¤Î¥Ú¡¼¥¸ ] [ ¼¡¤Î¥Ú¡¼¥¸ ] [ Ìܼ¡ ] [ º÷°ú ] [ DOC Home ]

11¡¡OpenVMS Alpha¥³¥ó¥Ñ¥¤¥é

¤³¤Î¾Ï¤Ç¤Ï¡¤¥Í¥¤¥Æ¥£¥Ö¤ÊOpenVMS Alpha¥³¥ó¥Ñ¥¤¥é¸ÇÍ­¤Îµ¡Ç½¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£ ¤µ¤é¤Ë¡¤OpenVMS VAX¥³¥ó¥Ñ¥¤¥é¤Îµ¡Ç½¤Î¤¦¤Á¡¤ OpenVMS Alpha¥³¥ó¥Ñ¥¤¥é¤Ç¤Ï¥µ¥Ý¡¼¥È¤µ¤ì¤Ê¤¤µ¡Ç½¤È¡¤ Æ°ºî¤¬Êѹ¹¤µ¤ì¤¿µ¡Ç½¤Ë¤Ä¤¤¤Æ¤â¼¨¤·¤Þ¤¹¡£

°Ê²¼¤Ë¤³¤Î¾Ï¤ÇÀâÌÀ¤¹¤ë¥³¥ó¥Ñ¥¤¥é¤ò¼¨¤·¤Þ¤¹¡£

¥³¥ó¥Ñ¥¤¥é¤ÎÁê°ãÅÀ¤¬È¯À¸¤¹¤ë¤Î¤Ï¡¤¼¡¤Î2¤Ä¤ÎÍýͳ¤Ë¤è¤ê¤Þ¤¹¡£¤½¤ì¤Ï¡¤ OpenVMS VAX¤ÇÆ°ºî¤¹¤ë¥³¥ó¥Ñ¥¤¥é¤Î°ÊÁ°¤Î¥Ð¡¼¥¸¥ç¥ó¤È¸½ºß¤Î¥Ð¡¼¥¸¥ç¥ó¤È¤Î´Ö¤Ë°ã¤¤¤¬¤¢¤ë¤¿¤á¤È¡¤ VAX¥³¥ó¥Ô¥å¡¼¥¿¤ÈAlpha¥³¥ó¥Ô¥å¡¼¥¿¤ÇÆ°ºî¤¹¤ë¥Ð¡¼¥¸¥ç¥ó¤Ë°ã¤¤¤¬¤¢¤ë¤¿¤á¤Ç¤¹¡£ OpenVMS Alpha¥³¥ó¥Ñ¥¤¥é¤Ï¡¤OpenVMS VAX¤ÎÂбþ¤¹¤ë¥³¥ó¥Ñ¥¤¥é¤È¸ß´¹À­¤ò°Ý»ý¤¹¤ë¤è¤¦¤ËÀ߷פµ¤ì¤Æ¤¤¤Þ¤¹¡£ ¤³¤Î¸å¤ÎÀá¤Ë¼¨¤¹¤è¤¦¤Ë¡¤¸ß´¹À­¤ò°Ý»ý¤¹¤ë¤¿¤á¤Ë¤¤¤¯¤Ä¤«¤Î½¤¾þ»Ò¤¬Ä󶡤µ¤ì¤Þ¤¹¡£

¸À¸ì¤Ï¸À¸ìɸ½àµ¬³Ê¤Ë½àµò¤·¡¤OpenVMS VAX¤ÎÂçÉôʬ¤Î¸À¸ì³ÈÄ¥µ¡Ç½¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£ ¥³¥ó¥Ñ¥¤¥é¤ÏOpenVMS VAX¥·¥¹¥Æ¥à¤Î¾ì¹ç¤ÈƱ¤¸¾Êά»þ¤Î¥Õ¥¡¥¤¥ë¡¦¥¿¥¤¥×¤ò»ÈÍѤ·¤Æ½ÐÎÏ¥Õ¥¡¥¤¥ë¤òºîÀ®¤·¤Þ¤¹¡£ ¤¿¤È¤¨¤Ð¡¤¥ª¥Ö¥¸¥§¥¯¥È¡¦¥â¥¸¥å¡¼¥ë¤Î¥Õ¥¡¥¤¥ë¡¦¥¿¥¤¥×¤Ï.OBJ¤Ç¤¹¡£

¤·¤«¤·¡¤OpenVMS VAX¥·¥¹¥Æ¥à¤Î¥³¥ó¥Ñ¥¤¥é¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤¿µ¡Ç½¤Î¤¦¤Á¡¤ °ìÉô¤Îµ¡Ç½¤ÏOpenVMS Alpha¥·¥¹¥Æ¥à¤ÇÄ󶡤µ¤ì¤Þ¤»¤ó¡£

³Æ¸À¸ì¤Î¥³¥ó¥Ñ¥¤¥é¤ÎÁê°ãÅÀ¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¤¤½¤Î¸À¸ì¤Î¥Þ¥Ë¥å¥¢¥ë¡¤ ¤È¤¯¤Ë¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É¤È¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.1¡¡ DEC Ada¤ÎAlpha¥·¥¹¥Æ¥à¤ÈVAX¥·¥¹¥Æ¥à´Ö¤Î¸ß´¹À­

DEC Ada¤Ï¡¤VAX Ada¤Ë´Þ¤Þ¤ì¤ëɸ½àŪ¤ª¤è¤Ó³ÈÄ¥¤µ¤ì¤¿Ada¸À¸ìµ¡Ç½¤ò¡¤ ¤Û¤È¤ó¤É¤¹¤Ù¤Æ´Þ¤ó¤Ç¤¤¤Þ¤¹¡£¤³¤ì¤é¤Îµ¡Ç½¤Ï¼¡¤Î²òÀâ½ñ¤ÇÀâÌÀ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£

¤·¤«¤·¡¤¥×¥é¥Ã¥È¥Õ¥©¡¼¥à¡¦¥Ï¡¼¥É¥¦¥§¥¢¤Î°ã¤¤¤Ë¤è¤ê¡¤ ¤¤¤¯¤Ä¤«¤Îµ¡Ç½¤Ï¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤ª¤é¤¹¡¤VAX¥·¥¹¥Æ¥à¤È Alpha¥·¥¹¥Æ¥à¤Ç¤Ï°Û¤Ê¤ëµ¡Ç½¤â¤¢¤ê¤Þ¤¹¡£ ¤¢¤ë¥·¥¹¥Æ¥à¤«¤éÊ̤Υ·¥¹¥Æ¥à¤Ø¤Î¥×¥í¥°¥é¥à¤Î°Ü¹Ô¤ò½õ¤±¤ë¤¿¤á¡¤ °Ü¹Ô¤ÎÀá¤Ç¤Ï¤³¤ì¤é¤Î°ã¤¤¤òÀâÌÀ¤·¤Þ¤¹¡£


Ãí°Õ
¤¹¤Ù¤Æ¤Î¥·¥¹¥Æ¥à¤Î³Æ¥ê¥ê¡¼¥¹¤´¤È¤Ë¡¤ ¤³¤ì¤é¤Îµ¡Ç½¤Î¤¹¤Ù¤Æ¤¬¥µ¥Ý¡¼¥È¤µ¤ì¤ë¤ï¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£ ¾Ü¤·¤¯¤Ï¡¤DEC Ada¤Î¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.1.1¡¡¥Ç¡¼¥¿É½¸½¤È¥¢¥é¥¤¥ó¥á¥ó¥È¤Ë¤ª¤±¤ëÁê°ãÅÀ

³µ¤·¤Æ¡¤DEC Ada¤Ï¤¹¤Ù¤Æ¤Î¥×¥é¥Ã¥È¥Õ¥©¡¼¥à¤ÇƱ¤¸¥Ç¡¼¥¿¡¦¥¿¥¤¥×¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£ ¤·¤«¤·¡¤°Ê²¼¤Î°ã¤¤¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£


11.1.2¡¡¥¿¥¹¥¯¤Ë´Ø¤¹¤ëÁê°ãÅÀ

¥¿¥¹¥¯¤ÎÍ¥Àè½ç°Ì¤È¥¹¥±¥¸¥å¡¼¥ê¥ó¥°¡¤ ¤ª¤è¤Ó¥¿¥¹¥¯À©¸æ¥Ö¥í¥Ã¥¯¡¦¥µ¥¤¥º¤Ï¥¢¡¼¥­¥Æ¥¯¥Á¥ã¸ÇÍ­¤Ç¤¹¡£¾Ü¤·¤¯¤Ï¡¤ ¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.1.3¡¡¥×¥é¥°¥Þ¤Ë´Ø¤¹¤ëÁê°ãÅÀ

¥×¥é¥°¥Þ¤Ë¤Ï°Ê²¼¤Î¤è¤¦¤Ê°ã¤¤¤¬¤¢¤ê¤Þ¤¹¡£


11.1.4¡¡SYSTEM¥Ñ¥Ã¥±¡¼¥¸¤ÎÁê°ãÅÀ

SYSTEM¥Ñ¥Ã¥±¡¼¥¸¤Ë´Ø¤·¤Æ¤Ï¡¤°Ê²¼¤ÎÊѹ¹¤¬¤¢¤ê¤Þ¤¹¡£

¤µ¤é¤Ë¡¤VAX¥·¥¹¥Æ¥à¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤ë°Ê²¼¤Î¥¿¥¤¥×¤È¥µ¥Ö¥×¥í¥°¥é¥à¤Ï¡¤ Alpha¥·¥¹¥Æ¥à¤Ç¤Ï¥µ¥Ý¡¼¥È¤µ¤ì¤Þ¤»¤ó¡£


SYSTEM.READ_REGISTER
SYSTEM.WRITE_REGISTER
SYSTEM.MFPR
SYSTEM.MTPR
SYSTEM.CLEAR_INTERLOCKED
SYSTEM.SET_INTERLOCKED
SYSTEM.ALIGNED_WORD
SYSTEM.ADD_INTERLOCKED
SYSTEM.INSQ_STATUS
SYSTEM.REMQ_STATUS
SYSTEM.INSQHI
SYSTEM.REMQHI
SYSTEM.INSQTI
SYSTEM.REMQTI


11.1.5¡¡Â¾¤Î¸À¸ì¥Ñ¥Ã¥±¡¼¥¸´Ö¤Ç¤ÎÁê°ãÅÀ

°Ê²¼¤Ë¾¤Î¥Ñ¥Ã¥±¡¼¥¸¤Ç¤Î°ã¤¤¤ò¼¨¤·¤Þ¤¹¡£


11.1.6¡¡¤¢¤é¤«¤¸¤áÄêµÁ¤µ¤ì¤Æ¤¤¤ëÌ¿Îá¤ËÂФ¹¤ëÊѹ¹

VAX¥·¥¹¥Æ¥à¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤ë°Ê²¼¤Î2¤Ä¤Î¤¢¤é¤«¤¸¤áÄêµÁ¤µ¤ì¤Æ¤¤¤ëÌ¿Îá¤Ï Alpha¥·¥¹¥Æ¥à¤Ç¤Ï¥µ¥Ý¡¼¥È¤µ¤ì¤Þ¤»¤ó¡£


11.2¡¡ DEC C for OpenVMS Alpha¥·¥¹¥Æ¥à¤ÈVAX C¤È¤Î¸ß´¹À­

DEC C¤ò¹½À®¤¹¤ë¥³¥ó¥Ñ¥¤¥é·²¤Ï¡¤ANSI¤Ë½àµò¤¹¤ë´ðËÜŪ¤ÊC¸À¸ì¤òÄêµÁ¤·¡¤ ¤³¤ì¤é¤Î¸À¸ì¤ÏAlpha¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤â´Þ¤á¤Æ¡¤ ¤¹¤Ù¤Æ¤ÎDEC¥×¥é¥Ã¥È¥Õ¥©¡¼¥à¤Ç»ÈÍѤǤ­¤Þ¤¹¡£¾Ü¤·¤¯¤Ï¡¤ DEC C¤Î²òÀâ½ñ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.2.1¡¡¸À¸ì¥â¡¼¥É

DEC C for OpenVMS Alpha¥·¥¹¥Æ¥à¤ÏANSI Cɸ½àµ¬³Ê¤Ë½àµò¤·¡¤ ¥ª¥×¥·¥ç¥ó¤È¤·¤ÆVAX C¤ª¤è¤ÓCommon C (pcc)¤Î³ÈÄ¥µ¡Ç½¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£ ¥ª¥×¥·¥ç¥ó¤È¤·¤ÆÄ󶡤µ¤ì¤ë¤³¤ì¤é¤Î³ÈÄ¥µ¡Ç½¤Ï¥â¡¼¥É¤È¸Æ¤Ó¡¤ ¤³¤ì¤é¤Î³ÈÄ¥µ¡Ç½¤òµ¯Æ°¤¹¤ë¤Ë¤Ï¡¤/STANDARD½¤¾þ»Ò¤ò»ÈÍѤ·¤Þ¤¹¡£ ɽ 11-1¤Ï¤³¤ì¤é¤Î¥â¡¼¥É¤È¡¤ ³Æ¥â¡¼¥É¤òµ¯Æ°¤¹¤ë¤Î¤ËɬÍפʥ³¥Þ¥ó¥É¤È½¤¾þ»Ò¤Î¹½Ê¸¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£

ɽ 11-1¡¡DEC C for OpenVMS Alpha¥³¥ó¥Ñ¥¤¥é¤ÎÁàºî¥â¡¼¥É

¥â¡¼¥É ¥³¥Þ¥ó¥É½¤¾þ»Ò ÀâÌÀ
¾Êά»þ¤ÎÀßÄê /STANDARD=RELAXED_ANSI89 ANSI Cɸ½àµ¬³Ê¤Ë½àµò¤¹¤ë¤¬¡¤ÊÀ¼Ò¤ÎÄɲå­¡¼¥ï¡¼¥É¤ä¡¤ 1ʸ»úÌܤ¬¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ç¤Ê¤¤»öÁ°ÄêµÁ¥Þ¥¯¥í¤â»ÈÍѤǤ­¤ë¡£
ANSI C /STANDARD=ANSI89 ¸·Ì©¤ËANSI C¤Ë½àµò¤·¤¿¸À¸ì¤Î¤ß¤ò¼õ¤±ÉÕ¤±¤ë¡£
VAX C /STANDARD=VAXC ANSI Cɸ½àµ¬³Ê¤Î¾¤ËVAX C¤Î³ÈÄ¥µ¡Ç½¤â»ÈÍѤǤ­¤ë¡£ ¤³¤ì¤é¤Î³ÈÄ¥µ¡Ç½¤¬ANSI Cɸ½àµ¬³Ê¤È¸ß´¹À­¤¬¤Ê¤¤¾ì¹ç¤Ç¤â»ÈÍѲÄǽ¤Ç¤¢¤ë¡£
Common C (pcc) /STANDARD=COMMON ANSI Cɸ½àµ¬³Ê¤Î¾¤Ë¡¤Common C¤Î³ÈÄ¥µ¡Ç½¤â»ÈÍѤǤ­¤ë¡£ ¤³¤ì¤é¤Î³ÈÄ¥µ¡Ç½¤¬ANSI Cɸ½àµ¬³Ê¤È¸ß´¹À­¤¬¤Ê¤¤¾ì¹ç¤â»ÈÍѲÄǽ¤Ç¤¢¤ë¡£
Microsoft¤È¤Î¸ß´¹À­ /STANDARD=MS Microsoft Visual C++¥³¥ó¥Ñ¥¤¥éÀ½ÉʤËÉÕ°¤¹¤ë C¥³¥ó¥Ñ¥¤¥é¤Î¸À¸ìµ¬Â§¤Ë½¾¤Ã¤Æ¥½¡¼¥¹¡¦¥×¥í¥°¥é¥à¤ò²ò¼á¤¹¤ë¡£


11.2.2¡¡ DEC C for OpenVMS Alpha¥·¥¹¥Æ¥à¤Î¥Ç¡¼¥¿·¿¤Î¥Þ¥Ã¥Ô¥ó¥°

DEC C for OpenVMS Alpha¥·¥¹¥Æ¥à¤Î¥³¥ó¥Ñ¥¤¥é¤Ï¡¤ Âбþ¤¹¤ëVAX¥³¥ó¥Ñ¥¤¥é¤È¤Û¤È¤ó¤ÉƱ¤¸¥Ç¡¼¥¿·¿¥Þ¥Ã¥Ô¥ó¥°¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£ ɽ 11-2¤Ï¡¤ Alpha¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤Ç¤ÎC¸À¸ì¤Î»»½Ñ±é»»¥Ç¡¼¥¿·¿¤Î¥µ¥¤¥º¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£

ɽ 11-2¡¡DEC C for OpenVMS Alpha¥³¥ó¥Ñ¥¤¥é¤Ç¤Î»»½Ñ±é»»¥Ç¡¼¥¿·¿¤Î¥µ¥¤¥º

C¥Ç¡¼¥¿·¿ VAX C¤Î¥Þ¥Ã¥Ô¥ó¥° DEC C¤Î¥Þ¥Ã¥Ô¥ó¥°
pointer 32 32¤Þ¤¿¤Ï64[1]
long 32 32
int 32 32
short 16 16
char 8 8
float 32 32[2]
double 64[2] 64[2]
long double 64[2] 64[2]
__int16 NA 16
__int32 NA 32
__int64 NA 64
[1]¡¡¼Â¸½¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ë¤Ï¡¤ ¥½¡¼¥¹¡¦¥Õ¥¡¥¤¥ë¤Ç¥×¥é¥°¥Þ¤ò»ÈÍѤ¹¤ë¤«¡¤ ¤Þ¤¿¤Ï¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò¤ò»ÈÍѤ¹¤ë¤³¤È¤Ë¤è¤ê¡¤¥µ¥¤¥º¤òÁªÂò¤Ç¤­¤ë¡£

[2]¡¡¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò¤ò»ÈÍѤ¹¤ë¤³¤È¤Ë¤è¤ê¡¤Alpha¤ÇD¡¤F¡¤G¡¤S¡¤¤Þ¤¿¤Ï TÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤Ë¥Þ¥Ã¥Ô¥ó¥°¤¹¤ëÊýË¡¤òÁªÂò¤Ç¤­¤ë¡£ Âè11.2.2.1¹à¤ò»²¾È¡£

°Ü¿¢À­¤ò¸þ¾å¤¹¤ë¤¿¤á¤Ë¡¤DEC C for OpenVMS Alpha¥·¥¹¥Æ¥à¤Î¥³¥ó¥Ñ¥¤¥é¤Ç¤Ï¡¤ ³Æ¥Ç¡¼¥¿·¿¤ËÂФ·¤Æ¥Þ¥¯¥í¤òÄêµÁ¤¹¤ë¥Ø¥Ã¥À¡¦¥Õ¥¡¥¤¥ë¤¬½àÈ÷¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ ¤¿¤È¤¨¤Ð¡¤64¥Ó¥Ã¥È¤ÎŤµ¤Î¥Ç¡¼¥¿·¿¤¬É¬Íפʾì¹ç¤Ë¤Ï¡¤int64¥Þ¥¯¥í¤ò»ÈÍѤ·¤Þ¤¹¡£


11.2.2.1¡¡ÉâÆ°¾®¿ôÅÀ¥Þ¥Ã¥Ô¥ó¥°¤Î»ØÄê

C¤ÎÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤ÈAlpha¤ÎÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤Î´Ö¤Î¥Þ¥Ã¥Ô¥ó¥°¤Ï¡¤ ¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò¤Ë¤è¤Ã¤ÆÀ©¸æ¤µ¤ì¤Þ¤¹¡£Alpha¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤Ç¤Ï¡¤ ¼¡¤ÎÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£

¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò¤ò»ÈÍѤ¹¤ì¤Ð¡¤É¸½àŪ¤ÊC¥Ç¡¼¥¿·¿¤Îfloat¤Èdouble¤¬ Alpha¤Î¤É¤ÎÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤Ë¥Þ¥Ã¥Ô¥ó¥°¤µ¤ì¤ë¤«¤òÀ©¸æ¤Ç¤­¤Þ¤¹¡£¤¿¤È¤¨¤Ð¡¤ /FLOAT=G_FLOAT½¤¾þ»Ò¤ò»ØÄꤷ¤¿¾ì¹ç¤Ë¤Ï¡¤DEC C¤Ïfloat¥Ç¡¼¥¿·¿¤ò Alpha¤ÎFÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤Ë¥Þ¥Ã¥Ô¥ó¥°¤·¡¤double¥Ç¡¼¥¿·¿¤òAlpha¤Î GÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤Ë¥Þ¥Ã¥Ô¥ó¥°¤·¤Þ¤¹¡£ ɽ 11-3¤ÏÉâÆ°¾®¿ôÅÀ¥ª¥×¥·¥ç¥ó¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£ ³Æ¥³¥Þ¥ó¥É¹Ô¤ËÉâÆ°¾®¿ôÅÀ½¤¾þ»Ò¤Ï1¤Ä¤À¤±»ØÄê¤Ç¤­¤Þ¤¹¡£

ɽ 11-3¡¡DEC C ¤ÎÉâÆ°¾®¿ôÅÀ¥Þ¥Ã¥Ô¥ó¥°

¥³¥ó¥Ñ¥¤¥é¡¦¥ª¥×¥·¥ç¥ó Float Double Long Double
/FLOAT=F_GLOAT FÉâÆ°·Á¼° GÉâÆ°·Á¼° ¡¡
/FLOAT=D_FLOAT FÉâÆ°·Á¼° D-53ÉâÆ°¾®¿ôÅÀ ¡¡
/FLOAT=IEEE_FLOAT SÉâÆ°·Á¼° TÉâÆ°·Á¼° ¡¡
/L_DOUBLE_SIZE=128
(¾Êά»þ¤ÎÃÍ)
- - XÉâÆ°·Á¼°


11.2.3¡¡ AlphaÌ¿Îá¤Ë¥¢¥¯¥»¥¹¤¹¤ëÁȤ߹þ¤ßµ¡Ç½

DEC C¤Ë¤Ï¡¤É½ 11-4¤Ë¼¨¤¹µ¡Ç½¤¬¤¢¤ê¡¤ ¤³¤ì¤é¤Îµ¡Ç½¤ÏAlpha¥·¥¹¥Æ¥à¸ÇÍ­¤Îµ¡Ç½¤Ç¤¹¡£¤³¤Î¸å¤ÎÀá¤Ç¤Ï¡¤ ¤³¤ì¤é¤Îµ¡Ç½¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£

ɽ 11-4¡¡ OpenVMS Alpha¥·¥¹¥Æ¥à¸ÇÍ­¤ÎDEC C¥³¥ó¥Ñ¥¤¥éµ¡Ç½

µ¡Ç½ ÀâÌÀ
°ìÉô¤ÎAlphaÌ¿Îá¤Ø¤Î¥¢¥¯¥»¥¹ ÁȤ߹þ¤ßµ¡Ç½¤È¤·¤Æ»ÈÍѤǤ­¤ë
°ìÉô¤ÎVAXÌ¿Îá¤Ø¤Î¥¢¥¯¥»¥¹ Alpha PALcode¤òÄ̤¸¤Æ»ÈÍѤǤ­¤ë
ÉÔ²Äʬ¤ÊÁȤ߹þ¤ßµ¡Ç½ AND¡¤OR¡¤¤ª¤è¤ÓADD±é»»¤ÎÉÔ²ÄʬÀ­¤òÊݾڤ¹¤ë


11.2.3.1¡¡AlphaÌ¿Îá¤Î¥¢¥¯¥»¥¹

DEC C¤Ï¡¤Æä˥·¥¹¥Æ¥à¤ª¥×¥ì¥Ù¥ë¤Î¥×¥í¥°¥é¥ß¥ó¥°¤Î¤¿¤á¤Î C¸À¸ì¤Ë¤è¤êɽ¸½¤Ç¤­¤Ê¤¤µ¡Ç½¤òÄ󶡤¹¤ë¤¿¤á¤ËÀµ³Î¤ÊAlphaÌ¿Îá¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£ Î㤨¤Ð¡¤¼¡¤Î¤è¤¦¤Ê¤â¤Î¤¬¤¢¤ê¤Þ¤¹¡£


11.2.3.2¡¡ AlphaÆø¢ÉÕ¤­¥¢¡¼¥­¥Æ¥¯¥Á¥ã¡¦¥é¥¤¥Ö¥é¥ê(PALcode)Ì¿Îá¤Î¥¢¥¯¥»¥¹

Alpha¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤Ç¤Ï¡¤ ÆÃÄê¤ÎVAXÌ¿Îá¤òAlphaÆø¢ÉÕ¤­¥¢¡¼¥­¥Æ¥¯¥Á¥ã¡¦¥é¥¤¥Ö¥é¥ê(PALcode)Ì¿Îá¤È¤·¤Æ¼Â¸½¤·¤Æ¤¤¤Þ¤¹¡£ DEC C¤Ç¤Ï¡¤¼¡¤ÎPALcodeÌ¿Îá¤ò¥¢¥¯¥»¥¹¤Ç¤­¤Þ¤¹¡£


11.2.3.3¡¡ Ê£¿ô¤ÎÁàºî¤ÎÁȤ߹ç¤ï¤»¤ËÂФ¹¤ëÉÔ²ÄʬÀ­¤ÎÊݾÚ

VAX¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤Ç¤Ï¡¤ÊÑ¿ô¤Î¥¤¥ó¥¯¥ê¥á¥ó¥È¤Ê¤É¡¤ ÆÃÄê¤ÎÁȤ߹ç¤ï¤»Áàºî¤ÏÉÔ²Äʬ¤Ë¼Â¹Ô¤µ¤ì¤ë¤³¤È¤¬Êݾڤµ¤ì¤Þ¤¹(¤Ä¤Þ¤ê¡¤ ÅÓÃæ¤Ç³ä¤ê¹þ¤ß¤¬È¯À¸¤¹¤ë¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó)¡£ Alpha¥·¥¹¥Æ¥à¤Ç¤³¤ì¤ÈƱ¤¸µ¡Ç½¤ò¼Â¸½¤¹¤ë¤¿¤á¤Ë¡¤ DEC C¤ÏÉÔ²ÄʬÀ­¤òÊݾڤ·¤ÆÁàºî¤ò¼Â¹Ô¤Ç¤­¤ë¤è¤¦¤ÊÁȤ߹þ¤ßµ¡Ç½¤ò½àÈ÷¤·¤Æ¤¤¤Þ¤¹¡£ ɽ 11-5 ¤Ï¤³¤ì¤é¤ÎÉÔ²Äʬ¤ÊÁȤ߹þ¤ßµ¡Ç½¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£ ¤³¤ì¤é¤ÎÁȤ߹þ¤ßµ¡Ç½¤Ë¤Ä¤¤¤Æ¤ó¾ÜºÙ¤ÏDEC C¸À¸ì¤Î²òÀâ½ñ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£

ɽ 11-5¡¡ÉÔ²ÄʬÀ­ÁȤ߹þ¤ßµ¡Ç½

ÉÔ²ÄʬÀ­ÁȤ߹þ¤ßµ¡Ç½ ÀâÌÀ
__ADD_ATOMIC_LONG(ptr, expr, retry_count)
__ADD_ATOMIC_QUAD(ptr,expr, retry_count)
ptr ¤Ë¤è¤Ã¤Æ¼¨¤µ¤ì¤ë¥Ç¡¼¥¿°ú¿ô¤Ë¼° expr ¤òÄɲ乤롣 Ǥ°Õ¤Ë»ØÄê¤Ç¤­¤ë retry_count ¥Ñ¥é¥á¡¼¥¿¤Ï¡¤ Áàºî¤ò·«¤êÊÖ¤¹²ó¿ô¤ò»ØÄꤹ¤ë(¾Êά»þ¤ÎÀßÄê¤Ç¤Ï¡¤ Áàºî¤Ï±Êµ×¤Ë·«¤êÊÖ¤µ¤ì¤ë)¡£
__AND_ATOMIC_LONG(ptr,expr, retry_count)
__AND_ATOMIC_QUAD(ptr, expr, retry_count)
ptr ¤Ë¤è¤Ã¤Æ¼¨¤µ¤ì¤ë¥Ç¡¼¥¿¡¦¥»¥°¥á¥ó¥È¤ò¥Õ¥§¥Ã¥Á¤·¡¤ ¼° expr ¤È¤Î´Ö¤ÇÏÀÍýAND±é»»¤ò¼Â¹Ô¤·¡¤·ë²Ì¤ò³ÊǼ¤¹¤ë¡£ retry_count ¥Ñ¥é¥á¡¼¥¿¤Ï¡¤Áàºî¤ò·«¤êÊÖ¤¹²ó¿ô¤ò»ØÄꤹ¤ë (¾Êά»þ¤ÎÀßÄê¤Ç¤Ï¡¤Áàºî¤Ï±Êµ×¤Ë·«¤êÊÖ¤µ¤ì¤ë)¡£
__OR_ATOMIC_LONG(ptr, expr, retry_count)
__OR_ATOMIC_QUAD(ptr, expr, retry_count)
ptr ¤Ë¤è¤Ã¤Æ¼¨¤µ¤ì¤ë¥Ç¡¼¥¿¡¦¥»¥°¥á¥ó¥È¤ò¥Õ¥§¥Ã¥Á¤·¡¤ ¼° expr ¤È¤Î´Ö¤ÇÏÀÍýOR±é»»¤ò¼Â¹Ô¤·¡¤·ë²Ì¤ò³ÊǼ¤¹¤ë¡£ retry_count ¥Ñ¥é¥á¡¼¥¿¤ÏÁàºî¤ò·«¤êÊÖ¤¹²ó¿ô¤ò»ØÄꤹ¤ë(¾Êά»þ¤ÎÀßÄê¤Ç¤Ï¡¤ Áàºî¤Ï±Êµ×¤Ë·«¤êÊÖ¤µ¤ì¤ë)¡£

¤³¤ì¤é¤ÎÁȤ߹þ¤ßµ¡Ç½¤Ï¡¤ ³ä¤ê¹þ¤ß¤òȯÀ¸¤µ¤»¤º¤ËÁàºî¤òºÇ¸å¤Þ¤Ç¼Â¹Ô¤¹¤ë¤³¤È¤À¤±¤òÊݾڤ·¤Þ¤¹¡£ Ʊ»þ¤Ë½ñ¤­¹þ¤ß¥¢¥¯¥»¥¹¤¬¼Â¹Ô¤µ¤ì¤ë¤è¤¦¤ÊÊÑ¿ô¤ËÂФ·¤ÆÉÔ²Äʬ¤ÊÁàºî¤ò¼Â¹Ô¤¹¤ë¾ì¹ç (¤¿¤È¤¨¤Ð¡¤AST¤È¥á¥¤¥ó¡¦¥é¥¤¥ó¡¦¥³¡¼¥É¤«¤é½ñ¤­¹þ¤Þ¤ì¤ëÊÑ¿ô¤ä 2¤Ä¤ÎÊÂÎó¥×¥í¥»¥¹¤«¤é½ñ¤­¹þ¤Þ¤ì¤ëÊÑ¿ô¤Ê¤É)¡¤ volatile °À­¤Ë¤è¤Ã¤ÆÊÑ¿ô¤òÊݸ¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£

¤µ¤é¤Ë¡¤DEC C for OpenVMS Alpha¥·¥¹¥Æ¥à¤Ç¤Ï¡¤ VAX¥¤¥ó¥¿¡¼¥í¥Ã¥¯Ì¿Îá¤ÈƱ¤¸µ¡Ç½¤ò¼Â¹Ô¤¹¤ë¤¿¤á¤Ë¼¡¤ÎÌ¿Îá¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£

¤³¤ì¤é¤ÎÁȤ߹þ¤ßµ¡Ç½¤Ï¡¤ÉÔ²Äʬ¤ÊÁȤ߹þ¤ßµ¡Ç½¤ÈƱÍÍ¤Ë retry_count ¥Ñ¥é¥á¡¼¥¿¤ò»ÈÍѤ·¤Æ¡¤ ¥ë¡¼¥×¤¬±Êµ×¤Ë¼Â¹Ô¤µ¤ì¤ë¤Î¤òËɻߤ·¤Þ¤¹¡£


11.2.4¡¡ VAX C¤ÈDEC C for OpenVMS Alpha¥·¥¹¥Æ¥à¤Î¥³¥ó¥Ñ¥¤¥é¤ÎÁê°ãÅÀ

¼¡¤Îµ¡Ç½¤ÏVAX C¤Ç¤â»ÈÍѤǤ­¤Þ¤¹¤¬¡¤ DEC C for OpenVMS Alpha¥·¥¹¥Æ¥à¤Î¾Êά»þ¤ÎÆ°ºî¤È¤Ï°Û¤Ê¤ê¤Þ¤¹¡£¤·¤«¤·¡¤ ¤³¤ì¤é¤Îµ¡Ç½¤Î°ìÉô¤ËÂФ·¤Æ¤Ï¡¤ ¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò¤È¥×¥é¥°¥ÞÌ¿Îá¤ò»ÈÍѤ¹¤ë¤³¤È¤Ë¤è¤ê¡¤VAX C¤ÈƱ¤¸Æ°ºî¤ò¼Â¹Ô¤Ç¤­¤Þ¤¹¡£


11.2.4.1¡¡¥Ç¡¼¥¿¡¦¥¢¥é¥¤¥ó¥á¥ó¥È¤ÎÀ©¸æ

¼«Á³¤Ê¶­³¦¤Ë¥¢¥é¥¤¥ó¤µ¤ì¤Æ¤¤¤Ê¤¤¥Ç¡¼¥¿¤ò¥¢¥¯¥»¥¹¤¹¤ë¤È¡¤ Alpha¥·¥¹¥Æ¥à¤Ç¤ÏÀ­Ç½¤¬Ãø¤·¤¯Äã²¼¤¹¤ë¤¿¤á¡¤DEC C for OpenVMS Alpha¥·¥¹¥Æ¥à¤Ï¾Êά»þ¤ÎÀßÄê¤Ë¤è¤ê¡¤¥Ç¡¼¥¿¤ò¼«Á³¤Ê¶­³¦¤Ë¥¢¥é¥¤¥ó¤·¤Þ¤¹¡£ ¤³¤Îµ¡Ç½¤ò̵¸ú¤Ë¤·¡¤VAX¤Î¥¢¥é¥¤¥ó¥á¥ó¥È(¥Ñ¥Ã¥¯¤µ¤ì¤¿¥¢¥é¥¤¥ó¥á¥ó¥È) ¤ò¼Â¹Ô¤¹¤ë¤Ë¤Ï¡¤¥½¡¼¥¹¡¦¥Õ¥¡¥¤¥ë¤Ë #pragma nomember_alignment¥×¥ê¥×¥í¥»¥Ã¥µÌ¿Îá¤ò»ØÄꤹ¤ë¤«¡¤ /NOMEMBER_ALIGNMENT¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò¤ò»ÈÍѤ·¤Þ¤¹¡£


11.2.4.2¡¡°ú¿ô¥ê¥¹¥È¤Î¥¢¥¯¥»¥¹

&argv1¤Ê¤É¤Î°ú¿ô¤Î¥¢¥É¥ì¥¹¤ò¸¡½Ð¤¹¤ë¤È¡¤DEC C for OpenVMS Alpha¥·¥¹¥Æ¥à¤Ï¡¤ ¤¹¤Ù¤Æ¤Î°ú¿ô¤ò¥¹¥¿¥Ã¥¯¤Ë°ÜÆ°¤¹¤ë´Ø¿ô¤ËÂФ·¤Æ¥×¥í¥í¡¼¥°¡¦¥³¡¼¥É¤òÀ¸À®¤·¤Þ¤¹( homing °ú¿ô¤È¸Æ¤Ö)¤¬¡¤¤½¤Î·ë²Ì¡¤À­Ç½¤¬Äã²¼¤·¤Þ¤¹¡£¤Þ¤¿¡¤ °ú¿ô¥ê¥¹¥È"walking"¤Ï¡¤<varargs.h> ¤Þ¤¿¤Ï <stdargs.h> ¥¤¥ó¥¯¥ë¡¼¥É¡¦¥Õ¥¡¥¤¥ë¤Ç´Ø¿ô¤ò»ÈÍѤ·¤Ê¤±¤ì¤Ð¼Â¸½¤Ç¤­¤Þ¤»¤ó¡£


11.2.4.3¡¡Îã³°¤ÎƱ´ü²½

Alpha¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤Ç¤Ï¡¤»»½Ñ±é»»Îã³°¤¬¤¿¤À¤Á¤ËÊó¹ð¤µ¤ì¤Ê¤¤¤¿¤á¡¤ ¸å³¤ÎÎã³°¤¬ÄÌÃΤµ¤ì¤ëÁ°¤ËÀÅŪÊÑ¿ô¤Ø¤ÎÂåÆþ¤¬¼Â¹Ô¤µ¤ì¤ë¤³¤È¤ò´üÂÔ¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó (volatile°À­¤ò»ÈÍѤ·¤¿¾ì¹ç¤Ç¤â)¡£


11.2.4.4¡¡Æ°Åª¾ò·ï¥Ï¥ó¥É¥é

OpenVMS Alpha¥·¥¹¥Æ¥àÍѤÎDEC C¤ÈDEC C++¤Ï¡¤ LIB$ESTABLISH¤òÁȤ߹þ¤ß´Ø¿ô¤È¤·¤Æ¼è¤ê°·¤¤¤Þ¤¹¤¬¡¤ OpenVMS VAX¥·¥¹¥Æ¥à¤Þ¤¿¤ÏOpenVMS Alpha¥·¥¹¥Æ¥à¤Ç LIB$ESTABLISH¤ò»ÈÍѤ¹¤ë¤³¤È¤Ï˾¤Þ¤·¤¯¤¢¤ê¤Þ¤»¤ó¡£C¤ª¤è¤ÓC++¥×¥í¥°¥é¥Þ¤Ï¡¤ LIB$ESTABLISH¤ÎÂå¤ï¤ê¤ËVAXC$ESTABLISH¤ò¸Æ¤Ó½Ð¤·¤Æ¤¯¤À¤µ¤¤ (VAXC$ESTABLISH¤ÏOpenVMS Alpha¥·¥¹¥Æ¥àÍѤÎDEC C¤ª¤è¤ÓDEC C++¤ÇÄ󶡤µ¤ì¤ëÁȤ߹þ¤ß´Ø¿ô¤Ç¤¹)¡£


11.2.5¡¡ C¥×¥í¥°¥é¥Þ¤Î¤¿¤á¤ÎSTARLET¥Ç¡¼¥¿¹½Â¤ÂΤÈÄêµÁ

OpenVMS Alpha¥Ð¡¼¥¸¥ç¥ó1.0¤Ë¤Ï¡¤ SYS$STARLET_C.TLB¤È¤¤¤¦¿·¤·¤¤¥Õ¥¡¥¤¥ë¤¬´Þ¤Þ¤ì¤Æ¤ª¤ê¡¤ ¤³¤Î¥Õ¥¡¥¤¥ë¤Ë¤ÏSTARLETSD.TLB¤ËÁêÅö¤¹¤ëSTARLETµ¡Ç½¤òÄ󶡤¹¤ë¤¹¤Ù¤Æ¤Î .H¥Õ¥¡¥¤¥ë¤¬³ÊǼ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¸½ºß¡¤DEC C¥³¥ó¥Ñ¥¤¥é¤Ë¤ÏDECC$RTLDEF.TLB¤Î¾¤Ë SYS$STARLET_C.TLB¥Õ¥¡¥¤¥ë¤¬Æ±º­¤µ¤ì¤Æ¤ª¤ê¡¤°ÊÁ°¤ÎVAX C Compiler¤ËƱº­¤µ¤ì¤Æ¤¤¤¿VAXCDEF.TLB¤ÎÂå¤ï¤ê¤Ë»ÈÍѤµ¤ì¤Þ¤¹¡£ DECC$RTLDEF.TLB¤Ë¤Ï¡¤¥³¥ó¥Ñ¥¤¥é¤ÈRTL¤ò¥µ¥Ý¡¼¥È¤¹¤ë¤¹¤Ù¤Æ¤Î.H¥Õ¥¡¥¤¥ë¡¤ ¤¿¤È¤¨¤Ð¡¤STDIO.H¤Ê¤É¤¬³ÊǼ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£

¼¡¤ÎÁê°ãÅÀ¤¬¤¢¤ë¤¿¤á¤Ë¡¤¥½¡¼¥¹¤òÊѹ¹¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤²ÄǽÀ­¤¬¤¢¤ê¤Þ¤¹¡£


11.2.6¡¡ /STANDARD=VAXC¥â¡¼¥É¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Ê¤¤VAX C¤Îµ¡Ç½

VAX C¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤ëÂçÉôʬ¤Î¥×¥í¥°¥é¥ß¥ó¥°Êý¼°¤Ï¡¤DEC C for OpenVMS Alpha¥·¥¹¥Æ¥à¤Ç¤â/STANDARD=VAXC¥â¡¼¥É¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Þ¤¹¤¬¡¤ ANSIɸ½àµ¬³Ê¤ÈÌ·½â¤¹¤ëÆÃÄê¤Î¥×¥í¥°¥é¥ß¥ó¥°Êý¼°¤Ï¥µ¥Ý¡¼¥È¤µ¤ì¤Þ¤»¤ó¡£ ¼¡¤Î¥ê¥¹¥È¤Ï¤³¤ì¤é¤ÎÁê°ãÅÀ¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£¾Ü¤·¤¯¤ÏDEC C¥³¥ó¥Ñ¥¤¥é¤Ë´Ø¤¹¤ë²òÀâ½ñ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.3¡¡VAX COBOL¤ÈDEC COBOL¤Î¸ß´¹À­¤È°Ü¹Ô

DEC COBOL¤Ï¡¤OpenVMS VAX¥·¥¹¥Æ¥à¾å¤ÇÆ°ºî¤¹¤ëVAX COBOL¤Ë´ð¤Å¤¤¤Æ¤ª¤ê¡¤ ¹â¤¤¸ß´¹À­¤¬¤¢¤ê¤Þ¤¹¡£°Ê²¼¤Î¹à¤Ç¤Ï¡¤Î¾¼Ô¤Î¤ª¤â¤Ê°ã¤¤¤ÎÍ×Ìó¤ò¼¨¤·¤Þ¤¹¡£ ¤³¤Î¾ðÊó¤Ï¡¤Î¾À½ÉʤȤθߴ¹À­¤¬¤¢¤ëCOBOL¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ò³«È¯¤·¤¿¤ê¡¤ VAX COBOL¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òOpenVMS Alpha¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¡¦¥·¥¹¥Æ¥à¾å¤Î DEC COBOL¤Ë°Ü¹Ô¤¹¤ëºÝ¤ËÌòΩ¤Á¤Þ¤¹¡£


11.3.1¡¡DEC COBOL¤Î³ÈÄ¥»ÅÍͤȵ¡Ç½¤Î°ã¤¤

DEC COBOL¤Ï¡¤VAX COBOL¤Ë¤Ï¤Ê¤¤°Ê²¼¤Î¸À¸ì³ÈÄ¥»ÅÍͤȵ¡Ç½¤ò´Þ¤ó¤Ç¤¤¤Þ¤¹¡£

¤µ¤é¤Ë¡¤DEC COBOL¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£

DEC COBOL¤Ï¡¤VAX COBOL¤Î°Ê²¼¤Îµ¡Ç½¤ò´Þ¤ó¤Ç¤¤¤Þ¤»¤ó¡£

DEC COBOL¤ÈVAX COBOL¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¤ À½ÉʤΥê¥ê¡¼¥¹¡¦¥Î¡¼¥È¤ª¤è¤Ó²òÀâ½ñ¤ò¤´Í÷¤¯¤À¤µ¤¤¡£OpenVMS Alpha¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¡¦¥·¥¹¥Æ¥à¤Ç¤Ï¡¤¥·¥¹¥Æ¥à¡¦¥×¥í¥ó¥×¥È¤ÇHELP COBOL RELEASE_NOTES¤ÈÆþÎϤ¹¤ë¤È¡¤ ¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤Æ¤¤¤ë¥³¥ó¥Ñ¥¤¥é¤Î¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È¤Î¥ª¥ó¥é¥¤¥ó¡¦¥Ð¡¼¥¸¥ç¥ó¤ò¸«¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£


11.3.2¡¡¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò

Âè11.3.2.3¹à¤ÈÂè11.3.2.5¹à¤Ç¤Ï¡¤ DEC COBOL¤ÈVAX COBOL¤Î¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò¤òÈæ³Ó¤·¤Æ¤¤¤Þ¤¹¡£ OpenVMS Alpha¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¡¦¥·¥¹¥Æ¥à¤ÎDEC COBOL¤Î¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¤OpenVMS Alpha¤Î¥·¥¹¥Æ¥à¡¦¥×¥í¥ó¥×¥È¤Ç HELP COBOL¤ÈÆþÎϤ·¤Æ¡¤¥ª¥ó¥é¥¤¥ó¡¦¥Ø¥ë¥×¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ VAX COBOL¤Î¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò¤Ë¤Ä¤¤¤Æ¤Ï¡¤¡ØVAX COBOL User Manual¡Ù¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.3.2.1¡¡/NATIONALITY={JAPAN|US}

/NATIONALITY=JAPAN¤¬»ØÄꤵ¤ì¤Æ¤¤¤ë¤È¡¤±ßµ­¹æ(¥)¤¬¾Êά»þ¤ÎÄ̲ߵ­¹æ¤Ë¤Ê¤ê¡¤ ÆüËܸ쥵¥Ý¡¼¥Èµ¡Ç½¤¬Í­¸ú¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¤¤³¤Î¾ì¹ç¤Ï /NODIAGNOSTICS¤È/NOANALYSIS_DATA¤¬°ÅÌۤΤ¦¤Á¤Ë»ØÄꤵ¤ì¤Þ¤¹¡£

OpenVMS Alpha¾å¤ÎDEC COBOL¤Ç/NATIONALITY=JAPAN¤ò»ØÄꤷ¤¿¾ì¹ç¡¤ Oracle CDD/Repository¤Ï¥µ¥Ý¡¼¥È¤µ¤ì¤Þ¤»¤ó¡£

¥³¥ó¥Ñ¥¤¥ë¡¦¥³¥Þ¥ó¥É¹Ô¤Ç/NATIONALITY=US¤ò»ØÄꤹ¤ë¤È¡¤¥É¥ëµ­¹æ($) ¤¬¾Êά»þ¤ÎÄ̲ߵ­¹æ¤Ë¤Ê¤ê¡¤ÆüËܸ쥵¥Ý¡¼¥Èµ¡Ç½¤Ï̵¸ú¤Ë¤Ê¤ê¤Þ¤¹¡£


11.3.2.2¡¡/STANDARD=MIA

¥³¥ó¥Ñ¥¤¥ë¡¦¥³¥Þ¥ó¥É¹Ô¤Ç/STANDARD=MIA¤¬»ØÄꤵ¤ì¤Æ¤¤¤ë¤È¡¤¥³¥ó¥Ñ¥¤¥é¤Ï MIA»ÅÍͤ˽àµò¤·¤Æ¤¤¤Ê¤¤¸À¸ìÍ×ÁǤˤĤ¤¤Æ¿ÇÃǾðÊó¤òȯ¹Ô¤·¤Þ¤¹¡£

¿ÇÃǾðÊó¤òɽ¼¨¤¹¤ë¤Ë¤Ï¡¤/WARNINGS=ALL½¤¾þ»Ò¤« /WARNING=INFORMATION½¤¾þ»Ò¤¬É¬ÍפǤ¹¡£

¾Êά»þ¤ÎÀßÄê¤ÏNOMIA¤Ç¤¹¡£


11.3.2.3¡¡DEC COBOL¸ÇÍ­¤Î½¤¾þ»Ò

°Ê²¼¤Î¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò¤ÏDEC COBOL¤Ç¤Î¤ß»ÈÍѤǤ­¤Þ¤¹¡£


11.3.2.4¡¡/ALIGNMENT=PADDING

¡ØOpenVMS Calling Standard¡Ù¤Î¸Æ¤Ó½Ð¤·µ¬Â§¤Ç¤Ï¡¤¥Ç¡¼¥¿¡¦¥Õ¥£¡¼¥ë¥É¤¬( ¤½¤Îµ¬Â§¤ÇÄê¤á¤é¤ì¤Æ¤¤¤ë)ÆÃÄê¤Î¥¢¥É¥ì¥¹¤Ë¥¢¥é¥¤¥ó¤µ¤ì¤Æ¤¤¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£ ¤³¤ì¤ÈƱ¤¸µ¬Â§¤Ë¡¤¤¹¤Ù¤Æ¤Î¥Ç¡¼¥¿¡¦¥ì¥³¡¼¥É¤Ï¡¤ ¤½¤Î¥¢¥é¥¤¥ó¥á¥ó¥È¤ÎÇÜ¿ô¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¤ÈÄê¤á¤é¤ì¤Æ¤¤¤Þ¤¹¡£

¥³¥ó¥Ñ¥¤¥ë¡¦¥³¥Þ¥ó¥É¹Ô¤Ç/ALIGNMENT=PADDING¤¬»ØÄꤵ¤ì¤Æ¤¤¤ë¤È¡¤ COBOL¤Î¥°¥ë¡¼¥×¡¦¥Ç¡¼¥¿¹àÌܤϤ½¤Î¼«Á³¤Ê¶­³¦¾å¤Ë¥¢¥é¥¤¥ó¤µ¤ì¡¤ ¤³¤ì¤é¤Î¥°¥ë¡¼¥×¹àÌܤϥ¢¥é¥¤¥ó¥á¥ó¥È¤ÎÇÜ¿ô¤Ë¤Ê¤ë¤è¤¦¤Ë¥Ñ¥Ã¥É¤¬ÁÞÆþ¤µ¤ì¤Þ¤¹¡£ Alpha¤Î¥¢¥é¥¤¥ó¥á¥ó¥È¤È¥Ñ¥Ã¥É¤ÎÁÞÆþ¤¬¹Ô¤ï¤ì¤ë¤È¤­¤Î´ðËܥǡ¼¥¿¹àÌܤΥ¢¥é¥¤¥ó¥á¥ó¥È¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¤ ¡ØDEC COBOL Reference Manual¡Ù¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.3.2.5¡¡VAX COBOL¸ÇÍ­¤Î½¤¾þ»Ò

ɽ 11-6¤Ï¡¤VAX COBOL¤Ë¸ÇÍ­¤Î¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò¤È½¤¾þ»Ò¥ª¥×¥·¥ç¥ó¤ÎÁȤ߹ç¤ï¤»¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£ ¤³¤ì¤é¤ÏDEC COBOL¤Ç¤Ï»ÈÍѤǤ­¤Þ¤»¤ó¡£

ɽ 11-6¡¡VAX COBOL¸ÇÍ­¤Î½¤¾þ»Ò

½¤¾þ»Ò ÀâÌÀ
/DESIGN ¾ÜºÙÀ߷פȤ·¤ÆÆþÎÏ¥Õ¥¡¥¤¥ë¤ò¥³¥ó¥Ñ¥¤¥é¤¬½èÍý¤ò¹Ô¤«¤É¤¦¤«¤òÀ©¸æ¤¹¤ë¡£
/INSTRUCTION_SET[=option] VAXÌ¿Î᥻¥Ã¥È¤Î°Û¤Ê¤ëÉôʬ¤ò»ÈÍѤ·¤Æ¡¤ ¥·¥ó¥°¥ë¡¦¥Á¥Ã¥×VAX¥×¥í¥»¥Ã¥µ¾å¤Ç¼Â¹Ô»þ¤ÎÀ­Ç½¤ò²þÎɤ¹¤ë¡£
/STANDARD=OPENVMS_AXP DEC COBOL¥³¥ó¥Ñ¥¤¥é¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Ê¤¤¸À¸ìµ¡Ç½¤Ë´Ø¤¹¤ë¾ðÊó¥á¥Ã¥»¡¼¥¸¤ò½ÐÎϤ¹¤ë( Âè11.3.2.7¹à¤ª¤è¤Ó¡ØVAX COBOL¥Ð¡¼¥¸¥ç¥ó5.1 ¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È¡Ù¤ò»²¾È)
/STANDARD=PDP11 COBOL-81¥³¥ó¥Ñ¥¤¥é¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Ê¤¤¸À¸ìµ¡Ç½¤Ë´Ø¤¹¤ë¾ðÊó¥á¥Ã¥»¡¼¥¸¤ò½ÐÎϤ¹¤ë
/WARNINGS=STANDARD DEC¤Ë¤è¤ë³ÈÄ¥µ¡Ç½¤Ç¤¢¤ë¸À¸ìµ¡Ç½¤Ë´Ø¤¹¤ë¾ðÊó¥á¥Ã¥»¡¼¥¸¤ò½ÐÎϤ¹¤ë¡£DEC COBOL¤ÎƱÅù¤Êµ¡Ç½¤Ï/STANDARD=SYNTAX½¤¾þ»Ò¤Ç¤¢¤ë


11.3.2.6¡¡/STANDARD=V3

DEC COBOL¤Ï¡¤VAX COBOL¤Î/STANDARD=V3½¤¾þ»Ò¤Î¥¤¥ó¥×¥ê¥á¥ó¥Æ¡¼¥·¥ç¥ó¤¬¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤ë¤¤¤¯¤Ä¤«¤Îµ¡Ç½¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤»¤ó¡£

/WARNING=ALL½¤¾þ»Ò¤ò»ÈÍѤ¹¤ë¤È¡¤/STANDARD=V3¤Î¸ú²Ì¤¬¤ï¤«¤ê¤ä¤¹¤¯¤Ê¤ê¤Þ¤¹¡£ Æäˡ¤DEC COBOL¤Ï¡¤/STANDARD=V3¤¬»ØÄꤵ¤ì¤Æ¤¤¤ë¤È¡¤ °Ê²¼¤Î¾ðÊó¥á¥Ã¥»¡¼¥¸¤òÀ¸À®¤·¤Þ¤¹¡£

/STANDARD=V3½¤¾þ»Ò¤ÎVAX COBOL¤Î¥¤¥ó¥×¥ê¥á¥ó¥Æ¡¼¥·¥ç¥ó¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¤ ¡ØVAX COBOL User Manual¡Ù¤Î½¤¾þ»Ò¤Ë´Ø¤¹¤ëÉÕÏ¿¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.3.2.7¡¡/STANDARD=OPENVMS_AXP

VAX COBOL¥Ð¡¼¥¸¥ç¥ó5.1(¤ª¤è¤Ó¤½¤ì°Ê¾å)¤Ç¤Ï¡¤ /STANDARD=OPENVMS_AXP½¤¾þ»Ò¥ª¥×¥·¥ç¥ó¤ò»ØÄꤷ¤Æ¡¤ ´û¸¤ÎVAX COBOL¥×¥í¥°¥é¥à¤ÎÃæ¤Î¡¤OpenVMS Alpha¥·¥¹¥Æ¥à¾å¤ÎDEC COBOL¤Ç¤Ï»ÈÍѤǤ­¤Ê¤¤¸À¸ìÍ×ÁǤò¼±Ê̤¹¤ë¿·¤·¤¤¥Õ¥é¥°ÉÕ¤±¥·¥¹¥Æ¥à¤òÍøÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

/STANDARD=OPENVMS_AXP¤ò»ØÄꤹ¤ë¤È¡¤VAX COBOL¥³¥ó¥Ñ¥¤¥é¤ÏDEC COBOL¤Ç¤Ï»ÈÍѤǤ­¤Ê¤¤¸À¸ì¹½À®ÂΤòÄÌÃΤ¹¤ë¾ðÊó¥á¥Ã¥»¡¼¥¸¤òÀ¸À®¤·¤Þ¤¹( ¤³¤ì¤é¤Î¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤¹¤ë¤¿¤á¤Ë¤Ï¡¤Æ±»þ¤Ë/WARNINGS=ALL¤Þ¤¿¤Ï /WARNINGS=INFORMATIONAL¤â»ØÄꤹ¤ëɬÍפ¬¤¢¤ê¤Þ¤¹)¡£¤³¤Î¾ðÊó¤ò»ÈÍѤ·¤Æ¡¤ DEC COBOL¤ò»ÈÍѤ¹¤ëÁ°¤Ë¥×¥í¥°¥é¥à¤òÊѹ¹¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

¾Êά»þ¤Î/STANDARD=NOOPENVMS_AXP¤Ç¤Ï¡¤¤³¤ì¤é¤Î¾ðÊó¥á¥Ã¥»¡¼¥¸¤Ïɽ¼¨¤µ¤ì¤Þ¤»¤ó¡£


11.3.3¡¡DEC COBOL¤ÈVAX COBOL¤ÎÆ°ºî¤Î°ã¤¤

¤³¤Î¹à¤Ç¤Ï¡¤VAX COBOL¤ÈDEC COBOL¤ÎÆ°ºî¤Î°ã¤¤¤È¡¤DEC COBOL¤Ë¸ÇÍ­¤ÎÆ°ºî¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£


11.3.3.1¡¡¥×¥í¥°¥é¥à¹½Â¤¥á¥Ã¥»¡¼¥¸

DEC COBOL¥³¥ó¥Ñ¥¤¥é¤Ï¡¤ÅþãÉÔǽ¥³¡¼¥É¤ä¤½¤Î¾¤Î¥í¥¸¥Ã¥¯¡¦¥¨¥é¡¼¤Ë´Ø¤·¤Æ¡¤ VAX COBOL¥³¥ó¥Ñ¥¤¥é¤è¤ê¤â¾ÜºÙ¤Ê¥á¥Ã¥»¡¼¥¸¤òÀ¸À®¤¹¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£

¼¡¤ÎÎã¤Ë¡¤¥µ¥ó¥×¥ë¡¦¥×¥í¥°¥é¥à¤È¡¤DEC COBOL¥³¥ó¥Ñ¥¤¥é¤¬È¯¹Ô¤¹¤ë¥á¥Ã¥»¡¼¥¸¤ò¼¨¤·¤Þ¤¹¡£

¥½¡¼¥¹¡¦¥Õ¥¡¥¤¥ë:

     IDENTIFICATION DIVISION.
     PROGRAM-ID. T1.
     ENVIRONMENT DIVISION.
     PROCEDURE DIVISION.
     P0.
         GO TO P1.
     P2.
         DISPLAY "This is unreachable code".
     P1.
         STOP RUN.

OpenVMS VAX¥·¥¹¥Æ¥à¾å¤Ç¤Î¥á¥Ã¥»¡¼¥¸:

     $ COBOL /ANSI/WARNINGS=ALL T1.COB
     $
¥×¥í¥°¥é¥à¤Ï¥³¥ó¥Ñ¥¤¥ë¤µ¤ì¤Þ¤¹¡£VAX COBOL¥³¥ó¥Ñ¥¤¥é¤Ï¥á¥Ã¥»¡¼¥¸¤ò½ÐÎϤ·¤Þ¤»¤ó¡£

OpenVMS Alpha¥·¥¹¥Æ¥à¾å¤Ç¤Î¥á¥Ã¥»¡¼¥¸:

     $ COBOL/ANSI/OPTIMIZE/WARNINGS=ALL T1.COB
            P2.
     .......^
     %COBOL-I-UNREACH, code can never be executed at label P2
     at line number 7 in file DISK$YOURDISK:[TESTDIR]T1.COB;1
DEC COBOL¤Ï¡¤¤É¤Á¤é¤Î¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¡¦¥·¥¹¥Æ¥à¾å¤Ç¤âºÇŬ²½¤ò¹Ô¤¤¤Þ¤¹¡£ ºÇŬ²½¤Î1¤Ä¤ÎÍÑÅӤȤ·¤Æ¡¤ ¸Æ¤Ó½Ð¤µ¤ì¤Æ¤¤¤Ê¤¤¥ë¡¼¥Á¥ó¤äÅþãÉÔǽ¤ÊÃÊÍî¤ÎʬÀϤò¹Ô¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ¥³¥ó¥Ñ¥¤¥é¤Ï¡¤/NOOPTIMIZE¤ò´Þ¤à¤¹¤Ù¤Æ¤ÎºÇŬ²½¥ì¥Ù¥ë¤Ç¡¤ ÅþãÉÔǽ¥³¡¼¥É¤ÎʬÀϤò¼Â¹Ô¤·¤Þ¤¹(¾Êά»þ¤Ë¤Ï´°Á´¤ÊºÇŬ²½¤¬¹Ô¤ï¤ì¤ë¤Î¤Ç¡¤ ¾å¤ÎÎã¤Î¤è¤¦¤Ë¥³¥Þ¥ó¥É¹Ô¤Ç½¤¾þ»Ò¤ä¥Õ¥é¥°¤ò»ØÄꤹ¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó)¡£ VAX COBOL¤Ë¤Ï/OPTIMIZE½¤¾þ»Ò¤Ï¤¢¤ê¤Þ¤»¤ó¡£


11.3.3.2¡¡¥×¥í¥°¥é¥à¡¦¥ê¥¹¥Æ¥£¥ó¥°¤Î°ã¤¤

VAX COBOL¥³¥ó¥Ñ¥¤¥é¤È¡¤OpenVMS Alpha¥·¥¹¥Æ¥à¾å¤ÎDEC COBOL¥³¥ó¥Ñ¥¤¥é¤Ë¤Ï¡¤ ½ÐÎϤµ¤ì¤ë¥×¥í¥°¥é¥à¡¦¥ê¥¹¥Æ¥£¥ó¥°¤Ë°ã¤¤¤¬¤¢¤ê¤Þ¤¹¡£


11.3.3.2.1¡¡¥Þ¥·¥ó¡¦¥³¡¼¥É

DEC COBOL¤Ç¤Ï¡¤/NOOBJECT½¤¾þ»Ò¤ò»ØÄꤹ¤ë¤È¡¤ ¥³¥ó¥Ñ¥¤¥é¤Ï¥³¡¼¥ÉÀ¸À®¤òÍ޻ߤ·¤Þ¤¹¡£¤³¤Î¤¿¤á¡¤ ¥ê¥¹¥Æ¥£¥ó¥°¤Ç¤â¥ª¥Ö¥¸¥§¥¯¥È¡¦¥â¥¸¥å¡¼¥ë¤Ç¤â¡¤¥Þ¥·¥ó¡¦¥³¡¼¥É¤ÏÀ¸À®¤µ¤ì¤Þ¤»¤ó¡£ VAX COBOL¤Ç¤Ï¡¤/NOOBJECT¤Ï.OBJ¤ÎºîÀ®¤òÍ޻ߤ¹¤ë¤À¤±¤Ç¤¹¡£¤³¤Î¾ì¹ç¤Ç¤â¡¤VAX COBOL¤Ï¥ª¥Ö¥¸¥§¥¯¥È¡¦¥³¡¼¥É¤òÀ¸À®¤¹¤ë¤¿¤á¤Îºî¶È¤ò¼Â¹Ô¤·¤Þ¤¹¤Î¤Ç¡¤ ¤½¤Î·ë²Ì¤ò¥ê¥¹¥Æ¥£¥ó¥°¤Ë½ÐÎϤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ¥×¥í¥°¥é¥à¡¦¥ê¥¹¥Æ¥£¥ó¥°¤Ë¥Þ¥·¥ó¡¦¥³¡¼¥É¤ò½ÐÎϤ·¤¿¤¤¾ì¹ç¤Ï¡¤ /NOOBJECT¤ò»ÈÍѤ·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£


11.3.3.2.2¡¡¥â¥¸¥å¡¼¥ë̾

DEC COBOL¤Ç¤Ï¡¤ºÇ½é¤Î¥×¥í¥°¥é¥à¤Î̾Á°¤¬¥³¥ó¥Ñ¥¤¥ëÁ´ÂΤǤΥ⥸¥å¡¼¥ë̾¤Ë¤Ê¤ê¤Þ¤¹¡£ VAX COBOL¤Ç¤Ï¡¤¥â¥¸¥å¡¼¥ë̾¤Ï¸Ä¡¹¤Î¥×¥í¥°¥é¥à¤´¤È¤ËÊѤï¤ê¤Þ¤¹¡£


11.3.3.2.3¡¡COPYʸ¤ÈREPLACEʸ

DEC COBOL¥³¥ó¥Ñ¥¤¥é¤ÈVAX COBOL¥³¥ó¥Ñ¥¤¥é¤Ï¡¤COBOL¥×¥í¥°¥é¥à¤ÎCOPYʸ¤ÎÃí¼á¤ò¡¤ ¼ã´³°Û¤Ê¤ë·Á¼°¤Ç½ÐÎϤ·¤Þ¤¹¡£¼¡¤Î2¤Ä¤Î¥³¥ó¥Ñ¥¤¥é¡¦¥ê¥¹¥Æ¥£¥ó¥°¤Ï¡¤DEC COBOL¤ÈVAX COBOL¤Ç¤Î¡¤COBOL¥×¥í¥°¥é¥à¤Î¥ê¥¹¥Æ¥£¥ó¥°¤Ë¤ª¤±¤ëÃí¼á¤Î°ÌÃ֤ΰ㤤( "L"¤È¤¤¤¦Ê¸»ú)¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£

DEC COBOL¤Ë¤ª¤±¤ëCOPYʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

              1 IDENTIFICATION DIVISION.
              2 PROGRAM-ID. DCOP1B.
              3 *
              4 *       This program tests the copy library file.
              5 *       with a comment in the middle of it.
              6 *       It should not produce any diagnostics.
              7         COPY
              8 *       this is the comment in the middle
              9                 LCOP1A.
L            10 ENVIRONMENT DIVISION.
L            11 INPUT-OUTPUT SECTION.
L            12 FILE-CONTROL.
L            13 SELECT FILE-1
L            14         ASSIGN TO "FILE1.TMP".
             15 DATA DIVISION.
             16 FILE SECTION.
             17 FD      FILE-1.
             18 01      FILE1-REC       PIC X.
             19 WORKING-STORAGE SECTION.
             20 PROCEDURE DIVISION.
             21 PE.     DISPLAY "***END***"
             22         STOP RUN.

VAX COBOL¤Ë¤ª¤±¤ëCOPYʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

      1         IDENTIFICATION DIVISION.
      2         PROGRAM-ID. DCOP1B.
      3        *
      4        *    This program tests the copy library file.
      5        *    with a comment in the middle of it.
      6        *    It should not produce any diagnostics.
      7             COPY
      8        *    this is the comment in the middle
      9                     LCOP1A.
     10L        ENVIRONMENT DIVISION.
     11L        INPUT-OUTPUT SECTION.
     12L        FILE-CONTROL.
     13L        SELECT FILE-1
     14L            ASSIGN TO "FILE1.TMP".
     15         DATA DIVISION.
     16         FILE SECTION.
     17         FD  FILE-1.
     18         01  FILE1-REC       PIC X.
     19         WORKING-STORAGE SECTION.
     20         PROCEDURE DIVISION.
     21         PE. DISPLAY "***END***"
     22             STOP RUN.


11.3.3.2.4¡¡Ê£¿ô¤ÎCOPYʸ

DEC COBOL¥³¥ó¥Ñ¥¤¥é¤ÈVAX COBOL¥³¥ó¥Ñ¥¤¥é¤Ï¡¤ Ê£¿ô¤ÎCOPYʸ¤¬Æ±¤¸¹Ô¤Ë´Þ¤Þ¤ì¤Æ¤¤¤ëCOBOL¥×¥í¥°¥é¥à¤Î¥ê¥¹¥Æ¥£¥ó¥°¤Ç¤â¡¤ ¼ã´³°Û¤Ê¤ë·Á¼°¤ò»ÈÍѤ·¤Þ¤¹¡£¼¡¤Î2¤Ä¤Î¥³¥ó¥Ñ¥¤¥é¡¦¥ê¥¹¥Æ¥£¥ó¥°¤Ï¡¤DEC COBOL¤ÈVAX COBOL¤Ç¤Î¡¤COBOL¥×¥í¥°¥é¥à¤Î1¤Ä¤Î¹Ô¤ËÊ£¿ô¤Î COPYʸ¤¬¤¢¤Ã¤¿¤È¤­¤ÎÃí¼á¤Î°ÌÃ֤ΰ㤤("L"¤È¤¤¤¦Ê¸»ú)¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£

DEC COBOL¤Ë¤ª¤±¤ëÊ£¿ô¤ÎCOPYʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

                   1 IDENTIFICATION DIVISION.
                   2 PROGRAM-ID. DCOP1J.
                   3 *
                   4 *       Tests copy with three copy statements on 1 line.
                   5 *
                   6 ENVIRONMENT DIVISION.
                   7 DATA DIVISION.
                   8 PROCEDURE DIVISION.
                   9 THE.
                  10         COPY LCOP1J. COPY LCOP1J. COPY LCOP1J.
     L            11         DISPLAY "POIUYTREWQ".
     L            12         DISPLAY "POIUYTREWQ".
     L            13         DISPLAY "POIUYTREWQ".
                  14         STOP RUN.

VAX COBOL¤Ë¤ª¤±¤ëÊ£¿ô¤ÎCOPYʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

      1         IDENTIFICATION DIVISION.
      2         PROGRAM-ID. DCOP1J.
      3        *
      4        *    Tests copy with three copy statements on 1 line.
      5        *
      6         ENVIRONMENT DIVISION.
      7         DATA DIVISION.
      8         PROCEDURE DIVISION.
      9         THE.
     10             COPY LCOP1J.
     11L            DISPLAY "POIUYTREWQ".
     12C                         COPY LCOP1J.
     13L            DISPLAY "POIUYTREWQ".
     14C                                      COPY LCOP1J.
     15L            DISPLAY "POIUYTREWQ".
     16             STOP RUN.


11.3.3.2.5¡¡COPYÁÞÆþʸ

COPYʸ¤¬¹Ô¤ÎÅÓÃæ¤Ëʸ¤òÁÞÆþ¤¹¤ë¤È¤­¤Î¥³¥ó¥Ñ¥¤¥é¡¦¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë¤Ï¡¤ DEC COBOL¥×¥í¥°¥é¥à¤ÈVAX COBOL¥×¥í¥°¥é¥à¤Ç°Û¤Ê¤ê¤Þ¤¹¡£ ¼¡¤Î2¤Ä¤Î¥³¥ó¥Ñ¥¤¥é¡¦¥ê¥¹¥Æ¥£¥ó¥°¤Ç¡¤LCOP5D.LIB¤Ï "O"¤È¤¤¤¦¥Æ¥­¥¹¥È¤ò´Þ¤ó¤Ç¤¤¤Þ¤¹¡£DEC COBOL¥³¥ó¥Ñ¥¤¥é¤Ï¹Ô¤ò¤½¤Î¤Þ¤Þ»Ä¤·¡¤ COPY¥Õ¥¡¥¤¥ë¤ÎÆâÍƤò¥½¡¼¥¹¹Ô¤Î²¼¤Ë½ÐÎϤ·¤Þ¤¹¡£VAX COBOL¥³¥ó¥Ñ¥¤¥é¤Ï¡¤ ¸µ¤Î¥½¡¼¥¹¹Ô¤ò2¤Ä¤ÎÉôʬ¤Ëʬ³ä¤·¤Þ¤¹¡£

DEC COBOL¤Ë¤ª¤±¤ëCOPYʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

     -----------------------------------------------------------
     13 P0.     MOVE COPY LCOP5D. TO ALPHA.
     L  14              "O"

VAX COBOL¤Ë¤ª¤±¤ëCOPYʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

     -----------------------------------------------------------
     13         P0. MOVE COPY LCOP5D.
     14L                 "O"
     15C                              TO ALPHA.


11.3.3.2.6¡¡REPLACEʸ

COBOL¥½¡¼¥¹Ê¸¤ÎREPLACE¤ÈDATE-COMPILED¤ËÂФ¹¤ë¿ÇÃÇ¥á¥Ã¥»¡¼¥¸¤Ë¤è¤ê¡¤ ¥³¥ó¥Ñ¥¤¥é¡¦¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë¤Ë¥½¡¼¥¹¹Ô¤ÎÊ£¿ô¤Î¥¤¥ó¥¹¥¿¥ó¥¹¤¬´Þ¤Þ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£ DEC COBOL¥×¥í¥°¥é¥à¤ÎREPLACEʸ¤Ç¤Ï¡¤DEC COBOL¥³¥ó¥Ñ¥¤¥é¤¬ÃÖ´¹¥Æ¥­¥¹¥È¤Ë´Ø¤¹¤ë¥á¥Ã¥»¡¼¥¸¤òȯ¹Ô¤¹¤ë¾ì¹ç¡¤ ¤½¤Î¥á¥Ã¥»¡¼¥¸¤Ï¼¡¤Î¥³¥ó¥Ñ¥¤¥é¡¦¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë¤Ë¼¨¤¹¤è¤¦¤Ë¡¤ ¥×¥í¥°¥é¥à¤Î¸µ¤Î¥Æ¥­¥¹¥È¤ËÂбþ¤¹¤ë¤â¤Î¤Ë¤Ê¤ê¤Þ¤¹¡£

DEC COBOL¤Ë¤ª¤±¤ëREPLACEʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

                  18 P0.     REPLACE ==xyzpdqnothere==
                  19                         BY ==nothere==.
                  20
                  21         copy "drep3hlib".
     L            22         display xyzpdqnothere.
                  ...................1
            %COBOL-F-UNDEFSYM, (1) Undefined name
     LR           22     display nothere.

VAX COBOL¥×¥í¥°¥é¥à¤Ç¤Ï¡¤ ¥³¥ó¥Ñ¥¤¥é¡¦¥á¥Ã¥»¡¼¥¸¤Ï¼¡¤Î¥³¥ó¥Ñ¥¤¥é¡¦¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë¤Ë¼¨¤¹¤è¤¦¤Ë¡¤ ÃÖ´¹¸å¤Î¥Æ¥­¥¹¥È¤ËÂбþ¤¹¤ë¤â¤Î¤Ë¤Ê¤ê¤Þ¤¹¡£

VAX COBOL¤Ë¤ª¤±¤ëREPLACEʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

     18         P0. REPLACE ==xyzpdqnothere==
     19                             BY ==nothere==.
     20
     21             copy "drep3hlib".
     22LR           display nothere.
                            1
          %COBOL-F-ERROR  349, (1) Undefined name


11.3.3.2.7¡¡DATE COMPILEDʸ

¼¡¤Î2¤Ä¤Î¥³¥ó¥Ñ¥¤¥é¡¦¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë¤Ï¡¤DEC COBOL¤ÈVAX COBOL¤Ç DATE-COMPILEDʸ¤ò»ÈÍѤ·¤¿¾ì¹ç¤Î°ã¤¤¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£

DEC COBOL¤Ë¤ª¤±¤ëDATE-COMPILEDʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

                  33 *
                  34 date-compiled
                     .............1
     %COBOL-E-NODOT, (1) Missing period is assumed
                  34 date-compiled  16-Jul-1992.
                  35 security. none.

VAX COBOL¤Ë¤ª¤±¤ëDATE-COMPILEDʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

        33        *
        34         date-compiled   16-Jul-1992.
                                1
     %COBOL-E-ERROR   65, (1) Missing period is assumed
        35         security. none.

REPLACEʸ¤ÈCOPY REPLACINGʸ¤ò»ÈÍѤ·¤¿¤È¤­¡¤ ¥³¥ó¥Ñ¥¤¥é¡¦¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë¤Ë¤ª¤±¤ë¹ÔÈÖ¹æ¤ÏDEC COBOL¤ÈVAX COBOL¤Ç°Û¤Ê¤ê¤Þ¤¹¡£DEC COBOL¤Ï¡¤ ÃÖ´¹¸å¤Î¹ÔÈÖ¹æ¤ò¸µ¤Î¥½¡¼¥¹¡¦¥Æ¥­¥¹¥È¤Î¹ÔÈÖ¹æ¤ËÂбþ¤µ¤»¤Þ¤¹¡£¤³¤Î¤¿¤á¡¤ ¤½¤ì°Ê¹ß¤Î¹ÔÈÖ¹æ¤Ï¿©¤¤°ã¤¦¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£VAX COBOL¤Ï¹ÔÈÖ¹æ¤òϢ³Ū¤ËÉÕ¤±¤Þ¤¹¡£

¼¡¤Î¥½¡¼¥¹¡¦¥×¥í¥°¥é¥à¤Ï¡¤¥×¥í¥°¥é¥à¤òDEC COBOL¤ÈVAX COBOL¤Î¤É¤Á¤é¤Ç¥³¥ó¥Ñ¥¤¥ë¤¹¤ë¤«¤Ë¤è¤Ã¤Æ¡¤ ¥³¥ó¥Ñ¥¤¥é¡¦¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë¤ÎºÇ¸å¤Î¹ÔÈֹ椬ÊѤï¤ê¤Þ¤¹¡£

¥½¡¼¥¹¡¦¥Õ¥¡¥¤¥ë:

     REPLACE ==A VERY LONG STATEMENT== by ==EXIT PROGRAM==.
     A
     VERY
     LONG
     STATEMENT.
     DISPLAY "To REPLACE or not to REPLACE".

DEC COBOL¤Ë¤ª¤±¤ëREPLACEʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

     -----------------------------------------------------------------
     1 REPLACE ==A VERY LONG STATEMENT== by ==EXIT PROGRAM==.
     2 EXIT PROGRAM.
     6 DISPLAY "To REPLACE or not to REPLACE".

VAX COBOL¤Ë¤ª¤±¤ëREPLACEʸ¤Î¥ê¥¹¥Æ¥£¥ó¥°¡¦¥Õ¥¡¥¤¥ë:

     -----------------------------------------------------------------
     1 REPLACE ==A VERY LONG STATEMENT== by ==EXIT PROGRAM==.
     2 EXIT PROGRAM.
     3 DISPLAY "To REPLACE or not to REPLACE".


11.3.3.2.8¡¡ ¥³¥ó¥Ñ¥¤¥é¡¦¥ê¥¹¥Æ¥£¥ó¥°¤Èʬ³ä¥³¥ó¥Ñ¥¤¥ë

/SEPARATE_COMPILATION½¤¾þ»Ò¤ò»ØÄꤹ¤ë¤È¡¤¥ê¥¹¥Æ¥£¥ó¥°¤¬¸ÄÊ̤ËÀ¸À®¤µ¤ì¤Þ¤¹¡£ /SEPARATE_COMPILATION¤ò»ØÄꤻ¤º¤Ë ¥³¥ó¥Ñ¥¤¥ë¤µ¤ì¤¿Ê¬³ä¥³¥ó¥Ñ¥¤¥ë¡¦¥×¥í¥°¥é¥à(SCP)¤Ç¤Ï¡¤ ¥ê¥¹¥Æ¥£¥ó¥°¤Ï°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£

/SEPARATE_COMPILATION¤ò»ØÄꤷ¤¿¤È¤­¤Î·ë²Ì¤Ï°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£ ¤³¤ì¤ÏVAX COBOL¤¬À¸À®¤¹¤ë¥ê¥¹¥Æ¥£¥ó¥°¤ÈƱ¤¸¤Ç¤¢¤ë¤³¤È¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£


11.3.3.3¡¡½ÐÎϤΥե©¡¼¥Þ¥Ã¥Æ¥£¥ó¥°

VFU-CHANNEL

DEC COBOL¤ÏVFU-CHANNEL¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Ê¤¤¤Î¤Ç¡¤VFU¤ÈVFP (Vertical Forms Unit¥æ¡¼¥Æ¥£¥ê¥Æ¥£¤ÈVertical Forms Printing)¤òľÀܤˤϥµ¥Ý¡¼¥È¤·¤Þ¤»¤ó¡£

À©¸æ¥Ð¥¤¥È¡¦¥·¡¼¥±¥ó¥¹

DEC COBOL¤ÈVAX COBOL¤Ï¡¤ »÷¤¿¤è¤¦¤Ê½ÐÎÏ¥Õ¥¡¥¤¥ë¡¦¥Õ¥©¡¼¥Þ¥Ã¥Æ¥£¥ó¥°¤ò¼Â¸½¤¹¤ë¤¿¤á¤Ë¡¤ VFC¥Õ¥¡¥¤¥ë¤ÎÃæ¤Ç°Û¤Ê¤ëÀ©¸æ¥Ð¥¤¥È¡¦¥·¡¼¥±¥ó¥¹¤ò»ÈÍѤ·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£

²èÌ̤Υե©¡¼¥Þ¥Ã¥Æ¥£¥ó¥°

DEC COBOL¤ÈVAX COBOL¤Ï¡¤»÷¤¿¤è¤¦¤Ê²èÌÌ¥Õ¥©¡¼¥Þ¥Ã¥Æ¥£¥ó¥°¤ò¼Â¸½¤¹¤ë¤¿¤á¤Ë¡¤ ACCEPT¤ÈDISPLAY¤Ç°Û¤Ê¤ë¥¨¥¹¥±¡¼¥×¡¦¥·¡¼¥±¥ó¥¹¤ò»ÈÍѤ·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£

VFC¥Õ¥¡¥¤¥ë

VFC¥Õ¥©¡¼¥Þ¥Ã¥È¤ÎREPORT WRITER¤Þ¤¿¤ÏLINAGE¥Õ¥¡¥¤¥ë¤Ï¡¤Ä̾ï¤Ï TYPE¥³¥Þ¥ó¥É¤ò»ÈÍѤ¹¤ë¤«¡¤¥×¥ê¥ó¥È¥¢¥¦¥È¤·¤Æɽ¼¨¤·¤Þ¤¹¡£ÅŻҥ᡼¥ë¤ÇÁ÷¿®¤·¤¿¤ê¡¤ ¥¨¥Ç¥£¥¿¤ÇÆɤ߹þ¤ó¤À¤ê¤¹¤ë¤¿¤á¤Ë¤Ï¡¤¥³¥ó¥Ñ¥¤¥ë¡¦¥³¥Þ¥ó¥É¹Ô¤Ç /NOVFC¤ò»ØÄꤷ¤Æ¥³¥ó¥Ñ¥¤¥ë¤ò¹Ô¤¤¤Þ¤¹¡£

1¤Ä¤Î.COB¥½¡¼¥¹¡¦¥Õ¥¡¥¤¥ë¤Ç¥ª¡¼¥×¥ó¤µ¤ì¤ë¤¹¤Ù¤Æ¤ÎREPORT WRITER¤ª¤è¤Ó LINAGE¥Õ¥¡¥¤¥ë¤Ï¡¤Æ±¤¸¥Õ¥©¡¼¥Þ¥Ã¥È¤ò»ý¤Ä¤³¤È¤Ë¤Ê¤ê¤Þ¤¹(VFC¤Þ¤¿¤Ï NOVFC)¡£¾Êά»þ¤ÏVFC¤Ç¤¹¡£/NOVFC½¤¾þ»Ò¤¬»ØÄꤵ¤ì¤Æ¤¤¤ë¤È¡¤ ³Æ¥½¡¼¥¹¡¦¥Õ¥¡¥¤¥ë¤ËÂФ·¤ÆNOVFC¾ò·ï¤¬ÀßÄꤵ¤ì¤Þ¤¹¡£¼¡¤ËÎã¤ò¼¨¤·¤Þ¤¹¡£

     $ COBOL A/NOVFC,B/VFC,C/NOVFC,D
¤³¤ÎÎã¤Ç¡¤¥½¡¼¥¹¡¦¥Õ¥¡¥¤¥ëB¤ÈD¤ÏVFC¥Õ¥©¡¼¥Þ¥Ã¥È¤Ç¥ì¥Ý¡¼¥È¤òÀ¸À®¤·¤Þ¤¹ (¥½¡¼¥¹¡¦¥Õ¥¡¥¤¥ë¡¦¥ê¥¹¥È¹àÌܤ¬¥×¥é¥¹(+)µ­¹æ¤Ç¶èÀÚ¤é¤ì¤Æ¤¤¤ë¾ì¹ç¤Ë¤ÏÆ°ºî¤¬°Û¤Ê¤ê¤Þ¤¹)¡£


11.3.3.4¡¡DEC COBOL¤ÈVAX COBOL¤Îʸ¤Î°ã¤¤

°Ê²¼¤ÎCOBOLʸ¤Ï¡¤DEC COBOL¤ÈVAX COBOL¤Ç°Û¤Ê¤ëÆ°ºî¤ò¤·¤Þ¤¹¡£


11.3.3.4.1¡¡ACCEPT¤ª¤è¤ÓDISPLAYʸ

¥×¥í¥°¥é¥à¤ÎÃæ¤ÇACCEPT¤Þ¤¿¤ÏDISPLAY¤Î³ÈÄ¥µ¡Ç½¤ò»ÈÍѤ·¤Æ¤¤¤ë¤È¡¤ DEC COBOL¤ÈVAX COBOL¤ÎÆ°ºî¤Ë°ã¤¤¤¬À¸¤¸¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£¤³¤Î¾ì¹ç¡¤ DEC COBOL¤Ï°Ê²¼¤Î¤è¤¦¤ËÆ°ºî¤·¤Þ¤¹¡£


11.3.3.4.2¡¡EXIT PROGRAM¶ç

¸Æ¤Ó½Ð¤µ¤ì¤¿¥×¥í¥°¥é¥à¤ÎÃæ¤ÎEXIT PROGRAM¤ÏPERFORMÈϰϤò¥ê¥»¥Ã¥È¤·¤Þ¤»¤ó¡£ VAX COBOL¤Ç¤Ï¡¤EXIT PROGRAM¤Çæ½Ð¤·¤¿¸å¤Ë¥×¥í¥°¥é¥à¤ËºÆ¤ÓÆþ¤Ã¤¿¤È¤­¡¤ °ÊÁ°¤Î¼Â¹Ô¤Ë¤ª¤±¤ë¤¹¤Ù¤Æ¤ÎPERFORMÈϰϤ¬Ëþ¤¿¤µ¤ì¤Æ¤¤¤Þ¤¹¡£


11.3.3.4.3¡¡LINAGE¶ç

DEC COBOL¤ÈVAX COBOL¤Ç¤Ï¡¤LINAGEʸ¤ÇÂ礭¤ÊÃͤò°·¤Ã¤¿¤È¤­¤ÎÆ°ºî¤¬°Û¤Ê¤ê¤Þ¤¹¡£ WRITEʸ¤ÎADVANCING¶ç¤Î¹Ô¥«¥¦¥ó¥È¤¬127¤è¤ê¤âÂ礭¤¤¤È¡¤DEC COBOL¤Ï1¹Ô¿Ê¤ß¤Þ¤¹¤¬¡¤ VAX COBOL¤Ç¤Î·ë²Ì¤ÏÄêµÁ¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£


11.3.3.4.4¡¡MOVEʸ

Éä¹æ¤Ê¤··×»»¥Õ¥£¡¼¥ë¥É¤Ï¡¤ Éä¹æÉÕ¤­·×»»¥Õ¥£¡¼¥ë¥É¤è¤ê¤âÂ礭¤ÊÃͤò´Þ¤à¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ANSI COBOLµ¬³Ê¤Ë½¾¤¤¡¤ Éä¹æ¤Ê¤·¹àÌܤÎÃͤÏɬ¤ºÀµ¤ÎÃͤȤ·¤Æ°·¤ï¤ì¤Ê¤¯¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£¤·¤«¤·¡¤ DEC COBOL¤ÏÉä¹æ¤Ê¤·¹àÌܤòÀµ¤ÎÃͤȤ·¤Æ°·¤¤¤Þ¤¹¤¬¡¤VAX COBOL¤Ï¤³¤ì¤òÉä¹æÉÕ¤­¹àÌܤȤ·¤Æ°·¤¤¤Þ¤¹¡£¤³¤Î¤¿¤á¡¤µ©¤Ç¤Ï¤¢¤ê¤Þ¤¹¤¬¡¤ MOVEʸ¤ä»»½Ñʸ¤ÎÃæ¤ÇÉä¹æ¤Ê¤·¥Ç¡¼¥¿¹àÌܤÈÉä¹æÉÕ¤­¥Ç¡¼¥¿¹àÌܤòº®ºß¤µ¤»¤¿¤È¤­¤Ë¡¤ VAX COBOL¤ÈDEC COBOL¤Ç°Û¤Ê¤ë·ë²Ì¤¬ÆÀ¤é¤ì¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£ Îã 11-1¤Ç¤Ï¡¤ VAX COBOL¤ÈDEC COBOL¤Ç°Û¤Ê¤ëÃͤ¬ÆÀ¤é¤ì¤Þ¤¹¡£

Îã 11-1¡¡Éä¹æÉÕ¤­¤ÈÉä¹æ¤Ê¤·¤Î°ã¤¤

     IDENTIFICATION DIVISION.
     PROGRAM-ID. SHOW-DIFF.
     ENVIRONMENT DIVISION.
     DATA DIVISION.
     WORKING-STORAGE SECTION.
     01 A2       PIC 99    COMP.
     01 B1       PIC S9(5) COMP.
     01 B2       PIC 9(5)  COMP.
     PROCEDURE DIVISION.
     TEST-1.
         MOVE 65535 TO A2.
         MOVE A2 TO B1.
         DISPLAY B1 WITH CONVERSION.
         MOVE A2 TO B2.
         DISPLAY B2 WITH CONVERSION.
         STOP RUN.
      

VAX COBOL¤Î·ë²Ì:

     B1 =  -1
     B2 =  -1

DEC COBOL¤Î·ë²Ì:

     B1 =  65535
     B2 =  65535


11.3.3.4.5¡¡SEARCHʸ

DEC COBOL¤ÈVAX COBOL¥Ð¡¼¥¸¥ç¥ó5.0°Ê¾å¤Ç¤Ï¡¤SEARCHʸ¤ÎÃæ¤ÇEND-SEARCH¶ç¤ÈNEXT SENTENCE¶ç¤òƱ»þ¤Ë»ÈÍѤ¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£°ìÊý¤ò»ÈÍѤ¹¤ë¤È¡¤ ¤â¤¦°ìÊý¤Ï»ÈÍѤǤ­¤Þ¤»¤ó¡£¤³¤Îµ¬Â§¤ÏANSI COBOLµ¬³Ê¤Ë§¤Ã¤¿¤â¤Î¤Ç¤¹¤¬¡¤ ¥Ð¡¼¥¸¥ç¥ó5.0¤è¤ê¤âÁ°¤ÎVAX COBOL¤Ë¤ÏŬÍѤµ¤ì¤Þ¤»¤ó¡£


11.3.3.5¡¡¥·¥¹¥Æ¥à¤ÎÌá¤ê¥³¡¼¥É

Îã 11-2¤Ï¡¤DEC COBOL¤ÈVAX COBOL¤Ç°Û¤Ê¤ëÆ°ºî¤ò¤¹¤ë¡¤µ¬Â§¤ËÈ¿¤¹¤ë¥³¡¼¥Ç¥£¥ó¥°¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£ ¤³¤ÎÆ°ºî¤Î°ã¤¤¤Ï¡¤VAX¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤ÈAlpha¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤Î¡¤ ¥ì¥¸¥¹¥¿¡¦¥»¥Ã¥È¤Ë¤ª¤±¤ë¥¢¡¼¥­¥Æ¥¯¥Á¥ã¾å¤Î°ã¤¤¤¬¸¶°ø¤Ç¤¹¡£ Alpha¤Ë¤ÏÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿ÀìÍѤΥ쥸¥¹¥¿¤Î¥»¥Ã¥È¤¬¤¢¤ê¤Þ¤¹¡£ Îã 11-2¤Ë¼¨¤µ¤ì¤Æ¤¤¤ë¤è¤¦¤Ê¥³¡¼¥Ç¥£¥ó¥°°ãÈ¿¤Ï¡¤ Alpha¤¬¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤ë¤É¤ÎÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤Ë¤â±Æ¶Á¤òµÚ¤Ü¤·¤Þ¤¹¡£

Îã 11-2¡¡Ìá¤êÃͤθí¤Ã¤¿¥³¡¼¥Ç¥£¥ó¥°

     IDENTIFICATION DIVISION.
     PROGRAM-ID. BADCODING.
     ENVIRONMENT DIVISION.

     DATA DIVISION.
     FILE SECTION.

     WORKING-STORAGE SECTION.

         01  FIELDS-NEEDED.
             05 CYCLE-LOGICAL      PIC X(14) VALUE 'A_LOGICAL_NAME'.

         01  EDIT-PARM.
             05  EDIT-YR            PIC X(4).
             05  EDIT-MO            PIC XX.

         01  CMR-RETURN-CODE        COMP-1 VALUE 0.

     LINKAGE SECTION.

         01 PARM-REC.
            05 CYCLE-PARM         PIC X(6).
            05 RETURN-CODE        COMP-1 VALUE 0.

     PROCEDURE DIVISION USING PARM-REC GIVING CMR-RETURN-CODE.

     P0-CONTROL.

         CALL 'LIB$SYS_TRNLOG' USING BY DESCRIPTOR CYCLE-LOGICAL,
                                     OMITTED,
                                     BY DESCRIPTOR CYCLE-PARM
                                     GIVING RETURN-CODE.

         IF  RETURN-CODE  GREATER 0
           THEN

             MOVE RETURN-CODE TO CMR-RETURN-CODE
             GO TO P0-EXIT.
 
         MOVE  CYCLE-PARM  TO  EDIT-PARM.

         IF  EDIT-YR  NOT  NUMERIC
           THEN
             MOVE  4  TO CMR-RETURN-CODE, RETURN-CODE.

         IF  EDIT-MO  NOT NUMERIC
           THEN
             MOVE  4  TO  CMR-RETURN-CODE, RETURN-CODE.

         IF  CMR-RETURN-CODE GREATER 0
                      OR
             RETURN-CODE GREATER 0
           THEN
             DISPLAY "***************************"
             DISPLAY "** BADCODING.COB  **"
             DISPLAY "** A_LOGICAL_NAME> ", CYCLE-PARM, "   **"
             DISPLAY "***************************".
          P0-EXIT.
          EXIT PROGRAM.

Îã 11-2¤Ç¤Ï¡¤ ¥·¥¹¥Æ¥à¡¦¥µ¡¼¥Ó¥¹¸Æ¤Ó½Ð¤·¤ÎÌá¤êÃͤ¬¡¤¼ÂºÝ¤Ë¤Ï¥Ð¥¤¥Ê¥ê(COMP) ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤Î¤Ë¸í¤Ã¤ÆFÉâÆ°¾®¿ôÅÀÃͤÈÄêµÁ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¤³¤Î¥×¥í¥°¥é¥Þ¤Ï¡¤ ¥ë¡¼¥Á¥ó¤«¤é¤Î¤¹¤Ù¤Æ¤ÎÌá¤êÃͤϥ쥸¥¹¥¿R0¤ËÊÖ¤µ¤ì¤ë¤È¤¤¤¦ VAX¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤ÎÆ°ºî¤òÍøÍѤ·¤Æ¤¤¤Þ¤·¤¿¡£VAX¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤Ç¤Ï¡¤ À°¿ô¤ÈÉâÆ°¾®¿ôÅÀ¿ô¤Î¥ì¥¸¥¹¥¿¤¬ÊÌ¡¹¤Ë¸ºß¤·¤Æ¤¤¤ë¤ï¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£°ìÊý¡¤ Alpha¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤Ï¡¤ÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿¤È¥Ð¥¤¥Ê¥ê¡¦¥Ç¡¼¥¿¤Ë¤Ä¤¤¤Æ¡¤ ÊÌ¡¹¤Î¥ì¥¸¥¹¥¿¡¦¥»¥Ã¥È¤òÄêµÁ¤·¤Æ¤¤¤Þ¤¹¡£ ÉâÆ°¾®¿ôÅÀÃͤòÊÖ¤¹¥ë¡¼¥Á¥ó¤Ï¥ì¥¸¥¹¥¿F0¤ò»ÈÍѤ·¡¤ ¥Ð¥¤¥Ê¥êÃͤòÊÖ¤¹¥ë¡¼¥Á¥ó¤Ï¥ì¥¸¥¹¥¿R0¤ò»ÈÍѤ·¤Þ¤¹¡£

DEC COBOL¥³¥ó¥Ñ¥¤¥é¤Ë¤Ï¡¤³°Éô¥ë¡¼¥Á¥ó¤¬ÊÖ¤¹¥Ç¡¼¥¿·¿¤òÃΤë¼êÃʤϤ¢¤ê¤Þ¤»¤ó¡£ ¥×¥í¥°¥é¥Þ¤Ï¡¤CALLʸ¤ÎGIVING-VALUE¹àÌܤËÂФ·¤Æ¡¤ Àµ¤·¤¤¥Ç¡¼¥¿·¿¤ò»ØÄꤹ¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£Alpha¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤Ç¤Ï¡¤ ÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿¹àÌܤ˰ۤʤë¥ì¥¸¥¹¥¿¤Î¥»¥Ã¥È¤¬»ÈÍѤµ¤ì¤ë¤¿¤á¡¤ À¸À®¤µ¤ì¤ë¥³¡¼¥É¤ÏR0¤Ç¤Ï¤Ê¤¯F0¤ò¥Æ¥¹¥È¤·¤Þ¤¹¡£

¥µ¥ó¥×¥ë¡¦¥×¥í¥°¥é¥à¤Î¥³¡¼¥É¡¦¥·¡¼¥±¥ó¥¹¤Ë¤ª¤±¤ëF0¤ÎÃͤÏͽ¬¤Ç¤­¤Þ¤»¤ó¡£ ¤³¤Î¥³¡¼¥Ç¥£¥ó¥°¤Ç¤â´üÂÔ¤µ¤ì¤ëÆ°ºî¤¬ÆÀ¤é¤ì¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¤¬¡¤ ¤Û¤È¤ó¤É¤Î¾ì¹ç¤Ï¼ºÇÔ¤·¤Þ¤¹¡£


11.3.3.6¡¡¿ÇÃÇ¥á¥Ã¥»¡¼¥¸

¥×¥í¥°¥é¥ß¥ó¥°¤Ë»ÈÍѤ·¤Æ¤¤¤ë¥×¥é¥Ã¥È¥Õ¥©¡¼¥à¤Ë¤è¤Ã¤Æ¡¤ ¤¤¤¯¤Ä¤«¤Î¿ÇÃÇ¥á¥Ã¥»¡¼¥¸¤Ï°Û¤Ê¤ë°ÕÌ£¤È·ë²Ì¤ò»ý¤Ã¤Æ¤¤¤Þ¤¹¡£


11.3.3.7¡¡ÇÜÀºÅ٥ǡ¼¥¿¹àÌܤε­²±·Á¼°

VAX¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤ÈAlpha¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤Ç¤ÎDÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿¤Îµ­²±·Á¼°¤Î°ã¤¤¤Ë¤è¤ê¡¤ ¼Â¹Ô·ë²Ì¤Îɾ²Á¤ÎºÝ¤Ë¡¤¼ã´³°Û¤Ê¤ëÅú¤¨¤¬ÆÀ¤é¤ì¤Þ¤¹¡£¤³¤Îº¹¤Ï¡¤ ºÇ½ªÅª¤Ê·ë²Ì¤ò½ÐÎϤ¹¤ë¤Þ¤Ç²¿²óD-float¤Î±é»»¤ò¹Ô¤¦¤«¤Ë°Í¸¤·¤Þ¤¹¡£¤³¤ì¤Ï¡¤ COMP-2·¿¤Î¥Ç¡¼¥¿¤ò¥Õ¥¡¥¤¥ë¤Ë½ÐÎϤ·¡¤OpenVMS Alpha¥·¥¹¥Æ¥à¾å¤ÇÆ°ºî¤¹¤ë¥×¥í¥°¥é¥à¤¬À¸À®¤¹¤ë½ÐÎϤò OpenVMS VAX¥·¥¹¥Æ¥à¤¬À¸À®¤¹¤ë½ÐÎϤÈÈæ³Ó¤·¤è¤¦¤È¤·¤¿¾ì¹ç¤ËÌäÂê¤Ë¤Ê¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£

ÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤Îµ­²±·Á¼°¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¤¡ØAlpha Architecture Handbook¡Ù ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.3.3.8¡¡¥Ç¡¼¥¿¹àÌܤΥϥ¤¥ª¡¼¥À¡¼ÀÚ¤ê¼Î¤Æ

DEC COBOL¤ÏVAX COBOL¤è¤ê¤â¡¤ ¥Ç¡¼¥¿¹àÌܤΥϥ¤¥ª¡¼¥À¡¼ÀÚ¤ê¼Î¤Æ¤¬À¸¤¸¤ë²ÄǽÀ­¤ËÉÒ´¶¤ËÈ¿±þ¤·¤Þ¤¹¡£¼¡¤ÎÎã¤ò /WARNINGS=ALL½¤¾þ»Ò¤ò»ØÄꤷ¤Æ¥³¥ó¥Ñ¥¤¥ë¤·¤¿¾ì¹ç¤ò¹Í¤¨¤Þ¤¹¡£

     WORKING-STORAGE SECTION.
     01 K4 PIC 9(9) COMP.

     PROCEDURE DIVISION.
     01-MAIN-SECTION SECTION.
     01-MAIN.
         DISPLAY K4 WITH CONVERSION.
DEC COBOL¤Ï¡¤VAX COBOL¤È¤Ï°Û¤Ê¤ê¡¤¼¡¤Î¥á¥Ã¥»¡¼¥¸¤ò½ÐÎϤ·¤Þ¤¹¡£
     DISPLAY K4 WITH CONVERSION.
     ............^
     Possible high-order truncation ...

RELATIVE¥Õ¥¡¥¤¥ëÁàºî¤Ç¤â¡¤¤³¤Î¿ÇÃǤ¬À¸À®¤µ¤ì¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£


11.3.3.9¡¡¥Õ¥¡¥¤¥ë¤Î¾õÂÖÃÍ

¥Õ¥¡¥¤¥ë¤òEXTEND¥â¡¼¥É¤Ç¥ª¡¼¥×¥ó¤·¡¤¤³¤ì¤òREWRITE¤·¤è¤¦¤È¤¹¤ë¤È¡¤DEC COBOL¤ÈVAX COBOL¤Ï°Û¤Ê¤Ã¤¿¥Õ¥¡¥¤¥ë¾õÂÖÃͤòÊÖ¤·¤Þ¤¹¡£¤³¤Î̤ÄêµÁ¤ÎÁàºî¤ËÂФ·¡¤ DEC COBOL¤Ï¥Õ¥¡¥¤¥ë¾õÂÖ49 (¸ß´¹À­¤Î¤Ê¤¤¥ª¡¼¥×¥ó¡¦¥â¡¼¥É)¤òÊÖ¤·¡¤VAX COBOL¤Ï¥Õ¥¡¥¤¥ë¾õÂÖ43 (Âбþ¤¹¤ëREADʸ¤¬¤Ê¤¤)¤òÊÖ¤·¤Þ¤¹¡£


11.3.3.10¡¡»²¾È¥­¡¼

OpenVMS Alpha¤Ç¤Ï¡¤ISAM¥Õ¥¡¥¤¥ë¤ËưŪ¤Ë¥¢¥¯¥»¥¹¤¹¤ë¾ì¹ç¡¤ »²¾È¥­¡¼¤¬¥»¥«¥ó¥À¥ê¡¦¥­¡¼¤Ç¤¢¤ë¤È¡¤WRITE¡¤DELETE¡¤¤Þ¤¿¤Ï REWRITE¤ò¼Â¹Ô¤·¤¿¤È¤­¤Ë¡¤ »²¾È¥­¡¼¤¬¥»¥«¥ó¥À¥ê¡¦¥­¡¼¤«¤é¥×¥é¥¤¥Þ¥ê¡¦¥­¡¼¤ËÊѹ¹¤µ¤ì¤Þ¤¹¡£


11.3.3.11¡¡RMSÆüì¥ì¥¸¥¹¥¿

¥×¥é¥Ã¥È¥Õ¥©¡¼¥à¤Ë¤è¤Ã¤Æ¡¤RMSÆüì¥ì¥¸¥¹¥¿¤ÎÆ°ºî¤¬ÊѤï¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£

¥í¡¼¥É¤Î°ã¤¤

¼Â¹Ô»þ¤Ë¡¤DEC COBOL¤ÈVAX COBOL¤Ï¡¤ °ìÉô¤ÎÆþ½ÐÎÏÁàºî¤ÇRMSÆüì¥ì¥¸¥¹¥¿¤ÎÃͤò°ã¤Ã¤¿·Á¤Ç¹¹¿·¤·¤Þ¤¹¡£DEC COBOL¤Î¥é¥ó¥¿¥¤¥à¡¦¥·¥¹¥Æ¥à¤Ï¡¤RMSÁàºî¤ò»î¤ß¤ëÁ°¤Ë¡¤ ¤¤¤¯¤Ä¤«¤ÎÆþ½ÐÎÏ¥¨¥é¡¼¾ò·ï¤Î¥Á¥§¥Ã¥¯¤ò¹Ô¤¤¤Þ¤¹¡£¥¨¥é¡¼¾ò·ï¤¬È¯À¸¤·¤Æ¤¤¤ë¤È¡¤ DEC COBOL¤Î¥é¥ó¥¿¥¤¥à¡¦¥·¥¹¥Æ¥à¤ÏRMSÁàºî¤ò»î¤ß¤º¡¤ RMSÆüì¥ì¥¸¥¹¥¿¤Ï°ÊÁ°¤ÎÃͤò¤½¤Î¤Þ¤Þ»ý¤Á³¤±¤Þ¤¹¡£VAX COBOL¤Î¥é¥ó¥¿¥¤¥à¡¦¥·¥¹¥Æ¥à¤Ï¡¤Æþ½ÐÎÏÁàºî¤Î¥Á¥§¥Ã¥¯¤ò¹Ô¤ï¤º¤Ë¡¤ ¤¹¤Ù¤Æ¤ÎRMSÁàºî¤ò¼Â¹Ô¤·¤Þ¤¹¡£¤³¤Î¤¿¤á¡¤ ¥é¥ó¥¿¥¤¥à¡¦¥·¥¹¥Æ¥à¤ÏÆþ½ÐÎÏÁàºî¤Î¤¿¤Ó¤Ë¡¤RMSÆüì¥ì¥¸¥¹¥¿¤ÎÃͤòɬ¤º¹¹¿·¤·¤Þ¤¹¡£

¤¿¤È¤¨¤Ð¡¤¥Õ¥¡¥¤¥ë¤Î¥ª¡¼¥×¥ó¤ËÀ®¸ù¤·¤Ê¤«¤Ã¤¿¾ì¹ç¡¤¤½¤ì°Ê¹ß¤ÎDEC COBOL¥ì¥³¡¼¥ÉÁàºî(READ¡¤WRITE¡¤START¡¤DELETE¡¤REWRITE¡¤¤Þ¤¿¤ÏUNLOCK)¤Ï RMS¤ò¸Æ¤Ó½Ð¤¹¤³¤È¤Ê¤¯¼ºÇÔ¤·¤Þ¤¹¡£¤³¤Î¤¿¤á¡¤OPENÁàºî¤Î¼ºÇÔ¤ÎºÝ¤Ë RMSÆüì¥ì¥¸¥¹¥¿¤Ë³ÊǼ¤µ¤ì¤¿Ãͤϡ¤ Ʊ¤¸¥Õ¥¡¥¤¥ë¤ËÂФ·¤Æ¥ì¥³¡¼¥ÉÁàºî¤Î¼ºÇÔ¤ò½Å¤Í¤Æ¤â¡¤Êѹ¹¤µ¤ì¤º¤Ë»Ä¤Ã¤Æ¤¤¤Þ¤¹¡£ ¤³¤ì¤ÈƱ¤¸Áàºî¤òVAX COBOL¤Ç¹Ô¤¦¤È¡¤¤Ä¤Í¤ËRMS¤¬¸Æ¤Ó½Ð¤µ¤ì¤Þ¤¹¡£¤³¤ì¤Ë¤è¤ê¡¤ RMS¤Ï̤ÄêµÁ¤ÎÁàºî¤ò»î¤ß¡¤RMSÆüì¥ì¥¸¥¹¥¿¤Ë¿·¤·¤¤ÃͤòÊÖ¤·¤Þ¤¹¡£

RMSÆüì¥ì¥¸¥¹¥¿¤¬DEC COBOL¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÈVAX COBOL¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ç°Û¤Ê¤ëÃͤò»ý¤Ä¾ì¹ç¤¬¤â¤¦1¤Ä¤¢¤ê¤Þ¤¹¡£ DEC COBOL¥Õ¥¡¥¤¥ë¤ËÂФ¹¤ëRMSÁàºî¤¬À®¸ù¤¹¤ë¤È¡¤RMSÆüì¥ì¥¸¥¹¥¿¤Ïɬ¤º RMS´°Î»¥³¡¼¥É¤ò´Þ¤ó¤Ç¤¤¤Þ¤¹¡£VAX COBOL¥Õ¥¡¥¤¥ë¤ËÂФ¹¤ëRMSÁàºî¤¬À®¸ù¤¹¤ë¤È¡¤ RMSÆüì¥ì¥¸¥¹¥¿¤ÏÄ̾ï¤ÏRMS´°Î»¥³¡¼¥É¤ò´Þ¤ó¤Ç¤¤¤Þ¤¹¤¬¡¤ COBOL¸ÇÍ­¤Î´°Î»¥³¡¼¥É¤ò´Þ¤ó¤Ç¤¤¤ë¤³¤È¤â¤¢¤ê¤Þ¤¹¡£

VAX COBOL¤È¤Î°ã¤¤

DEC COBOL¤Ç¤Ï¡¤VAX COBOL¤È¤Ï°Û¤Ê¤ê¡¤ °Ê²¼¤Ë¼¨¤¹¥³¥ó¥Ñ¥¤¥éÀ¸À®ÊÑ¿ô¤ò¥æ¡¼¥¶ÊÑ¿ô¤È¤·¤ÆÀë¸À¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£

RMS_STS
RMS_STV
RMS_CURRENT_STS
RMS_CURRENT_STV


11.3.3.12¡¡¶¦ÍѲÄǽ¥¤¥á¡¼¥¸¤Î¸Æ¤Ó½Ð¤·

DEC COBOL¤ÈVAX COBOL¤Ï¡¤ ¶¦ÍѲÄǽ¥¤¥á¡¼¥¸¤È¤·¤Æ¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤¿Éû¥×¥í¥°¥é¥à¤ò¸Æ¤Ó½Ð¤¹¤È¤­¤ÎÆ°ºî¤¬°Û¤Ê¤ê¤Þ¤¹¡£ DEC COBOL¤Ç¤Ï¡¤ CALLʸ¤Ç»ØÄꤹ¤ë¥×¥í¥°¥é¥à̾¤Ç¤Ï¥ê¥Æ¥é¥ë¤Þ¤¿¤Ï¥Ç¡¼¥¿Ì¾¤¬»ÈÍѤǤ­¤Þ¤¹( CANCELʸ¤Ç¤âƱ¤¸¤Ç¤¹)¡£VAX COBOL¤Ç¤Ï¡¤CALLʸ(¤Þ¤¿¤ÏCANCELʸ) ¤Ç»ØÄꤹ¤ë¥×¥í¥°¥é¥à̾¤Ï¥ê¥Æ¥é¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£¤Þ¤¿¡¤ ¶¦ÍѲÄǽ¥¤¥á¡¼¥¸¤È¤·¤Æ¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤¿VAX COBOL¥×¥í¥°¥é¥à¤Ï¡¤ ³°Éô¥Õ¥¡¥¤¥ë¤ò´Þ¤à¤³¤È¤¬¤Ç¤­¤Þ¤»¤ó(¶¦ÍѲÄǽ¥¤¥á¡¼¥¸¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¤ ¡ØOpenVMS Linker Utility Manual¡Ù¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤)¡£


11.3.3.13¡¡¶¦ÄÌ¥Ö¥í¥Ã¥¯¤Î¶¦ÍÑ

Ê£¿ô¤Î¥×¥í¥»¥¹¤Ç¶¦ÄÌ¥Ö¥í¥Ã¥¯¤ò¶¦ÍѤ¹¤ë¾ì¹ç¤Ë¤Ï¡¤DEC COBOL¥×¥í¥°¥é¥à¤ò¥ê¥ó¥¯¤¹¤ë¤È¤­¤ÎÌäÂê¤òËɤ°¤¿¤á¤Ë¡¤PSECT°À­¤ò SHR¤ËÀßÄꤷ¤Þ¤¹(¾Êά»þ¤ÎÃͤϡ¤OpenVMS Alpha¥·¥¹¥Æ¥à¤Ç¤ÏSHR¡¤OpenVMS VAX¥·¥¹¥Æ¥à¤Ç¤ÏNOSHR¤Ç¤¹)¡£¤Þ¤¿¡¤¼¡¤Î¤è¤¦¤Ë¡¤ ¶¦ÍѲÄǽ¥¤¥á¡¼¥¸¤Î¥ê¥ó¥«¡¦¥ª¥×¥·¥ç¥ó¡¦¥Õ¥¡¥¤¥ë¤ËSYMBOL_VECTOR¤òÄɲä·¤Þ¤¹¡£

     SYMBOL_VECTOR = (psect-name = PSECT)
¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¤¡ØOpenVMS Linker Utility Manual¡Ù¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.3.3.14¡¡»»½Ñ±é»»

DEC COBOL¤ÈVAX COBOL¤Ç¤Ï¡¤¥×¥é¥Ã¥È¥Õ¥©¡¼¥à¤Ë¤è¤Ã¤Æ¡¤ ¤¤¤¯¤Ä¤«¤Î»»½Ñ±é»»¤ÎÆ°ºî¤¬°Û¤Ê¤ê¤Þ¤¹¡£


11.3.4¡¡ ¸À¸ì¤È¥×¥é¥Ã¥È¥Õ¥©¡¼¥à¤Î´Ö¤Ç¤Î¥Õ¥¡¥¤¥ë¤Î¸ß´¹À­

ÊÌ¤Î¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤ÇºîÀ®¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Ï¡¤ ¸À¸ì¤Èʸ»ú¥»¥Ã¥È¤Î¸ß´¹À­¤¬¤Ê¤¤¤¿¤á¤Ë¡¤Æüì¤Ê½èÍý¤¬É¬Íפʾì¹ç¤¬¤¢¤ê¤Þ¤¹¡£ ºÇ¤â¤è¤¯¸«¤é¤ì¤ë¸ß´¹À­¾å¤ÎÌäÂê¤Ï¡¤ ¥Ç¡¼¥¿·¿¤È¥Ç¡¼¥¿¡¦¥ì¥³¡¼¥É¤Î¥Õ¥©¡¼¥Þ¥Ã¥È¤Ç¤¹¡£ °Ê²¼¤ÎÅÀ¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£

¥Ç¡¼¥¿·¿¤Î°ã¤¤

¥Ç¡¼¥¿·¿¤Ï¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤ª¤è¤Ó¥æ¡¼¥Æ¥£¥ê¥Æ¥£¤Ë¤è¤Ã¤Æ°Û¤Ê¤ê¤Þ¤¹¡£ ¤¿¤È¤¨¤Ð¡¤DEC Fortran¤Ï¥Ñ¥Ã¥¯¤µ¤ì¤¿10¿Ê¥Ç¡¼¥¿·¿¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Ê¤¤¤Î¤Ç¡¤ COBOL¥Õ¥¡¥¤¥ë¤ÎÃæ¤ÎPACKED-DECIMAL¥Ç¡¼¥¿¤ò´Êñ¤Ë¤ÏÍøÍѤǤ­¤Þ¤»¤ó¡£

¥Ç¡¼¥¿·¿¤Î¸ß´¹À­¤ÎÌäÂê¤ò²óÈò¤¹¤ë¤¿¤á¤Ë¤Ï¡¤°Ê²¼¤Î¥Æ¥¯¥Ë¥Ã¥¯¤¬ÍøÍѤǤ­¤Þ¤¹¡£

¼¡¤ÎÎã¤Ç¤Ï¡¤ÆþÎÏ¥Õ¥¡¥¤¥ë¤ÏEBCDIC¤ÇºîÀ®¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¤³¤Î¾ì¹ç¡¤ OpenVMS Alpha¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¡¦¥·¥¹¥Æ¥à¾å¤Ç¤Ï¡¤ COBOL°Ê³°¤Î¤É¤Î¸À¸ì¤Ç¤â½èÍý¤¬Æñ¤·¤¤¥Õ¥¡¥¤¥ë¤¬ºîÀ®¤µ¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£

     ENVIRONMENT DIVISION.
     CONFIGURATION SECTION.
     SPECIAL-NAMES.   ALPHABET FOREIGN-CODE IS EBCDIC.
     INPUT-OUTPUT SECTION.
     FILE-CONTROL.
          SELECT INPUT-FILE ASSIGN TO "INPFIL"
                 CODE-SET IS FOREIGN-CODE.
                 .
                 .
                 .


11.3.5¡¡Í½Ìó¸ì

°Ê²¼¤Ë¡¤DEC COBOL¤Ë¤Ï´Þ¤Þ¤ì¤Æ¤¤¤ë¤¬¡¤VAX COBOL¤Ë¤Ï´Þ¤Þ¤ì¤Æ¤¤¤Ê¤¤ X/OPEN¤ÎͽÌó¸ì¤ò¼¨¤·¤Þ¤¹¡£

AUTO EXCLUSIVE REQUIRED
AUTOMATIC FOREGROUND-COLOR RETURN-CODE
BACKGROUND-COLOR FULL REVERSE-VIDEO
BLINK HIGHLIGHT SECURE
EOL LOWLIGHT UNDERLINE
EOS MANUAL

¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò/RESERVED_WORDS=NOXOPEN¤ò»ØÄꤹ¤ë¤È¡¤ ¤³¤ì¤é¤ÎͽÌó¸ì¤ÏͽÌó¸ì¤Ç¤Ê¤¤Ã±¸ì¤È¤·¤Æ°·¤ï¤ì¤Þ¤¹¡£


11.3.6¡¡¥Ç¥Ð¥Ã¥¬¡¦¥µ¥Ý¡¼¥È¤Î°ã¤¤

DEC COBOL¤Î¥Ç¥Ð¥Ã¥¬¡¦¥µ¥Ý¡¼¥È¤Ï¡¤VAX COBOL¤È¤¤¤¯¤Ä¤«¤ÎÅÀ¤Ç°Û¤Ê¤ê¤Þ¤¹¡£


11.3.7¡¡DECset/LSE¥µ¥Ý¡¼¥È¤Î°ã¤¤

DEC COBOL¤ÏDECset/LSE Program Design Facility¡¤/DESIGN½¤¾þ»Ò¡¤ ¥Ç¥¶¥¤¥ó¡¦¥³¥á¥ó¥È¡¤¤ª¤è¤Óµ¿»÷¥³¡¼¥É¡¦¥×¥ì¡¼¥¹¥Û¥ë¥À¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤»¤ó¡£


11.3.8¡¡DBMS¥µ¥Ý¡¼¥È

DEC COBOL¤ÎOracle DBMS¥µ¥Ý¡¼¥È¤Ë¤Ï¡¤¥×¥í¥°¥é¥à¤òDEC COBOL¤ÈVAX COBOL¤Î¤É¤Á¤é¤Ç³«È¯¤·¤Æ¤¤¤ë¤«¤Ë±þ¤¸¤Æ¡¤¤¤¤¯¤Ä¤«¤Î°ã¤¤¤¬¤¢¤ê¤Þ¤¹¡£ DEC COBOL¤Ç¥Þ¥ë¥Á¥¹¥È¥ê¡¼¥àOracle DBMS DML¤ò»ÈÍѤ¹¤ëºÝ¤Ë¤Ï¡¤ °Û¤Ê¤ë¥½¡¼¥¹¡¦¥Õ¥¡¥¤¥ë¤«¤é¤Ï°Û¤Ê¤ë¥¹¥­¡¼¥Þ¤Þ¤¿¤Ï¥¹¥È¥ê¡¼¥à¤Ë¥¢¥¯¥»¥¹¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£


11.4¡¡Digital Fortran for OpenVMS Alpha¤È OpenVMS VAX¥·¥¹¥Æ¥à¤È¤Î¸ß´¹À­

¤³¤ÎÀá¤Ç¤Ï¡¤Digital Fortran for OpenVMS Alpha¥·¥¹¥Æ¥à¤ÈDigital Fortran 77 for OpenVMS VAX Systems (°ÊÁ°¤Î̾Á°¤ÏVAX FORTRAN) ¤Î¸ß´¹À­¤Ë¤Ä¤¤¤Æ¡¤¼¡¤ÎʬÌî¤Ëʬ¤±¤ÆÀâÌÀ¤·¤Þ¤¹¡£


11.4.1¡¡¸À¸ìµ¡Ç½

Digital Fortran for OpenVMS Alpha¤Ë¤Ï¡¤ANSI FORTRAN-77¤ÈISO/ANSI Fortran 9x¤Îɸ½àµ¡Ç½¤¬´Þ¤Þ¤ì¤Æ¤ª¤ê¡¤¤µ¤é¤Ë¤³¤ì¤é¤ÎFortranɸ½àµ¡Ç½¤ËÂФ·¤Æ¡¤ Digital Fortran 77 for OpenVMS VAX Systems¤Î³ÈÄ¥µ¡Ç½¤â´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£ ¤¿¤È¤¨¤Ð¡¤¼¡¤Î³ÈÄ¥µ¡Ç½¤¬´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£

³ÈÄ¥µ¡Ç½¤È¸À¸ìµ¡Ç½¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¤ Fortran¸À¸ì¤Î»²¾È¥Þ¥Ë¥å¥¢¥ë¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£¤³¤Î¥Þ¥Ë¥å¥¢¥ë¤Ë¤Ï¡¤ FORTRAN-77ɸ½à¤Î³ÈÄ¥µ¡Ç½¤¬¼¨¤µ¤ì¤Æ¤¤¤Þ¤¹¡£


Ãí°Õ
Digital Fortran for OpenVMS¤Ç¤Ï¡¤DEC Fortran for OpenVMS Alpha¤È ISO/ANSI Fortran 90ɸ½à¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤ë FORTRAN-77¸À¸ì¤Î³ÈÄ¥µ¡Ç½¤ÎÂçÉôʬ¤¬¥µ¥Ý¡¼¥È¤µ¤ì¤Þ¤¹¡£¸ß´¹À­¤Ë¤Ä¤¤¤Æ¤Ï¡¤ ¡ØDEC Fortran 90 User Manual for OpenVMS Alpha Systems¡Ù¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£

¤³¤ÎÀá¤Î¤³¤Î¸å¤ÎÉôʬ¤Ç¤Ï¡¤Digital Fortran 77 for OpenVMS VAX Systems¤È Digital Fortran for OpenVMS Alpha¸ÇÍ­¤Î¸À¸ìµ¡Ç½¡¤³Æ¸À¸ì¤Ç¶¦ÍѤµ¤ì¤ë¤â¤Î¤Î¡¤ °Û¤Ê¤ëÊýË¡¤Ç²ò¼á¤µ¤ì¤ë¸À¸ìµ¡Ç½¡¤Digital Fortran 77 for OpenVMS VAX Systems¤Ë¤ÏŬÍѤµ¤ì¤Ê¤¤Digital Fortran for OpenVMS AlphaÀ©¸Â»ö¹à¡¤ ¥Ç¡¼¥¿¤ò°Ü¿¢¤¹¤ë¾ì¹ç¤Î¸¡Æ¤»ö¹à¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£


11.4.1.1¡¡ Digital Fortran for OpenVMS Alpha¸ÇÍ­¤Î¸À¸ìµ¡Ç½

¼¡¤Î¸À¸ìµ¡Ç½¤ÏDigital Fortran for OpenVMS Alpha¤Ç¤ÏÄ󶡤µ¤ì¤Þ¤¹¤¬¡¤ Digital Fortran 77 for OpenVMS VAX Systems¤Î¥Ð¡¼¥¸¥ç¥ó6.4¤Ç¤Ï¥µ¥Ý¡¼¥È¤µ¤ì¤Þ¤»¤ó¡£


Ãí°Õ
Digital Fortran 90¥³¥ó¥Ñ¥¤¥é¤ò»ÈÍѤ·¤Æ¤¤¤ë¥æ¡¼¥¶¤ËÂФ¹¤ëÃí°Õ»ö¹à¤Ç¤¹¤¬¡¤ ANSI/ISO Fortran 90ɸ½à¤Ë½àµò¤·¤¿¤¤¤¯¤Ä¤«¤Îµ¡Ç½¤¬ Digital Fortran 77¤Ç¤Ï»ÈÍѤǤ­¤Þ¤»¤ó¡£

Digital Fortran¸À¸ìµ¡Ç½¤Ë¤Ä¤¤¤Æ¤ÎÀâÌÀ¤Ï¡¤¡ØFortran language reference manual¡Ù¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.4.1.2¡¡ Digital Fortran 77 for OpenVMS VAX Systems¸ÇÍ­¤Î¸À¸ìµ¡Ç½

¼¡¤Î¸À¸ìµ¡Ç½¤ÏDigital Fortran 77 for OpenVMS VAX Systems¤Ç¤Ï»ÈÍѤǤ­¤Þ¤¹¤¬¡¤ Digital Fortran for OpenVMS Alpha¤Ç¤Ï¥µ¥Ý¡¼¥È¤µ¤ì¤Þ¤»¤ó¡£

Digital Fortran 77 for OpenVMS VAX Systems¤ÎÆÃÄê¤Îµ¡Ç½¤Ï¡¤ Digital Fortran for OpenVMS Alpha¤Ç¤Ï»ÈÍѤ¬À©¸Â¤µ¤ì¤Æ¤¤¤ë¤«¡¤ ¤Þ¤¿¤Ï¤Þ¤Ã¤¿¤¯Ä󶡤µ¤ì¤Þ¤»¤ó¡£

¼¡¤Î¸À¸ìµ¡Ç½¤ÏDigital Fortran 77 for OpenVMS VAX Systems¤Ç¤Ï»ÈÍѤǤ­¤Þ¤¹¤¬¡¤ Alpha¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤ÈVAX¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤È¤Î°ã¤¤¤Ë¤è¤ê¡¤Digital Fortran for OpenVMS Alpha¤Ç¤Ï¥µ¥Ý¡¼¥È¤µ¤ì¤Þ¤»¤ó¡£


11.4.1.3¡¡²ò¼áÊýË¡¤ÎÁê°ã

¼¡¤Î¸À¸ìµ¡Ç½¤Ï¡¤Digital Fortran 77 for OpenVMS VAX Systems¤ÈDigital Fortran for OpenVMS Alpha¤È¤Ç°Û¤Ê¤ëÊýË¡¤Ç²ò¼á¤µ¤ì¤Þ¤¹¡£


11.4.2¡¡¥³¥Þ¥ó¥É¹Ô½¤¾þ»Ò

Digital Fortran for OpenVMS Alpha¤ÈDigital Fortran 77 for OpenVMS VAX Systems¤Ç¤Ï¡¤ÂçÉôʬ¤Î½¤¾þ»Ò¤¬¶¦Ä̤Ǥ¹¤¬¡¤ °ìÉô¤Î½¤¾þ»Ò¤Ï¤É¤Á¤é¤«°ìÊý¤Î¥×¥é¥Ã¥È¥Õ¥©¡¼¥à¤Ç¤·¤«»ÈÍѤǤ­¤Þ¤»¤ó¡£ ¤³¤ÎÀá¤Ç¤Ï¡¤Digital Fortran for OpenVMS Alpha¤È Digital Fortran 77 for OpenVMS VAX Systems¤Î¥³¥Þ¥ó¥É¹Ô¤Î½¤¾þ»Ò¤ÎÁê°ãÅÀ¤òÍ×Ìó¤·¤Þ¤¹¡£

Digital Fortran for OpenVMS Alpha¤Î¥³¥ó¥Ñ¥¤¥ë¡¦¥³¥Þ¥ó¥É¤È¥ª¥×¥·¥ç¥ó¤Ë¤Ä¤¤¤Æ¤Î¾Ü¤·¤¤ÀâÌÀ¤Ï¡¤ ¡ØDEC Fortran User Manual for OpenVMS AXP Systems¡Ù¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ Digital Fortran 77 for OpenVMS VAX Systems¤Î¥³¥ó¥Ñ¥¤¥ë¡¦¥³¥Þ¥ó¥É¤È¥ª¥×¥·¥ç¥ó¤Ë¤Ä¤¤¤Æ¤Î¾Ü¤·¤¤ÀâÌÀ¤Ï ¡ØDEC Fortran User Manual for OpenVMS VAX Systems¡Ù¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£

VAX¥·¥¹¥Æ¥à¤Þ¤¿¤ÏAlpha¥·¥¹¥Æ¥à¤Ç¥³¥ó¥Ñ¥¤¥ë¤ò³«»Ï¤¹¤ë¤Ë¤Ï¡¤ FORTRAN¥³¥Þ¥ó¥É¤ò»ÈÍѤ·¤Þ¤¹¡£Alpha¥·¥¹¥Æ¥à¤Ç¤Ï¡¤F90¥³¥Þ¥ó¥É¤ò»ÈÍѤ·¤ÆDigital Fortran 90¥³¥ó¥Ñ¥¤¥é¤Ë¤è¤ë¥³¥ó¥Ñ¥¤¥ë¤ò³«»Ï¤·¤Þ¤¹¡£


11.4.2.1¡¡ Digital Fortran for OpenVMS Alpha¸ÇÍ­¤Î½¤¾þ»Ò

ɽ 11-7¤ÏDigital Fortran for OpenVMS Alpha¥³¥ó¥Ñ¥¤¥é½¤¾þ»Ò¤Î¤¦¤Á¡¤Digital Fortran 77 for OpenVMS VAX Systems¤Î¥ª¥×¥·¥ç¥ó¤¬¤Ê¤¯¡¤Digital Fortran 77 for OpenVMS VAX Systems¤Î¥Ð¡¼¥¸¥ç¥ó6.4¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Ê¤¤½¤¾þ»Ò¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£

ɽ 11-7¡¡Digital Fortran 77 for OpenVMS VAX Systems ¤Ë¤Ê¤¤
Digital Fortran for OpenVMS Alpha ½¤¾þ»Ò
:(¥¯¥ê¥Ã¥¯¤Çɽ¼¨)


11.4.2.2¡¡ Digital Fortran 77 for OpenVMS VAX Systems¸ÇÍ­¤Î½¤¾þ»Ò

¤³¤ÎÀá¤Ç¤Ï¡¤Digital Fortran 77 for OpenVMS VAX Systems¥³¥ó¥Ñ¥¤¥é¤Î¥ª¥×¥·¥ç¥ó¤Î¤¦¤Á¡¤ Digital Fortran for OpenVMS Alpha½¤¾þ»Ò¤ËÂбþ¤¹¤ë¥ª¥×¥·¥ç¥ó¤¬¤Ê¤¤¤â¤Î¤ò¤Þ¤È¤á¤Þ¤¹¡£

ɽ 11-8¤Ï¡¤Digital Fortran 77 for OpenVMS VAX Systems¤Î¥Ð¡¼¥¸¥ç¥ó6.4¸ÇÍ­¤Î¥³¥ó¥Ñ¥¤¥ë¡¦¥ª¥×¥·¥ç¥ó¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£

ɽ 11-8¡¡Digital Fortran for OpenVMS Alpha ¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Ê¤¤Digital Fortran 77 for OpenVMS VAX Systems ½¤¾þ»Ò

Digital Fortran 77 for OpenVMS VAX
Systems½¤¾þ»Ò
ÀâÌÀ
/BLAS=(INLINE,MAPPED) Digital Fortran 77 for OpenVMS VAX Systems¤¬ Basic Linear Algebra Subroutines (BLAS)¤òǧ¼±¤·¡¤ ¤³¤ì¤é¤ò¥¤¥ó¥é¥¤¥ó¤Þ¤¿¤Ï¥Þ¥Ã¥Ô¥ó¥°¤¹¤ë¤«¤É¤¦¤«¤ò»ØÄꤹ¤ë¡£ Digital Fortran 77 for OpenVMS VAX Systems¤Î¾ì¹ç¤Ë¤Î¤ß»ÈÍѤǤ­¤ë¡£
/CHECK=ASSERTIONS ¥¢¥µ¡¼¥·¥ç¥ó¡¦¥Á¥§¥Ã¥¯¤òµö²Ä¤Þ¤¿¤Ï¶Ø»ß¤¹¤ë¡£ Digital Fortran 77 for OpenVMS VAX Systems¤ËÂФ·¤Æ¤Î¤ß»ÈÍѤǤ­¤ë¡£
/DESIGN=[NO]COMMENTS
/DESIGN=[NO]PLACEHOLDERS
Àß·×¾ðÊó¤ò³Îǧ¤¹¤ë¤¿¤á¤Ë¥×¥í¥°¥é¥à¤ò²òÀϤ¹¤ë¡£
/DIRECTIVES=DEPENDENCE »ØÄꤵ¤ì¤¿¥³¥ó¥Ñ¥¤¥é¡¦¥Ç¥£¥ì¥¯¥Æ¥£¥Ö¤¬¥³¥ó¥Ñ¥¤¥ë»þ¤Ë»ÈÍѤµ¤ì¤ë¤«¤É¤¦¤«¤ò»ØÄꤹ¤ë¡£ Digital Fortran 77 for OpenVMS VAX Systems¤ËÂФ·¤Æ¤Î¤ß»ÈÍѤǤ­¤ë¡£
/PARALLEL=(MANUAL¤Þ¤¿¤Ï
AUTOMATIC)
ÊÂÎó½èÍý¤ò¥µ¥Ý¡¼¥È¤¹¤ë¡£
/SHOW=(DATA_DEPENDENCIES,
DICTIONARY,LOOPS)
¥ê¥¹¥È¡¦¥Õ¥¡¥¤¥ë¤Ë¼¡¤Î¾ðÊó¤òÅÐÏ¿¤¹¤ë¤«¤É¤¦¤«¤òÀ©¸æ¤¹¤ë¡£

  • ¥Ù¥¯¥¿²½¤Þ¤¿¤Ï¼«Æ°Ê¬²ò¤ò¶Ø»ß¤¹¤ë¥Ç¡¼¥¿°Í¸À­¤È¡¤ °Í¸²òÀϤÎÂоݤȤʤé¤Ê¤¤¥ë¡¼¥×¤Ë´Ø¤¹¤ë¿ÇÃǾðÊó(DATA_DEPENDENCIES)¡£

  • ¥¤¥ó¥¯¥ë¡¼¥É¤·¤¿Common Data Dictionary¥ì¥³¡¼¥É¤«¤é¤Î¥½¡¼¥¹¡¦¥é¥¤¥ó (DICTIONARY)¡£

  • ¥³¥ó¥Ñ¥¤¥ë¸å¤Î¥ë¡¼¥×¹½Â¤¤Ë´Ø¤¹¤ë¥ì¥Ý¡¼¥È(LOOPS)¡£
DATA_DEPENDENCIES¤ª¤è¤ÓLOOPS¥­¡¼¥ï¡¼¥É¤ÏDigital Fortran 77 for OpenVMS VAX Systems¤ËÂФ·¤Æ¤Î¤ß»ÈÍѤǤ­¤ë¡£
/VECTOR ¥Ù¥¯¥¿½èÍý¤òÍ׵᤹¤ë¡£ Digital Fortran 77 for OpenVMS VAX Systems¤ËÂФ·¤Æ¤Î¤ß»ÈÍѤǤ­¤ë¡£
/WARNINGS=INLINE ¥³¥ó¥Ñ¥¤¥é¤¬ÁȤ߹þ¤ß¥ë¡¼¥Á¥ó¤ËÂФ¹¤ë»²¾È¤Î¥¤¥ó¥é¥¤¥ó¡¦¥³¡¼¥É¤òÀ¸À®¤Ç¤­¤Ê¤¤¤È¤­¤Ë¡¤ ¾ðÊó¿ÇÃÇ¥á¥Ã¥»¡¼¥¸¤ò°õºþ¤¹¤ë¤«¤É¤¦¤«¤òÀ©¸æ¤¹¤ë¡£Digital Fortran 77 for OpenVMS VAX Systems¤ËÂФ·¤Æ¤Î¤ß»ÈÍѤǤ­¤ë¡£

Í׵ᤵ¤ì¤¿(¼êºî¶È)ʬ²ò¤Ë´ØÏ¢¤¹¤ë¤¹¤Ù¤Æ¤ÎCPAR$¥Ç¥£¥ì¥¯¥Æ¥£¥Ö¤ÈÆÃÄê¤Î CDEC$¥Ç¥£¥ì¥¯¥Æ¥£¥Ö¡¤¤ª¤è¤Ó¤½¤ì¤Ë´ØÏ¢¤¹¤ë½¤¾þ»Ò¤Þ¤¿¤Ï¥­¡¼¥ï¡¼¥É¤â Digital Fortran 77 for OpenVMS VAX Systems¸ÇÍ­¤Ç¤¹¡£¡ØDEC Fortran Language Reference Manual¡Ù¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£

Digital Fortran 77 for OpenVMS VAX Systems ¤Î¥³¥ó¥Ñ¥¤¥ë¡¦¥³¥Þ¥ó¥É¤È¥ª¥×¥·¥ç¥ó¤Ë´Ø¤¹¤ë¾Ü¤·¤¤ÀâÌÀ¤Ï¡ØDEC Fortran User Manual for OpenVMS VAX Systems¡Ù¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.4.3¡¡ ¥È¥é¥ó¥¹¥ì¡¼¥È¤µ¤ì¤¿¶¦Í­²Äǽ¥¤¥á¡¼¥¸¤È¤ÎÁê¸ßÁàºîÀ­

Digital Fortran for OpenVMS Alpha¤ò»ÈÍѤ¹¤ì¤Ð¡¤¥¤¥á¡¼¥¸µ¯Æ°»þ(¼Â¹Ô»þ) ¤Ë¥È¥é¥ó¥¹¥ì¡¼¥È¤µ¤ì¤¿¥¤¥á¡¼¥¸¤ÈÁê¸ßÁàºî²Äǽ¤Ê¥¤¥á¡¼¥¸¤òºîÀ®¤Ç¤­¤Þ¤¹¡£

¥È¥é¥ó¥¹¥ì¡¼¥È¤µ¤ì¤¿¶¦Í­²Äǽ¥¤¥á¡¼¥¸¤Î»ÈÍѤò²Äǽ¤Ë¤¹¤ë¤Ë¤Ï¡¤ ¼¡¤ÎÁàºî¤ò¼Â¹Ô¤·¤Þ¤¹¡£

ºîÀ®¤µ¤ì¤¿¼Â¹Ô²Äǽ¥¤¥á¡¼¥¸¤Ë¤Ï¡¤ ºÇ½ªÅª¤Ê¼Â¹Ô²Äǽ¥¤¥á¡¼¥¸¤¬¶¦Í­²Äǽ¥¤¥á¡¼¥¸¤ÈÁê¸ßÁàºî¤Ç¤­¤ë¤è¤¦¤Ê¥³¡¼¥É¤¬´Þ¤Þ¤ì¤Þ¤¹¡£ ¤¿¤È¤¨¤Ð¡¤Digital Fortran 77 for OpenVMS VAX Systems RTL (FORRTL)¤¬ Digital Fortran for OpenVMS Alpha RTL (DEC$FORTRTL) ¤È¶¨Ä´Æ°ºî¤Ç¤­¤ë¤è¤¦¤Ë¤¹¤ë¤¿¤á¤Î¥³¡¼¥É¤¬´Þ¤Þ¤ì¤Þ¤¹¡£¥Í¥¤¥Æ¥£¥Ö¤Ê¥×¥í¥°¥é¥à (Digital Fortran for OpenVMS Alpha RTL)¤È¥È¥é¥ó¥¹¥ì¡¼¥È¤µ¤ì¤¿¥×¥í¥°¥é¥à( Digital Fortran 77 for OpenVMS VAX Systems RTL)¤Ï¡¤¥Õ¥¡¥¤¥ë¤ò¥ª¡¼¥×¥ó¤¹¤ë RTL¤¬¤½¤Î¥Õ¥¡¥¤¥ë¤Î¥¯¥í¡¼¥º¤â¼Â¹Ô¤¹¤ë¤Î¤Ç¤¢¤ì¤Ð¡¤ Ʊ¤¸¥æ¥Ë¥Ã¥ÈÈÖ¹æ¤ËÂФ·¤ÆÆþ½ÐÎϤò¼Â¹Ô¤Ç¤­¤Þ¤¹¡£

¥×¥í¥°¥é¥à¤Ç¤Ï¡¤ÁȤ߹þ¤ß̾¤ò»ÈÍѤ·¤Ê¤±¤ì¤Ð¤Ê¤é¤º(ÀÜƬ¼­¤ò½ü¤¯)¡¤ ´°Á´¤Ê̾Á°(fac$xxxx)¤Ç¥ë¡¼¥Á¥ó¤ò¸Æ¤Ó½Ð¤¹¤ï¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£

¥×¥í¥°¥é¥à¤Ï¡¤´°Á´¤Ê( fac$xxxx)̾Á°¤Ë¤è¤Ã¤Æ¥ë¡¼¥Á¥ó¤ò¸Æ¤Ó½Ð¤¹¤Î¤Ç¤Ï¤Ê¤¯¡¤ ÆâÉô̾(ÀÜƬ¼­¤ò½ü¤¯Ì¾Á°)¤ò»ÈÍѤ·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤¿¤À¤·¡¤ fac$xxxx¤È¤¤¤¦Ì¾Á°¤ò»ÈÍѤǤ­¤ë1¤Ä¤ÎÎã³°¤¬¤¢¤ê¤Þ¤¹¡£ ¥È¥é¥ó¥¹¥ì¡¼¥È¤µ¤ì¤¿¥¤¥á¡¼¥¸¡¦¥×¥í¥°¥é¥à¤Ç¤Ï¡¤FOR$RAB¥·¥¹¥Æ¥à´Ø¿ô¤ò EXTERNAL¤È¤·¤ÆÀë¸À¤Ç¤­¤Þ¤¹¡£¥Í¥¤¥Æ¥£¥Ö¤ÊAlpha¥×¥í¥°¥é¥à¤Ç¤Ï¡¤ FOR$RAB¤òÆâÉô´Ø¿ô¤È¤·¤Æ»ÈÍѤ·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£


11.4.4¡¡ Digital Fortran 77 for OpenVMS VAX Systems¥Ç¡¼¥¿¤Î°Ü¿¢

¥ì¥³¡¼¥É¡¦¥¿¥¤¥×¤Ï¡¤Digital Fortran 77 for OpenVMS VAX Systems¤Ç¤â Digital Fortran for OpenVMS Alpha¤Ç¤âƱ¤¸¤Ç¤¹¡£É¬Íפʾì¹ç¤Ë¤Ï¡¤ EXCHANGE¥³¥Þ¥ó¥É¤È/NETWORK½¤¾þ»Ò¤ª¤è¤Ó /TRANSFER=BLOCK½¤¾þ»Ò¤ò»ÈÍѤ·¤Æ¥Ç¡¼¥¿¤ò°Ü¿¢¤·¤Æ¤¯¤À¤µ¤¤¡£ ¥³¥Ô¡¼Áàºî¤Ç¥Õ¥¡¥¤¥ë¤òStream_LF¥Õ¥©¡¼¥Þ¥Ã¥È¤ËÊÑ´¹¤¹¤ë¤Ë¤Ï¡¤ /TRANSFER=BLOCK¤Î¤«¤ï¤ê¤Ë/TRANSFER=(BLOCK,RECORD_SEPARATOR=LF)¤ò»ÈÍѤ¹¤ë¤«¡¤ ¤Þ¤¿¤ÏEXCHANGE¥³¥Þ¥ó¥É¤Ç/FDL½¤¾þ»Ò¤ò»ÈÍѤ·¤Æ¡¤ ¥ì¥³¡¼¥É¡¦¥¿¥¤¥×¤ä¾¤Î¥Õ¥¡¥¤¥ë°À­¤òÊѹ¹¤·¤Þ¤¹¡£

¥Õ¥©¡¼¥Þ¥Ã¥Æ¥£¥ó¥°¤µ¤ì¤Æ¤¤¤Ê¤¤ÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿¤òÊÑ´¹¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¾ì¹ç¤Ë¤Ï¡¤ Digital Fortran 77 for OpenVMS VAX Systems¥×¥í¥°¥é¥à(VAX¥Ï¡¼¥É¥¦¥§¥¡)¤¬ REAL*4¤Þ¤¿¤ÏCOMPLEX*8¥Ç¡¼¥¿¤òFÉâÆ°¾®¿ôÅÀ¥Õ¥©¡¼¥Þ¥Ã¥È¤Ç³ÊǼ¤·¡¤REAL*8¤Þ¤¿¤Ï COMPLEX*16¥Ç¡¼¥¿¤òDÉâÆ°¾®¿ôÅÀ¤Þ¤¿¤ÏGÉâÆ°¾®¿ôÅÀ¥Õ¥©¡¼¥Þ¥Ã¥È¤Ç³ÊǼ¤·¡¤ REAL*16¥Ç¡¼¥¿¤òHÉâÆ°¾®¿ôÅÀ¥Õ¥©¡¼¥Þ¥Ã¥È¤Ç³ÊǼ¤¹¤ë¤³¤È¤òǰƬ¤Ë¤ª¤¤¤Æ¤¯¤À¤µ¤¤¡£ Digital Fortran for OpenVMS Alpha¥×¥í¥°¥é¥à( Alpha¥Ï¡¼¥É¥¦¥§¥¢¤Ç¼Â¹Ô¤µ¤ì¤ë¥×¥í¥°¥é¥à)¤Ï¡¤REAL*4¡¤REAL*8¡¤COMPLEX*8¡¤ ¤ª¤è¤ÓCOMPLEX*16¥Ç¡¼¥¿¤ò¤½¤ì¤¾¤ì¡¤ ɽ 11-9¤Ë¼¨¤¹¥Õ¥©¡¼¥Þ¥Ã¥È¤Î¤¤¤º¤ì¤«¤Ç³ÊǼ¤·¤Þ¤¹¡£

ɽ 11-9¡¡ VAX¥·¥¹¥Æ¥à¤ÈAlpha¥·¥¹¥Æ¥à¤Ç¤ÎÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿

¥Ç¡¼¥¿Àë¸À VAX¥Õ¥©¡¼¥Þ¥Ã¥È Alpha¥Õ¥©¡¼¥Þ¥Ã¥È
REAL*4¤ÈCOMPLEX*8 VAX FÉâÆ°¾®¿ôÅÀ¥Õ¥©¡¼¥Þ¥Ã¥È IEEE SÉâÆ°¾®¿ôÅÀ¤Þ¤¿¤ÏVAX FÉâÆ°¾®¿ôÅÀ¥Õ¥©¡¼¥Þ¥Ã¥È
REAL*8¤ÈCOMPLEX*16 VAX DÉâÆ°¾®¿ôÅÀ¤Þ¤¿¤ÏGÉâÆ°¾®¿ôÅÀ¥Õ¥©¡¼¥Þ¥Ã¥È IEEE TÉâÆ°¾®¿ôÅÀ¡¤VAX DÉâÆ°¾®¿ôÅÀ[1] ¤Þ¤¿¤ÏVAX GÉâÆ°¾®¿ôÅÀ¥Õ¥©¡¼¥Þ¥Ã¥È
REAL*16¤ÈCOMPLEX*32 VAX HÉâÆ°¾®¿ôÅÀ Digital Fortran for OpenVMS Alpha¤Ç¤Ï¥µ¥Ý¡¼¥È¤µ¤ì¤Ê¤¤¡£ ¤ª¤½¤é¤¯RTL¥ë¡¼¥Á¥óCVT$CONVERT_FLOAT¤ò»ÈÍѤ·¤ÆÊÑ´¹¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£
[1]¡¡Alpha¥·¥¹¥Æ¥à¤Ç¤Ï¡¤±é»»¤ò¼Â¹Ô¤¹¤ë¤È¤­¤Ë VAX DÉâÆ°¾®¿ôÅÀ¥Õ¥©¡¼¥Þ¥Ã¥È»ÈÍѤ¹¤ë¤³¤È¤Ï˾¤Þ¤·¤¯¤Ê¤¤¡£¤³¤Î¤è¤¦¤Ê¾ì¹ç¤Ë¤Ï¡¤ Digital Fortran for OpenVMS Alpha¤ÎÊÑ´¹¥ë¡¼¥Á¥ó¤ò»ÈÍѤ¹¤ëÊÑ´¹¥×¥í¥°¥é¥à¤Ç DÉâÆ°¾®¿ôÅÀ¥Õ¥©¡¼¥Þ¥Ã¥È¤òIEEE TÉâÆ°¾®¿ôÅÀ(¤Þ¤¿¤ÏVAX GÉâÆ°¾®¿ôÅÀ)¥Õ¥©¡¼¥Þ¥Ã¥È ¤ËÊÑ´¹¤¹¤ë¤³¤È¤ò¹Íθ¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£


11.5¡¡ DEC Pascal for OpenVMS Alpha¥·¥¹¥Æ¥à¤ÈVAX Pascal¤Î¸ß´¹À­

¤³¤ÎÀá¤Ç¤Ï¡¤DEC Pascal¤È¾¤ÎDEC¤ÎPascal¥³¥ó¥Ñ¥¤¥é¤òÈæ³Ó¤·¡¤ VAX¥·¥¹¥Æ¥à¤ÈAlpha¥·¥¹¥Æ¥à¤ÎDEC Pascal¤Î°ã¤¤¤ò¼¨¤·¤Þ¤¹¡£ ¤³¤ì¤é¤Îµ¡Ç½¤Î´°Á´¤ÊÀâÌÀ¤Ë¤Ä¤¤¤Æ¤Ï¡¤¡ØDEC Pascal Language Reference Manual¡Ù ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£


11.5.1¡¡DEC Pascal¤Î¿·µ¡Ç½

ɽ 11-10¤Ï°ÊÁ°VAX Pascal ¤Ç¤ÏÄ󶡤µ¤ì¤Æ¤¤¤Ê¤«¤Ã¤¿µ¡Ç½¤ò¼¨¤·¤Þ¤¹¡£

ɽ 11-10¡¡DEC Pascal ¤Î¿·µ¡Ç½ :(¥¯¥ê¥Ã¥¯¤Çɽ¼¨)


11.5.2¡¡Æ°Åª¾ò·ï¥Ï¥ó¥É¥é¤ÎÀßÄê

DEC Pascal¤Ç¤Ï¡¤LIB$ESTABLISH¤ÎÂå¤ï¤ê¤Ë»ÈÍѤ¹¤ë¤¿¤á¤Ë¡¤ESTABLISH¤È REVERT¤È¤¤¤¦ÁȤ߹þ¤ß¥ë¡¼¥Á¥ó¤¬Ä󶡤µ¤ì¤Þ¤¹¡£ LIB$ESTABLISH¤òÀë¸À¤·¤Æ»ÈÍѤ·¤è¤¦¤È¤¹¤ë¤È¡¤¥³¥ó¥Ñ¥¤¥ë»þ¤Ë·Ù¹ð¤¬½Ð¤µ¤ì¤Þ¤¹¡£


11.5.3¡¡ ¥ì¥³¡¼¥É¡¦¥Õ¥¡¥¤¥ë¤ËÂФ¹¤ë¾Êά»þ¤Î¥¢¥é¥¤¥ó¥á¥ó¥Èµ¬Â§¤ÎÊѹ¹

DEC Pascal¤Ç¤Ï¡¤¥Õ¥£¡¼¥ë¥É¡¦¥¢¥é¥¤¥ó¥á¥ó¥È¤Î°ÌÃ֤䡤POS¡¤ALIGNED¡¤ DATA°À­¤ª¤è¤Ó¥Ç¡¼¥¿¡¦¥³¥ó¥Ñ¥¤¥éÀÚ¤êÂؤ¨¤Î°ÌÃÖ¤ò¾å½ñ¤­¤¹¤ë¤³¤È¤¬²Äǽ¤Ç¤¹¡£


11.5.4¡¡¤¢¤é¤«¤¸¤áÀë¸À¤µ¤ì¤Æ¤¤¤ë̾Á°¤Î»ÈÍÑÊýË¡

¸ß´¹À­¤ò°Ý»ý¤¹¤ë¤¿¤á¤ËDEC Pascal¤Ï¡¤É½ 11-11 ¤Ë¼¨¤µ¤ì¤ë¤¢¤é¤«¤¸¤áÀë¸À¤µ¤ì¤Æ¤¤¤ë̾Á°¤ò´Þ¤à¥×¥í¥°¥é¥à¤ò¥³¥ó¥Ñ¥¤¥ë¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¤¬¡¤ ÊÀ¼Ò¤Ç¤Ï°Ê²¼¤Î¤è¤¦¤Ë¼±Ê̻ҤòÃÖ¤­´¹¤¨¤Æ»ÈÍѤµ¤ì¤ë¤³¤È¤ò¤ª´«¤á¤·¤Þ¤¹¡£

ɽ 11-11¡¡ ¤¢¤é¤«¤¸¤áÀë¸À¤µ¤ì¤Æ¤¤¤ë̾Á°¤Î»ÈÍÑÊýË¡

¼±ÊÌ»Ò Ë¾¤Þ¤·¤¤»ÈÍÑË¡
ADDR ADDRESSµ¡Ç½¤ò¤´»ÈÍѤ¯¤À¤µ¤¤
ALFA TYPE ALFA = PACKED ARRAY [1..10]OFCHAR¤ÈƱ¤¸
BITAND UANDʸ¤ÈƱ¤¸
BITNOT UNOTʸ¤ÈƱ¤¸
BITOR UORʸ¤ÈƱ¤¸
BITXOR UXORʸ¤ÈƱ¤¸
EXIT BREAKʸ¤ÈƱ¤¸
FIRST,FIRSTOF LOWERµ¡Ç½¤ÈƱ¤¸
HBOUND UPPERµ¡Ç½¤ÈƱ¤¸
IN_RANGE ¥µ¥Ö¥ì¥ó¥¸¡¦¥Á¥§¥Ã¥¯¤¬¤Ç¤­¤Ê¤¤¾ì¹ç¤Î¤ßÍ­¸ú¡£ IN_RANGE(X)¤Ï(X>LOWER(X))AND(X<UPPER(X))¤ÈƱ¤¸
INTSET TYPE INTSET = SET OF 0 .. 255;¤ÈƱ¤¸
LAST, LASTOF UPPERµ¡Ç½¤ÈƱ¤¸
LBOUND LOWERµ¡Ç½¤ÈƱ¤¸
LSHFT LSHIFTµ¡Ç½¤ÈƱ¤¸
MESSAGE WRITELN(ERR,expression)¤ÈƱ¤¸
NEXT CONTINUEʸ¤ÈƱ¤¸
NULL emptyʸ¤ÈƱ¤¸
REMOVE DELETE_FILE¥×¥í¥·¡¼¥¸¥ã¤ÈƱ¤¸
RSHFT RSHIFTµ¡Ç½¤ÈƱ¤¸
SIZEOF SIZEµ¡Ç½¤ÈƱ¤¸
STLIMIT ¥³¥ó¥Ñ¥¤¥ë¤¹¤ë¤¬¡¤¥¨¥é¡¼¤òÊÖ¤µ¤Ê¤¤
UNIV_PTR TYPE UNIV_PTR=POINTER;¤ÈƱ¤¸


11.5.5¡¡¥×¥é¥Ã¥È¥Õ¥©¡¼¥à¤Ë°Í¸¤¹¤ëµ¡Ç½

DEC Pascal¤Ï¥³¥ó¥Ñ¥¤¥ë¤µ¤ì¤¿¥×¥é¥Ã¥È¥Õ¥©¡¼¥à¤ÈƱ¤¸¥×¥é¥Ã¥È¥Õ¥©¡¼¥à( ¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¡¦¥·¥¹¥Æ¥à¤È¥Ï¡¼¥É¥¦¥§¥¢¤ÎÁȤ߹ç¤ï¤») ¤Ç¤Î¤ß´Ä¶­¥Õ¥¡¥¤¥ë¤ò»ÈÍѤǤ­¤Þ¤¹¡£

¤µ¤é¤Ë¡¤VAX¥·¥¹¥Æ¥à¤Ç¤Î¤ß¥µ¥Ý¡¼¥È¤µ¤ì¤ëDEC Pascal¤Îµ¡Ç½¤ò°Ê²¼¤Ë¼¨¤·¤Þ¤¹¡£

°Ê²¼¤ËAlpha¥·¥¹¥Æ¥à¤Ç¤Î¤ß¥µ¥Ý¡¼¥È¤µ¤ì¤ëDEC Pascal¤Îµ¡Ç½¤ò¼¨¤·¤Þ¤¹¡£


11.5.6¡¡¸Å¤¤µ¡Ç½

¤³¤ÎÀá¤Ç¤Ï¡¤¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤Ï¤¤¤Æ¤â»ÈÍѤ¬´«¤á¤é¤ì¤Ê¤¤µ¡Ç½¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£ ¤³¤ì¤é¤Ï¡¤ÊÀ¼Ò¤Î¾¤ÎPascal¥³¥ó¥Ñ¥¤¥é¤È¤Î¸ß´¹À­¤Î¤¿¤á¤Ë¤Î¤ßÄ󶡤µ¤ì¤Þ¤¹¡£


11.5.6.1¡¡/OLD_VERSION½¤¾þ»Ò

/OLD_VERSION½¤¾þ»Ò¤Ï¡¤¥³¥ó¥Ñ¥¤¥é¤ËVAX Pascal¥Ð¡¼¥¸¥ç¥ó1.0 ¤Î¸À¸ì¤ÎÄêµÁ¤ò»ÈÍѤ·¤Æ¡¤VAX Pascal¥Ð¡¼¥¸¥ç¥ó1.0 ¤È¤½¤Î¸å¤Î¥Ð¡¼¥¸¥ç¥ó¤Î°ã¤¤¤ò²ò·è¤µ¤»¤Þ¤¹¡£¤³¤Î½¤¾þ»Ò¤ò»ØÄꤹ¤ì¤Ð¡¤ ´û¸¤Î¥×¥í¥°¥é¥à¤ò°ú¤­Â³¤­»È¤¨¤Þ¤¹¡£


11.5.6.2¡¡/G_FLOATING½¤¾þ»Ò

/G_FLOATING½¤¾þ»Ò¤Ï¡¤¥³¥ó¥Ñ¥¤¥é¤ËDOUBLE·¿¤ÎÃͤËÂФ·¤Æ G_floating¤Îɽ¸½¤ÈÌ¿Îá¤ò»ÈÍѤ¹¤ë¤³¤È¤ò»ØÄꤷ¤Þ¤¹¡£ [[NO]G_FLOATING]°À­¤ÏOpenVMS VAX¥·¥¹¥Æ¥à¤Ç¤â OpenVMS Alpha¥·¥¹¥Æ¥à¤Ç¤â»ØÄê¤Ç¤­¤Þ¤¹¡£

/G_FLOATING½¤¾þ»Ò¤Î»ÈÍѤ¬¡¤ ¥½¡¼¥¹¡¦¥×¥í¥°¥é¥à¤ä¥â¥¸¥å¡¼¥ëÆâ¤Ç»ØÄꤵ¤ì¤¿ÇÜÀºÅÙ°À­¤ÈÌ·½â¤¹¤ë¤È¤­¤Ï¡¤ ¥¨¥é¡¼¤È¤Ê¤ê¤Þ¤¹¡£ ÇÜÀºÅÙ¿ô¤Î¼õ¤±ÅϤ·¤ò¹Ô¤¦¥ë¡¼¥Á¥ó¤ä¥³¥ó¥Ñ¥¤¥ëñ°Ì´Ö¤ÇÊ£¿ô¤ÎÉâÆ°¾®¿ôÅÀ¥Õ¥©¡¼¥Þ¥Ã¥È¤òº®ºß¤µ¤»¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£ ¤¹¤Ù¤Æ¤ÎOpenVMS VAX¥×¥í¥»¥Ã¥µ¤¬GÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤ò¥µ¥Ý¡¼¥È¤¹¤ë¤ï¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£

¤³¤ì¤è¤êÁ°¤Ë¡¤¥³¥ó¥Ñ¥¤¥é¤¬ÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤ò»ØÄꤹ¤ëÊýË¡¤À¤Ã¤¿¡¤ /FLOAT½¤¾þ»Ò¤ÎÀâÌÀ¤â»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£/FLOAT½¤¾þ»Ò¤Ï¡¤ Alpha¥·¥¹¥Æ¥à¤Î¤ß¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤ëIEEEÉâÆ°¾®¿ôÅÀ¥Ç¡¼¥¿·¿¤âÁªÂò¤Ç¤­¤Þ¤¹¡£


11.5.6.3¡¡OVERLAID°À­

OVERLAID°À­¤Ï¥³¥ó¥Ñ¥¤¥ëñ°Ì¤ÇÀë¸À¤µ¤ì¤¿ÊÑ¿ô¤Ø¡¤ µ­²±Îΰ褬¤É¤Î¤è¤¦¤Ë³ä¤êÅö¤Æ¤é¤ì¤ë¤«¤ò»ØÄꤷ¤Þ¤¹¡£ ¥³¥ó¥Ñ¥¤¥ë¡¦¥æ¥Ë¥Ã¥È¤ÇOVERLAID¤¬»ØÄꤵ¤ì¤ë¤È¡¤ ¥×¥í¥°¥é¥à¤ä¥â¥¸¥å¡¼¥ë¡¦¥ì¥Ù¥ë¤ÇÀë¸À¤µ¤ì¤¿ÊÑ¿ô¤Ï(STATIC¤Þ¤¿¤Ï PSECT°À­¤ò»ý¤¿¤Ê¤¤¸Â¤ê)¡¤¤¹¤Ù¤Æ¤Î¾¤Î¾å½ñ¤­¤µ¤ì¤¿¥³¥ó¥Ñ¥¤¥ë¡¦¥æ¥Ë¥Ã¥È¤Ç¡¤ ÀÅŪÊÑ¿ô¤Îµ­²±Îΰè¤ò¾å½ñ¤­¤·¤Þ¤¹¡£

¤³¤Î°À­¤Ï¡¤VAX Pascal¥Ð¡¼¥¸¥ç¥ó1.0 ¤ÇÄ󶡤µ¤ì¤¿Ê¬³ä¥³¥ó¥Ñ¥¤¥ëµ¡Ç½¤òÍѤ¤¤Æ¤¤¤ë¥×¥í¥°¥é¥à¤Ç¤Î»ÈÍѤΤߤòÂоݤȤ·¤Æ¤¤¤Þ¤¹¡£


[ Á°¤Î¥Ú¡¼¥¸ ] [ ¼¡¤Î¥Ú¡¼¥¸ ] [ Ìܼ¡ ] [ º÷°ú ] [ DOC Home ]