____________________________________________________ ÆüËܸìDECnet SNA 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¡¦¥×¥í¥° ¥é¥ß¥ó¥°¡¦¥¤¥ó¥¿¡¼¥Õ¥§¥¤¥¹for OpenVMS ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¡¿¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É AA-Q6QRA-TE ¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¡¦¥·¥¹¥Æ¥à¡§ ÆüËܸìOpenVMS AXP V1.5 ¥½¥Õ¥È¥¦¥§¥¢¡¦¥Ð¡¼¥¸¥ç¥ó¡§ ÆüËܸìDECnet SNA 3270¥Ç ¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¡¦¥×¥í¥° ¥é¥ß¥ó¥°¡¦¥¤¥ó¥¿¡¼¥Õ¥§¥¤ ¥¹for OpenVMS V1.4 ¥Þ¥Ë¥å¥¢¥ë¡¦¥Ð¡¼¥¸¥ç¥ó¡§ V1.0 ________________________________________________________________ 1994ǯ6·î Ëܽñ¤ÎÃøºî¸¢¤ÏÆüËܥǥ£¥¸¥¿¥ë¥¤¥¯¥¤¥Ã¥×¥á¥ó¥È³ô¼°²ñ¼Ò(ÆüËÜ DEC)¤¬ÊÝÍ­¤·¤Æ¤ª¤ê¡¤ËܽñÃæ¤Î²òÀ⤪¤è¤Ó¿Þ¡¤É½¤ÏÆüËÜDEC¤Îʸ½ñ ¤Ë¤è¤ëµö²Ä¤Ê¤·¤Ë¡¤¤½¤ÎÁ´ÂΤޤ¿¤Ï°ìÉô¤ò¡¤¤¤¤«¤Ê¤ë¾ì¹ç¤Ë¤âºÆ ÈǤ¢¤ë¤¤¤ÏÊ£À½¤¹¤ë¤³¤È¤ò¶Ø¤¸¤Þ¤¹¡£ ¤Þ¤¿¡¤Ëܽñ¤Ëµ­ºÜ¤µ¤ì¤Æ¤¤¤ëÆâÍƤϡ¤Í½¹ð¤Ê¤¯Êѹ¹¤µ¤ì¤ë¤³¤È¤¬ ¤¢¤ê¤Þ¤¹¤Î¤Ç¡¤¤¢¤é¤«¤¸¤á¤´¾µÃΤª¤­¤¯¤À¤µ¤¤¡£Ëü°ì¡¤Ëܽñ¤Îµ­ ½Ò¤Ë¸í¤ê¤¬¤¢¤Ã¤¿¾ì¹ç¤Ç¤â¡¤ÆüËÜDEC¤Ï°ìÀÚ¤½¤ÎÀÕǤ¤òÉ餤¤«¤Í¤Þ ¤¹¡£ Ëܽñ¤Ç²òÀ⤹¤ë¥½¥Õ¥È¥¦¥§¥¢(Âоݥ½¥Õ¥È¥¦¥§¥¢)¤Ï¡¤½êÄê¤Î¥é¥¤ ¥»¥ó¥¹·ÀÌó¤¬Äù·ë¤µ¤ì¤¿¾ì¹ç¤Ë¸Â¤ê¡¤¤½¤Î»ÈÍѤ¢¤ë¤¤¤ÏÊ£À½¤¬µö ²Ä¤µ¤ì¤Þ¤¹¡£ ÆüËÜDEC¤Ï¡¤ÆüËÜDEC¤Þ¤¿¤ÏÆüËÜDEC¤Î»ØÄꤹ¤ë²ñ¼Ò¤«¤éǼÆþ¤µ¤ì¤¿ µ¡´ï°Ê³°¤Îµ¡´ï¤ÇÂоݥ½¥Õ¥È¥¦¥§¥¢¤ò»ÈÍѤ·¤¿¾ì¹ç¡¤¤½¤ÎÀ­Ç½¤¢ ¤ë¤¤¤Ï¿®ÍêÀ­¤Ë¤Ä¤¤¤Æ°ìÀÚÀÕǤ¤òÉ餤¤«¤Í¤Þ¤¹¡£ (c) Digital Equipment Corporation 1994. All Rights Reserved. Printed in Japan. °Ê²¼¤ÏÊƹñDigital Equipment Corporation¤Î¾¦É¸¤Ç¤¹¡£ ACMS DECUS Rdb/ELN VAX CDD ALL-IN-1 DECwindows Rdb/VMS VAX FMS DATATRIEVE DECwriter ReGIS VAXstation DEC DIBOL RSTS VIDA DEC/CMS MASSBUS RSX VMS DEC/MMS PDP RT VT DECforms P/OS TDMS Work Processor DECintact ProfessionaULTRIX DECmate Rainbow UNIBUS DECnet RALLY VAX DIGITAL °Ê²¼¤Ï¾¼Ò¤Î¾¦É¸¤Ç¤¹¡£ o PostScript¤ÏÊƹñAdobe Systems¼Ò¤Î¾¦É¸¤Ç¤¹¡£ o IBM¤ÏIBM¼Ò¤Î¾¦É¸¤Ç¤¹¡£ _________________________________________________________________ Ìܼ¡ ¤Þ¤¨¤¬¤­................................................. ix 1 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.1 ¤Ï¤¸¤á¤Ë..................................... 1-1 1.1.1 ÆüËܸìDSPI³µÍ×........................... 1-2 1.1.2 OpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÈIBM¥Û¥¹¥È....... 1-2 1.1.3 ´ðËÜŪ¤ÊIBM¤ÎÍѸì........................ 1-3 1.1.3.1 IBM SNA¤ÎÍѸì......................... 1-3 1.1.3.2 3270¾ðÊóɽ¼¨¥·¥¹¥Æ¥à................... 1-4 1.1.4 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î½èÍýµ¡Ç½........ 1-6 1.1.5 ÈóƱ´ü¥â¡¼¥É¤ÈƱ´ü¥â¡¼¥É................. 1-7 1.1.6 IBM/DEC¥³¡¼¥ÉÊÑ´¹........................ 1-7 1.2 ÆüËܸìDSPIÍøÍѤμê°ú¤­....................... 1-9 1.2.1 ¥»¥Ã¥·¥ç¥ó¤Î³ÎΩ......................... 1-11 1.2.2 ¥æ¡¼¥¶¤¬ÍÑ°Õ¤¹¤ë¤Ù¤­¥Ö¥í¥Ã¥¯¡¤¥Ù¥¯¥¿¹½Â¤. 1-11 1.2.2.1 CHARACTER VECTOR....................... 1-11 1.2.2.2 ATTRIBUTE VECTOR....................... 1-12 1.2.2.3 EXTENDED ATTRIBUTE VECTOR.............. 1-12 1.2.2.4 FIELD VECTOR........................... 1-16 1.2.3 SCREEN DESCRIPTOR BLOCK.................. 1-17 1.2.4 FIELD DESCRIPTOR BLOCK................... 1-17 1.2.5 EXTENDED FIELD DESCRIPTOR BLOCK.......... 1-17 1.2.6 3270¥¹¥¯¥ê¡¼¥ó¡¦¥¤¥á¡¼¥¸¤Î¼õ¿®........... 1-23 1.2.6.1 ¼õ¿®¥Ð¥Ã¥Õ¥¡¤ÎALLOCATION/DEALLOCATION.. 1-23 1.2.6.2 ¹ÎÄê¡¿ÈÝÄê±þÅú¤ÎÁ÷¿®................... 1-23 1.2.6.3 ¹½Â¤²½¥Õ¥£¡¼¥ë¥É¤Î½èÍý................. 1-24 1.2.6.4 ¥¨¥é¡¼¸¡ÃΤȤ½¤Î½èÍý................... 1-25 1.2.7 3270¥¹¥¯¥ê¡¼¥ó¡¦¥¤¥á¡¼¥¸¤ÎÁ÷¿®........... 1-30 1.2.7.1 Á÷¿®¥Ð¥Ã¥Õ¥¡¤ÎALLOCATE/DEALLOCATE...... 1-30 1.2.7.2 ¥¨¥é¡¼¸¡ÃΤȤ½¤Î½èÍý................... 1-30 1.2.8 3270¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤«¤é¤Î¥Ç¡¼¥¿¤ÎÆÉ ¤ß¼è¤ê.................................... 1-31 iii 1.2.9 3270¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Ø¤Î¥Ç¡¼¥¿¤Î½ñ¹þ ¤ß........................................ 1-38 1.2.10 ¥»¥Ã¥·¥ç¥ó¤Î½ªÎ»......................... 1-38 1.3 OpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÈÆüËܸìDSPI¤Î¥ê¥ó¥¯Êý Ë¡............................................ 1-39 1.4 ¥×¥í¥°¥é¥ß¥ó¥°Îã............................. 1-39 1.4.1 ³ÈÄ¥DS UTL»ÈÍÑÎã(FORTRAN)................ 1-39 1.5 ³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥±¥ó¥¹........... 1-54 1.5.1 EXSNA3270$RECEIVE_SCREEN................. 1-55 1.5.2 EXSNA3270$READ_FIELD..................... 1-58 1.5.3 EXSNA3270$WRITE_FIELD.................... 1-60 1.5.4 EXSNA3270$TRANSMIT_SCREEN................ 1-62 2 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.1 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î½àÈ÷..................... 2-1 2.1.1 ÇÛÉÛ¥­¥Ã¥È¤Î³Îǧ......................... 2-1 2.1.2 ɬ¿Ü¥½¥Õ¥È¥¦¥§¥¢......................... 2-1 2.1.3 OpenVMS¥·¥¹¥Æ¥à¤ÎɬÍ×»ö¹à................ 2-2 2.1.3.1 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ÎɬÍ×»ö¹à........... 2-2 2.1.3.2 OpenVMS¥é¥¤¥»¥ó¥¹´ÉÍýµ¡Ç½.............. 2-3 2.1.3.2.1 ɸ½àÈǣģӣУɤΥ饤¥»¥ó¥¹¤Ë¤Ä¤¤¤Æ.... 2-3 2.1.4 VMSINSTALɬÍ×»ö¹à........................ 2-4 2.1.4.1 VMSINSTAL¤Î»ÈÍÑ........................ 2-5 2.1.5 ¥ª¥ó¥é¥¤¥ó¡¦¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È............. 2-6 2.2 ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó............... 2-6 2.2.1 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥×¥í¥·¡¼¥¸¥ã......... 2-6 2.2.1.1 VMSINSTAL¤Îµ¯Æ°........................ 2-6 2.2.1.2 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Ë¤è¤êºîÀ®¤µ¤ì¤ë¥Õ¥¡ ¥¤¥ë.................................... 2-12 2.2.2 ÌäÂêÅÀ¤ÎÄÌÃÎ............................. 2-13 2.2.3 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î¥µ¥ó¥×¥ë............. 2-13 º÷°ú iv ¿Þ 1-1 ÆüËܸìDSPI³µÇ°¿Þ.......................... 1-2 1-2 OpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÈIBM¥Û¥¹¥È........ 1-2 1-3 ½èÍý¥Õ¥í¡¼................................ 1-10 1-4 EXTENDED ATTRIBUTE VECTOR................. 1-12 1-5 FIELD VECTOR.............................. 1-16 1-6 EXTENDED FDB.............................. 1-17 ɽ 1-1 ǧ¼±(¥µ¥Ý¡¼¥È)¤¹¤ë¤â¤Î¤È¤·¤Ê¤¤¤â¤Î°ìÍ÷ɽ.. 1-26 2-1 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ÎɬÍ×»ö¹à.............. 2-2 2-2 ¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤ë¥Õ¥¡¥¤¥ë................ 2-12 v _________________________________________________________________ ¤Þ¤¨¤¬¤­ ÆüËܸìDECnet SNA 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¡¦¥×¥í¥°¥é¥ß¥ó¥°¡¦ ¥¤¥ó¥¿¡¼¥Õ¥§¥¤¥¹for OpenVMS(°Ê²¼ÆüËܸìDSPI)¤ÏÆüËÜDEC¤Î¥½¥Õ ¥È¥¦¥§¥¢À½ÉʤǤ¹¡£¤³¤ÎÀ½Éʤò»ÈÍѤ¹¤ë¤È¡¢OpenVMS¥æ¡¼¥¶¤ÏSNA LU¥¿¥¤¥×2¥»¥Ã¥·¥ç¥ó¤ò¥µ¥Ý¡¼¥È¤¹¤ë¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òOpenVMS ¥·¥¹¥Æ¥à¾å¤Ç³«È¯¤·¤Æ¡¢DECnet/SNA¥²¡¼¥È¥¦¥§¥¤¤òÄ̤¸¤ÆIBM¥Û ¥¹¥È¡¦¥·¥¹¥Æ¥à(°Ê²¼IBM¥·¥¹¥Æ¥à)¤Ç²ÔÆ°¤¹¤ë¥×¥í¥°¥é¥à¤ÈÄÌ¿® ¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤³¤ÇDECnet/SNA¥²¡¼¥È¥¦¥§¥¤¤È¤Ï¡¢ DECnet/SNA Gateway-ST¡¢DECnet/SNA Gateway-CT ¤Î¤³¤È¤Ç¤¹¡£ Ëܽñ¤ÎÌÜŪ ¡ÖÆüËܸìDECnet SNA 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¡¦¥×¥í¥°¥é¥ß¥ó¥°¡¦ ¥¤¥ó¥¿¡¼¥Õ¥§¥¤¥¹for OpenVMS¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É¡¿¥¤¥ó¥¹¥È¥ì¡¼ ¥·¥ç¥ó¡¦¥¬¥¤¥É¡×¤Ï¡¢IBM¥·¥¹¥Æ¥à¾å¤Î¥×¥í¥°¥é¥à¤ÈLU¥¿¥¤¥×2¥» ¥Ã¥·¥ç¥ó¤ÇÄÌ¿®¤ò¹Ô¤¦OpenVMS¾å¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ò³«È¯¤¹¤ëºÝ ¤ËɬÍפʾðÊó¤òÄ󶡤·¤Þ¤¹¡£ Ëܽñ¤ÎÂÐ¾Ý¼Ô Ëܽñ¤ÏOpenVMS¤Î¥×¥í¥°¥é¥ÞÍѤǤ¹¡£ÆüËܸìDSPI¤ò»ÈÍѤ¹¤ë¤Ë¤Ï¡¢ IBM¼Ò¤ÎSNA¤Î°ìÈÌŪ¤ÊÃ챤¬É¬ÍפǤ¹¤¬¡¢SNA¤Î¾ÜºÙ¤ÊÃ챤ÏɬÍ× ¤¢¤ê¤Þ¤»¤ó¡£ Ëܽñ¤Î¹½À® Ëܽñ¤ÏÂ裱¾Ï¤Î¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É¤ÈÂ裲¾Ï¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç ¥ó¡¦¥¬¥¤¥É¤Ç¹½À®¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ ix £±¡¥£±¾Ï ¤É¤ÎDECnet/SNA¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¦¥¤¥ó¥¿¡¼¥Õ¥§¥¤¥¹ À½Éʤò»ÈÍѤ¹¤ì¤Ð¤¤¤¤¤Î¤«¡¢¤³¤ÎÀ½ÉʤDz¿¤¬¤Ç¤­¤ë¤« Åù¤Îµ¿Ìä¤ËÅú¤¨¤ë´ðËÜŪ¤ÊÀâÌÀ¤ò¹Ô¤¤¤Þ¤¹¡£ £±¡¥£²¾Ï ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÎºîÀ®¤È¼Â¹Ô¤ò±ç½õ¤¹¤ë¤¿¤á¤Ë¡¢Æü ËܸìDSPI¤Îµ¡Ç½¤òÀâÌÀ¤·¤Þ¤¹¡£ £±¡¥£³¾Ï ¥·¥§¥¢¥é¥Ö¥ë¡¦¥¤¥á¡¼¥¸¤ò»ÈÍѤ·¤Æ¡¢OpenVMS¥¢¥×¥ê¥± ¡¼¥·¥ç¥ó¤òÆüËܸìDSPI¤È¥ê¥ó¥¯¤¹¤ëÊýË¡¤Ë¤Ä¤¤¤ÆÀâÌÀ ¤·¤Þ¤¹¡£ £±¡¥£´¾Ï ÆüËܸìDSPI¤¬Ä󶡤¹¤ë³Æ¥×¥í¥·¡¼¥¸¥ã¤Î¸Æ¤Ó½Ð¤··Á¼° ¤È°ú¤­¿ô¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£ »²¹Íʸ¸¥ IBM¥·¥¹¥Æ¥à¤Î¾ðÊó¤Ë¤Ä¤¤¤Æ¤Ï¡¢°Ê²¼¤ÎIBM¼Ò¤Î¥Þ¥Ë¥å¥¢¥ë¤ò»²¹Í ¤Ë¤·¤Æ²¼¤µ¤¤¡£ o IBM3270´Á»ú¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à(Order No. N:GA18-2406-0) o IBM 3270 Information Display System Data Stream Programmer's Reference (GA23-0059) o IBM 3270 Information Display System 3274 Control Unit Description and Programmer's Guide (GA23-0061) o Systems Network Architecture - Format and Protocol Reference Manual (GC30-3112) o Systems Network Architecture - Sessions Between Logical Units (GC20-1868) °Ê²¼¤ÎDEC¼Ò¤Î¥Þ¥Ë¥å¥¢¥ë¤â»²¹Í¤Ë¤·¤Æ²¼¤µ¤¤¡£ o DECnet SNA Gateway Management Guide o DECnet SNA Gateway Problem Determination Guide o Introduction to OpenVMS System Routines o OpenVMS Run-Time Library Routines Reference Manual x o OpenVMS System Services Reference Manual Ëܽñ¤Ç»ÈÍѤµ¤ì¤ëɽµ­Ë¡ Ëܽñ¤Ç¤Ï²¼µ­¤Îɽµ­Ë¡¤ò»ÈÍѤ·¤Þ¤¹¡£ ___________________________________________________________ ɽµ­________ÀâÌÀ___________________________________________ UPPERCASE ¥³¥Þ¥ó¥É¹Ô¤Ë¤ª¤±¤ëÂçʸ»ú¤Ï¡¢¥æ¡¼¥¶¤¬ÆþÎϤ¹¤ëɬ Íפ¬¤¢¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£ italics ¥³¥Þ¥ó¥É¹Ô¤äÎã¤Ë¤ª¤±¤ë¥¤¥¿¥ê¥Ã¥¯¡¦¥Æ¥­¥¹¥È¤ÏÆþ ÎϤ¹¤ëÊÑ¿ô¤ò¼¨¤·¤Þ¤¹¡£ [] ·Á¼°¤ÎÀâÌÀ¤Ç¡¢Âç³ç¸Ì¤Ï¾Êά²Äǽ¤ÊÉôʬ¤ò¼¨¤·¤Þ ¤¹¡£²¿¤âÁªÂò¤·¤Ê¤¤¤«¡¢1¤Ä¤Î¹àÌܤòÁªÂò¤¹¤ë¤«¡¢¤Þ ¤¿¤Ï¤¹¤Ù¤Æ¤Î¹àÌܤòÁªÂò¤Ç¤­¤Þ¤¹¡£ () ·Á¼°¤ÎÀâÌÀ¤Ç¡¢³ç¸Ì¤ÏÊ£¿ô¤Î¥ª¥×¥·¥ç¥ó¤òÁªÂò¤¹¤ë »þ¤Ë¡¢ÁªÂò¤·¤¿¥ª¥×¥·¥ç¥ó¤ò³ç¸Ì¤Ç°Ï¤Þ¤Ê¤±¤ì¤Ð¤Ê ¤é¤Ê¤¤¤³¤È¤ò¼¨¤·¤Þ¤¹¡£ ¿ô»ú ÆäËÃǤé¤Ê¤¤¸Â¤ê¡¢¿ô»ú¤Ï10¿Ê¤Ç¤¹¡£ ¥­¡¼¥Ü¡¼¥É¤Î¥­¡¼¤ò²¡¤¹¤³¤È¤ò¼¨¤·¤Þ¤¹¡£Î㤨 ¤Ð¤ÏRETURN¥­¡¼¤ò²¡¤¹¤³¤È¤ò¼¨¤·¤Þ¤¹¡£ Åù¤Î¥­¡¼¤ÎÁȤ߹礻¤Ï¡¢CTRL¥­¡¼¤ò²¡¤·¤¿ ____________¾õÂÖ¤ÇÊ̤Υ­¡¼¤ò²¡¤¹¤³¤È¤ò¼¨¤·¤Þ¤¹¡£___________ xi 1 _________________________________________________________________ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É _________________________________________________________________ 1.1 ¤Ï¤¸¤á¤Ë ÆüËܸìDECnet SNA 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¡¦¥×¥í¥°¥é¥ß¥ó¥°¡¦¥¤ ¥ó¥¿¡¼¥Õ¥§¥¤¥¹for OpenVMS(°Ê²¼ÆüËܸìDSPI¤Èά¤¹)¤Ï¡¤DECnet SNA Gateway, DECnet SNA Gateway for Synchronous Transport¡¤ DECnet SNA Gateway for Channel Transport¤ª¤è¤ÓÆüËܸìOpenVMS ¤Î¤â¤È¤ÇÆ°ºî¤¹¤ëDECnet SNA VMS 3270 Data Stream Programming Interface (°Ê²¼DSPI¤Èά¤¹)¤È³ÈÄ¥3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¥æ¡¼ ¥Æ¥£¥ê¥Æ¥£(°Ê²¼³ÈÄ¥DS UTL¤Èά¤¹)¤«¤é¤Ê¤ë¥½¥Õ¥È¥¦¥§¥¢¡¦¥×¥í ¥À¥¯¥È¤Ç¤¹¡£DSPI¤È³ÈÄ¥DS UTL¤Ï¡¤¶¦¤ËDECnet SNA Gateway¥×¥í ¥À¥¯¥È¤ÎAccess Routine¤È¤·¤ÆÆ°¤¯¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¦¥×¥í¥°¥é ¥à¤Ç¤¹¡£¤³¤Î¥Þ¥Ë¥å¥¢¥ë¤Ç¤Ï¡¤¼ç¤Ë³ÈÄ¥DS UTL¤Î»ÈÍÑÊýË¡¤Ë¤Ä¤¤ ¤Æ½Ò¤Ù¤é¤ì¤Æ¤¤¤Þ¤¹¡£É¸½àÈÇDSPI¤Î»ÈÍÑÊýË¡¤Ë¤Ä¤¤¤Æ¤Ï¡¤DECnet SNA 3270 Data Stream Programming Interface Guide (Order No. AA-ET84C-TE)¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ________________________ Ãí°Õ ________________________ Ëܽñ¤Ç¤ÏDECnet SNA Gateway-ST¡¢DECnet SNA Gateway-CT¤ò Áí¾Î¤·¤ÆDECnet/SNA¥²¡¼¥È¥¦¥§¥¤¤È¸Æ¤Ó¤Þ¤¹¡£ ______________________________________________________ »²¾Èʸ¸¥ o DECnet SNA 3270 Data Stream Programming Interface Guide for OpenVMS ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-1 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.1¤Ï¤¸¤á¤Ë 1.1.1 ÆüËܸìDSPI³µÍ× ÆüËܸìDSPI¤Ï¡¤³ÈÄ¥DS UTL¤ÈDSPI¤«¤é¤Ê¤ë¥½¥Õ¥È¥¦¥§¥¢¡¦¥×¥í¥À ¥¯¥È¤Ç¤¹¡£³ÈÄ¥DS UTL¤Ï¡¤DSPI¤ËÂФ·¤ÆIBM/SNA³ÈÄ¥3270¥Ç¡¼¥¿¡¦ ¥¹¥È¥ê¡¼¥à¤Î½èÍýµ¡Ç½¤òÄɲ乤ë¤â¤Î¤Ç¤¹¡£³ÈÄ¥DS UTL¤ÈDSPI¤Î Ê»ÍѤˤè¤êÆüËܸì¥Ç¡¼¥¿¤ò½é¤á³ÈÄ¥¶¯Ä´É½¼¨¡¤³ÈÄ¥¥«¥é¡¼Â°À­¤ò »ý¤ÄIBM/SNA 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤ò½èÍý¤¹¤ë¥¢¥×¥ê¥±¡¼¥·¥ç ¥ó¡¦¥×¥í¥°¥é¥à¤Î³«È¯¤òOpenVMS¥æ¡¼¥¶¤¬Íưפ˹Ԥ¦¤³¤È¤¬¤Ç¤­¤ë ¤³¤È¤òÌÜŪ¤È¤·¤Æ¤¤¤Þ¤¹¡£¿Þ 1-1¤Ë³µÇ°¿Þ¤ò¼¨¤·¤Þ¤¹¡£ ¿Þ 1-1 ÆüËܸìDSPI³µÇ°¿Þ 1.1.2 OpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÈIBM¥Û¥¹¥È ÆüËܸìDSPI¤ò»ÈÍѤ·¡¤IBM¥Û¥¹¥È¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¦¥×¥í¥°¥é¥à ¤È¥á¥Ã¥»¡¼¥¸¸ò´¹¤ò¹Ô¤¦OpenVMS¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¦¥×¥í¥°¥é¥à ¤Ï¡¤IBM ¥Û¥¹¥È¤«¤é¤Ï¡¤LU¥¿¥¤¥×2¤Î3270ɽ¼¨ÁõÃ֤Ȥ·¤Æǧ¼±¤µ¤ì ¤Þ¤¹¡£OpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ï¡¤3270¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤ò ¥×¥í¥°¥é¥àÆâ¤Ë»ý¤Á¤Þ¤¹¡£3270ɽ¼¨ÁõÃ֤Υ­¡¼¥Ü¡¼¥É¤«¤é¥Ç¡¼¥¿ ¤òÂǤÁ¹þ¤àÂå¤ï¤ê¤Ë¤½¤Î¥Ð¥Ã¥Õ¥¡¤Ë¥Ç¡¼¥¿¤ò½ñ¤­¹þ¤ß¥Ç¡¼¥¿¤ò¥Û ¥¹¥È¤ËÁ÷¿®¤·¡¤¥­¡¼¥Ü¡¼¥É¤«¤éÂǤÁ¹þ¤ó¤À¥Ç¡¼¥¿¤ä¼õ¿®¤·¤¿¥Ç¡¼ ¥¿¤òÁàºî°÷¤¬²èÌ̤«¤éÆɤ߼è¤ëÂå¤ï¤ê¤Ë¤½¤Î¥Ð¥Ã¥Õ¥¡¤ÎÆâÍƤòÄ´ ¤Ù¤Þ¤¹¡£¿Þ 1-2¤ËOpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÈIBM¥Û¥¹¥È¤Î´Ö¤Î¥Ð ¥Ã¥Õ¥¡¤Î´Ø·¸¤ò¼¨¤·¤Þ¤¹¡£ ¿Þ 1-2 OpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÈIBM¥Û¥¹¥È 1-2 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.1¤Ï¤¸¤á¤Ë 1.1.3 ´ðËÜŪ¤ÊIBM¤ÎÍÑ¸ì ¤³¤³¤Ç¤Ï¡¤OpenVMS¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¦¥×¥í¥°¥é¥à¤ÈIBM¥Û¥¹¥È ¾å¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¦¥×¥í¥°¥é¥à¤È¤¬SNA/ LU¥¿¥¤¥×2¤ÎÄÌ¿®¤ò ¹Ô¤¦¤¿¤á¤ËɬÍפÊIBM SNAµÚ¤Ó3270¾ðÊóɽ¼¨¥·¥¹¥Æ¥à¤ÎÍѸì¤Ë¤Ä ¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£¤³¤ì¤é¤Ë¤Ä¤¤¤Æ¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¤DECnet SNA Gateway Introduction¤ÎAppendix AµÚ¤Ó´ØÏ¢¤¹¤ëIBM¼Ò¤Î¥Þ¥Ë¥å¥¢ ¥ë¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ 1.1.3.1 IBM SNA¤ÎÍѸì o ¥¨¥ó¥É¡¦¥æ¡¼¥¶(EU) SNA¤Ç¸À¤¦¤È¤³¤í¤Î ¥¨¥ó¥É¡¦¥æ¡¼¥¶(EU)¤È¤Ï¡¤ SNA¥Í¥Ã¥È¥ï ¡¼¥¯Æâ¤Ç¤Î¥á ¥Ã¥»¡¼¥¸¤ÎºÇ½ªÅþãÃÏÅÀ¤ò»Ø¤·¡¤IBM¥Û¥¹¥È¾å ¤Ë¤¢¤ë ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¦¥× ¥í¥°¥é¥à¤ä3270ɽ¼¨ÁõÃÖ¤ÎÁà ºî°÷¤¬EU¤Ë¤¢¤¿¤ê ¤Þ¤¹¡£ÆüËܸìDSPI¤ò»È ÍѤ¹¤ëOpenVMS¥¢ ¥×¥ê¥±¡¼¥·¥ç¥ó¤Ï¡¤1¤Ä¤ÎEU¤Ç¤¹¡£ o ¥»¥Ã¥·¥ç¥ó SNA¥Í¥Ã¥È¥ï¡¼¥¯Æâ¤ÎÄÌ¿®²Äǽ¤Ê¹½À®Í×ÁÇ (SNA¤Ç¤Ï¡¤¥Í¥Ã¥È ¥ï¡¼¥¯¡¦¥¢¥É ¥ì¥¹²Äǽñ°Ì: NAU¤È¸Æ¤ó¤Ç¤¤¤Þ¤¹¡£)¤É¤¦¤· ´Ö¤Ç¤ÎÏÀÍý·ÐÏ©¡£NAU¤Î¼ïÎà ¤Ë¤è¤ê¥»¥Ã¥·¥ç¥ó¤Ë¤Ï¡¤¼¡¤Î3 ¤Ä¤Î¤â¤Î¤¬Â¸ºß¤·¤Þ¤¹¡£: - SSCP-PU¥»¥Ã¥·¥ç¥ó - SSCP-LU¥»¥Ã¥·¥ç¥ó - LU-LU¥»¥Ã¥·¥ç¥ó ÆüËܸìDSPI¤ò»ÈÍѤ¹¤ëOpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ï¡¤ IBM¥Û ¥¹¥È¤Î¥¢¥×¥ê ¥±¡¼¥·¥ç¥ó¡¦¥×¥í¥°¥é¥à¤ÈÄÌ¿®¤ò»Ï¤á¤ëÁ°¤Ë LU-LU¥»¥Ã¥·¥ç¥ó ¤ò³ÎΩ¤·¤Ê¤± ¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£DECnet¤Ç ¸À¤¦¤È¤³¤í¤Î¥í¥¸¥«¥ë¡¦¥ê¥ó¥¯¤ËÎà»÷¤·¤Æ¤¤¤Þ ¤¹¡£ o ÏÀÍýÁõÃÖ(LU) ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-3 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.1¤Ï¤¸¤á¤Ë ¥»¥Ã¥·¥ç¥ó¤òÄ̤·¤Æ·ë¹ç¤µ¤ì¤ëNAU¤Î1¤Ä¤Ç¤¢¤ë¥½¥Õ¥È¥¦¥§ ¥¢¡¦ ¥³¥ó¥Ý¡¼ ¥Í¥ó¥È¤Ç¤¹¡£LU¤Ï¡¤EU¤¬SNA¥Í¥Ã¥È¥ï¡¼¥¯¤Ë ¥¢¥¯¥»¥¹¤¹¤ëÁë¸ý¤È¤Ê¤ëÉôʬ ¤ÇÆüËܸìDSPIµÚ¤ÓDECnet SNA Gateway¤¬ LU¤ÎÌòÌܤò¼õ¤±»ý¤Á¤Þ¤¹¡£ 2¤Ä¤ÎLU´Ö¤ÇºÇ½é¤Ë¥»¥Ã¥·¥ç¥ó¤¬³ÎΩ¤µ¤ì¤¿»þ¡¤°ìÊý¤ÎLU ¤Ï¡¤ °ì¼¡LU (PLU)¤È¸Æ¤Ð¤ì¡¤¤â¤¦°ìÊý¤ÏÆó¼¡LU (SLU)¤È¸Æ ¤Ð¤ì¤Þ¤¹¡£ÄÌ¿®Ãæ¤Î¥¨¥é¡¼ ²óÉü½èÍý¤Ê¤É¤Î½èÍý¤Ï¡¤¤ª¤â¤Ë PLU¤Ë³ä¤êÅö¤Æ¤é¤ì¤¿LU¤¬¹Ô¤¤¤Þ¤¹¡£ ÆüËܸìDSPI ¤ò»ÈÍѤ· ¤¿OpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ï¡¤¾ï¤ËSLU¤È¤·¤Æǧ¼±¤µ ¤ì¤Þ ¤¹¡£ o ʪÍýÁõÃÖ(PU) SNA ¥Í¥Ã¥È¥ï¡¼¥¯Æâ¤Î³Æ¥Î¡¼¥É¤Ë¸ºß¤¹¤ë¥½¥Õ¥È¥¦¥§¥¢¡¦¥³ ¥ó¥Ý¡¼¥Í¥ó¥È¤Ç ¤½¤Î¥Î¡¼¥É¤Î»ñ¸»¤ò´ÉÍý¡¤´Æ»ë¤¹¤ëƯ¤­¤ò ¤·¤Þ¤¹¡£ ÆüËܸìDSPI¤Î¾ì¹ç¡¤ DECnet SNA Gateway¥½¥Õ¥È¥¦ ¥§¥¢¤¬PU¤Î¹Ô¤¦¤Ù¤­¥µ¡¼¥Ó¥¹¤ò Ä󶡤·¤Þ¤¹¡£ 1.1.3.2 3270¾ðÊóɽ¼¨¥·¥¹¥Æ¥à o 3270¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡ 3270¾ðÊóɽ¼¨¥·¥¹¥Æ¥à¤Ï¡¤²èÌ̤Ëɽ¼¨¤¹¤ë¤¿¤á¤Î ¥Ç¡¼¥¿¤ò Ǽ¤á¤¿²èÌÌ°ìËçʬ ¤Î¥Ð¥Ã¥Õ¥¡¤ò»ý¤Á¤Þ¤¹¡£¤³¤Î¥Ð¥Ã¥Õ¥¡¤ò 3270 ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤È¸Æ¤Ó ¥Ð¥Ã¥Õ¥¡¤ÎÀèƬ¤«¤é¤Î¥Ð ¥¤¥È¡¦¥ª¥Õ¥»¥Ã¥ÈÃÍ(¥Ð¥Ã¥Õ¥¡¡¼¡¦¥¢¥É¥ì¥¹)¤Ï¡¤ ²èÌÌ¤Î¤É ¤Î°ÌÃÖ¤Ëʸ»ú¤òɽ¼¨¤¹¤ë¤«¤ò¼¨¤·¤Þ¤¹¡£IBM ¥Û¥¹¥È¤«¤é¤Î¥á ¥Ã¥»¡¼ ¥¸¤Ï¡¤¤³¤Î¥Ð¥Ã¥Õ¥¡¤Ë½ñ¤­¹þ¤Þ¤ì¤ë¤³¤È¤Ë¤è¤ê²èÌÌ ¤Ëɽ¼¨¤µ¤ì¡¤¥­¡¼¥Ü¡¼¥É ¤Ë¤è¤ê¤³¤Î¥Ð¥Ã¥Õ¥¡¤Ë½ñ¤­¹þ¤Þ¤ì ¤¿¥Ç¡¼¥¿¤Ï¡¤IBM ¥Û¥¹¥È¤ËÁ÷¿®¤µ¤ì¤Þ¤¹¡£ ÆüËܸìDSPI¤ò»È ÍѤ¹¤ëOpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ï¡¤ 3270¥¹¥¯¥ê¡¼¥ó¡¦ ¥Ð ¥Ã¥Õ¥¡¤ò¥×¥í¥°¥é¥àÆâÉô¤Ë»ý¤ÁÆüËܸìDSPI¥ë¡¼¥Á¥ó¤Ë ¤è¤ê ¤³¤Î¥Ð¥Ã¥Õ¥¡ ¤Ë½ñ¤­¹þ¤ßÁ÷¿®¤·¡¤¤Þ¤¿ÆüËܸìDSPI¥ë¡¼¥Á¥ó ¤¬ IBM¥Û¥¹¥È¤«¤é¼õ¿®¤·¹¹¿· ¤·¤¿¥Ð¥Ã¥Õ¥¡¤ÎÆâÍƤòÆɤ߹þ ¤à¤³¤È¤Ç¥Û¥¹¥È¤È¤Î¥á¥Ã¥»¡¼¥¸¸ò´¹¤ò¹Ô¤¤¤Þ¤¹¡£ o ÄêÍͼ°²èÌÌ ²èÌ̾å¤ÎŬÍѶÈ̳°è¤ò¤¤¤¯¤Ä¤«¤Îɽ¼¨¥Õ¥£¡¼¥ë¥É¤Ëʬ¤±¤é¤¿ 3270²èÌ̤òÄê Íͼ°²èÌ̤ȸƤӤޤ¹¡£¥Õ¥£¡¼¥ë¥É´Ö¤Ï¡¤¤½¤Î ¥Õ¥£¡¼¥ë¥É¤Î°À­¤ò¼¨¤¹Â°À­Ê¸ »ú¤Ë¤è¤ê¶èÀÚ¤é¤ì¤Þ¤¹¡£¤¹ ¤Ê¤ï¤Á1¤Ä¤Î¥Õ¥£¡¼¥ë¥É¤Î»Ï¤Þ¤ê¤Ï¡¤3270¥¹¥¯ ¥ê¡¼¥ó¡¦¥Ð¥Ã ¥Õ¥¡Æâ¤Ë¥Û¥¹¥È¤Ë¤è¤ê½ñ¤­¹þ¤Þ¤ì¤¿Â°À­Ê¸»ú¤Ç·è¤á¤é¤ì¤Þ ¤¹¡£ °À­Ê¸»ú¤Ï¡¤¥Û¥¹¥È¤Ë¤è¤ê¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Ë½ñ 1-4 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.1¤Ï¤¸¤á¤Ë ¤­¹þ¤Þ¤ì¥­¡¼¥Ü¡¼¥ÉÁà ºî¤ÇÀ¸À®¤äÊѹ¹¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤» ¤ó¡£ÆüËܸìDSPI¤ò»ÈÍѤ¹¤ë¾ì¹ç¤Ï¡¤¥¹ ¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡ ¤È¤·¤Æ»ÈÍѤ¹¤ëcharacter vector¤Ë¤Ï°À­Ê¸»ú¤Ï¡¤½ñ ¤­¹þ ¤Þ¤ì¤ºfield vector¤¬Â°À­Ê¸»ú¤Î¸ºß°ÌÃÖ¤ò¼¨¤·attribute vector ¤Èextended attribute vector¤¬¥Õ¥£¡¼¥ë¥É¤Î´ð ËÜ°À­¡¤³Èĥ°À­¤ò¼¨¤·¤Þ ¤¹¡£Â°À­Ê¸»ú°ÌÃÖ¤Îcharacter vector¤Ë¤Ï¡¤NUL (X'00')¥³¡¼¥É¤¬Æþ¤ì¤é ¤ì¤Þ¤¹¡£ ¤Þ¤¿¡¤²èÌ̾å¤Îʸ»ú¤¬£±¥Ð¥¤¥È¥³¡¼¥É¤«£²¥Ð¥¤¥È¥³¡¼¥É¤«¤ò ¼¨¤¹k-mode vector¤Ë¤Ï,£±¥Ð¥¤¥È¥³¡¼¥É¤Î¾ì¹ç¤Ï,¥¢¥¹¥­¡¼ ¥³¡¼¥É'A'(X'41'),£²¥Ð¥¤ ¥È¥³¡¼¥É¤Î¾ì¹ç¤Ï,£±¥Ð¥¤¥ÈÌÜ¤Ë ¥¢¥¹¥­¡¼¥³¡¼¥É'K'(X'4B'),£²¥Ð¥¤¥ÈÌÜ¤Ë ¥¢¥¹¥­¡¼¥³¡¼¥É 'k'(X'61')¤¬³ÊǼ¤µ¤ì¤Þ¤¹¡£Â°À­Ê¸»ú°ÌÃÖ¤Îk-mode vector ¤Ï£±¥Ð¥¤¥È¥³¡¼¥É¤ò¼¨¤¹'A'¤¬³ÊǼ¤µ¤ì¤Þ¤¹¡£ character vector¡¤field vector¡¤attribute vector¡¤ extended attribute vector¤Ë¤Ä¤¤¤Æ¤Ï¡¤Â裲¾Ï¤ò»²¾È¤·¤Æ ¤¯¤À¤µ¤¤¡£ o ¥Õ¥£¡¼¥ë¥É¤Î°À­ ¥Õ¥£¡¼¥ë¥É¤Î°À­¤Ë¤Ï¡¤¼¡¤Î2¤Ä¤Î¤â¤Î¤¬¤¢¤ê¤Þ¤¹¡£ - ´ðËÜ°À­ - ³Èĥ°À­ ´ðËÜ°À­¤Ï¡¤Â°À­Ê¸»ú¤Î¥Ó¥Ã¥È¹½À®¤Ë¤è¤Ã¤Æ·è¤á¤é¤ì¤Þ¤¹¡£ ´ðËÜ°À­¤È¤·¤Æ ¼¡¤Î¤è¤¦¤Ê¤â¤Î¤¬¤¢¤ê¤Þ¤¹¡£ - Êݸî¥Õ¥£¡¼¥ë¥É°À­ - ̵Êݸî¥Õ¥£¡¼¥ë¥É°À­ - ¿ô»ú¥Õ¥£¡¼¥ë¥É°À­ - ¹âµ±ÅÙ¥Õ¥£¡¼¥ë¥É°À­ - Èóɽ¼¨¥Õ¥£¡¼¥ë¥É°À­ ³Èĥ°À­¤Ë¤Ï¡¤¼¡¤Î¤è¤¦¤Ê¤â¤Î¤¬¤¢¤ê¤Þ¤¹¡£ - ʸ»ú¥»¥Ã¥È¤Ë´Ø¤¹¤ë¤â¤Î ±Ñ¿ô¥«¥Ê¡¦¥Õ¥£¡¼¥ë¥É°À­´Á»ú¥Õ¥£¡¼¥ë¥É°À­ - ´Á»úÆþÎϲÄǽ¤Þ¤¿¤ÏÉԲİÀ­ - ¥Õ¥£¡¼¥ë¥É·ÓÀþ°À­ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-5 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.1¤Ï¤¸¤á¤Ë - ³ÈÄ¥¥«¥é¡¼Â°À­ ´Á»úÆþÎϲÄǽ°À­¤ò»ý¤Ä±Ñ¿ô¥«¥Ê¡¦¥Õ¥£¡¼¥ë¥É¤Ë¤Ï¡¤SO/SI ¥³¡¼¥É¤Ç¶´¤Þ¤ì ¤¿´Á»ú¥³¡¼¥É¤¬3270¥­¡¼¥Ü¡¼¥É¤«¤éÆþÎÏ ¤Ç¤­¤Þ¤¹¡£±Ñ¿ô¥«¥Ê¡¦¥Õ¥£¡¼¥ë¥É Æâ¤ËÀ¸À®¤µ¤ì¤ë´Á»ú¥Õ ¥£¡¼¥ë¥É¤Ï¡¤´Á»ú¥µ¥Ö¡¦¥Õ¥£¡¼¥ë¥É¤È¸Æ¤Ð¤ì¤Þ¤¹¡£Æü ËÜ ¸ìDSPI¤ò»ÈÍѤ¹¤ë¾ì¹ç¤Î´Á»ú¥µ¥Ö¡¦¥Õ¥£¡¼¥ë¥É¤ÎÀ¸À®¤Ï¡¤ OpenVMS¥¢¥× ¥ê¥±¡¼¥·¥ç¥ó¤¬SO/SI¥³¡¼¥É¤òȼ¤¦IBM´Á»ú¥³¡¼ ¥É¤òcharacter vector ¤Ë½ñ¤­¹þ¤à¤³¤È¤Ë¤è¤ê¹Ô¤ï¤ì¤Þ¤¹¡£ ¤Þ¤¿ ´ðËÜ°À­¤Ï¡¤attribute vector¤Ë¤è ¤ê³Èĥ°À­¤Ï¡¤ extended attribute vector¤Ë¤è¤ê¼¨¤µ¤ì¤Þ¤¹¡£attribute vector¡¤extended attribute vector¤Ë¤Ä¤¤¤Æ¤Ï¡¤Â裲¾Ï¤ò »²¾È¤·¤Æ¤¯¤À¤µ ¤¤¡£ 1.1.4 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î½èÍýµ¡Ç½ ³ÈÄ¥DS UTL¤Ï¡¤DSPI¤È¶¦¤Ë»ÈÍѤ·IBM-DEC´Ö¤ÎLU¥¿¥¤¥×2 ¤ÎÄÌ¿®¤ò ¼Â¸½¤¹¤ë¤¿¤á¤Î¥µ¥Ö¥ë¡¼¥Á¥ó·²¤Ç¤¹¡£¤³¤ì¤é¤Î¥ë¡¼¥Á¥ó¤ò»ÈÍѤ¹ ¤ë¤³¤È¤Ë¤è¤ê¥æ¡¼¥¶¤Ï¡¤³Èĥ°À­¤ò´Þ¤ó¤À3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼ ¥à¤Î¥×¥í¥È¥³¥ë¤ò¤Û¤È¤ó¤É°Õ¼±¤¹¤ë¤³¤È¤Ê¤·¤Ë¥×¥í¥°¥é¥à¤ò½ñ¤¯ ¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£IBM¥Û¥¹¥È¤È¤Î3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Ë¤è¤ëÆ© ²áŪ¤ÊÄÌ¿®¤ò¼Â¸½¤¹¤ë¤¿¤á³ÈÄ¥DS UTL¤¬Ä󶡤¹¤ëµ¡Ç½¤Ë¤Ï¼¡¤Î¤è ¤¦¤Ê¤â¤Î¤¬¤¢¤ê¤Þ¤¹¡£ 1. IBM¥Û¥¹¥È¤«¤é¤Î3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î¼õ¿®¤È²òÀÏ 2. 3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¤Î¥Õ¥£¡¼¥ë¥É¤Ø¤Î¥Ç¡¼¥¿½ñ¹þ¤ß 3. 3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¤Î¥Õ¥£¡¼¥ë¥É¤«¤é¤Î¥Ç¡¼¥¿Æɤ߼è¤ê 4. IBM¥Û¥¹¥È¤Ø¤Î3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤ÎÁ÷¿® ________________________ Ãí°Õ ________________________ ÆüËܸìOpenVMS¤ª¤è¤ÓÆüËܸìMicroVMS¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¦ ¥×¥í¥°¥é ¥à¤Ï¡¤IBM¤È¤Î¥»¥Ã¥·¥ç¥ó³«Àߤª¤è¤ÓÊÄÀß¡¤ ¥×¥í ¥È¥³¥ë¾å¤Î¥¨¥é¡¼ ½èÍý¤ò¹Ô¤¦¤¿¤á¤ËDSPI¤¬Ä󶡤¹¤ë¥µ¥Ö¥ë ¡¼¥Á¥ó¤ò»ÈÍѤ·¤Ê¤±¤ì¤Ð¤Ê ¤ê¤Þ¤»¤ó¡£ ¤Þ¤¿¼¡¤Î¤è¤¦¤ÊDSPI ¤Î¥Õ¥£¡¼¥ë¥É¡¦¥â¡¼¥ÉÀܳ¤È³ÈÄ¥ DS UTL¤¬¶¦¤Ë¥µ¥Ý¡¼¥È¤· ¤Æ¤¤¤Ê¤¤³ÈÄ¥ 3270 ¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î µ¡Ç½¤ò¼è¤ê°·¤¦ ÄÌ¿®¤ò¹Ô¤¦¤¿¤á¤Ë¤Ï¡¤DSPI¤Î¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¡¦¥â¡¼¥É Àܳ¤òÍѤ¤¤ë¤³¤È¤¬É¬ÍפǤ¹¡£ o SAÉû»ØÎá 1-6 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.1¤Ï¤¸¤á¤Ë o SFEÉû»ØÎá¤Ë¤ª¤±¤ëÆ©²á°À­ o ¹½Â¤²½¥Õ¥£¡¼¥ë¥É o ¥°¥é¥Õ¥£¥Ã¥¯¡¦¥¹¥È¥ê¡¼¥à ______________________________________________________ 1.1.5 ÈóƱ´ü¥â¡¼¥É¤ÈƱ´ü¥â¡¼¥É 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î¼õ¿®¡¿Á÷¿®¤ò¹Ô¤¦¥ë¡¼¥Á¥ó (EXSNA3270$TRANSMIT_SCREEN¡¤EXSNA3270$RECEIVE_SCREEN)¤Ë ¤Ï¡¤ÈóƱ´ü¥â¡¼¥É¤ÈƱ´ü¥â¡¼¥É¤Î2¤Ä¤Î¥â¡¼¥É¤¬ÍÑ°Õ¤µ¤ì¤Æ¤¤¤Þ ¤¹¡£ÈóƱ´ü¥â¡¼¥É¤Ç¤Ï¡¤³ÈÄ¥DS UTL¥ë¡¼¥Á¥óÆâ¤Ç3270¥Ç¡¼¥¿¡¦¥¹ ¥È¥ê¡¼¥à¤Î¼õ¿®¡¿Á÷¿®¤ËɬÍפʽèÍý¤ò¤·¤¿¸å¡¤À©¸æ¤Ï¸Æ¤Ó¸µ¤Î¥× ¥í¥°¥é¥à¤ËÅϤµ¤ì¤Þ¤¹¡£¼õ¿®¡¿Á÷¿®¸å¤Î½èÍý¤¬´°Î»¤·¤¿»þÅÀ¤Ç¥æ ¡¼¥¶¤¬»ØÄꤷ¤¿AST¥ë¡¼¥Á¥ó¤¬µ¯Æ°¤µ¤ì¤Þ¤¹¡£Æ±´ü¥â¡¼¥É¤Ç¤Ï¡¤ ¼õ¿®¡¿Á÷¿®¸å¤Î½èÍý¤¬´°Î»¤¹¤ë¤Þ¤Ç³ÈÄ¥DS UTL¥ë¡¼¥Á¥ó¤Î¸Æ¤Ó¸µ ¤Î¥×¥í¥°¥é¥à¤ËÀ©¸æ¤ÏÅϤµ¤ì¤Þ¤»¤ó¡£Æ±´ü¥â¡¼¥É¤Î¥ë¡¼¥Á¥ó̾¤Ï "_W"¤¬ºÇ¸å¤ËÉÕ¤±¤é¤ì¤Æ¤¤¤Þ¤¹¡£ ________________________ Ãí°Õ ________________________ ÈóƱ´ü¥â¡¼¥É¤Ç³ÈÄ¥DS UTL¥ë¡¼¥Á¥ó¤ò»ÈÍѤ¹¤ë¾ì¹ç¡¤¥æ¡¼ ¥¶¡¦¥×¥í ¥°¥é¥à¤Ï³ÈÄ¥DS UTL¥ë¡¼¥Á¥ó¤¬´°Î»¤¹¤ë¤Þ¤Ç¸Æ½Ð ¤·¤¿»þ¤Ë»ØÄꤷ¤¿ °ú¿ô¤Î³ÆÎΰè¤òÊݸ¤·¤Æ¤ª¤¯É¬Íפ¬¤¢¤ê ¤Þ¤¹¡£ ______________________________________________________ 1.1.6 IBM/DEC¥³¡¼¥ÉÊÑ´¹ IBM/DEC´Ö¤ÎIBM´Á»ú¥³¡¼¥É/DEC´Á»ú¥³¡¼¥É¤ª¤è¤ÓEBCDIC/ASCII¤Î ¥³¡¼¥ÉÊÑ´¹¤Ï¡¤³ÈÄ¥DS UTL¥ë¡¼¥Á¥óÆâ¤Ç¤Ï¹Ô¤Ê¤ï¤ì¤Þ¤»¤ó¡£¥³¡¼ ¥ÉÊÑ´¹¤Ë¤Ä¤¤¤Æ¤Ï¥æ¡¼¥¶¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ËǤ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ ________________________ Ãí°Õ ________________________ IBM/DEC´Ö¤Î¥³¡¼¥ÉÊÑ´¹¥ë¡¼¥Á¥ó¤È¤·¤ÆÆüËܸìOpenVMS¤Î¥é¥¤ ¥Ö¥é¥ê¡¦ ¥ë¡¼¥Á¥ó¤òÍøÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ______________________________________________________ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-7 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.1¤Ï¤¸¤á¤Ë »²¾Èʸ¸¥ - ÆüËܸìOpenVMSÆüËܸì¥æ¡¼¥Æ¥£¥ê¥Æ¥£ÍøÍѼԤμê°ú¤­ 1-8 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ _________________________________________________________________ 1.2 ÆüËܸìDSPIÍøÍѤμê°ú¤­ ³ÈÄ¥DS UTL¤Ï¡¤¼¡¤Î4¤Ä¤Î¥ë¡¼¥Á¥ó¤«¤é¤Ê¤ë¥µ¥Ö¥ë¡¼¥Á¥ó·²¤Ç¤¹¡£ ¤³¤ì¤é¤ÏDSPI¤È¶¦¤ËÍѤ¤¤ë¤³¤È¤òÁ°Äó¤È¤·¤Æ¤ª¤ê¤Þ¤¹¡£¡§ o EXSNA3270$RECEIVE_SCREEN(_W) o EXSNA3270$READ_FIELD o EXSNA3270$WRITE_FIELD o EXSNA3270$TRANSMIT_SCREEN(_W) ¿Þ 1-3¤Ï¡¤DSPI¤È³ÈÄ¥DS UTL¤Î³Æ¥ë¡¼¥Á¥ó¤¬¡¤¤É¤Î¤è¤¦¤Ê½èÍý¥Õ ¥í¡¼¤Ç¥³¡¼¥ë¤µ¤ì¤ë¤«¤ò¼¨¤·¤¿¤â¤Î¤Ç¤¹¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-9 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ¿Þ 1-3 ½èÍý¥Õ¥í¡¼ 1-10 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ 1.2.1 ¥»¥Ã¥·¥ç¥ó¤Î³ÎΩ IBM¥Û¥¹¥È¤ÈLU-LU¥¿¥¤¥×2¤Î¥»¥Ã¥·¥ç¥ó¤ò³ÎΩ¤¹¤ë¤¿¤á¤Ë¤Ï¡¤DSPI ¤ÎSNA3270$REQUEST_CONNECT ¤ò¥³¡¼¥ë¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£¤³¤Î ºÝ¡¤Àܳ¥â¡¼¥É¤Ï¥Õ¥£¡¼¥ë¥É¡¦¥â¡¼¥É¤ÇSDB¤òɬ¤º»ØÄꤷ¤Æ¤¯¤À¤µ ¤¤¡£Â¾¤Î¥Ñ¥é¥á¡¼¥¿¤Ë¤Ä¤¤¤Æ¤Ï¡¤¥Õ¥£¡¼¥ë¥É¡¦¥â¡¼¥É¤Î¤¿¤á¤Î¥ë ¡¼¥Á¥ó¤ò»ÈÍѤ¹¤ëɬÍפ˱þ¤¸¤Æ»ØÄꤷ¤Æ¤¯¤À¤µ¤¤¡£ 1.2.2 ¥æ¡¼¥¶¤¬ÍÑ°Õ¤¹¤ë¤Ù¤­¥Ö¥í¥Ã¥¯¡¤¥Ù¥¯¥¿¹½Â¤ ³ÈÄ¥DS UTL¤ò»ÈÍѤ¹¤ëVMS¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ï¤¤¤¯¤Ä¤«¤Î¥Ö¥í ¥Ã¥¯¹½Â¤¤òÍÑ°Õ¤·°Ý»ý¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£¤³¤ì¤é¤Ï¡¤DSPI¥Õ ¥£¡¼¥ë¥É¡¦¥â¡¼¥É¤ÎÄÌ¿®¤Ë¤ª¤¤¤Æ»ÈÍѤµ¤ì¤ë¤â¤Î¤ËƱ°ì¤Þ¤¿¤ÏÎà »÷¤·¤¿¤â¤Î¤Ç¤¹¡£°Ê²¼¤Ë¤½¤ì¤é¤Ë¤Ä¤¤¤Æ¤ÎÀâÌÀ¤ò¤·¤Þ¤¹¡£¤Ê¤ª¤³ ¤ì¤é¤Î¥Ö¥í¥Ã¥¯¤ª¤è¤Ó¥Ù¥¯¥¿¤ò»²¾È¤¹¤ë¤¿¤á¤Î¥×¥ê¥Õ¥£¥Ã¥¯¥¹¤¬ EX3270$¤Î¥·¥ó¥Ü¥ë¤ÏSYS$LIBRARY¤Î¼¡¤Î¥Õ¥¡¥¤¥ë¤ÎÃæ¤ÇÄêµÁ¤µ¤ì ¤Æ¤¤¤Þ¤¹¡£ o EX3270DF.FOR (FORTRAN) o EX3270DF.H ( C ) o EX3270DF.MAR (MACRO) o EX3270DF.PAS (PASCAL) o EX3270DF.R32 (BLISS) 1.2.2.1 CHARACTER VECTOR character vector¤Ï¡¤3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤È¤·¤Æ »ÈÍѤ¹¤ë¤â¤Î¤Ç¤¹¡£¤³¤ÎÃæ¤Ë¤Ï¡¤EBCDIC¥³¡¼¥É¤Ê¤é¤Ó¤ËIBM ´Á»ú¥³¡¼¥É¤¬Æþ¤ê¤Þ¤¹¡£¥æ¡¼¥¶¤Ï¡¤EXSNA3270$WRITE_FIELD¡¤ EXSNA3270$READ_FIELD¤Ë¤è¤êcharacter vector¤Ë¥Ç¡¼¥¿¤ò½ñ¹þ ¤ó¤À¤ê¡¤Æɤ߼è¤Ã¤¿¤ê¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£vector address¤Ï¡¤ ¤½¤ì¤ËÂбþ¤¹¤ëʸ»ú¤¬¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¾å¤Î¤É¤³¤Ë°ÌÃÖ¤¹ ¤ë¤«¤òɽ¤·¤Æ¤¤¤Þ¤¹¡£character vector¤Ï¡¤DSPI¤Î¥Õ¥£¡¼¥ë¥É¡¦ ¥â¡¼¥É¤Ë¤è¤Ã¤Æ»ÈÍѤµ¤ì¤ë¤â¤Î¤ÈƱ¤¸¹½Â¤¤Ç¤¹¡£¾Ü¤·¤¤¾ðÊó¤Ï¡¤ 3270DSPI¤Î¥Þ¥Ë¥å¥¢¥ë¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-11 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ________________________ Ãí°Õ ________________________ ¥¹¥¯¥ê¡¼¥ó¾å¤Îʸ»ú°ÌÃ֤ϡ¤Ä̾ïrow¤Ècolumn¤Ë¤è¤Ã¤Æɽ¸½ ¤µ¤ì ¤Þ¤¹¡£°Ê²¼¤Ëvector address¤Èrow¡¤column¤Î´Ø·¸¤ò¼¨ ¤·¤Þ¤¹¡£ i = c(x - 1) + (y - 1) i : vector address c : number of columns in the display x : column y : row ______________________________________________________ 1.2.2.2 ATTRIBUTE VECTOR attribute vector¤Ï¡¤DSPI¤Î¥Õ¥£¡¼¥ë¥É¡¦¥â¡¼¥É¤Ç¤Î¥»¥Ã¥·¥ç¥ó ¤ò¹Ô¤¦ºÝ¤Ë»ÈÍѤ¹¤ë¤â¤Î¤ÈƱ¤¸¹½Â¤¤Î¤â¤Î¤Ç¤¹¡£¾Ü¤·¤¤¾ðÊó¤Ï¡¤ 3270DSPI¤Î¥Þ¥Ë¥å¥¢¥ë¤ò¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ 1.2.2.3 EXTENDED ATTRIBUTE VECTOR extended attribute vector¤Ï¡¤3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î³È ĥ°À­¤Î¾ðÊó¤òÊÝ»ý¤¹¤ë¤¿¤á¤ÎÎΰè¤Ç¤¹¡£¤³¤Îvector¤Ï¡¤1¤Ä¤Î Í×ÁǤ¬4¥Ð¥¤¥È¤ÎÂ礭¤µ¤Î¥Þ¥¹¥¯¤È¤Ê¤Ã¤Æ¤¤¤ëÇÛÎó¹½Â¤¤Çvector address¤Ï¡¤¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¾å¤Î¥¢¥É¥ì¥¹¤ËÂбþ¤·¤Æ¤¤¤Þ ¤¹¡£¿Þ 1-4¤Ëvector¹½Â¤¤ò¼¨¤·¤Þ¤¹¡£ ¿Þ 1-4 EXTENDED ATTRIBUTE VECTOR 1-12 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ »²¾È¤·¤¿¤¤¥Õ¥£¡¼¥ë¥É¤¬¡¤¤É¤Î¤è¤¦¤Ê°À­¤ò»ý¤Ã¤Æ¤¤¤ë¤«¤òÄ´¤Ù ¤ë¤¿¤á¤Ë¥æ¡¼¥¶¤Ï¡¤¼¡¤Î¤è¤¦¤Ê¥·¥ó¥Ü¥ë¤ò»ÈÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ ¤¹¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-13 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ 1-14 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ___________________________________________________________ Symbol_______________________________Meaning_______________ (³ÈÄ¥¶¯Ä´Â°À­) EX3270$M_ATTR_CHATR_DEFAULT ¾Êά»þ²ò¼á EX3270$M_ATTR_CHATR_BLINK ÌÀÌÇ EX3270$M_ATTR_CHATR_REVERSE ȿžɽ¼¨ EX3270$M_ATTR_CHATR_UNDRLIN ²¼Àþ (³ÈÄ¥¥«¥é¡¼) EX3270$M_ATTR_COLOR_DEFAULT ¾Êά»þ²ò¼á EX3270$M_ATTR_COLOR_BLUE ÀÄ EX3270$M_ATTR_COLOR_RED ÀÖ EX3270$M_ATTR_COLOR_PINK ¥Ô¥ó¥¯ EX3270$M_ATTR_COLOR_GREEN ÎÐ EX3270$M_ATTR_COLOR_SKY ¶õ¿§ EX3270$M_ATTR_COLOR_YELLOW ²«¿§ EX3270$M_ATTR_COLOR_WHITE Çò (ʸ»ú¥»¥Ã¥È) EX3270$M_ATTR_CHARSET_KANJI ´Á»ú (´Á»úÆþÎϲÄǽ) EX3270$M_ATTR_KANJI_OK ´Á»úÆþÎϲÄǽ ¥æ·ÓÀþ°À­¡¦¥¬¥¤¥É 1-15 EX3270$M_ATTR_KEISEN_LEFT º¸Â¦·ÓÀþ EX3270$M_ATTR_KEISEN_UPPER ¾å¦·ÓÀþ EX3270$M_ATTR_KEISEN_RIGHT ±¦Â¦·ÓÀþ EX3270$M_ATTR_KEISEN_UNDER___________²¼Â¦·ÓÀþ______________ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ¼¡¤Ë¤¢¤²¤ë¤Î¤Ï¡¤Extended Attribute Vector¤Ë¤Ä¤¤¤Æ¤ÎFORTRAN ¤Ç¤Î»ÈÍÑÎã¤Ç¤¹¡£ (Îã) C Example of the use of Extended Attribute Vector INTEGER*4 SCREEN_SIZE ! Define screen size PARAMETER (SCREEN_SIZE = 1921) INTEGER*2 ATTR_VECTOR(SCREEN_SIZE) ! Attr. vec. INTEGER*4 EX_ATTR_VECTOR(SCREEN_SIZE) ! Extended attr. vec. INTEGER*4 ATTR_PTR ! Attribute position pointer . . . . C C ATTR_PTR is supposed to point a certain attribute chatacter position C in the 3270 screen buffer. C See if this field has the kanji character set attribute or not. C IF ( EXATTR_VECTOR(ATTR_PTR) .AND. EX3270$M_ATTR_CHARSET_KANJI ) THEN TYPE *, 'This field is a Kanji field' END IF 1.2.2.4 FIELD VECTOR field vector¤Ï¡¤²èÌÌ¥µ¥¤¥º¤è¤êÂ礭¤Ê¥Ó¥Ã¥È¡¦¥ì¥ó¥°¥¹(Î㤨¤Ð 1921 bits)¤ò»ý¤Ä¥Ó¥Ã¥È¡¦¥Þ¥Ã¥×¤Ç¡¤¿Þ 1-5¤Ë¼¨¤¹¤è¤¦¤Ê¹½Â¤¤Ç ¤¹¡£ ¿Þ 1-5 FIELD VECTOR 1-16 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ 1.2.3 SCREEN DESCRIPTOR BLOCK SDB¤Ï¡¤DSPI¤Î¥Õ¥£¡¼¥ë¥É¡¦¥â¡¼¥É¤Î¥»¥Ã¥·¥ç¥ó¤ò¹Ô¤¦ºÝ¤Ë»ÈÍѤµ ¤ì¤ë¤â¤Î¤ÈƱ¤¸¹½Â¤¤òÍ­¤¹¤ë¤â¤Î¤Ç¤¹¡£¾Ü¤·¤¤¾ðÊó¤Ï¡¤3270DSPI ¤Î¥Þ¥Ë¥å¥¢¥ë¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ________________________ Ãí°Õ ________________________ SDB¤Î½é´üÃͤòÀßÄꤹ¤ë¤¿¤á¤ËSNA3270$REQUEST_CONNECT¤ò»È ÍѤ¹ ¤ëºÝ¡¤¥Õ¥£¡¼¥ë¥É¡¦¥â¡¼¥É¤Ç¡¤SDB¤òɬ¤º»ØÄꤷ¤Æ¤¯¤À ¤µ¤¤¡£ ______________________________________________________ 1.2.4 FIELD DESCRIPTOR BLOCK FDB¤Ï¡¤DSPI¤Î¥Õ¥£¡¼¥ë¥É¡¦¥â¡¼¥É¤Î¥»¥Ã¥·¥ç¥ó¤ò¹Ô¤¦ºÝ¤Ë»ÈÍѤµ ¤ì¤ë¤â¤Î¤ÈƱ¤¸¹½Â¤¤òÍ­¤¹¤ë¤â¤Î¤Ç¤¹¡£¾Ü¤·¤¤¾ðÊó¤Ï¡¤3270DSPI ¤Î¥Þ¥Ë¥å¥¢¥ë¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ 1.2.5 EXTENDED FIELD DESCRIPTOR BLOCK ³ÈÄ¥DS UTL¤Ç»ÈÍѤµ¤ì¤ëExtended FDB¤Ï¡¤¿Þ 1-6¤Ë¼¨¤¹¤è¤¦¤Ê¹½ ¤¤òÍ­¤¹¤ë¤â¤Î¤Ç¤¹¡£ ¿Þ 1-6 EXTENDED FDB ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-17 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ Extended FDB¤Î¤¿¤á¤Ë¼¡¤Î¤è¤¦¤Ê¥·¥ó¥Ü¥ë¤¬ÍÑ°Õ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ ___________________________________________________________ Position Field_Name__(byte)_Symbol________________Input/Output______ Requested 0-3 EX3270$L_FDB_EXATT_ Input to READ_ extended VALUE FIELD attributes value Requested 4-7 EX3270$L_FDB_EXATT_ Input to READ_ extended MASK FIELD attributes mask Actual 8-11 EX3270$L_FDB_FLD_ Output from READ_ extended EXATTR FIELD,WRITE_FIELD attributes Reserved 12-15 for the futher_____________________________________________________ 1-18 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ¤³¤ì¤é¤Î¥Õ¥£¡¼¥ë¥É¤Ë¤Ï¡¤¤½¤ì¤¾¤ì¼¡¤Î¤è¤¦¤Ê¥·¥ó¥Ü¥ë¤¬»ÈÍÑ¤Ç ¤­¤Þ¤¹¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-19 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ 1-20 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ___________________________________________________________ Symbol_______________________________Meaning_______________ (³ÈÄ¥¶¯Ä´Â°À­) EX3270$M_ATTR_CHATR_DEFAULT ¾Êά»þ²ò¼á EX3270$M_ATTR_CHATR_BLINK ÌÀÌÇ EX3270$M_ATTR_CHATR_REVERSE ȿžɽ¼¨ EX3270$M_ATTR_CHATR_UNDRLIN ²¼Àþ (³ÈÄ¥¥«¥é¡¼) EX3270$M_ATTR_COLOR_DEFAULT ¾Êά»þ²ò¼á EX3270$M_ATTR_COLOR_BLUE ÀÄ EX3270$M_ATTR_COLOR_RED ÀÖ EX3270$M_ATTR_COLOR_PINK ¥Ô¥ó¥¯ EX3270$M_ATTR_COLOR_GREEN ÎÐ EX3270$M_ATTR_COLOR_SKY ¶õ¿§ EX3270$M_ATTR_COLOR_YELLOW ²«¿§ EX3270$M_ATTR_COLOR_WHITE Çò (ʸ»ú¥»¥Ã¥È) EX3270$M_ATTR_CHARSET_KANJI ´Á»ú (´Á»úÆþÎϲÄǽ) EX3270$M_ATTR_KANJI_OK ´Á»úÆþÎϲÄǽ ¥æ·ÓÀþ°À­¡¦¥¬¥¤¥É 1-21 EX3270$M_ATTR_KEISEN_LEFT º¸Â¦·ÓÀþ EX3270$M_ATTR_KEISEN_UPPER ¾å¦·ÓÀþ EX3270$M_ATTR_KEISEN_RIGHT ±¦Â¦·ÓÀþ EX3270$M_ATTR_KEISEN_UNDER___________²¼Â¦·ÓÀþ______________ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ o Requested extended attributes value : ¤³¤Î¥Õ¥£¡¼¥ë¥É¤Ï¡¤Requested extended attributes mask¤È ¶¦¤Ë »ÈÍѤµ¤ì¤Þ¤¹¡£Requested extended attributes mask ¤Ç»ØÄꤵ¤ì¤¿ ³Èĥ°À­¤¬active¤Ç¤¢¤ë¥Õ¥£¡¼¥ë¥É¤òREAD¡¤ SEARCH¤ÎÂÐ¾Ý¤È ¤¹¤ë¤«inactive¤Î¥Õ¥£¡¼¥ë¥É¤ò¤½¤ÎÂÐ¾Ý¤È ¤¹¤ë¤«¤ò¼¨¤¹¤â¤Î¤Ç¤¹¡£ o Requested extended attributes mask : ¤³¤Î¥Õ¥£¡¼¥ë¥É¤Ï¡¤Requested extended attributes value ¤È¶¦¤Ë »ÈÍѤµ¤ì¤Þ¤¹¡£EXSNA3270$READ_FIELD¤ÇREAD¤Þ¤¿ ¤ÏSEARCH¤¹¤ëºÝ¤Ë ¤½¤ÎÂоݤȤʤë³Èĥ°À­¤òEXSNA3270$M_ ATTR_xxx¤Î¥·¥ó¥Ü¥ë¤Ç»ØÄꤷ¤Þ¤¹¡£ Î㤨¤Ð´Á»ú¥Õ¥£¡¼¥ë¥É¤Ç¤«¤Ä³ÈÄ¥¥«¥é¡¼¤ÎÎп§¤Î°À­¤ò»ý¤Ã ¤¿¥Õ¥£¡¼¥ë¥É¤ò ¼è¤ê¹þ¤ß¤¿¤¤¾ì¹ç¤Ï¡¤¼¡¤Î¤è¤¦¤Ë»ØÄꤷ¤Þ ¤¹¡£ (Îã) FORTRAN RECORD /EX3270_FDB/ EXFDB EXFDB.EX3270$L_FDB_EXATT_MASK = EX3270$M_ATTR_CHARSET_KANJI + 1 EX3270$M_ATTR_COLOR_GREEN EXFDB.EX3270$L_FDB_EXATT_VALUE = EX3270$M_ATTR_CHARSET_KANJI + 1 EX3270$M_ATTR_COLOR_GREEN ¤Þ¤¿±Ñ¿ô¥«¥Ê¡¦¥Õ¥£¡¼¥ë¥É¤Ç¤«¤Ä´Á»úÆþÎϲÄǽ¤Î°À­¤ò»ý¤Ã ¤¿¥Õ¥£¡¼¥ë¥É¤ò ¼è¤ê¹þ¤ß¤¿¤¤¾ì¹ç¤Ï¡¤¼¡¤Î¤è¤¦¤Ë»ØÄꤷ¤Þ ¤¹¡£ (Îã) FORTRAN RECORD /EX3270_FDB/ EXFDB EXFDB.EX3270$L_FDB_EXATT_MASK = EX3270$M_ATTR_KANJI_OK + 1 EX3270$M_ATTR_KANJI_CHARSET EXFDB.EX3270$L_FDB_EXATT_VALUE = EX3270$M_ATTR_KANJI_OK o Actual extended attributes : Æɤ߽ñ¤­¤·¤¿¥Õ¥£¡¼¥ë¥É¤Î¼ÂºÝ¤Î³Èĥ°À­Ãͤ¬¼¨¤µ¤ì¤Þ¤¹¡£ Extended FDB¤Î»ØÄê¤Ë¤è¤êÆɤ߹þ¤ß¤Þ¤¿¤Ï¸¡º÷¤¬¹Ô¤Ê¤ï¤ì¤¿·ë²Ì ¤ÏFDB¤Ë¤âÈ¿±Ç¤µ¤ì¤Þ¤¹¡£ 1-22 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ 1.2.6 3270¥¹¥¯¥ê¡¼¥ó¡¦¥¤¥á¡¼¥¸¤Î¼õ¿® 3270¥¹¥¯¥ê¡¼¥ó¡¦¥¤¥á¡¼¥¸¤Î¼õ¿®¤Ë¤ÏEXSNA3270$RECEIVE_SCREEN ¤ò»ÈÍѤ·¤Þ¤¹¡£¤³¤Î¥ë¡¼¥Á¥ó¤Ï¡¤IBM¥Û¥¹¥È¤«¤é¤Î3270¥Ç¡¼¥¿¡¦ ¥¹¥È¥ê¡¼¥à¤ò¼õ¤±¼è¤ê²òÀϤ·°Ê²¼¤Î¥Ö¥í¥Ã¥¯¡¤¥Ù¥¯¥¿¤ò¹¹¿·¤·¤Þ ¤¹¡£ o CHARACTER VECTOR o ATTRIBUTE VECTOR o FIELD VECTOR o SCREEN DESCRIPTOR BLOCK o EXTENDED ATTRIBUTE VECTOR ¤Þ¤¿EXSNA3270$RECEIVE_SCREEN¤Ï¡¤¼¡¤«¤éÀâÌÀ¤µ¤ì¤Æ¤¤¤ë¤è¤¦¤Ê µ¡Ç½¤ò»ý¤Ã¤Æ¤¤¤Þ¤¹¡£ 1.2.6.1 ¼õ¿®¥Ð¥Ã¥Õ¥¡¤ÎALLOCATION/DEALLOCATION IBM¥Û¥¹¥È¤«¤é¤Î3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤ò¼õ¤±¼è¤ë¤¿¤á¤Î¼õ¿®¥Ð ¥Ã¥Õ¥¡¤ÎALLOCATION/DEALLOCATION¤Ï¡¤EXSNA3270$RECEIVE_SCREEN ¥ë¡¼¥Á¥óÆâ¤Ç¹Ô¤Ê¤ï¤ì¤Þ¤¹¡£1²ó¤Î¼õ¿®¤Î¤¿¤á¤Î¼õ¿®¥Ð¥Ã¥Õ¥¡¡¦¥µ ¥¤¥º¤Î¥Ç¥£¥Õ¥©¥ë¥È¤Ï¡¤1920¥Ð¥¤¥È¤Ç¤¹¡£¼õ¿®¥Ð¥Ã¥Õ¥¡¡¦¥µ¥¤¥º ¤ÎÃͤϤ³¤Î¥ë¡¼¥Á¥ó¤Î°ú¿ô¤Ç¤¢¤ëread-segment-size¤Ë¤è¤Ã¤Æ»ØÄê ²Äǽ¤Ç¤¹¡£ 1.2.6.2 ¹ÎÄê¡¿ÈÝÄê±þÅú¤ÎÁ÷¿® IBM¥Û¥¹¥È¤«¤é¼õ¿®¤·¤¿1RU¤´¤È¤ËɬÍפ˱þ¤¸¤Æ¹ÎÄê¤Þ¤¿¤ÏÈÝÄê±þ Åú¤ò¥Û¥¹¥È¤ËÁ÷¿®¤·¤Þ¤¹¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-23 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ 1.2.6.3 ¹½Â¤²½¥Õ¥£¡¼¥ë¥É¤Î½èÍý EXSNA3270$RECEIVE_SCREEN¤Ï¡¤¼¡¤ÎIBM¥Û¥¹¥È¤«¤é¤Î¹½Â¤²½¥Õ¥£¡¼ ¥ë¥É¤ËÂФ·¤Æ°Ê²¼¤Î¤è¤¦¤Ê½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£¡§ o Read Partition (¶èʬÆɤ߼è¤ê¡Ë ¤³¤Î¹½Â¤²½¥Õ¥£¡¼¥ë¥É¤Ë ÂФ·¤Æ¼¡¤Î¤è¤¦¤ÊQuery Reply (¾È²ñ±þÅú)¹½Â¤²½ ¥Õ¥£¡¼¥ë ¥É¤òIBM¥Û¥¹¥È¤ËÊÖ¤·¤Þ¤¹¡£ Usable Area (»ÈÍѲÄǽ°è) X'001781810100005000180001' X'00020009000200090D1D0780' Character Set (ʸ»ú¥»¥Ã¥È) X'002381858E00' X'0C18000000000B' X'00000000000000014C0122' X'8020F81818417F0172012C' Color (¥«¥é¡¼¡§Ê¸»ú¥â¡¼¥É) X'00168186000800F4F1F1F2F2F3F3F4F4F5F5F6F6F7F7' Highlighting (¶¯Ä´É½¼¨) X'000D81870400F0F1F0F2F2F4F4' Reply Mode (±þÅú¥â¡¼¥É) X'00078188000102' DBCS-Asia (SO/SIÀ¸À®²Äǽ¾ðÊó) X'000B819100030180030201' o Set Reply Mode Read Buffer»ØÎá¤ËÂФ¹¤ë¥¤¥ó¥Ð¥¦¥ó ¥É¡¦¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î·Á¼°¤Ï¡¤±þÅú ¥â¡¼¥É(Reply Mode)¤Ë¤è¤Ã¤ÆÄê¤Þ¤ê¤Þ¤¹¡£Reply Mode¤Î°Ý»ý´ÉÍý¤Ï¡¤ EXSNA3270$RECEIVE_SCREEN¤Ë¤è¤Ã¤Æ¹Ô¤Ê¤ï¤ì¤Þ¤¹¡£¹½Â¤²½¥Õ ¥£¡¼¥ë¥É Set Reply Mode¤ò¼õ¤±¼è¤ë¤È¤½¤ì¤Ë±þ¤¸¤¿Reply Mode¤Ë¥»¥Ã¥È¤·¤Þ¤¹¡£ ¤Þ¤¿¤³¤ÎReply Mode¤Ï¡¤WCC¤Ë¤è¤Ã¤Æ ¥ê¥»¥Ã¥È¤µ¤ì¤ë¤³¤È¤â¤¢¤ê¤Þ¤¹¡£ o ¤½¤Î¾¤Î¹½Â¤²½¥Õ¥£¡¼¥ë¥É ¤½¤Î¾¤Î¹½Â¤²½¥Õ¥£¡¼¥ë¥É¤Ë¤Ä ¤¤¤Æ¤Ï¡¤EXSNA3270$RECEIVE_SCREEN¤Ï ²¿¤â½èÍý¤ò¹Ô¤ï¤º¼õ ¤±¼è¤Ã¤¿¥Ç¡¼¥¿¤ÏÇË´þ¤µ¤ì¤Þ¤¹¡£ 1-24 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ¹½Â¤²½¥Õ¥£¡¼¥ë¥É¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¤IBM 3270´Á»ú¥Ç¡¼¥¿¡¦¥¹¥È ¥ê¡¼¥à¤Î¥Þ¥Ë¥å¥¢¥ë¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ 1.2.6.4 ¥¨¥é¡¼¸¡ÃΤȤ½¤Î½èÍý EXSNA3270$RECEIVE_SCREEN¤Ï¡¤°Ê²¼¤Î¤è¤¦¤Ê´ð½à¤Î¤â¤È¤Ë¤ª¤¤¤Æ ¸¡ÃΤ·¤¿¥¨¥é¡¼½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£¡§ o ¡É¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Ê¤¤3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î¥×¥í¥È¥³¥ë ¤ò¼õ¿®¤·¤¿¾ì¹ç ¤½¤ì¤é¤Ë´Ø¤¹¤ë¾ðÊó¤Ë¤Ä¤¤¤Æ¤¹¤Ù¤Æ̵»ë¤¹ ¤ë·Á¤ò¼è¤ê¥¨¥é¡¼¤ò¼¨¤¹¥»¥ó¥¹¡¦ ¥³¡¼¥É¤Ï¥Û¥¹¥È¤ËÁ÷¿®¤µ ¤ì¤Þ¤»¤ó¡£¤³¤ì¤é¤Î¥Ç¡¼¥¿¤Ï¤¹¤Ù¤Æ¥×¥í¥°¥é¥àÆâ¤Ç ÇË´þ¤µ ¤ì¥æ¡¼¥¶¤¬¤½¤ì¤é¤ò»²¾È¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-25 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ɽ 1-1 ǧ¼±(¥µ¥Ý¡¼¥È)¤¹¤ë¤â¤Î¤È¤·¤Ê¤¤¤â¤Î°ìÍ÷ɽ ___________________________________________________________ ¹à_ÌÜ____________ǧ¼±¤¹¤ë¤â¤Î_____ǧ¼±¤·¤Ê¤¤¤â¤Î___________ 3270 DS»ØÎá Write¡¤Erase /Write¡¤ Erase/Write Alternate¡¤ Erase All Unprotected¡¤ Read Modified¡¤ Read Modified All¡¤ Read Buffer¡¤ Write Structured Field 3270 DSÉû»ØÎá Start Field¡¤ Set Attribute Start Field Extended¡¤ Modify Field¡¤ Set Buffer Address¡¤ Insert Cursor¡¤ Program Tab¡¤ ___________________________________________________________ (¼¡¥Ú¡¼¥¸¤Ë³¤¯) 1-26 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ɽ 1-1 (³¤­) ǧ¼±(¥µ¥Ý¡¼¥È)¤¹¤ë¤â¤Î¤È¤·¤Ê¤¤¤â¤Î°ìÍ÷ɽ ___________________________________________________________ ¹à_ÌÜ____________ǧ¼±¤¹¤ë¤â¤Î_____ǧ¼±¤·¤Ê¤¤¤â¤Î___________ Repeat to Address¡¤ Erase Unprotected to Address SFEÉû»ØÎá¤Ç»ØÄê ´ðËÜ°À­¡¤ Æ©²á°À­ ¤µ¤ì¤ë°À­ ³ÈÄ¥¶¯Ä´Â°À­¡¤ ³ÈÄ¥¥«¥é¡¼Â° À­¡¤ ʸ»ú¥»¥Ã¥È° À­¡¤ ´Á»úÆþÎϲÄǽ° À­ ·ÓÀþ°À­ WSF»ØÎá¤Ç»ØÄꤵ Read Erase/Reset¡¤ ¤ì¤ë¹½Â¤²½¥Õ¥£ Partition¡¤ ¡¼¥ë¥É Set Reply Mode Create Partition¡¤ File Trasfer¡¤ ___________________________________________________________ (¼¡¥Ú¡¼¥¸¤Ë³¤¯) ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-27 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ɽ 1-1 (³¤­) ǧ¼±(¥µ¥Ý¡¼¥È)¤¹¤ë¤â¤Î¤È¤·¤Ê¤¤¤â¤Î°ìÍ÷ɽ ___________________________________________________________ ¹à_ÌÜ____________ǧ¼±¤¹¤ë¤â¤Î_____ǧ¼±¤·¤Ê¤¤¤â¤Î___________ Graphic Data¡¤ Graphic Picture¡¤ Graphic Control¡¤ Destination/Origin, OEM data¡¤ __________________________________Outbound_3270_DS¡¤_______ 1-28 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ o ¥»¥ó¥¹¡¦¥³¡¼¥É¤ÎÁ÷¿® EXSNA3270$RECEIVE_SCREEN¤Ï¡¤¼¡¤Î¤è¤¦¤Ê 3270¥Ç¡¼¥¿¡¦¥¹ ¥È¥ê¡¼¥à¤Î ¥¨¥é¡¼¤ò¸¡ÃΤ·¤¿¾ì¹ç¡¤ÈÝÄê±þÅú¤È¤È¤â¤Ë¼¡¤Î ¤è¤¦¤Ê¥»¥ó¥¹¡¦¥³¡¼¥É¤ò IBM¥Û¥¹¥È¤ËÁ÷¿®¤·¤Þ¤¹¡£¡§ o X'1003' o ̵¸ú¤Ê»ØÎᥳ¡¼¥É¤ò¸¡ÃΤ·¤¿¾ì¹ç o ̤Äê¤ÎÀ©¸æ¥³¡¼¥É¤ò¸¡ÃΤ·¤¿¾ì¹ç o X'1005' o SBA¡¤RA¡¤¤Þ¤¿¤ÏEUAÉû»ØÎá¤Ë³¤¯¥Ð¥Ã¥Õ¥¡¡¼¡¦¥¢¥É ¥ì¥¹¤¬¡¤ ¥Ð¥Ã¥Õ¥¡¡¼¡¦¥µ¥¤¥º¤òĶ¤¨¤Æ¤¤¤ë¾ì¹ç o SBA¡¤RA¡¤¤Þ¤¿¤ÏEUAÉû»ØÎá¤Ë³¤¯¥Ð¥Ã¥Õ¥¡¡¼¡¦¥¢¥É ¥ì¥¹¤ÎÂè 1¥Ð¥¤¥È¤Î¥Ó¥Ã¥È0¡¤1¤¬¡Ö10¡×¤Î¾ì¹ç o MFÉû»ØÎá¤ò¼õ¤±¼è¤Ã¤¿¤È¤­¤Î¸½¥Ð¥Ã¥Õ¥¡¡¼¡¦¥¢¥É¥ì ¥¹¤¬¡¤Â°À­ ʸ»ú¤Î°ÌÃ֤Ǥʤ¤¾ì¹ç o ¥Ñ¥é¥á¡¼¥¿¤òȼ¤¦Éû»ØÎá¤ò¼õ¤±¼è¤Ã¤¿¤È¤­¡¤¥Ñ¥é¥á ¡¼¥¿¤ÎÅÓÃæ ¤Ç¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤¬½ª¤ï¤Ã¤¿¾ì¹ç o Read Partition-Query¹½Â¤²½¥Õ¥£¡¼¥ë¥É¤Î¥Ð¥¤¥È3 ¤¬ X'FF'°Ê³°¤Î¾ì¹ç o Set Reply Mode¹½Â¤²½¥Õ¥£¡¼¥ë¥É¤Î¥Ð¥¤¥È3¤¬X'00' °Ê³°¤Î ¾ì¹ç o X'0863' o SFE¤äMFÉû»ØÎá¤Ë¤ª¤¤¤Æ¡¤Â°À­¤Î¥¿¥¤¥×¤¬X'43'¤Î¤È ¤­¡¤¤½ ¤Î°À­¤ÎÃͤ¬X'00'¡¤X'F8'¡¤X'FF'¤Î¤¤¤º¤ì ¤Ç¤â¤Ê¤¤¾ì¹ç o X'0829' o Read Partition-Query¹½Â¤²½¥Õ¥£¡¼¥ë¥É¤ò´Þ¤àSNA ¤ÎÏ¢º¿¤Ç¡¤ Êý¸þÊÑ´¹¤¬¼¨¤µ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç o ¡É³ÈÄ¥DS UTL¤¬»ÈÍѤ·¤Æ¤¤¤ëDSPI¥ë¡¼¥Á¥ó¡¤¥·¥¹¥Æ¥à¡¦¥ë¡¼ ¥Á¥ó¤«¤é¥¨¥é¡¼ ¤¬ÊÖ¤µ¤ì¤¿¾ì¹ç DSPI¥ë¡¼¥Á¥óµÚ¤Ó¥·¥¹¥Æ¥à¡¦¥ë¡¼¥Á¥ó¤«¤é¥¨¥é¡¼¡¦¥³¡¼¥É¤¬ ÊÖ¤µ¤ì¤¿¾ì¹ç¡¤ ¤Þ¤ÀÀ©¸æ¤¬¸Æ¤Ó¸µ¤Î¥×¥í¥°¥é¥à¤ËÅϤµ¤ì¤Æ ¤¤¤Ê¤¤¾ì¹ç¤Ï¡¤¤½¤Î¥¨¥é¡¼¡¦¥³¡¼ ¥É¤ò¥ê¥¿¡¼¥ó¡¦¥¹¥Æ¡¼¥¿ ¥¹¤È¤·¤Æ¸Æ¤Ó¸µ¤Î¥×¥í¥°¥é¥à¤Ë¥ê¥¿¡¼¥ó¤·¤Þ¤¹¡£¤¹ ¤Ç¤ËÀ© ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-29 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ¸æ¤¬¸Æ¤Ó¸µ¤Î¥×¥í¥°¥é¥à¤ËÅϤäƤ¤¤ë¾ì¹ç¤Ï¡¤¥¹¥Æ¡¼¥¿¥¹¡¦ ¥Ù¥¯¥¿¤Ë ¤½¤Î¥¨¥é¡¼¤Î»Ý¤ò¹ð¤²¤ë¥³¡¼¥É¤ò¥»¥Ã¥È¤·¤Þ¤¹¡£ 1.2.7 3270¥¹¥¯¥ê¡¼¥ó¡¦¥¤¥á¡¼¥¸¤ÎÁ÷¿® 3270¥¹¥¯¥ê¡¼¥ó¡¦¥¤¥á¡¼¥¸¤ÎÁ÷¿®¤Ë¤ÏEXSNA3270$TRANSMIT_SCREEN ¤ò»ÈÍѤ·¤Þ¤¹¡£¤³¤Î¥ë¡¼¥Á¥ó¤Ï¡¤IBM¥Û¥¹¥È¤Ë¸½ºß¤Î¥¹¥¯¥ê¡¼¥ó¡¦ ¥Ð¥Ã¥Õ¥¡(character vector)¤ÎÆâÍƤò3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î ·Á¼°¤ËÊÑ´¹¤·Á÷¿®¤¹¤ë¤â¤Î¤Ç¤¹¡£ 1.2.7.1 Á÷¿®¥Ð¥Ã¥Õ¥¡¤ÎALLOCATE/DEALLOCATE IBM¥Û¥¹¥È¤Ø¤Î3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤òÁ÷¿®¤¹¤ë¤¿¤á¤Î¥Ð¥Ã¥Õ¥¡ ¤ÎALLOCATION/DEALLOCATION¤Ï¡¤EXSNA3270$TRANSMIT_SCREEN¥ë¡¼ ¥Á¥óÆâ¤Ç¹Ô¤Ê¤ï¤ì¤Þ¤¹¡£1²ó¤ÎÁ÷¿®¤Î¤¿¤á¤Î¥Ð¥Ã¥Õ¥¡¡¦¥µ¥¤¥º¤Î¥Ç ¥£¥Õ¥©¥ë¥È¤Ï¡¤256¥Ð¥¤¥È¤Ç¤¹¡£Á÷¤ë¤Ù¤­¥Ç¡¼¥¿¤¬¤³¤Î¥µ¥¤¥º°Ê¾å ¤Î¾ì¹ç¤Ï¡¤Ê£¿ô¤ÎÁ÷¿®¥Ð¥Ã¥Õ¥¡¤¬ALLOCATE¤µ¤ì¤Þ¤¹¡£Á÷¿®¥Ð¥Ã¥Õ ¥¡¡¦¥µ¥¤¥º¤ÎÃͤϤ³¤Î¥ë¡¼¥Á¥ó¤Î°ú¿ô¤Ç¤¢¤ëread-segment-size¤Ë ¤è¤Ã¤Æ»ØÄê²Äǽ¤Ç¤¹¡£ 1.2.7.2 ¥¨¥é¡¼¸¡ÃΤȤ½¤Î½èÍý EXSNA3270$TRNASMIT_SCREEN ¤Ï¡¤°Ê²¼¤Î¤è¤¦¤Ê´ð½à¤Î¤â¤È¤Ë¤ª¤¤ ¤Æ¸¡ÃΤ·¤¿¥¨¥é¡¼½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£¡§ o ¡É³ÈÄ¥DS UTL¤¬»ÈÍѤ·¤Æ¤¤¤ëDSPI¥ë¡¼¥Á¥ó¡¤¥·¥¹¥Æ¥à¡¦¥ë¡¼ ¥Á¥ó¤«¤é¥¨¥é¡¼ ¤¬ÊÖ¤µ¤ì¤¿¾ì¹ç DSPI¥ë¡¼¥Á¥óµÚ¤Ó¥·¥¹¥Æ¥à¡¦¥ë¡¼¥Á¥ó¤«¤é¥¨¥é¡¼¡¦¥³¡¼¥É¤¬ ÊÖ¤µ¤ì¤¿¾ì¹ç¡¤ ¤Þ¤ÀÀ©¸æ¤¬¸Æ¤Ó¸µ¤Î¥×¥í¥°¥é¥à¤ËÅϤµ¤ì¤Æ ¤¤¤Ê¤¤¾ì¹ç¤Ï¡¤¤½¤Î¥¨¥é¡¼¡¦¥³¡¼ ¥É¤ò¥ê¥¿¡¼¥ó¡¦¥¹¥Æ¡¼¥¿ ¥¹¤È¤·¤Æ¸Æ¤Ó¸µ¤Î¥×¥í¥°¥é¥à¤Ë¥ê¥¿¡¼¥ó¤·¤Þ¤¹¡£¤¹ ¤Ç¤ËÀ© ¸æ¤¬¸Æ¤Ó¸µ¤Î¥×¥í¥°¥é¥à¤ËÅϤäƤ¤¤ë¾ì¹ç¤Ï¡¤¥¹¥Æ¡¼¥¿¥¹¡¦ ¥Ù¥¯¥¿¤Ë ¤½¤Î¥¨¥é¡¼¤Î»Ý¤ò¹ð¤²¤ë¥³¡¼¥É¤ò¥»¥Ã¥È¤·¤Þ¤¹¡£ 1-30 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ 1.2.8 3270¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤«¤é¤Î¥Ç¡¼¥¿¤ÎÆɤ߼è¤ê IBM¥Û¥¹¥È¤«¤é¤Î¼õ¿®¥Ç¡¼¥¿¤Þ¤¿¤Ï¥æ¡¼¥¶¡¦¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤«¤é ¤Î½ñ¹þ¤ß¤Ë¤è¤ê¹¹¿·¤µ¤ì¤¿3270¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡(character vector)¤«¤é¤Î¥Ç¡¼¥¿¤ÎÆɤ߼è¤ê¤Ï¡¤FDB¡¤Extended FDB¤Ë¤è¤êÆÉ ¤ß¹þ¤àÂоݤȤʤë¥Õ¥£¡¼¥ë¥É¤ò»ØÄꤷ¤ÆEXSNA3270$READ_FIELD¤ò »ÈÍѤ¹¤ë¤³¤È¤Ë¤è¤ê¹Ô¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ o FDB¡¤Extended FDB¤Ë°À­¤ò»ØÄꤷ¤Ê¤¤¾ì¹ç¤ÎÆɤ߼è¤ê FDB¤Îrequested operation¤ËSNA3270$M_SEL_READ¡¤ requested displacement¤Ë¥ª¥Õ¥»¥Ã¥È¡¦¥¢¥É¥ì¥¹¤ò»ØÄê ¤·¤ÆEXSNA3270$READ_FIELD¤ò ȯ¹Ô¤·¤¿¾ì¹ç¡¤¤½¤Î¥ª¥Õ¥»¥Ã ¥È¡¦¥¢¥É¥ì¥¹¤¬¥Õ¥£¡¼¥ë¥É¤ÎÀèƬ(°À­Ê¸»ú¤Î °ÌÃÖ)¤ò»Ø¤· ¤Æ¤¤¤ë»þ¤Ï¡¤»ØÄꤵ¤ì¤¿¥Ç¡¼¥¿¡¦¥Ð¥Ã¥Õ¥¡¡¼¤Ë¤½¤Î¥Õ¥£¡¼¥ë ¥É ¤Î¥Ç¡¼¥¿¤òÊÖ¤·¤Þ¤¹¡£¤½¤ÎºÝFDB¡¤Extended FDB¤Î³Æ¥Õ¥£ ¡¼¥ë¥É¤¬¼¡¤Î¤è¤¦ ¤Ë¹¹¿·¤µ¤ì¤Þ¤¹¡£ _______________________________________________________ (¥·¥ó¥Ü¥ë)_________________(¥»¥Ã¥È¤µ¤ì¤ëÃÍ)____________ SNA3270$W_FDB_FLD_ATTR Requested displacement¤¬»Ø Äꤷ¤¿¥Õ¥£¡¼¥ë¥É¤Î´ðËÜ°À­ SNA3270$W_FDB_FLD_BUFOFF Requested displacement¤Ç »Ø Äꤷ¤¿¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿Éô ʬ ¤ÎÀèƬ¤Ë¤¢¤¿¤ë¥ª¥Õ¥»¥Ã¥È ÃÍ SNA3270$W_FDB_FLD_COUNT Æɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼ ¥¿Ä¹ SNA3270$W_FDB_LFR_BUFOFF Requested displacement¤Ç »Ø Äꤷ¤¿¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿Éô ʬ ¤ÎÀèƬ¤Ë¤¢¤¿¤ë¥ª¥Õ¥»¥Ã¥È ÃÍ EXSNA3270$W_FDB_FLD_ATTR Requested displacement¤¬»Ø ___________________________¤·¤¿¥Õ¥£¡¼¥ë¥É¤Î³Èĥ°À­____ o FDB¤Þ¤¿¤ÏExtended FDB¤Ë²¿¤é¤«¤Î°À­¤ò»ØÄꤷ¤¿¾ì¹ç¤ÎÆÉ ¤ß¼è¤ê ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-31 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ FDB¤Îrequested operation¤ËSNA3270$M_SEL_READ¡¤ requested displacement¤Ë¥ª¥Õ¥»¥Ã¥È¡¦¥¢¥É¥ì¥¹¤ò»ØÄꤷ ¤Æ¡¤Æ±»þ¤ËFDB¤Þ¤¿¤Ï Extended FDB¤Îrequested attribute value¡¤requested attribute mask ¤Ë¤è¤ê²¿¤é¤«¤Î°À­¤ò»Ø Äꤷ¤¿¾ì¹ç¤Ï¡¤¤½¤Î¥ª¥Õ¥»¥Ã¥È¡¦¥¢¥É¥ì¥¹¤¬¥Õ¥£¡¼ ¥ë¥É¤Î ÀèƬ(°À­Ê¸»ú¤Î°ÌÃÖ)¤ò»Ø¤·¤Æ¤¤¤Æ¡¤¤Ê¤ª¤«¤Ä¤½¤Î¥Õ¥£¡¼ ¥ë¥É¤Î´ð ËÜ°À­¡¤³Èĥ°À­¤¬»ØÄꤵ¤ì¤¿¤â¤Î¤È°ìÃפ¹¤ë»þ ¤Ï¡¤»ØÄꤵ¤ì¤¿¥Ç¡¼¥¿¡¦¥Ð ¥Ã¥Õ¥¡¡¼¤Ë¤½¤Î¥Õ¥£¡¼¥ë¥É¤Î¥Ç ¡¼¥¿¤òÊÖ¤·¤Þ¤¹¡£¤½¤ÎºÝFDB¡¤Extended FDB ¤Î³Æ¥Õ¥£¡¼¥ë¥É ¤¬¼¡¤Î¤è¤¦¤Ë¹¹¿·¤µ¤ì¤Þ¤¹¡£ _______________________________________________________ (¥·¥ó¥Ü¥ë)_________________(¥»¥Ã¥È¤µ¤ì¤ëÃÍ)____________ SNA3270$W_FDB_FLD_ATTR Requested displacement¤¬»Ø ¤·¤¿¥Õ¥£¡¼¥ë¥É¤Î´ðËÜ°À­ SNA3270$W_FDB_FLD_BUFOFF Requested displacement¤Ç »Ø Äꤷ¤¿¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿Éô ʬ ¤ÎÀèƬ¤Ë¤¢¤¿¤ë¥ª¥Õ¥»¥Ã¥È ÃÍ SNA3270$W_FDB_FLD_COUNT Æɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼ ¥¿Ä¹ SNA3270$W_FDB_LFR_BUFOFF Requested displacement¤Ç »Ø Äꤷ¤¿¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿Éô ʬ ¤ÎÀèƬ¤Ë¤¢¤¿¤ë¥ª¥Õ¥»¥Ã¥È ÃÍ EX3270$W_FDB_FLD_ATTR Requested displacement¤¬»Ø ___________________________¤·¤¿¥Õ¥£¡¼¥ë¥É¤Î³Èĥ°À­____ o FDB¡¤Extended FDB¤Ë°À­¤ò»ØÄꤷ¤Ê¤¤¾ì¹ç¤Î¼¡¤Î¥Õ¥£¡¼¥ë ¥É¤ÎÆɤ߼è¤ê FDB¤Îrequested operation¤ËSNA3270$M_SEL_READ_NEXT¤¬»Ø Äꤵ¤ì¤¿¾ì ¹ç¤Ï¡¤last-field-read displacement¤¬»Ø¤·¤Æ ¤¤¤ë¥ª¥Õ¥»¥Ã¥ÈÃͤ«¤é¸¡º÷ ¤·¤ÆºÇ½é¤Ë¸«¤Ä¤±¤é¤ì¤¿¥Õ¥£¡¼ ¥ë¥É¤¬½èÍý¤ÎÂоݤȤʤê¤Þ¤¹¡£¤½¤Î¥ª¥Õ¥»¥Ã ¥ÈÃͤ¬¡¤¤¹¤Ç ¤Ë¤¢¤ë¥Õ¥£¡¼¥ë¥É¤Î°À­Ê¸»ú¤Î°ÌÃÖ¤ò»Ø¤·¤Æ¤¤¤ë¾ì¹ç¤Ç¤â¡¤ »Ø Äꤵ¤ì¤¿¥Ç¡¼¥¿¡¦¥Ð¥Ã¥Õ¥¡¡¼¤Ë¤½¤Î¼¡¤Î¥Õ¥£¡¼¥ë¥É¤Ë¤¢ 1-32 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ ¤ë¥Ç¡¼¥¿¤òÊÖ¤·¤Þ¤¹¡£ ¤½¤ÎºÝFDB¡¤Extended FDB¤Î³Æ¥Õ¥£¡¼ ¥ë¥É¤¬¼¡¤Î¤è¤¦¤Ë¹¹¿·¤µ¤ì¤Þ¤¹¡£ _______________________________________________________ (¥·¥ó¥Ü¥ë)_________________(¥»¥Ã¥È¤µ¤ì¤ëÃÍ)____________ SNA3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ´ðËÜ°À­ SNA3270$W_FDB_FLD_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ SNA3270$W_FDB_FLD_COUNT Æɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼ ¥¿Ä¹ SNA3270$W_FDB_LFR_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ EXSNA3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ___________________________¥É¤Î_³Èĥ°À­_______________ o FDB¡¤Extended FDB¤Ë°À­¤ò»ØÄꤷ¤¿¾ì¹ç¤Î¼¡¤Î¥Õ¥£¡¼¥ë¥É ¤ÎÆɤ߼è¤ê FDB¤Îrequested operation¤ËSNA3270$M_SEL_READ_NEXT¡¤FDB ¤ª¤è¤Ó Extended FDB¤Îrequested value¤Èrequested mask ¤Ë²¿¤é¤«¤Î°À­¤¬»Ø Äꤵ¤ì¤¿¾ì¹ç¤Ï¡¤last-field-read displacement¤¬»Ø¤·¤Æ¤¤¤ë¥ª¥Õ¥»¥Ã¥È Ãͤ«¤é¸¡º÷¤·¤Æ¼¡ ¤Î¥Õ¥£¡¼¥ë¥É¤¬½èÍý¤ÎÂоݤȤʤê¤Þ¤¹¡£¤½¤Î¥ª¥Õ¥»¥Ã¥ÈÃÍ ¤¬¡¤¤¹¤Ç¤Ë¤¢¤ë¥Õ¥£¡¼¥ë¥É¤Î°À­Ê¸»ú¤Î°ÌÃÖ¤ò»Ø¤·¤Æ¤¤¤ë¾ì ¹ç¤Ç¤â¡¤»ØÄꤵ ¤ì¤¿¥Ç¡¼¥¿¡¦¥Ð¥Ã¥Õ¥¡¡¼¤Ë¤½¤Î¼¡¤Î¥Õ¥£¡¼ ¥ë¥É¤Ë¤¢¤ë¥Ç¡¼¥¿¤òÊÖ¤·¤Þ¤¹¡£¤½ ¤ÎºÝFDB¡¤Extended FDB¤Î ³Æ¥Õ¥£¡¼¥ë¥É¤¬¼¡¤Î¤è¤¦¤Ë¹¹¿·¤µ¤ì¤Þ¤¹¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-33 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ _______________________________________________________ (¥·¥ó¥Ü¥ë)_________________(¥»¥Ã¥È¤µ¤ì¤ëÃÍ)____________ SNA3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ´ðËÜ°À­ SNA3270$W_FDB_FLD_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ SNA3270$W_FDB_FLD_COUNT Æɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼ ¥¿Ä¹ SNA3270$W_FDB_LFR_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ EXSNA3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ___________________________¥É¤Î_³Èĥ°À­_______________ o FDB¡¤Extended FDB¤Ë°À­¤ò»ØÄꤷ¤Ê¤¤¾ì¹ç¤Î¸¡º÷ FDB¤Îrequested operation¤ËSNA3270$M_SEL_SEARCH¡¤ requested displacement¤Ë¥ª¥Õ¥»¥Ã¥È¡¦¥¢¥É¥ì¥¹¤ò»ØÄê ¤·¤ÆEXSNA3270$READ_FIELD¤ò ȯ¹Ô¤·¤¿¾ì¹ç¡¤¤½¤Î¥ª¥Õ¥»¥Ã ¥È¡¦¥¢¥É¥ì¥¹¤«¤é¸¡º÷¤·¤ÆºÇ½é¤Ë¸«¤Ä¤±¤é¤ì¤¿ ¥Õ¥£¡¼¥ë¥É ¤Ë¤¢¤¿¤ë¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿¤ò»ØÄꤵ¤ì¤¿¥Ç¡¼¥¿¡¦¥Ð¥Ã¥Õ¥¡ ¡¼¤Ë ÊÖ¤·¤Þ¤¹¡£¥ª¥Õ¥»¥Ã¥È¡¦¥¢¥É¥ì¥¹¤¬¤¹¤Ç¤Ë¤¢¤ë¥Õ¥£¡¼ ¥ë¥É¤ÎÀèƬ(°À­Ê¸»ú ¤Î°ÌÃÖ)¤Ç¤¢¤ë¾ì¹ç¤Ï¡¤¤½¤Î°À­Ê¸»ú ¤Ë³ºÅö¤¹¤ë¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿¤¬ÆÉ¤ß ¹þ¤Þ¤ì¤Þ¤¹¡£¤½¤ÎºÝ FDB¡¤Extended FDB¤Î³Æ¥Õ¥£¡¼¥ë¥É¤Ï¼¡¤Î¤è¤¦¤Ë¹¹¿·¤µ ¤ì¤Þ ¤¹¡£ 1-34 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ _______________________________________________________ (¥·¥ó¥Ü¥ë)_________________(¥»¥Ã¥È¤µ¤ì¤ëÃÍ)____________ SNA3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É ¤Î´ðËÜ°À­ SNA3270$W_FDB_FLD_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ SNA3270$W_FDB_FLD_COUNT Æɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼ ¥¿Ä¹ SNA3270$W_FDB_FLD_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ EX3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ___________________________¥É_¤Î³Èĥ°À­_______________ o FDB¡¤Extended FDB¤Ë°À­¤ò»ØÄꤷ¤¿¾ì¹ç¤Î¥Õ¥£¡¼¥ë¥É¤Î¸¡ º÷ FDB¤Îrequested operation¤ËSNA3270$M_SEL_SEARCH¤ò»ØÄꤷ ¤Æ EXSNA3270$READ_FIELD¤òȯ¹Ô¤·¤¿¾ì¹ç¡¤last-read-field displacement¤¬ ¼¨¤¹¥ª¥Õ¥»¥Ã¥È¡¦¥¢¥É¥ì¥¹¤«¤é¥Õ¥£¡¼¥ë¥É ¤ò¸¡º÷¤·»ØÄꤵ¤ì¤¿Â°À­¤È¹çÃפ¹ ¤ëºÇ½é¤Ë¸«¤Ä¤±¤é¤ì¤¿¥Õ ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿¤ò»ØÄꤵ¤ì¤¿¥Ç¡¼¥¿¡¦¥Ð¥Ã¥Õ¥¡¡¼ ¤ËÊÖ¤· ¤Þ¤¹¡£¥ª¥Õ¥»¥Ã¥È¡¦¥¢¥É¥ì¥¹¤¬¤¹¤Ç¤Ë¤¢¤ë¥Õ¥£¡¼¥ë¥É¤ÎÀèƬ (°À­Ê¸ »ú¤Î°ÌÃÖ)¤Ç¤«¤Ä¤½¤Î°À­¤¬»ØÄꤵ¤ì¤¿¤â¤Î¤È¹çÃ× ¤¹¤ë¾ì¹ç¤Ï¡¤¤½¤Î°À­Ê¸ »ú¤Ë³ºÅö¤¹¤ë¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿ ¤¬Æɤ߹þ¤Þ¤ì¤Þ¤¹¡£¤½¤ÎºÝFDB¡¤Extended FDB¤Î³Æ¥Õ¥£¡¼¥ë ¥É¤Ï¼¡¤Î¤è¤¦¤Ë¹¹¿·¤µ¤ì¤Þ¤¹¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-35 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ _______________________________________________________ (¥·¥ó¥Ü¥ë)_________________(¥»¥Ã¥È¤µ¤ì¤ëÃÍ)____________ SNA3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É ¤Î´ðËÜ°À­ SNA3270$W_FDB_FLD_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ SNA3270$W_FDB_FLD_COUNT Æɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼ ¥¿Ä¹ SNA3270$W_FDB_FLD_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ EX3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ___________________________¥É_¤Î³Èĥ°À­_______________ o FDB¡¤Extended FDB¤Ë°À­¤ò»ØÄꤷ¤Ê¤¤¾ì¹ç¤Î¼¡¥Õ¥£¡¼¥ë¥É ¤Î¸¡º÷ FDB¤Îrequested operation¤ËSNA3270$M_SEL_SEARCH_NEXT ¤ò»ØÄꤷ¤Æ EXSNA3270$READ_FIELD¤òȯ¹Ô¤·¤¿¾ì¹ç¡¤ last- read-field displacement¤¬¼¨¤¹¥ª¥Õ¥»¥Ã¥È¡¦¥¢¥É¥ì¥¹¤«¤é ¸¡º÷¤·¤Æ¼¡ ¤Î¥Õ¥£¡¼¥ë¥É¤Ë¤¢¤¿¤ë¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿¤ò»Ø Äꤵ¤ì¤¿¥Ç¡¼¥¿¡¦¥Ð¥Ã¥Õ¥¡¡¼ ¤ËÊÖ¤·¤Þ¤¹¡£¥ª¥Õ¥»¥Ã¥È¡¦¥¢ ¥É¥ì¥¹¤¬¤¹¤Ç¤Ë¤¢¤ë¥Õ¥£¡¼¥ë¥É¤ÎÀèƬ(°À­Ê¸ »ú¤Î°ÌÃÖ)¤Ç ¤¢¤ë¾ì¹ç¤Ç¤â¡¤¼¡¤Î³ºÅö¤¹¤ë¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿¤¬Æɤ߹þ¤Þ ¤ì ¤Þ¤¹¡£ ¤½¤ÎºÝFDB¡¤Extended FDB¤Î³Æ¥Õ¥£¡¼¥ë¥É¤Ï¼¡¤Î ¤è¤¦¤Ë¹¹¿·¤µ¤ì¤Þ¤¹¡£ 1-36 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ _______________________________________________________ (¥·¥ó¥Ü¥ë)_________________(¥»¥Ã¥È¤µ¤ì¤ëÃÍ)____________ SNA3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É ¤Î´ðËÜ°À­ SNA3270$W_FDB_FLD_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ SNA3270$W_FDB_FLD_COUNT Æɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼ ¥¿Ä¹ SNA3270$W_FDB_FLD_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ EX3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ___________________________¥É_¤Î³Èĥ°À­_______________ o ¡¦ FDB¡¤Extended FDB¤Ë°À­¤ò»ØÄꤷ¤¿¾ì¹ç¤Î¼¡¤Î¥Õ¥£¡¼¥ë ¥É¤Î¸¡º÷ FDB¤Îrequested operation¤ËSNA3270$M_SEL_SEARCH_NEXT ¤ò»ØÄꤷ¤Æ EXSNA3270$READ_FIELD¤òȯ¹Ô¤·¤¿¾ì¹ç¡¤last- read-field displacement¤¬ ¼¨¤¹¥ª¥Õ¥»¥Ã¥È¡¦¥¢¥É¥ì¥¹¤«¤é ¥Õ¥£¡¼¥ë¥É¤ò¸¡º÷¤·»ØÄꤵ¤ì¤¿Â°À­¤È¹çÃפ¹ ¤ëºÇ½é¤Ë¸«¤Ä ¤±¤é¤ì¤¿¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿¤ò»ØÄꤵ¤ì¤¿¥Ç¡¼¥¿¡¦¥Ð¥Ã¥Õ ¥¡¡¼ ¤ËÊÖ¤·¤Þ¤¹¡£¥ª¥Õ¥»¥Ã¥È¡¦¥¢¥É¥ì¥¹¤¬¤¹¤Ç¤Ë¤¢¤ë¥Õ¥£ ¡¼¥ë¥É¤ÎÀèƬ(°À­Ê¸ »ú¤Î°ÌÃÖ)¤Ç¤¢¤ë¾ì¹ç¤Ç¤â¡¤¼¡¤Î³ºÅö ¤¹¤ë¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼¥¿¤¬Æɤ߹þ¤Þ¤ì ¤Þ¤¹¡£¤½¤ÎºÝFDB¡¤ Extended FDB¤Î³Æ¥Õ¥£¡¼¥ë¥É¤Ï¼¡¤Î¤è¤¦¤Ë¹¹¿·¤µ¤ì¤Þ¤¹¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-37 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.2ÆüËܸìDSPIÍøÍѤμê°ú¤­ _______________________________________________________ (¥·¥ó¥Ü¥ë)_________________(¥»¥Ã¥È¤µ¤ì¤ëÃÍ)____________ SNA3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É ¤Î´ðËÜ°À­ SNA3270$W_FDB_FLD_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ SNA3270$W_FDB_FLD_COUNT Æɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë¥É¤Î¥Ç¡¼ ¥¿Ä¹ SNA3270$W_FDB_FLD_BUFOFF ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ¥É¤Î ¥Ç¡¼¥¿Éôʬ¤ÎÀèƬ¥ª¥Õ¥» ¥Ã¥ÈÃÍ EX3270$W_FDB_FLD_ATTR ¥Ç¡¼¥¿¤òÆɤ߹þ¤ó¤À¥Õ¥£¡¼¥ë ___________________________¥É_¤Î³Èĥ°À­_______________ 1.2.9 3270¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Ø¤Î¥Ç¡¼¥¿¤Î½ñ¹þ¤ß IBM¥Û¥¹¥È¤Ø¤ÎÁ÷¿®¥Ç¡¼¥¿¤ò3270¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡(character vector)¤Ø½ñ¤­¹þ¤à¤Ë¤ÏEXSNA3270$WRITE_FIELD¤ò»ÈÍѤ¹¤ë¤³¤È¤Ë ¤è¤ê¹Ô¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤É¤Î¥Õ¥£¡¼¥ë¥É¤Ë¥Ç¡¼¥¿¤ò½ñ¤­¹þ¤à¤« ¤ÏFDB¤Î»ØÄê¤Î»ÅÊý¤Ë¤è¤Ã¤ÆÁªÂò¤µ¤ì¤Þ¤¹¡£FDB¡¤Extended FDB¤Î ¹¹¿·¤ÏEXSNA3270$READ_FIELD¤Ë½à¤¸¤¿¼ê½ç¤Ç¹Ô¤Ê¤ï¤ì¤Þ¤¹¡£ 1.2.10 ¥»¥Ã¥·¥ç¥ó¤Î½ªÎ» DSPI¤ÎSNA3270$REQUEST_DISCONNECT¤ò»ÈÍѤ·¤Þ¤¹¡£¾Ü¤·¤¯¤Ï¡¤ 3270DSPI¤Î¥Þ¥Ë¥å¥¢¥ë¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ 1-38 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.3 OpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÈÆüËܸìDSPI¤Î¥ê¥ó¥¯ÊýË¡ _________________________________________________________________ 1.3 OpenVMS¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÈÆüËܸìDSPI¤Î¥ê¥ó¥¯ÊýË¡ ¼¡¤ÎÎã¤Ç¤¢¤²¤ëLINK¥³¥Þ¥ó¥É¤Î»ØÄê¤Ë¤è¤êOpenVMS¥¢¥×¥ê¡¼¥·¥ç¥ó ¤ÈÆüËܸìDSPI¤ò¥ê¥ó¥¯¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ $ LINK/EXE/MAP SYS$INPUT:/OPTION USERPROG2 SYS$SHARE:SNA3270SH/SHARE SYS$SHARE:EXSNA3270SH/SHARE ^Z ¤Þ¤¿¥Ç¥Ð¥Ã¥¬¤ò»ÈÍѤ¹¤ëºÝ¤Ï¡¤¼¡¤Î¤è¤¦¤Ë»ØÄꤷ¤Æ¤¯¤À¤µ¤¤¡£ $ LINK/EXE/MAP/DEBUG SYS$INPUT:/OPTION USERPROG2 SYS$SHARE:SNA3270SH/SHARE SYS$SHARE:EXSNA3270SH/SHARE ^Z LINK¥³¥Þ¥ó¥É¤Ë¤Ä¤¤¤Æ¤Ï¡¤VAX/VMS Linker Reference Maual¤ò»² ¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ _________________________________________________________________ 1.4 ¥×¥í¥°¥é¥ß¥ó¥°Îã 1.4.1 ³ÈÄ¥DS UTL»ÈÍÑÎã(FORTRAN) C C ¤³¤Î¥×¥í¥°¥é¥à¤Ï¡¢FORTRAN¤Ë¤ª¤±¤ëÆüËܸìDSPI¥ë¡¼¥Á¥ó ¤Î C »ÈÍÑÎã¤Ç¤¹¡£IBM/TSO¤ÈÀܳ¤·¡¢ISPFÆüËܸì¥á¥Ë¥å¡¼¤ò C ÆüËܸìVTüËö¤Ëɽ¼¨¤·¤Þ¤¹¡£ C PROGRAM EX3270_EXAMPLE ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-39 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã IMPLICIT INTEGER*4 (A-Z) C INCLUDE 'SYS$LIBRARY:SNA3270DF/NOLIST' ! DSPI¤Î¥é ¥¤¥Ö¥é¥ê ! ¥Õ¥¡¥¤¥ë ¤Îinclude INCLUDE 'SYS$LIBRARY:EX3270DF/NOLIST' ! ³ÈÄ¥ DS UTL¤Î¥é¥¤¥Ö¥é¥ê ! ¥Õ¥¡¥¤¥ë ¤Îinclude C C DSPIµÚ¤Ó³ÈÄ¥DS UTL¥ë¡¼¥Á¥ó¤Ç»ÈÍѤ¹¤ë°ú¿ô C ¤òÄêµÁ¤·¤Þ¤¹¡£ C INTEGER*4 STATUS_VECTOR (SNA3270$K_MIN_STATUS_VECTOR/4) INTEGER*4 NOTIFY_VECTOR (SNA3270$K_MIN_NOTIFY_VECTOR/4) INTEGER*4 SESSION_ID INTEGER*4 RETURN_CODE PARAMETER LU2_EFN = 10 EXTERNAL NOTIFY_RTN ! notify routin¤ÎÄê µÁ C C ¥¹¥¯¥ê¡¼¥ó¡¦¥¤¥á¡¼¥¸¤ÎÄêµÁ C INTEGER*4 SCREEN_SIZE PARAMETER (SCREEN_SIZE = 1921) CHARACTER*(SCREEN_SIZE) SCREEN_IMAGE C C DSPI¤Îfield mode structure¤ÎÄêµÁ¤È C ³ÈÄ¥DS UTL¤Î¤¿¤á¤Îstructure¤ÎÄêµÁ C STRUCTURE /DSC/ INTEGER*2 DSC$W_LENGTH BYTE DSC$B_DTYPE, DSC$B_CLASS INTEGER*4 DSC$A_POINTER END STRUCTURE RECORD /SNA3270_SDB/ SDB ! Screen Descriptor Block RECORD /SNA3270_FDB/ FDB ! Field Descriptor Block RECORD /EXFDB/ EX_FDB ! ³ÈÄ¥ Field Descriptor Block RECORD /DSC/ SDB_DSC ! SDB¤Î¤¿¤á¤Î¥Ç¥£¥¹ 1-40 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã ¥¯¥ê¥×¥¿ RECORD /DSC/ FDB_DSC ! FDB¤Î¤¿¤á¤Î¥Ç¥£¥¹ ¥¯¥ê¥×¥¿ RECORD /DSC/ EX_FDB_DSC ! ³ÈÄ¥FDB¤Î¤¿¤á¤Î¥Ç ¥£¥¹¥¯¥ê¥×¥¿ CHARACTER*256 FIELD_DATA ! READ_FIELD¡¤ WRITE_FIELD¤Î¥Ç¡¼¥¿¡¦¥Ð¥Ã ! ¥Õ¥¡ INTEGER*2 LENGTH LOGICAL*1 FIELD_VECTOR(SCREEN_SIZE/8+1) ! FIELD VECTOR INTEGER*2 ATTR_VECTOR(SCREEN_SIZE) ! ATTR VECTOR INTEGER*4 EX_ATTR_VECTOR(SCREEN_SIZE) ! ³È Ä¥ATTR VECTOR INTEGER*4 REPLY_MODE ! ±þ Åú¥â¡¼¥É CHARACTER*8 NODE_NAME,ACC_NAME ! Gateway¥Î ¡¼¥É̾¤È ! Access Name INTEGER*4 USERLEN,PASSLEN ! TSO¥æ¡¼¥¶ ̾¤Î¥µ¥¤¥º¤È ! TSO¥Ñ¥¹¥ï ¡¼¥É¤Î¥µ¥¤¥º C C ¥°¥í¡¼¥Ð¥ë¡¦¥Ç¡¼¥¿¤ÎÀë¸À C COMMON /SESSION_DATA/ SESSION_ID, STATUS_VECTOR COMMON /NOTIFY/ NOTIFY_VECTOR COMMON /DSPI_DATA/ EX_ATTR_VECTOR, FIELD_VECTOR, 1 ATTR_VECTOR, SCREEN_IMAGE, 2 EX_FDB_DSC, FDB_DSC, SDB_DSC, FDB, SDB, 3 EX_FDB C C FDB,SDB,³ÈÄ¥FDB¤Î¥Ç¥£¥¹¥¯¥ê¥×¥¿¤Î½é´ü²½ C SDB_DSC.DSC$W_LENGTH = SNA3270$K_SDB_LENGTH SDB_DSC.DSC$A_POINTER = %LOC(SDB) FDB_DSC.DSC$W_LENGTH = SNA3270$K_FDB_SIZE FDB_DSC.DSC$A_POINTER = %LOC(FDB) EX_FDB_DSC.DSC$W_LENGTH = EX3270$K_FDB_LENGTH EX_FDB_DSC.DSC$A_POINTER = %LOC(EX_FDB) ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-41 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã C C Gateway¥Î¡¼¥É̾¤ÈAccess Name¤òüËö¤«¤éÆþÎϤ·¤Þ¤¹¡£ C TYPE 9001 ACCEPT 9002, NODE_NAME TYPE 9003 ACCEPT 9002, ACC_NAME C C TSO USER-ID¤òüËö¤«¤éÆþÎϤ·¤Þ¤¹¡£ C TYPE 9004 ACCEPT 9005, USERLEN, FIELD_DATA C C TSO PASSWORD¤òüËö¤«¤éÆþÎϤ·¤Þ¤¹¡£ C FIELD_DATA(USERLEN+1:USERLEN+1) = '/' TYPE 9006 ACCEPT 9005, PASSLEN, FIELD_DATA(USERLEN+2:) LENGTH = USERLEN + PASSLEN + 1 ISTAT = LIB$TRA_ASC_EBC(FIELD_DATA(:LENGTH),FIELD_DATA(:LENGTH)) C C IBM¥Û¥¹¥È¤È¥»¥Ã¥·¥ç¥ó¤ò³ÎΩ¤·¤Þ¤¹¡£ C RETURN_CODE = SNA3270$REQUEST_CONNECT_W ( SESSION_ID, 1 %DESCR(STATUS_VECTOR), %REF(SNA3270$K_ACTIVE), 2 %REF(SNA3270$K_FIELD_MODE), %DESCR(NODE_NAME), 3 %DESCR(ACC_NAME),,,,,,,FIELD_DATA(:LENGTH),SCREEN_IMAGE, 4 %DESCR(ATTR_VECTOR), 5 %DESCR(FIELD_VECTOR), SDB_DSC, FDB_DSC, NOTIFY_RTN, 6 SESSION_ID, %DESCR(NOTIFY_VECTOR), %REF(LU2_EFN)) IF (.NOT. RETURN_CODE) THEN ISTAT = SYS$PUTMSG(STATUS_VECTOR) STOP 'CONNECT failed' END IF 1-42 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã C C TSO¥í¥°¥ª¥ó¡¦¥á¥Ã¥»¡¼¥¸¤ò¼õ¿®¤·¤Þ¤¹¡£ C STATUS_VECTOR(2) = 0 DO WHILE ( STATUS_VECTOR(2) .NE. SNA3270$_OK ) RETURN_CODE = EXSNA3270$RECEIVE_SCREEN_W (SESSION_ID, 1 %DESCR(STATUS_VECTOR), %REF(LU2_EFN),,, 2 SCREEN_IMAGE, %DESCR(ATTR_VECTOR),%DESCR(FIELD_VECTOR), 3 SDB_DSC, %REF(REPLY_MODE),, %DESCR(EX_ATTR_VECTOR)) IF (.NOT. RETURN_CODE) THEN ISTAT = SYS$PUTMSG(STATUS_VECTOR) STOP 'RECEIVE_SCREEN failed' END IF END DO C C ISPF¥³¥Þ¥ó¥É¤òIBM¥Û¥¹¥È¤ËÁ÷¿®¤·¤Þ¤¹¡£ C FIELD_DATA = 'ISPF' CALL WRITE_NEXT_FIELD( FIELD_DATA(1:4)) RETURN_CODE = EXSNA3270$TRANSMIT_SCREEN_W( SESSION_ID, 1 %DESCR(STATUS_VECTOR), %REF(SNA3270$K_AID_ENTER), 2 %REF(LU2_EFN),,,SCREEN_IMAGE, %DESCR(ATTR_VECTOR), 3 %DESCR(FIELD_VECTOR), SDB_DSC,,,) IF (.NOT. RETURN_CODE) THEN ISTAT = SYS$PUTMSG(STAUTS_VECTOR) STOP 'TRANSMIT_SCREEN failed' END IF C C ISPF¥á¥Ë¥å¡¼²èÌ̤ò¼õ¿®¤·¤Þ¤¹¡£ C STATUS_VECTOR(2) = 0 DO WHILE (STATUS_VECTOR(2) .NE. SNA3270$_OK) RETURN_CODE = EXSNA3270$RECEIVE_SCREEN_W (SESSION_ID, 1 %DESCR(STATUS_VECTOR), %REF(LU2_EFN),,, 2 SCREEN_IMAGE, %DESCR(ATTR_VECTOR), %DESCR(FIELD_VECTOR), 3 SDB_DSC, %REF(REPLY_MODE),, %DESCR(EX_ATTR_VECTOR)) IF (.NOT. RETURN_CODE) THEN ISTAT = SYS$PUTMSG(STATUS_VECTOR) STOP 'RECEIVE_SCREEN failed' END IF END DO ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-43 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã C C ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤«¤éISPF¥á¥Ë¥å¡¼²èÌ̤ò C Æɤ߹þ¤ßüËöÁõÃÖ¤Ëɽ¼¨¤·¤Þ¤¹¡£ C CALL PUT_ISPF_MENU() C C PF3¥­¡¼¤òÁ÷¿®¤·¤Þ¤¹¡£ C RETURN_CODE = EXSNA3270$TRANSMIT_SCREEN_W( SESSION_ID, 1 %DESCR(STATUS_VECTOR), %REF(SNA3270$K_AID_PF3), 2 %REF(LU2_EFN),,,SCREEN_IMAGE, %DESCR(ATTR_VECTOR), 3 %DESCR(FIELD_VECTOR), SDB_DSC,,,) IF (.NOT. RETURN_CODE) THEN ISTAT = SYS$PUTMSG(STAUTS_VECTOR) STOP 'TRANSMIT_SCREEN failed' END IF C C ¥»¥Ã¥·¥ç¥ó¤ò½ªÎ»¤·¤Þ¤¹¡£ C RETURN_CODE = SNA3270$REQUEST_DISCONNECT_W( SESSION_ID, 1 %DESCR(STATUS_VECTOR)) IF (.NOT. RETURN_CODE) THEN ISTAT = SYS$PUTMSG(STATUS_VECTOR) STOP 'DISCONNECT failed' END IF STOP 'End of EX3270 example' C C Format statements C 9001 FORMAT (1X,'Enter gateway node name: ',2X,$) 9002 FORMAT (A8) 9003 FORMAT (1X,'Enter access name: ',2X,$) 9004 FORMAT (1X,'Enter TSO USER-ID: ',2X,$) 9005 FORMAT (Q,A) 9006 FORMAT (1X,'Enter TSO PASSWORD: ',2X,$) END 1-44 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã SUBROUTINE NOTIFY_RTN (EVENT_CODE, NOTIFY_PARAM) C C DSPI¤ÎREQUEST_CONNECT¥ë¡¼¥Á¥ó¤Ë¤è¤êÀßÄꤵ¤ì¤ënotify ¥ë¡¼¥Á¥ó¤Ç¤¹¡£ C IBM¥Û¥¹¥È¤È¤Î¥»¥Ã¥·¥ç¥óÃ桤²¿¤é¤«¤ÎÈóƱ´ü»ö¾Ý¤¬µ¯¤­ ¤¿¤È¤­µ¯Æ°¤µ¤ì C ¤Þ¤¹¡£ C INCLUDE 'SYS$LIBRARY:SNA3270DF/NOLIST' INTEGER*4 NOTIFY_VECTOR(SNA3270$K_MIN_NOTIFY_VECTOR/4) INTEGER*4 EVENT_CODE CHARACTER CLEAR_EVENT*14/'Clear received'/ CHARACTER DATA_EVENT*13/'Data received'/ CHARACTER PROERR_EVENT*27/'SNA protocol error detected'/ CHARACTER RECON_EVENT*19/'Session reconnected'/ CHARACTER TERM_EVENT*18/'Session terminated'/ CHARACTER TURN_EVENT*15/'PLU RTS honored'/ CHARACTER UNBIND_EVENT*22/'UNBIND type 2 received'/ C C ¥°¥í¡¼¥Ð¥ë¡¦¥Ç¡¼¥¿¤ÎÀë¸À C COMMON /SESSION_DATA/ SESSION_ID, STATUS_VECTOR COMMON /NOTIFY/ NOTIFY_VECTOR ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-45 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã IF (EVENT_CODE .EQ. SNA3270$K_EVT_CLEAR) THEN TYPE 9100, CLEAR_EVENT END IF IF (EVENT_CODE .EQ. SNA3270$K_EVT_DATA) THEN TYPE 9100, DATA_EVENT END IF IF (EVENT_CODE .EQ. SNA3270$K_EVT_PROPROERR) THEN TYPE 9100, PROERR_EVENT END IF IF (EVENT_CODE .EQ. SNA3270$K_EVT_RECONNECTED) THEN TYPE 9100, RECON_EVENT END IF IF (EVENT_CODE .EQ. SNA3270$K_EVT_TERMINATE) THEN TYPE 9100, TERM_EVENT END IF IF (EVENT_CODE .EQ. SNA3270$K_EVT_TURNGONE) THEN TYPE 9100, TURN_EVENT END IF IF (EVENT_CODE .EQ. SNA3270$K_EVT_UNBINDT2) THEN TYPE 9100, UNBIND_EVENT END IF ISTAT = SYS$PUTMSG (NOTIFY_VECTOR) RETURN 9100 FORMAT (3X,'Asynchronous notification: ',A30//) END 1-46 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã SUBROUTINE WRITE_NEXT_FIELD (DATA) C C 3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡Æâ¤Î̵Êݸî¥Õ¥£¡¼¥ë¥É¤ò ¸¡º÷¤·¡¤ C °ú¿ô¤ÇÍ¿¤¨¤é¤ì¤¿¥Ç¡¼¥¿¤ò½ñ¤­¹þ¤ß¤Þ¤¹¡£ C C IMPLICIT INTEGER*4 (A-Z) INCLUDE 'SYS$LIBRARY:SNA3270DF/NOLIST' INCLUDE 'SYS$LIBRARY:EX3270DF/NOLIST' CHARACTER*(*) DATA CHARACTER*256 FIELD_DATA ! READ_FIELD¡¤ WRITE_FIELD¤Î¥Ç¡¼¥¿¡¦¥Ð¥Ã ! ¥Õ¥¡ PARAMETER (SCREEN_SIZE = 1921) INTEGER*4 STATUS_VECTOR(SNA3270$K_MIN_STATUS_VECTOR/4) INTEGER*4 SESSION_ID INTEGER*4 RETURN_CODE LOGICAL*1 FIELD_VECTOR(SCREEN_SIZE/8+1) ! FIELD VECTOR INTEGER*2 ATTR_VECTOR(SCREEN_SIZE) ! ATTR VECTOR INTEGER*4 EX_ATTR_VECTOR(SCREEN_SIZE) ! ³È Ä¥ATTR VECTOR CHARACTER*(SCREEN_SIZE) SCREEN_IMAGE STRUCTURE /DSC/ INTEGER*2 DSC$W_LENGTH BYTE DSC$B_DTYPE, DSC$B_CLASS INTEGER*4 DSC$A_POINTER END STRUCTURE RECORD /SNA3270_SDB/ SDB ! Screen Descriptor Block RECORD /SNA3270_FDB/ FDB ! Field Descriptor Block RECORD /EXFDB/ EX_FDB ! ³ÈÄ¥ Field Descriptor Block RECORD /DSC/ SDB_DSC ! SDB¤Î¤¿¤á¤Î¥Ç¥£¥¹ ¥¯¥ê¥×¥¿ RECORD /DSC/ FDB_DSC ! FDB¤Î¤¿¤á¤Î¥Ç¥£¥¹ ¥¯¥ê¥×¥¿ RECORD /DSC/ EX_FDB_DSC ! ³ÈÄ¥FDB¤Î¤¿¤á¤Î¥Ç ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-47 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã ¥£¥¹¥¯¥ê¥×¥¿ C C ¥°¥í¡¼¥Ð¥ë¡¦¥Ç¡¼¥¿¤ÎÀë¸À C COMMON /SESSION_DATA/ SESSION_ID, STATUS_VECTOR COMMON /DSPI_DATA/ EX_ATTR_VECTOR, FIELD_VECTOR, 1 ATTR_VECTOR, SCREEN_IMAGE, 2 EX_FDB_DSC, FDB_DSC, SDB_DSC, 3 FDB, SDB, EX_FDB C C ̵Êݸî¥Õ¥£¡¼¥ë¥É¤ò¸¡º÷¤¹¤ë¤è¤¦¤ËFDB¤ò¥»¥Ã¥È¤·¤Þ¤¹¡£ C FDB.SNA3270$W_FDB_ATT_VALUE = 0 FDB.SNA3270$W_FDB_ATT_MASK = SNA3270$V_ATTR_PRO FDB.SNA3270$W_FDB_BUFOFF = 0 FDB.SNA3270$W_FDB_SELECT = SNA3270$K_SEL_SEARCH RETURN_CODE = EXSNA3270$READ_FIELD (SESSION_ID, 1 %DESCR( STATUS_VECTOR ),FIELD_DATA, SCREEN_IMAGE, 2 %DESCR(ATTR_VECTOR),%DESCR(FIELD_VECTOR), FDB_DSC, SDB_DSC,,) IF (.NOT. RETURN_CODE) THEN ISTAT = SYS$PUTMSG(STATUS_VECTOR) STOP 'READ_FIELD failed' END IF C C °ú¿ô¤ÇÍ¿¤¨¤é¤ì¤¿¥Ç¡¼¥¿¤òEBCDIC¥³¡¼¥É¤ËÊÑ´¹¤·¤Þ¤¹¡£ C ISTAT = LIB$TRA_ASC_EBC( DATA, DATA) IF (.NOT. ISTAT) CALL LIB$STOP(%VAL(ISTAT)) C C ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Ë½ñ¤­¹þ¤ß¤Þ¤¹¡£ C RETURN_CODE = EXSNA3270$WRITE_FIELD(SESSION_ID, 1 %DESCR(STATUS_VECTOR), DATA, SCREEN_IMAGE, 2 %DESCR(ATTR_VECTOR), %DESCR(FIELD_VECTOR), FDB_DSC, 3 SDB_DSC,,) IF (.NOT. RETURN_CODE) THEN ISTAT = SYS$PUTMSG(STATUS_VECTOR) STOP 'WRITE_FIELD failed' END IF 1-48 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã RETURN END ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-49 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã SUBROUTINE PUT_ISPF_MENU() C C ISPF¥á¥Ë¥å¡¼²èÌ̤¬Æþ¤Ã¤Æ¤¤¤ë3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð ¥Ã¥Õ¥¡¤«¤é C £±¥Õ¥£¡¼¥ë¥É¤´¤È¤Ë¼è¤ê½Ð¤·VTüËö²èÌ̤Ëɽ¼¨¤·¤Þ¤¹¡£ C C IMPLICIT INTEGER*4 (A-Z) INCLUDE 'SYS$LIBRARY:SNA3270DF/NOLIST' INCLUDE 'SYS$LIBRARY:EX3270DF/NOLIST' CHARACTER*256 FIELD_DATA INTEGER*4 LENGTH PARAMETER (SCREEN_SIZE = 1921) INTEGER*4 STATUS_VECTOR(SNA3270$K_MIN_STATUS_VECTOR/4) INTEGER*4 SESSION_ID INTEGER*4 RETURN_CODE LOGICAL*1 FIELD_VECTOR(SCREEN_SIZE/8+1) ! FIELD VECTOR INTEGER*2 ATTR_VECTOR(SCREEN_SIZE) ! ATTR VECTOR INTEGER*4 EX_ATTR_VECTOR(SCREEN_SIZE) ! ³È Ä¥ATTR VECTOR CHARACTER*(SCREEN_SIZE) SCREEN_IMAGE LOGICAL*1 KANJI_FLAG STRUCTURE /DSC/ INTEGER*2 DSC$W_LENGTH BYTE DSC$B_DTYPE, DSC$B_CLASS INTEGER*4 DSC$A_POINTER END STRUCTURE RECORD /SNA3270_SDB/ SDB RECORD /SNA3270_FDB/ FDB RECORD /EXFDB/ EX_FDB RECORD /DSC/ SDB_DSC RECORD /DSC/ FDB_DSC RECORD /DSC/ EX_FDB_DSC COMMON /SESSION_DATA/ SESSION_ID, STATUS_VECTOR COMMON /DSPI_DATA/ EX_ATTR_VECTOR, FIELD_VECTOR, 1 ATTR_VECTOR, SCREEN_IMAGE, 2 EX_FDB_DSC, FDB_DSC, SDB_DSC, 3 FDB, SDB, EX_FDB 1-50 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã C C ºÇ½é¤Î¥Õ¥£¡¼¥ë¥É¤òÆɤ߹þ¤ß¤Þ¤¹¡£ C FDB.SNA3270$W_FDB_ATT_VALUE = 0 FDB.SNA3270$W_FDB_ATT_MASK = 0 FDB.SNA3270$W_FDB_SELECT = SNA3270$K_SEL_READ RETURN_CODE = EXSNA3270$READ_FIELD (SESSION_ID, 1 %DESCR( STATUS_VECTOR ), FIELD_DATA, SCREEN_IMAGE, 2 %DESCR(ATTR_VECTOR), %DESCR(FIELD_VECTOR),FDB_DSC, SDB_DSC, 3 %DESCR(EX_ATTR_VECTOR), EX_FDB_DSC) IF (.NOT. RETURN_CODE) THEN ISTAT = SYS$PUTMSG(STATUS_VECTOR) STOP 'READ_FIELD failed' END IF C Æɤ߼è¤Ã¤¿¥Õ¥£¡¼¥ë¥É¤ÎŤµ¤òÆÀ¤Þ¤¹¡£ LENGTH = FDB.SNA3270$W_FDB_FLD_COUNT C ¤½¤Î¥Õ¥£¡¼¥ë¥É¤¬´Á»ú¥Õ¥£¡¼¥ë¥É¤Ç¤¢¤ì ¤Ð KANJI_FLAG ¤ò£±¤Ë¥»¥Ã¥È¤·¤Þ¤¹¡£ KANJI_FLAG = EX_FDB.EX3270$L_FDB_FLD_EXATTR .AND. 1 EX3270$M_FDB_ATT_CHARSET_KANJI C £±¥Õ¥£¡¼¥ë¥Éʬ¤ÎIBM/DEC´Á»ú¡¤EBCDIC/ASCII¥³¡¼¥ÉÊÑ´¹ ¤ò¹Ô¤¤¤Þ¤¹¡£ C ¤½¤Î¸å¡¤Ã¼Ëö¤Ëɽ¼¨¤·¤Þ¤¹¡£ CALL MAKE_DISPLAY(FIELD_DATA, LENGTH, KANJI_FLAG) IF (LENGTH .LE. 79) TYPE 9000, FIELD_DATA(:LENGTH) C C ¼¡¤Î¥Õ¥£¡¼¥ë¥É¤òÆɤ߹þ¤à¤è¤¦¤ËFDB¤ò¥»¥Ã¥È¤·¤Þ¤¹¡£ C FDB.SNA3270$W_FDB_SELECT = SNA3270$K_SEL_SEARCH_NEXT C C ¤¹¤Ù¤Æ¤Î¥Õ¥£¡¼¥ë¥É¤òÆɤ߹þ¤à¤Þ¤Ç°Ê²¼¤ÎÆ°ºî¤ò·«¤êÊÖ ¤·¤Þ¤¹¡£ C DO WHILE (STATUS_VECTOR(4) .NE. SNA3270$_NOFIELD) RETURN_CODE = EXSNA3270$READ_FIELD (SESSION_ID, 1 %DESCR( STATUS_VECTOR ), FIELD_DATA, SCREEN_IMAGE, 2 %DESCR(ATTR_VECTOR), %DESCR(FIELD_VECTOR),FDB_DSC, SDB_DSC, 3 %DESCR(EX_ATTR_VECTOR), EX_FDB_DSC) ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-51 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã IF (.NOT. RETURN_CODE) THEN IF (STATUS_VECTOR(4) .NE. SNA3270$_NOFIELD) THEN ISTAT = SYS$PUTMSG(STATUS_VECTOR) STOP 'READ_FIELD failed' END IF END IF IF (RETURN_CODE .EQ. SNA3270$_OK) THEN LENGTH = FDB.SNA3270$W_FDB_FLD_COUNT KANJI_FLAG = EX_FDB.EX3270$L_FDB_FLD_EXATTR .AND. 1 EX3270$M_FDB_ATT_CHARSET_KANJI CALL MAKE_DISPLAY(FIELD_DATA, LENGTH, KANJI_FLAG) IF (LENGTH .LE. 79) TYPE 9000, FIELD_DATA(:LENGTH) END IF END DO 9000 FORMAT( ' ',A) RETURN END 1-52 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã SUBROUTINE MAKE_DISPLAY(FIELD_DATA,LENGTH, KANJI_FLAG) C C Í¿¤¨¤é¤ì¤¿£±¥Õ¥£¡¼¥ë¥Éʬ¤Î¥Ç¡¼¥¿¤ËÂФ·¤Æ IBM/DEC´Á »úµÚ¤Ó C EBCDIC/ASCII¥³¡¼¥ÉÊÑ´¹¤ò¹Ô¤¤¤Þ¤¹¡£°ú¿ô ¤Î KANJI_FLAG ¤Ë¤Ï C ¥Õ¥£¡¼¥ë¥É¤Î½é´ü¥â¡¼¥É¤¬´Á»ú¤Ç¤¢¤ë¤Î¤«±Ñ¿ô¥«¥Ê¤Ç¤¢ ¤ë¤Î¤«¤¬ C ¼¨¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ C INCLUDE 'SYS$LIBRARY:EX3270DF/NOLIST' CHARACTER*(*) FIELD_DATA INTEGER*4 LENGTH INTEGER*4 PTR LOGICAL*1 KANJI_FLAG CHARACTER*1 SO /EX3270$K_ORD_SO/ CHARACTER*1 SI /EX3270$K_ORD_SI/ PTR = 1 DO WHILE (PTR .LE. LENGTH) IF (FIELD_DATA(PTR:PTR) .EQ. SO) THEN KANJI_FLAG = 1 FIELD_DATA(PTR:PTR) = ' ' PTR = PTR + 1 ELSE IF (FIELD_DATA(PTR:PTR) .EQ. SI) THEN KANJI_FLAG = 0 FIELD_DATA(PTR:PTR) = ' ' PTR = PTR + 1 END IF END IF IF (KANJI_FLAG) THEN ISTAT = JLB$TRA_KANJI_IBM_DEC( 1 FIELD_DATA(PTR:PTR+1), 2 FIELD_DATA(PTR:PTR+1) ) PTR = PTR + 2 ELSE ISTAT = LIB$TRA_EBC_ASC( FIELD_DATA(PTR:PTR), 1 FIELD_DATA(PTR:PTR)) PTR = PTR + 1 END IF END DO ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-53 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.4¥×¥í¥°¥é¥ß¥ó¥°Îã RETURN END _________________________________________________________________ 1.5 ³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥±¥ó¥¹ 1-54 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.5³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥±¥ó¥¹ 1.5.1 EXSNA3270$RECEIVE_SCREEN IBM/SNA LU¥¿¥¤¥×2¤ÎÄÌ¿®¤Ë¤ª¤¤¤Æ¼õ¿®¤·¤¿3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤ò²ò ÀϤ·°ú¿ô¤Ë¤è¤êÍ¿¤¨¤é¤ì¤¿¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡(char-vec)¤ò¹¹¿·¤·¤Þ ¤¹¡£ Format: status.wl.v = EXSNA3270$RECEIVE_SCREEN(_W)(session-id.rlu.r, status-vec.wz.dx, efn.rlu.r, [astadr.c.r], [astprm.rlu.r], char-vec.mx.dx, attr-vec.mx.dx, field-vec.mx.dx, sdb-dsc.mz.dx, reply-mod.mlu.r, [read-seg-size.rlu.r], [ex-attr-vec.mx.dx]) Arguments: status SNA3270$_OK - Àµ¾ï½ªÎ» ¤½¤Î¾ - ¤³¤Î¥×¥í¥·¡¼¥¸¥ã¤¬ºÇ½é¤Ë¥³ ¡¼¥ë¤·¤¿ DECnet/SNA VMS 3270 DS¥ë¡¼ ¥Á¥ó¤Î¥ê¥¿¡¼¥ó¡¦ ¥¹¥Æ¡¼¥¿¥¹¤Þ¤¿¤Ï¥·¥¹¥Æ¥à¡¦ ¥µ¡¼¥Ó¥¹¤ª¤è¤Ó ¥é¥ó¥¿¥¤¥à¡¦¥é¥¤¥Ö¥é¥ê¡¦¥ë ¡¼¥Á¥ó¤«¤é¤Î ¥ê¥¿¡¼¥ó¡¦¥¹¥Æ¡¼¥¿¥¹¤Ç¤¹¡£ session-id SNA3270$REQUEST_CONNECT¤Ë¤è¤êÆÀ¤é¤ì ¤ësession-id¤ò »ØÄꤷ¤Þ¤¹¡£¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ status-vec ¤³¤Î¥×¥í¥·¡¼¥¸¥ã¤¬ºÇ¸å¤Ë¥³¡¼¥ë¤· ¤¿ 3270DSPI ¥ë¡¼¥Á¥ó¤Ë¤è¤êÊÖ¤µ¤ì¤¿¥ê¥¿¡¼¥ó¡¦¥¹ ¥Æ¡¼¥¿¥¹ ¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-55 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.5³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥±¥ó¥¹ efn ¤³¤Î¥ë¡¼¥Á¥ó¤¬¡¤´°Î»¤·¤¿»þ¤Ë¥»¥Ã¥È ¤µ¤ì¤ëevent flag ÈÖ¹æ¤Ç¤¹¡£¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ astadr ¤³¤Î¥ë¡¼¥Á¥ó¤¬¡¤´°Î»¤·¤¿»þ¤Ëµ¯Æ°¤µ ¤ì¤ëAST¥ë¡¼¥Á¥ó ¤Î¥¢¥É¥ì¥¹¤Ç¤¹¡£¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ astprm astadr¤Ç»ØÄꤷ¤¿AST¥ë¡¼¥Á¥ó¤ËÅϤµ¤ì ¤ë¥Ñ¥é¥á¡¼¥¿¤Ç¤¹¡£ ¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ char-vec 3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Ç¤¹¡£ ¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ attr-vec 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î´ðËÜ°À­¤ò ÊÝ»ý¤¹¤ë ¤¿¤á¤ÎÎΰè¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅÏ ¤·¡£ field-vec 3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Î¤É¤Î °ÌÃ֤˥ե£¡¼¥ë¥É¤Î »Ï¤Þ¤ê¤ò¼¨¤¹Â°À­Ê¸»ú¤¬Â¸ºß¤¹¤ë¤«¤ò ¼¨¤¹¥Ó¥Ã¥È¡¦¥Þ¥Ã¥× ¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ sdb-dsc ¥»¥Ã¥·¥ç¥óÃæ¤Î3270¥¹¥¯¥ê¡¼¥ó¤ÎÆÿ§ ¤ò¼¨¤¹¾ðÊó¤ò´Þ¤à¥Ö ¥í¥Ã¥¯¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ reply-mod ¸½ºß¤Î¥»¥Ã¥·¥ç¥ó¤Î±þÅú¥â¡¼¥É¤Ç¤¹¡£ ¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ £° - ±þÅú¥â¡¼¥É¤Ï¥Õ¥£¡¼¥ë¥É¥â¡¼¥É¤Ç ¤¹¡£ £± - ±þÅú¥â¡¼¥É¤Ï³ÈÄ¥¥Õ¥£¡¼¥ë¥É¥â¡¼ ¥É¤Ç¤¹¡£ read-seg-size 1²ó¤Î¼õ¿®¤ËÍѤ¤¤ë¥Ð¥Ã¥Õ¥¡¡¦¥µ¥¤¥º¡¤ »ØÄꤷ¤Ê¤¤¾ì¹ç¤Ï ¥Ç¥£¥Õ¥©¥ë¥È¤Î1920¥Ð¥¤¥È¤Î¼õ¿®¥Ð¥Ã ¥Õ¥¡¤¬»ÈÍѤµ¤ì¤Þ ¤¹¡£¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ 1-56 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.5³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥±¥ó¥¹ ex-attr-vec 3270 ¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à ¤Î³Èĥ°À­ ¤òÊÝ»ý¤¹¤ë ¤¿¤á¤ÎÎΰè¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅÏ ¤·¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-57 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.5³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥±¥ó¥¹ 1.5.2 EXSNA3270$READ_FIELD »ØÄꤵ¤ì¤¿3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡(Character vector)¤«¤éFDB¡¤ Extended FDB¤Ç»ØÄꤵ¤ì¤¿¥Õ¥£¡¼¥ë¥É¤Î¾ðÊó¤ò¥æ¡¼¥¶¡¦¥Ð¥Ã¥Õ¥¡¤ËÆÉ¤ß ¹þ¤ß¤Þ¤¹¡£ Format: status.wlc.v = EXSNA3270$READ_FIELD( [session-id.rlu.r], status-vec.wz.dx, data-bufr.wr.dx, char-vec.rx.dx, attr-vec.rx.dx, field-vec.rx.dx, fdb-dsc.mz.dx, sdb-dsc.mz.dx, [ex-attr-vec.rx.dx], [ex-fdb-dsc.mz.dx] ) Arguments: status SNA3270$_OK - Àµ¾ï½ªÎ» SNA3270$_OK_TRUNC SNA3270$_BADOFFSET SNA3270$_NOFIELD SNA3270$_RDFLDFAI ¤½¤Î¾ session-id SNA3270$REQUEST_CONNECT¤Ë¤è¤êÆÀ¤é¤ì ¤ësession-id¤ò »ØÄꤷ¤Þ¤¹¡£¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ status-vec ¤³¤Î¥×¥í¥·¡¼¥¸¥ã¤¬ºÇ¸å¤Ë¥³¡¼¥ë¤· ¤¿ 3270DSPI ¥ë¡¼¥Á¥ó¤Ë¤è¤êÊÖ¤µ¤ì¤¿¥ê¥¿¡¼¥ó¡¦¥¹ ¥Æ¡¼¥¿¥¹ ¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ data-bufr FDB¤Ç»ØÄꤷ¤¿¥Õ¥£¡¼¥ë¥É¤Î¾ðÊó¤òÆÉ¤ß ¹þ¤à¤¿¤á¤Î¥Ð¥Ã¥Õ¥¡ ¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ char-vec 3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Ç¤¹¡£ ¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ 1-58 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.5³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥±¥ó¥¹ attr-vec 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î´ðËÜ°À­¤ò ÊÝ»ý¤¹¤ë ¤¿¤á¤ÎÎΰè¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅÏ ¤·¡£ field-vec 3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Î¤É¤Î °ÌÃ֤˥ե£¡¼¥ë¥É¤Î »Ï¤Þ¤ê¤ò¼¨¤¹Â°À­Ê¸»ú¤¬Â¸ºß¤¹¤ë¤«¤ò ¼¨¤¹¥Ó¥Ã¥È¡¦¥Þ¥Ã¥× ¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ fdb-dsc »ØÄꤷ¤¿char-vec¤ÎÃ椫¤é¤É¤Î¤è¤¦¤Ê ¥Õ¥£¡¼¥ë¥É¤òÆɤ߹þ ¤à¤«¤ò¼¨¤·¤Þ¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅÏ ¤·¡£ sdb-dsc ¥»¥Ã¥·¥ç¥óÃæ¤Î3270¥¹¥¯¥ê¡¼¥ó¤ÎÆÿ§ ¤ò¼¨¤¹¾ðÊó¤ò´Þ¤à ¥Ö¥í¥Ã¥¯¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ ex-attr-vec 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î³Èĥ°À­¤ò ÊÝ»ý¤¹¤ë ¤¿¤á¤ÎÎΰè¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅÏ ¤·¡£ ex-fdb-dsc »ØÄꤷ¤¿char-vec¤ÎÃ椫¤é³Èĥ°À­¤Ë ¤Ä¤¤¤Æ¤É¤Î ¤è¤¦¤Ê¥Õ¥£¡¼¥ë¥É¤òÆɤ߹þ¤à¤«¤ò»ØÄê ¤·¤Þ¤¹¡£ ¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-59 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.5³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥±¥ó¥¹ 1.5.3 EXSNA3270$WRITE_FIELD EXSNA3270$READ_FIELD¤Ç¥»¥Ã¥È¥¢¥Ã¥×¤·¤¿FDB¤ª¤è¤ÓExtended FDB¤ò»ØÄê ¤¹¤ë¤³¤È¤Ë¤è¤ê²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤ÎŬÀڤʰÌÃ֤˥ǡ¼¥¿¤ò½ñ¹þ ¤ß¤Þ¤¹¡£ Format: status.wlc.v = EXSNA3270$WRITE_FIELD([session-id.rlu.r], status-vec.wz.dx, data-bufr.rr.dx, char-vec.mx.dx, attr-vec.rx.dx, field-vec.rx.dx, fdb-dsc.mz.dx, sdb-dsc.mz.dx, [ex-attr-vec.rx.dx], [ex-fdb-dsc.mz.dx] ) Arguments: status SNA3270$_OK - Àµ¾ï½ªÎ» SNA3270$_OK_TRUNC SNA3270$_BADOFFSET SNA3270$_NOINPUT SNA3270$_NUMERIC SNA3270$_PROTECTED SNA3270$_WTFLDFAI ¤½¤Î¾ session-id SNA3270$REQUEST_CONNECT¤Ë¤è¤êÆÀ¤é¤ì ¤ësession-id¤ò »ØÄꤷ¤Þ¤¹¡£¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ status-vec ¤³¤Î¥×¥í¥·¡¼¥¸¥ã¤¬ºÇ¸å¤Ë¥³¡¼¥ë¤· ¤¿ 3270DSPI ¥ë¡¼¥Á¥ó¤Ë¤è¤êÊÖ¤µ¤ì¤¿¥ê¥¿¡¼¥ó¡¦¥¹ ¥Æ¡¼¥¿¥¹ ¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ data-bufr FDB¤Ç»ØÄꤷ¤¿¥Õ¥£¡¼¥ë¥É¤Ë½ñ¤­¹þ¤à¤¿ ¤á¤Î¥Ç¡¼¥¿¤ò ´Þ¤ó¤À¥Ð¥Ã¥Õ¥¡¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ ÅϤ·¡£ 1-60 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.5³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥±¥ó¥¹ char-vec 3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Ç¤¹¡£ ¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ attr-vec 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î´ðËÜ°À­¤ò ÊÝ»ý¤¹¤ë ¤¿¤á¤ÎÎΰè¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅÏ ¤·¡£ field-vec 3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Î¤É¤Î °ÌÃ֤˥ե£¡¼¥ë¥É¤Î »Ï¤Þ¤ê¤ò¼¨¤¹Â°À­Ê¸»ú¤¬Â¸ºß¤¹¤ë¤«¤ò ¼¨¤¹¥Ó¥Ã¥È¡¦¥Þ¥Ã¥× ¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ fdb-dsc »ØÄꤷ¤¿char-vec¤ÎÃ椫¤é¤É¤Î¤è¤¦¤Ê ¥Õ¥£¡¼¥ë¥É¤òÆɤ߹þ ¤à¤«¤ò¼¨¤·¤Þ¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅÏ ¤·¡£ sdb-dsc ¥»¥Ã¥·¥ç¥óÃæ¤Î3270¥¹¥¯¥ê¡¼¥ó¤ÎÆÿ§ ¤ò¼¨¤¹¾ðÊó¤ò´Þ¤à ¥Ö¥í¥Ã¥¯¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ ex-attr-vec 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î³Èĥ°À­¤ò ÊÝ»ý¤¹¤ë ¤¿¤á¤ÎÎΰè¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅÏ ¤·¡£ ex-fdb-dsc »ØÄꤷ¤¿char-vec¤ÎÃ椫¤é³Èĥ°À­¤Ë ¤Ä¤¤¤Æ¤É¤Î ¤è¤¦¤Ê¥Õ¥£¡¼¥ë¥É¤òÆɤ߹þ¤à¤«¤ò»ØÄê ¤·¤Þ¤¹¡£ ¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-61 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.5³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥±¥ó¥¹ 1.5.4 EXSNA3270$TRANSMIT_SCREEN EXSNA3270$WRITE_FIELD¤Ë¤è¤Ã¤Æ½ñ¤­¹þ¤Þ¤ì¤¿¥Ç¡¼¥¿¤òIBM¥Û¥¹¥È¤ËÁ÷¿® ¤·¤Þ¤¹¡£ Format: status.wl.v = EXSNA3270$TRANSMIT_SCREEN(_W)(session-id.rlu.r, status-vec.wz.dx, aid.rw.r, [efn.rlu.r], [astadr.c.r], [astprm.rlu.r], char-vec.rx.dx, attr-vec.rx.dx, field-vec.rx.dx, sdb-dsc.mz.dx, [read-seg-size.rlu.r], [ex-attr-vec.rx.dx]) Arguments: status SNA3270$_OK - Àµ¾ï½ªÎ» ¤½¤Î¾ - ¤³¤Î¥×¥í¥·¡¼¥¸¥ã¤¬ºÇ¸å¤Ë¥³ ¡¼¥ë¤·¤¿ 3270DSPI ¥ë¡¼¥Á¥ó¤Î¥ê¥¿¡¼ ¥ó¡¦ ¥¹¥Æ¡¼¥¿¥¹¤Þ¤¿¤Ï¥·¥¹¥Æ¥à¡¦ ¥µ¡¼¥Ó¥¹¤ª¤è¤Ó ¥é¥ó¥¿¥¤¥à¡¦¥é¥¤¥Ö¥é¥ê¡¦¥ë ¡¼¥Á¥ó¤«¤é¤Î ¥ê¥¿¡¼¥ó¡¦¥¹¥Æ¡¼¥¿¥¹¤Ç¤¹¡£ session-id SNA3270$REQUEST_CONNECT¤Ë¤è¤êÆÀ¤é¤ì ¤ësession-id¤ò »ØÄꤷ¤Þ¤¹¡£¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ status-vec ¤³¤Î¥×¥í¥·¡¼¥¸¥ã¤¬ºÇ¸å¤Ë¥³¡¼¥ë¤· ¤¿ 3270DSPI ¥ë¡¼¥Á¥ó¤Ë¤è¤êÊÖ¤µ¤ì¤¿¥ê¥¿¡¼¥ó¡¦¥¹ ¥Æ¡¼¥¿¥¹ ¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ aid Attention Identification (AID) ¥ê¥Õ ¥¡¥ì¥ó¥¹ÅϤ·¡£ 1-62 ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1.5³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥±¥ó¥¹ efn ¤³¤Î¥ë¡¼¥Á¥ó¤¬¡¤´°Î»¤·¤¿»þ¤Ë¥»¥Ã¥È ¤µ¤ì¤ëevent flag ÈÖ¹æ¤Ç¤¹¡£¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ astadr ¤³¤Î¥ë¡¼¥Á¥ó¤¬¡¤´°Î»¤·¤¿»þ¤Ëµ¯Æ°¤µ ¤ì¤ëAST¥ë¡¼¥Á¥ó ¤Î¥¢¥É¥ì¥¹¤Ç¤¹¡£¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ astprm astadr¤Ç»ØÄꤷ¤¿AST¥ë¡¼¥Á¥ó¤ËÅϤµ¤ì ¤ë¥Ñ¥é¥á¡¼¥¿¤Ç¤¹¡£ ¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ char-vec 3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Ç¤¹¡£ ¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ attr-vec 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î´ðËÜ°À­¤ò ÊÝ»ý¤¹¤ë ¤¿¤á¤ÎÎΰè¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅÏ ¤·¡£ field-vec 3270²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Î¤É¤Î °ÌÃÖ¤Ëfield¤Î »Ï¤Þ¤ê¤ò¼¨¤¹Â°À­Ê¸»ú¤¬Â¸ºß¤¹¤ë¤«¤ò ¼¨¤¹¥Ó¥Ã¥È¡¦¥Þ¥Ã¥× ¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ sdb-dsc ¥»¥Ã¥·¥ç¥óÃæ¤Î3270¥¹¥¯¥ê¡¼¥ó¤ÎÆÿ§ ¤ò¼¨¤¹¾ðÊó¤ò´Þ¤à ¥Ö¥í¥Ã¥¯¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅϤ·¡£ read-seg-size ¥»¥Ã¥·¥ç¥óÃæ¤ÎÁ÷¿®RU¤Îmaximam size ¤ò»ØÄꤷ¤Þ¤¹¡£»ØÄê ¤·¤Ê¤«¤Ã¤¿¾ì¹ç¤Ï¡¢¥Ç¥£¥Õ¥©¥ë¥È¤Î256 ¤¬»ÈÍѤµ¤ì¤Þ¤¹¡£ ¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·¡£ ex-attr-vec 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¤Î³Èĥ°À­¤ò ÊÝ»ý¤¹¤ë ¤¿¤á¤ÎÎΰè¤Ç¤¹¡£¥Ç¥£¥¹¥¯¥ê¥×¥¿ÅÏ ¤·¡£ ¥æ¡¼¥¶¡¼¥º¡¦¥¬¥¤¥É 1-63 2 _________________________________________________________________ ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É _________________________________________________________________ 2.1 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î½àÈ÷ ¤³¤Î¾Ï¤Ç¤Ï¡¢ÆüËܸìDECnet SNA 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¡¦¥×¥í¥° ¥é¥ß¥ó¥°¡¦¥¤¥ó¥¿¡¼¥Õ¥§¥¤¥¹for OpenVMS¡Ê°Ê²¼ÆüËܸìDSPI)¤ò¥¤ ¥ó¥¹¥È¡¼¥ë¤¹¤ëÁ°¤Ë¹Ô¤¦½àÈ÷»ö¹à¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£ ¤³¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Ç¤Ï¡¢¥·¥¹¥Æ¥à¡¦¥Ç¥£¥¹¥¯¤Ø¤Î½ñ¤­¹þ¤ß ¤¬¹Ô¤Ê¤ï¤ì¤Þ¤¹¡£¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ò»Ï¤á¤ëÁ°¤Ë¡¢¥·¥¹¥Æ¥à¡¦ ¥Ç¥£¥¹¥¯¤Î¥Ð¥Ã¥¯¥¢¥Ã¥×¤ò¤È¤ë¤³¤È¤ò¤ª´«¤á¤·¤Þ¤¹¡£ 2.1.1 ÇÛÉÛ¥­¥Ã¥È¤Î³Îǧ BOM¡ÊBill of Material¡Ë¤Ë¥á¥Ç¥£¥¢¤Î¿ô¤ÈÆâÍƤ¬µ­ºÜ¤µ¤ì¤Æ¤¤¤Þ ¤¹¡£BOM¤Î¥ê¥¹¥È¤È¥­¥Ã¥È¤ÎÆâÍƤò¾È¤é¤·¹ç¤ï¤»¤Æ²¼¤µ¤¤¡£¥­¥Ã¥È ¤ÎÇË»¤äÉôÉʤÎÉÔ­¤¬¤¢¤ë»þ¤Ë¤Ï¡¢ÆüËÜDEC¤ÎôÅö¼Ô¤ËÏ¢Íí¤·¤Æ²¼ ¤µ¤¤¡£ 2.1.2 ɬ¿Ü¥½¥Õ¥È¥¦¥§¥¢ ÆüËܸìDSPI V1.4¤Ç¤Ï¡¢°Ê²¼¤Î¥½¥Õ¥È¥¦¥§¥¢¤¬É¬Íפˤʤê¤Þ¤¹¡£ o ÆüËܸìOpenVMS AXP V1.5 o DECnet SNA 3270 Data Stream Programming Interface V1.4 for OpenVMS o DECnet SNA Gateway-ST , DECnet SNA Gateway-CT¤ÎÆâ¤Î¤¤ ¤º¤ì¤« ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2-1 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.1¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î½àÈ÷ 2.1.3 OpenVMS¥·¥¹¥Æ¥à¤ÎɬÍ×»ö¹à ¤³¤³¤Ç¤Ï¡¢ÆüËܸìDSPI¤ËÂФ¹¤ëOpenVMS¤ÎɬÍ×¾ò·ï¤È¥Ñ¥é¥á¥¿ÃͤΠ³Îǧ¡¢·×»»¡¢Êѹ¹¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£ 2.1.3.1 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ÎɬÍ×»ö¹à ÆüËܸìDSPI¤ò¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ëÁ°¤Ë¡¢°Ê²¼¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó ¤Î¾ò·ï¤¬Ëþ­¤µ¤ì¤Æ¤¤¤ë¤«¤É¤¦¤«³Îǧ¤·¤Æ²¼¤µ¤¤¡£ ɽ 2-1 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ÎɬÍ×»ö¹à ___________________________________________________________ ¹àÌÜ__________________ɬÍפʤâ¤Î___________________________ ¥½¥Õ¥È¥¦¥§¥¢ ÆüËܸìOpenVMS AXP V1.5 Æø¢ ¥·¥¹¥Æ¥à´ÉÍý¼Ô¥ì¥Ù¥ë ¥Ç¥£¥¹¥¯ÎÎ°è ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥óÃæ¤Ï1,300¥Ö¥í¥Ã¥¯ ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¸å¤Ï1,100¥Ö¥í¥Ã¥¯ ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Ë 2¡Á5ʬ ɬÍפʻþ´Ö_________________________________________________ OpenVMS¥·¥¹¥Æ¥à¾å¤Ë¥ª¥×¥·¥ç¥ó¤ÎÀ½Éʤò¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ëºÝ¤Î¾Ü ºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¢¡ÖGuide to OpenVMS Software Installation¡×¤ò ¤´Í÷²¼¤µ¤¤¡£ ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ò»Ï¤á¤ëÁ°¤Ë¡¢PAK¡ÊProduct Authorization Key¡Ë¤ÎÅÐÏ¿¤È¥í¡¼¥É¤¬¤µ¤ì¤Æ¤¤¤ë¤³¤È¤ò³Îǧ¤·¤Æ²¼¤µ¤¤¡£¤³¤Î¾Ü ºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡ÖOpenVMS License Management Utility Reference Manual¡×¤ò¤´Í÷²¼¤µ¤¤¡£ °Ê²¼¤ÎÀá¤Ç¤Ï¡¢¥·¥¹¥Æ¥à¡¦¥Ñ¥é¥á¡¼¥¿ÃͤγÎǧ¡¢GBLSECTIONS¥·¥¹ ¥Æ¥à¡¦¥Ñ¥é¥á¡¼¥¿Ãͤη׻»¡¢OpenVMS AUTOGEN¥³¥Þ¥ó¥É¡¦¥×¥í¥·¡¼ ¥¸¥ã¤ò»ÈÍѤ·¤¿¥Ñ¥é¥á¥¿ÃͤÎÊѹ¹¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£ 2-2 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.1¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î½àÈ÷ 2.1.3.2 OpenVMS¥é¥¤¥»¥ó¥¹´ÉÍýµ¡Ç½ ¤³¤ÎÀ½Éʤò¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ëÁ°¤Ë¡¢LMF(License Management Facility)¤ò»È¤Ã¤ÆPAK (Product Authorization Key)¤òÅÐÏ¿¤·¤Æ ²¼¤µ¤¤¡£PAK¤Ï¥é¥¤¥»¥ó¥¹¤Ë´Ø¤¹¤ë¾ðÊ󤬵­ºÜ¤µ¤ì¤¿¾Ú½ñ¤Ç¡¢À½ÉÊ ¤È¶¦¤Ë½Ð²Ù¤µ¤ì¤Þ¤¹¡£ ÆüËܸìDSPI¤Î¥é¥¤¥»¥ó¥¹¤Ï¡¢¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ÎÁ°¤ËÅÐÏ¿¤·¡¢ ¥­¡¼¤ò¥í¡¼¥É¤·¤Æ¤ª¤¯É¬Íפ¬¤¢¤ê¤Þ¤¹¡£ ________________________ Ãí°Õ ________________________ ¥é¥¤¥»¥ó¥¹¤ÎÅÐÏ¿¤È¥­¡¼¤Î¥í¡¼¥É¤¬¹Ô¤ï¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ï¡¢ ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¡¼¥ë¤ò¹Ô¤¦»ö¤¬½ÐÍè¤Þ¤»¤ó¡£ ______________________________________________________ ¥é¥¤¥»¥ó¥¹¤ÎÅÐÏ¿¤È¥í¡¼¥É¤ò¹Ô¤¦¤Ë¤Ï¡¢¥·¥¹¥Æ¥à´ÉÍý¼Ô¤Î¥¢¥«¥¦ ¥ó¥È¤Ë¥í¥°¥¤¥ó¤·¤Æ°Ê²¼¤Î¤è¤¦¤ËÆþÎϤ·¤Æ²¼¤µ¤¤¡£ $ @SYS$UPDATE:VMSLICENSE.COM ÆþÎÏÍ×µá¤Î¥×¥í¥ó¥×¥È¤¬É½¼¨¤µ¤ì¤Þ¤¹¤«¤é¡¢PAK¤«¤é¥Ç¡¼¥¿¤òÆþÎÏ ¤·¤Æ²¼¤µ¤¤¡£LMF¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¢OpenVMS¤Î¥É¥­¥å¥á¥ó¥Æ¡¼¥· ¥ç¥ó¡¦¥»¥Ã¥È¤ÎÃæ¤ÎVMS License Management Utility Manual¤ò¤´ Í÷²¼¤µ¤¤¡£ 2.1.3.2.1 ɸ½àÈǣģӣУɤΥ饤¥»¥ó¥¹¤Ë¤Ä¤¤¤Æ ɸ½àÈÇDSPI ¤ò¥¤¥ó¥¹¥È¡¼¥ë¤·µ¯Æ°¤¹¤ë¤¿¤á¤Ë¤ÏÆüËܸìDSPI¤ÈƱÍÍ¡¢É¸½àÈÇÍÑ ¤Î¥½¥Õ¥È¥¦¥§¥¢¥é¥¤¥»¥ó¥¹¤ò¥·¥¹¥Æ¥à¤ËÅÐÏ¿¤·¤Æ¤ª¤¯É¬Íפ¬¤¢¤ê ¤Þ¤¹¤¬¡¢É¸½àÈǤΥ饤¥»¥ó¥¹¤ÎÅÐÏ¿µÚ¤Ó¥­¡¼¤Î¥í¡¼¥É¤Ï¡¢ÆüËܸì DSPI¤ò¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ë»ö¤Ë¤è¤Ã¤Æ¼«Æ°Åª¤Ë¹Ô¤ï¤ì¤Þ¤¹¡£½¾¤¤¤Þ ¤·¤Æɸ½àÈÇDSPI¤Î¥¤¥ó¥¹¥È¡¼¥ë¤Ï¡¢ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¡¼¥ë¸å ¡Êɸ½àÈÇDSPI¤Î¥é¥¤¥»¥ó¥¹¤ÎÅÐÏ¿¤È¥­¡¼¤Î¥í¡¼¥É¤¬¹Ô¤ï¤ì¤¿¸å¡Ë ¤Ë¹Ô¤¦¤è¤¦¤Ë¤·¤Æ²¼¤µ¤¤¡£ ________________________ Ãí°Õ ________________________ ¤â¤·¡¢ÆüËܸìDSPI¤ò¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ëÁ°¤Ë¤¹¤Ç¤Ë ɸ½àÈÇ DSPI V1.4 ¤Î¥Õ¥£¡¼¥ë¥É¥Æ¥¹¥ÈÍѤÎPAKËô¤ÏTSP (Temporary Service PAK)¤¬ ÅÐÏ¿¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢°Ê²¼¤Î£²¤Ä¤Î LICENSE¥³¥Þ¥ó¥É¤òÍѤ¤¤Æ¤½ ¤ì¤é¤òUNLOAD¤«¤ÄDISABLE¤Î¾õ ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2-3 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.1¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î½àÈ÷ Â֤ˤ·¤Æ¤ª¤¤¤Æ¤¯¤À¤µ¤¤¡£¤³¤ì¤é ¤ÎPAK¤¬Í­¸ú¤Ë¤Ê¤Ã¤Æ¤¤¤ë ¤È¡¢Àµ¼°¤ÊPAK¤¬ÅÐÏ¿¤µ¤ì¤Þ¤»¤ó¡£ ______________________________________________________ $ license unload SNA-3270-DSPI $ license disable SNA-3270-DSPI /auth= 2.1.4 VMSINSTALɬÍ×»ö¹à OpenVMS¥·¥¹¥Æ¥à¾å¤ÇVMSINSTAL¤ò»ÈÍѤ¹¤ë¤È¡¢¥Õ¥¡¥¤¥ë¤ò ¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ë½èÍý¤¬¼«Æ°Åª¤Ë¼Â¹Ô¤µ¤ì¤Þ¤¹¡£¥×¥í¥·¥¸¥ã ¡ÊVMSINSTAL¡Ë¤Î¼Â¹ÔÃæ¤Ëɽ¼¨¤µ¤ì¤ë¼ÁÌä¤Ë²óÅú¤·¤Æ²¼¤µ¤¤¡£ ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥óÃæ¤Î¼ÁÌä¤Ë¤Ï¡¢¹Ô¤ÎÀèƬ¤Ë¥¢¥¹¥¿¥ê¥¹¥¯(*)¤¬ ¤Ä¤¤¤Æ¤¤¤Þ¤¹¡£°Ê²¼¤Î¤è¤¦¤Ë¡¢¾ÊάÃͤ¬³ç¸ÌÆâ¤Ëɽ¼¨¤µ¤ì¤Æ¤¤¤ë ¼ÁÌä¤â¤¢¤ê¤Þ¤¹¡£ * Are you satisfied with the backup of your system disk [YES]:? ¾ÊάÃÍÉÕ¤­¤Î¼ÁÌä¤ËÂФ·¤Æ¤Ï¡¢¾ÊάÃͤΤޤޤǤ¤¤¤¾ì¹ç¤Ë ¤Ï¤òÆþÎϤ·¤Þ¤¹¡£ OpenVMS¥·¥¹¥Æ¥à¤ËÇÛÉÛ¥­¥Ã¥È¤ò¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ë¤Ë¤Ï¡¢ o ¥·¥¹¥Æ¥à´ÉÍý¼Ô¤Î¥¢¥«¥¦¥ó¥È¤Ç¥í¥°¥¤¥ó¤¹¤ë¡£ o ¥æ¡¼¥¶Á´°÷¤¬¥í¥°¥¢¥¦¥È¤·¤Æ¡¢¤¹¤Ù¤Æ¤Î¥Ð¥Ã¥Á¡¦¥¸¥ç¥Ö¤¬½ª λ¤·¤Æ¤¤¤ë¤³¤È¤ò³Îǧ¤¹¤ë¡£ o ¥í¥°¥¤¥ó¤òÀ©¸Â¤·¤Æ¡¢DECnet¤ò¥·¥ã¥Ã¥È¥À¥¦¥ó¤¹¤ë¡£ o ¥·¥¹¥Æ¥à¡¦¥Ç¥£¥¹¥¯¤ò¥Ð¥Ã¥¯¥¢¥Ã¥×¤·¤Æ¤¤¤ë¤«³Îǧ¤¹¤ë¡£ o ¥·¥¹¥Æ¥à¡¦¥Ç¥£¥¹¥¯¤Ë1,300¥Ö¥í¥Ã¥¯°Ê¾å¤Î¶õ¤­Îΰ褬¤¢¤ë ¤«³Îǧ¤¹¤ë¡£ 2-4 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.1¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î½àÈ÷ 2.1.4.1 VMSINSTAL¤Î»ÈÍÑ VMSINSTAL¤Ï¡¢OpenVMS¥ì¥¤¥ä¡¼¥É¡¦¥½¥Õ¥È¥¦¥§¥¢À½Éʤò¥¤¥ó¥¹¥È ¡¼¥ë¤¹¤ë¤¿¤á¤Î¥³¥Þ¥ó¥É¡¦¥×¥í¥·¡¼¥¸¥ã¤Ç¤¹¡£°Ê²¼¤ÏVMSINSTAL¥³ ¥Þ¥ó¥É¡¦¥é¥¤¥ó¤Î·Á¼°¤Ç¤¹¡£ $ @SYS$UPDATE:VMSINSTAL JSNA3270nnn ddcu: [OPTION N] ¤³¤³¤Ç nnn ¥á¥¸¥ã¡¼¤Ê¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤È¡¢¤½¤Î¥Ð¡¼¥¸¥ç¥ó¤Ë¤ª¤±¤ë¸½ºß¤Î¥á ¥ó¥Æ¥Ê¥ó¥¹¡¦¥¢¥Ã¥×¥Ç¡¼¥ÈÈÖ¹æ¤Ç¤¹¡£ºÇ½é¤È2·åÌܤÎÃͤϥ᥸¥ã¡¼ ¤Ê¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤òɽ¤·¡¢3·åÌܤÎÃͤϸ½ºß¤Î¥á¥ó¥Æ¥Ê¥ó¥¹¡¦¥¢¥Ã ¥×¥Ç¡¼¥ÈÈÖ¹æ¤òɽ¤·¤Þ¤¹¡£¥­¥Ã¥È¤Î¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤Ï¡¢ÇÛÉÛ¥­¥Ã ¥È¤Î¥é¥Ù¥ë¤«BOM¤Ëµ­ºÜ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£À½ÉÊ̾¤È¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤ò ÆþÎϤ·¤Ê¤¤¤È¡¢VMSINSTAL¤¬ÆþÎϤòÍ׵᤹¤ë¥×¥í¥ó¥×¥È¤¬É½¼¨¤µ¤ì ¤Þ¤¹¡£ ddcu ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥á¥Ç¥£¥¢¤ÎÁõÃÖ̾¤òɽ¤·¤Þ ¤¹¡£dd¤Ï¥Ç¥Ð¥¤¥¹Ì¾¡¢c¤Ï¥³¥ó¥È¥í¡¼¥ëID¡¢u¤Ï¥æ¥Ë¥Ã¥ÈÈÖ¹æ¤Ç ¤¹¡£¥³¥ó¥½¡¼¥ë¡¦¥É¥é¥¤¥Ö¤ò»È¤¦É¬ÍפϤ¢¤ê¤Þ¤»¤ó¡£ÁõÃÖ̾¤òÆþ ÎϤ·¤Ê¤¤¤ÈVMSINSTAL¤¬ÆþÎϤòÍ׵᤹¤ë¥×¥í¥ó¥×¥È¤òɽ¼¨¤·¤Þ¤¹¡£ MTA0¡§¤ÏËܽñ¤ÎÎã¤Ç»ÈÍѤ¹¤ëÁõÃÖ̾¤Ç¤¹¡£ OPTIONS N ¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È¤Îɽ¼¨¡¢¤Þ¤¿¤Ï°õºþ¤ò¹Ô¤¦¤«¤É¤¦¤«¤È¤¤¤¦¥× ¥í¥ó¥×¥È¤¬É¬Íפʻþ¤ËÆþÎϤ¹¤ë¡¢¥ª¥×¥·¥ç¥ó¤Î¥Ñ¥é¥á¡¼¥¿¤Ç¤¹¡£ OPTIONS N¥Ñ¥é¥á¥¿¤ò»ØÄꤷ¤Ê¤¤¤È¡¢VMSINSTAL¤Ï¥ê¥ê¡¼¥¹¥Î¡¼¥È ¤Îɽ¼¨¤ä°õºþ¤ò¹Ô¤¦¤«¤É¤¦¤«¤ÎÌ䤤¹ç¤»¤Ï¹Ô¤¤¤Þ¤»¤ó¡£ VMSINSTAL¤ò»ÈÍѤ·¤ÆÀ½Éʤò¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ë¾ì¹ç¡¢2Ä̤ê¤ÎÊý Ë¡¤¬¤¢¤ê¤Þ¤¹¡£¥³¥Þ¥ó¥É¥é¥¤¥ó¤ËÀ½ÉÊ̾¡¢¥Ð¡¼¥¸¥ç¥óÈֹ桢ÁõÃÖ Ì¾¡¢¥ê¥ê¡¼¥¹¥Î¡¼¥È¤Î¥ª¥×¥·¥ç¥ó¤ò»ØÄꤷ¤ÆVMSINSTAL¤òµ¯Æ°¤¹¤ë ÊýË¡¤È¡¢°Ê²¼¤Î¥³¥Þ¥ó¥É¤òÆþÎϤ¹¤ëÊýË¡¤Ç¤¹¡£ $ @SYS$UPDATE:VMSINSTAL ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2-5 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.1¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î½àÈ÷ ¾åµ­¤Î¥³¥Þ¥ó¥É¤òÆþÎϤ¹¤ë¤È¡¢VMSINSTAL¤ÏÀ½ÉÊ̾¡¢¥Ð¡¼¥¸¥ç¥óÈÖ ¹æ¡¢ÁõÃÖ̾¤ò¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥óÃæ¤ËÌ䤤¹ç¤ï¤»¤Æ¤­¤Þ¤¹¡£¤³¤Î ¥³¥Þ¥ó¥É¤ò»ÈÍѤ¹¤ë¾ì¹ç¤Ë¤Ï¡¢¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È¤Îɽ¼¨¤Þ¤¿¤Ï°õ ºþ¤«¤Î¥ª¥×¥·¥ç¥ó¤Ï¤¢¤ê¤Þ¤»¤ó¡£ 2.1.5 ¥ª¥ó¥é¥¤¥ó¡¦¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È ÆüËܸìDSPI¤Ç¤Ï¡¢¥ª¥ó¥é¥¤¥ó¡¦¥ê¥ê¡¼¥¹¥Î¡¼¥È¤¬Ä󶡤µ¤ì¤Æ¤¤ ¤Þ¤¹¡£VMSINSTAL¤òOPTION N¥Ñ¥é¥á¡¼¥¿ÉÕ¤­¤Çµ¯Æ°¤¹¤ë¤È¡¢¥ê ¥ê¡¼¥¹¡¦¥Î¡¼¥È¤Îɽ¼¨¤«°õºþ¤«¤Î¥×¥í¥ó¥×¥È¤¬¥¤¥ó¥¹¥È¥ì¡¼¥· ¥ç¥óÃæ¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£¤³¤Î¸å¡¢¥¿¥¤¥×¤Þ¤¿¤Ï°õºþ¤ò¹Ô¤¤¡¢¥ê ¥ê¡¼¥¹¡¦¥Î¡¼¥ÈSYS$HELP:JSNA3270Annn.RELEASE_NOTES (Î㤨¤Ð SYS$HELP:JSNA3270A014.RELEASE_NOTES)¤òÆɤळ¤È¤¬¤Ç¤­¤Þ¤¹¡£ nnn¤Ï¥á¥¸¥ã¡¼¤Ê¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤È¤½¤Î¥Ð¡¼¥¸¥ç¥ó¤Ç¤Î¥á¥ó¥Æ¥Ê¥ó ¥¹¡¦¥¢¥Ã¥×¥Ç¡¼¥ÈÈÖ¹æ¤Ç¤¹¡£ºÇ½é¤È2·å¤ÎÃͤϥ᥸¥ã¡¼¤Ê¥Ð¡¼¥¸¥ç ¥óÈÖ¹æ¤Ç¡¢3·åÌܤÎÃͤϥá¥ó¥Æ¥Ê¥ó¥¹¡¦¥¢¥Ã¥×¥Ç¡¼¥ÈÈÖ¹æ¤Ç¤¹¡£ _________________________________________________________________ 2.2 ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó ¤³¤Î¾Ï¤Ç¤Ï¡¢ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ÎÊýË¡¤Ë¤Ä¤¤¤ÆÀâ ÌÀ¤·¤Þ¤¹¡£¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Ï¡¢¥¹¥Æ¥Ã¥×¤òƧ¤ó¤Ç¿Ê¤á¤é¤ì¤Þ ¤¹¡£ºÇ¸å¤ÎÀá¤Ë¤Ï¡¢PAK¾ðÊó¤ÈVMSINSTAL¤ò»ÈÍѤ·¤¿¼ÂºÝ¤Î¥¤¥ó¥¹ ¥È¥ì¡¼¥·¥ç¥ó¡¦¥í¥°¤ò¤Î¤»¤Æ¤¢¤ê¤Þ¤¹¡£ 2.2.1 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥×¥í¥·¡¼¥¸¥ã ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Ï¡¢¤¤¤¯¤Ä¤«¤Î¼ÁÌä¤È¤¤¤¯¤Ä¤«¤Î¥á¥Ã¥»¡¼¥¸ ¤Îɽ¼¨¤ò¹Ô¤¤¤Ê¤¬¤é¿Ê¤á¤é¤ì¤Þ¤¹¡£¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Ë¤Ï2¡Á5 ʬÄøÅÙ¤«¤«¤ê¤Þ¤¹¡£ 2.2.1.1 VMSINSTAL¤Îµ¯Æ° ¤³¤ÎÀá¤Ç¤Ï¡¢VMSINSTAL¤ò»ÈÍѤ·¤ÆÆüËܸìDSPI¤ò¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ë »þ¤ÎÊýË¡¤ò½çÈÖ¤ËÀâÌÀ¤·¤Þ¤¹¡£¹ç¤ï¤»¤Æ¡¢¤½¤ì¤¾¤ì¤Î¥×¥í¥ó¥×¥È ¤Î°ÕÌ£¤Ë¤Ä¤¤¤Æ¤âÀâÌÀ¤·¤Þ¤¹¡£ 2-6 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.2ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó VMSINSTAL¤Îµ¯Æ°Ãæ¤Ë¤Ï¡¢Ã±¤Ë¥­¡¼¤òÆþÎϤ¹¤ë¤³¤È¤Ë¤è¤ê¾Ê άÃͤò»ÈÍѤ¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£Æä˻ØÄꤵ¤ì¤Æ¤¤¤Ê¤¤¸Â¤ê¡¢¤½ ¤ì¤¾¤ì¤Î¥³¥Þ¥ó¥É¡¦¥é¥¤¥ó¤Ï¤òÆþÎϤ·¤Æ½ªÎ»¤µ¤»¤Þ¤¹¡£ ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ÎÅÓÃæ¤Ç¤Ï¡¢¤òÆþÎϤ·¤Æ¤¤¤Ä¤Ç¤â¥¤ ¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤òÃæ»ß¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤òÆþÎϤ¹ ¤ë¤È¡¢¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥×¥í¥·¡¼¥¸¥ã¤Ï¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó ¼Â¹ÔÃæ¤ËºîÀ®¤·¤¿¥Õ¥¡¥¤¥ë¤òºï½ü¤·¤Æ¡¢¸µ¤Î¾õÂÖ¤ËÌᤷ¤Æ½ªÎ»¤· ¤Þ¤¹¡£¤òÆþÎϤ·¤¿¸å¤ËºÆ¤Ó¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ò¹Ô¤¦»þ ¤Ë¤Ï¡¢VMSINSTAL¤òºÆµ¯Æ°¤·¤Þ¤¹¡£VMSINSTAL¤Îµ¯Æ°¤Ë¤Ä¤¤¤Æ¤Ï¡¢ ¥¹¥Æ¥Ã¥×£²¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ VMS¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¡¦¥·¥¹¥Æ¥à¤Îº£¸å¤Î¥ê¥ê¡¼¥¹¤Ë¤ª¤¤¤Æ¡¢ VMSINSTAL¤¬µ¡Ç½³ÈÄ¥¤µ¤ì¡¢¤½¤Î·ë²Ì¡¢¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Ë¤ª¤¤ ¤Æ¿·¤·¤¤¥×¥í¥ó¥×¥È¤¬É½¼¨¤µ¤ì¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¡£¤½¤Î¤è¤¦¤Ê¥× ¥í¥ó¥×¥È¤ÏËܽñ¤Ëµ­ºÜ¤µ¤ì¤Æ¤¤¤Ê¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢¥¤¥ó¥¹¥È ¥ì¡¼¥·¥ç¥ó¤ÏÌäÂê¤Ê¤¯¼Â¹Ô¤µ¤ì¤Þ¤¹¡£ ¥¹¥Æ¥Ã¥×£±¡§¥·¥¹¥Æ¥à´ÉÍý¼Ô¤Î¥¢¥«¥¦¥ó¥È¤Ë¥í¥°¥¤¥ó Username: SYSTEM Password: ¥¹¥Æ¥Ã¥×£²¡§VMSINSTAL¤Îµ¯Æ° $ @SYS$UPDATE:VMSINSTAL JSNA3270nnn ddcn: OPTION N À½ÉÊ̾¤ÎÃæ¤Înnn¤Ï¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤Ç¤¹¡£Î㤨¤ÐJSNA3270A014¤È¤· ¤Þ¤¹¡£ ddcn¤Ï¥á¥Ç¥£¥¢¤ò¥Þ¥¦¥ó¥È¤¹¤ë¥Ç¥Ð¥¤¥¹¤Î̾Á°¤Ç¤¹¡£¤³¤³¤Çdd¤Ï ¥Ç¥Ð¥¤¥¹Ì¾¡¢c¤Ï¥³¥ó¥È¥í¡¼¥ëID¡¢n¤Ï¥æ¥Ë¥Ã¥ÈÈÖ¹æ¤Ç¤¹¡£ VAX/VMS Software Product Installation Procedure V5.4 It is dd-mmm-yyyy at hh::mm. Enter a question mark (?) at any time for help. * Are you satisfied with the backup of your system disk [YES]? ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2-7 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.2ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó ¥¹¥Æ¥Ã¥×£³¡§¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î³«»Ï ÆüËܸìDSPI¤¬Æþ¤Ã¤Æ¤¤¤ë¥á¥Ç¥£¥¢¤¬¡¢»ØÄꤵ¤ì¤¿¥Ç¥Ð¥¤¥¹¤Ë¥Þ¥¦ ¥ó¥È¤µ¤ì¤¿¤³¤È¡¢¤ª¤è¤Ó¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤¬³«»Ï¤µ¤ì¤¿¤³¤È¤¬ ɽ¼¨¤µ¤ì¤Þ¤¹¡£ Please mount the first volume of the set on MTA0: * Are you ready? YES %MOUNT-I-MOUNTED, JSNA3270 mounted on _MTA0: The following products will be processed: JSNA3270A Vn.n Beginning installation of JSNA3270A Vn.n at hh::mm %VMSINSTAL-I-RESTORE, Restoring product save set A... n.n¤ÏÆüËܸìDSPI¤Î¥Ð¡¼¥¸¥ç¥ó¤Ë¼«Æ°Åª¤ËÃÖ¤­´¹¤¨¤é¤ì¤Þ¤¹¡£Î㤨 ¤ÐV1.4¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£ ¥¹¥Æ¥Ã¥×£´¡§¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È¤Î¥ª¥×¥·¥ç¥ó¤ÎÁªÂò ¥¹¥Æ¥Ã¥×£²¤Ë¤ª¤¤¤ÆOPTIONS N¤òÁªÂò¤·¤¿¾ì¹ç¡¢¼¡¤Î¥×¥í¥ó¥×¥È¤¬ ɽ¼¨¤µ¤ì¤Þ¤¹¡£ Release Notes Options: 1. Display release notes 2. Print release notes 3. Both 1 and 2 4. Copy release notes to SYS$HELP 5. Do not display, print or copy release notes * Select option [3]: ¥ª¥×¥·¥ç¥ó£±¤òÁªÂò¤¹¤ë¤È¡¢VMSINSTAL¤ÏüËö¤Ë¥ê¥ê¡¼¥¹¡¦¥Î¡¼ ¥È¤òɽ¼¨¤·¤Þ¤¹¡£É½¼¨¤òÃæ»ß¤µ¤»¤¿¤¤»þ¤Ë¤Ï¤òÆþÎϤ·¤Þ ¤¹¡£ ¥ª¥×¥·¥ç¥ó£²¤òÁªÂò¤¹¤ë¤È¡¢¥×¥ê¥ó¥È¡¦¥­¥å¡¼Ì¾¤òÆþÎϤ¹¤ë¤¿¤á ¤Î¥×¥í¥ó¥×¥È¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£ * Queue name [SYS$PRINT]: ¥­¥å¡¼Ì¾¤òÆþÎϤ¹¤ë¤«¡¢¤Þ¤¿¤Ï¾ÊάÃͤΥץê¥ó¥È¡¦¥Ç¥Ð¥¤¥¹ SYS$PRINT¤Ë°õºþ¤·¤¿¤¤¾ì¹ç¤Ë¤Ï¤òÆþÎϤ·¤Æ¤¯¤À¤µ¤¤¡£ 2-8 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.2ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó ¥ª¥×¥·¥ç¥ó£³¤òÁªÂò¤¹¤ë¤È¡¢VMSINSTAL¤Ï¥×¥ê¥ó¥È¡¦¥­¥å¡¼Ì¾¤òÌä ¤¤¹ç¤»¡¢¤«¤Ä¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È¤òɽ¼¨¤·¤Þ¤¹¡£ ¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È¤Îɽ¼¨¤Þ¤¿¤Ï°õºþ¤Î¸å¡¢°Ê²¼¤Î¤è¤¦¤Ê¥×¥í¥ó¥× ¥È¤È¥á¥Ã¥»¡¼¥¸¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£ * Do you want to continue the installation? Y %VMSINSTAL-I-RELMOVED, The products release notes have been successfully moved to SYS$HELP. ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ò³¤±¤ë¾ì¹ç¤Ë¤ÏY ¤òÆþÎϤ·¤Þ¤¹¡£¤â¤· N ¡¢¤Þ¤¿¤Ïñ¤Ë¤òÆþÎϤ¹¤ë¤È¡¢VMSINSTAL¤Ï¥¤¥ó¥¹¥È¥ì ¡¼¥·¥ç¥ó¤òÃæ»ß¤·¤Þ¤¹¡£ ¥¹¥Æ¥Ã¥×£µ¡§É¸½àÈÇDSPI¤Î¥é¥¤¥»¥ó¥¹¤Î³Îǧ ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤¬»Ï¤Þ¤ë¤È¼¡¤Î¤è¤¦¤Ê¥á¥Ã¥»¡¼¥¸¤¬É½¼¨¤µ¤ì ¤Þ¤¹¡£ This procedure will register and load the Product Authorization Key (PAK) for the software product DECnet/SNA VMS DSPI (English) V1.4. Please disregard the instructions in your Installation Guide for loading and registering the PAK for this product (SNA-3270-DSPI). This procedure supercedes those instructions. Before beginning this procedure, you must first unload and disable any existing Field Test PAKs or Temporary Service PAKs. When disabling these PAKs, you must specify the authorization number. The commands to do this are as follows: $ license unload SNA-3270-DSPI $ license disable SNA-3270-DSPI /auth= Please unload and disable all Field Test SNA-3270-DSPI Licences before continuing this installation. * Do you want to continue the installation [YES]? ¤â¤·¡¢¤¹¤Ç¤Ëɸ½àÈÇ DSPI V1.4¤Î¥Õ¥£¡¼¥ë¥É¥Æ¥¹¥ÈÍѤÎPAKËô¤Ï TSP (Temporary Service PAK) ¤¬ÅÐÏ¿¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¡¢ÆüËܸì DSPI¤Î¥¤¥ó¥¹¥È¡¼¥ëÁ°¤Ë¤½¤ì¤é¤¬UNLOAD ¤«¤ÄDISABLE¤Î¾õÂÖ¤Ç¤Ê ¤¯¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£¤½¤¦¤Ç¤Ê¤¤¾ì¹ç¤Ï¡¢"NO"¤òÆþ ÎϤ·¤Æ¡¢¥¤¥ó¥¹ ¥È¡¼¥ë¤òÃæ»ß¤·¤Æ¤¯¤À¤µ¤¤¡£¤½¤·¤Æ¡¤¾åµ­¥á¥Ã¥»¡¼¥¸Ãæ¤Î£²¤Ä¤Î LICENSE¥³¥Þ¥ó ¥É¤Ë¤è¤êUNLOAD¡¢DISABLE¤Ë¤·¤¿¸å¡¢ºÆ¤ÓºÇ½é¤«¤é ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2-9 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.2ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó ¥¤¥ó¥¹¥È¡¼¥ë¤òºÆ³«¤·¤Æ ²¼¤µ¤¤¡£ÌäÂ꤬¤Ê¤±¤ì¤Ð¡¢"YES"¤òÆþÎÏ ¤·¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ò³¹Ô¤·¤Æ²¼ ¤µ¤¤¡£ ¼«Æ°Åª¤Ëɸ½àÈÇDSPI¤Î¥é¥¤¥»¥ó¥¹¤¬ÅÐÏ¿¤µ¤ì¡¢¥­¡¼¤¬¥í¡¼¥É¤µ¤ì ¤Þ¤¹¡£½ªÎ»¤¹¤ë¤È¼¡¤Î¥á¥Ã¥»¡¼¥¸¤¬¤Ç¤Þ¤¹¡£ %LICENSE-I-LOADED, DEC SNA-3270-DSPI was successfully loaded with 0 units DECnet/SNA DSPI PAK installation completed. ¥¹¥Æ¥Ã¥×£¶¡§ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¡¼¥ë ÆüËܸìDSPI¤ò¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ë¤«¤É¤¦¤«ÁªÂò¤·¤Þ¤¹¡£ * Do you want to install Nihongo 3270 DSPI V1.4 now ? [YES]? ________________________ Ãí°Õ ________________________ ¤â¤·¡¢ÆüËܸìDSPI¤ÎPAK¤ÎÅÐÏ¿¤È¥í¡¼¥É¤ò¹Ô¤Ã¤Æ¤¤¤Ê¤¤¤Î¤Ç ¤¢¤ì¤ÐÀ½Éʤò¥¤¥ó¥¹¥È¡¼¥ë¤Ç¤­¤Þ¤»¤ó¡£¤½¤Î¾ì¹ç¤Ï"NO"¤òÆþ ÎϤ·¤Æ¡¤¥¤¥ó¥¹¥È¡¼¥ë¤òÃæ»ß¤·¤Æ¤¯¤À¤µ¤¤¡£¤½¤·¤Æ¡¤ÆüËܸì DSPI¤ÎPAK¤ÎÅÐÏ¿¤È¥í¡¼¥É¤·¤¿¸å¡¤ºÆ¤ÓºÇ½é¤«¤é¥¤¥ó¥¹¥È¡¼ ¥ë¤òºÆ³«¤·¤Æ¤¯¤À¤µ¤¤¡£ ______________________________________________________ LMF¤Ë¤Ä¤¤¤Æ¤Ï¡¢VMS License Management Utility Reference Manual¤ò¤´Í÷²¼¤µ¤¤¡£ ¥¹¥Æ¥Ã¥×£·¡§¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥ª¥×¥·¥ç¥ó¤ÎÁªÂò * Do you want to remain the old version files, only if they exist [YES]? ¥·¥¹¥Æ¥à¡¦¥Ç¥£¥¹¥¯¤Ë¤Ï¡¢°ÊÁ°¤Î¥Ð¡¼¥¸¥ç¥ó¤Î¥Õ¥¡¥¤¥ë¤¬¤¢¤ë¤« ¤â¤·¤ì¤Þ¤»¤ó¡£¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î´Ö¤Ë¤½¤ì¤é¤Ï¿·¤·¤¤¤â¤Î¤È ÃÖ¤­´¹¤¨¤é¤ì¤Þ¤¹¤¬¡¢¸Å¤¤¥Õ¥¡¥¤¥ë¤Ï¼«Æ°Åª¤Ë¤Ïºï½ü¤µ¤ì¤Þ¤»¤ó ¤Î¤Ç¡¢¥Ñ¡¼¥¸¤ò¤ª´«¤á¤·¤Þ¤¹¡£¥×¥í¥ó¥×¥È¤ËÂФ·¤Æ¡¢¤«¤Þ¤¿ ¤ÏN¤òÆþÎϤ·¤Æ²¼¤µ¤¤¡£ 2-10 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.2ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó ¤³¤³¤Ç¡¢¸Å¤¤¥Ð¡¼¥¸¥ç¥ó¤Î¥Õ¥¡¥¤¥ë¤ò»Ä¤¹¤è¤¦¤Ë"YES"¤ò»ØÄꤷ¤¿ ¾ì¹ç¤Ë¤Ï¡¢SYS$LIBRARY¥Ç¥£¥ì¥¯¥È¥ê¤ËEXSNA3270SH_OLD.EXE¤È¤¤ ¤¦¥Õ¥¡¥¤¥ë̾¤Ç»Ä¤µ¤ì¤Þ¤¹¡£¤½¤·¤Æ¼¡¤Î¥á¥Ã¥»¡¼¥¸¤¬É½¼¨¤µ¤ì¤Þ ¤¹¡£ The old version file SYS$LIBRARY:EXSNA3270SH_OLD.EXE was created. ¥¹¥Æ¥Ã¥×£¸¡§¥¤¥ó¥Õ¥©¥á¡¼¥·¥ç¥ó¡¦¥á¥Ã¥»¡¼¥¸¤Îɽ¼¨ ¤³¤³¤Ç¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥×¥í¥·¡¼¥¸¥ã¤Ï¡¢°Ê²¼¤Î¤è¤¦¤Ê¥á¥Ã ¥»¡¼¥¸¤òɽ¼¨¤·¤Þ¤¹¡£ %VMSINSTAL-I-MOVEFILES, Files will now be moved to their target directories... ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥×¥í¥·¡¼¥¸¥ã¤¬½ªÎ»¤¹¤ë»þ¤Ë¡¢¼Â¹Ô¥¤¥á¡¼ ¥¸¤ÏÌÜŪ¤Î¥Ç¥£¥ì¥¯¥È¥ê¤Ë°Ü¤µ¤ì¤Þ¤¹¡£ ¥¹¥Æ¥Ã¥×£¹¡§¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î½ªÎ» Installation of JSNA3270A V1.4 completed at 13:41 VMSINSTAL procedure done at 13:41 $ LOGOUT SYSTEM logged out at dd-mmm-yyyy hh:mm VMSINSTAL¤Ï¡¢¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¼Â¹Ô»þ¤Î¥×¥í¥»¥¹¡¦¥·¥ó¥Ü¥ë¡¦ ¥Æ¡¼¥Ö¥ë¤Î¥¨¥ó¥È¥ê¤òºï½ü¤Þ¤¿¤ÏÊѹ¹¤·¤Þ¤¹¡£½¾¤Ã¤Æ¡¢¤³¤Î¸å¤â ³¤±¤Æ¥·¥¹¥Æ¥à´ÉÍý¼Ô¤Î¥¢¥«¥¦¥ó¥È¤ò»ÈÍѤ·¡¢¤³¤ì¤é¤Î¥·¥ó¥Ü¥ë ¤òÉü¸µ¤¹¤ë¤¿¤á¤Ë¤Ï¡¢°ìÅÙ¥í¥°¥¢¥¦¥È¤·¡¢¤â¤¦°ìÅÙ¥í¥°¥¤¥ó¤¹¤ë ɬÍפ¬¤¢¤ê¤Þ¤¹¡£ ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2-11 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.2ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó 2.2.1.2 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Ë¤è¤êºîÀ®¤µ¤ì¤ë¥Õ¥¡¥¤¥ë ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¼Â¹Ô»þ¤Ë¡¢VMSINSTAL¤Ï°Ê²¼¤Î¥Õ¥¡¥¤¥ë¤òºîÀ® ¤·¤Þ¤¹¡£ ɽ 2-2 ¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤ë¥Õ¥¡¥¤¥ë ___________________________________________________________ ¥Õ¥¡¥¤¥ë̾_________________¥Ç¥£¥ì¥¯¥È¥ê____________________ EXSNA3270SH.EXE SYS$SHARE EX3270DF.BAS SYS$LIBRARY EX3270DF.FOR SYS$LIBRARY EX3270DF.H SYS$LIBRARY EX3270DF.MAR SYS$LIBRARY EX3270DF.PAS SYS$LIBRARY EX3270DF.PEN SYS$LIBRARY EX3270DF.PLI SYS$LIBRARY EX3270DF.R32 SYS$LIBRARY JSNA3270DF.ADA SYS$LIBRARY JSNA3270DF.BAS SYS$LIBRARY JSNA3270DF.FOR SYS$LIBRARY JSNA3270DF.H SYS$LIBRARY JSNA3270DF.LIB SYS$LIBRARY JSNA3270DF.MAR SYS$LIBRARY JSNA3270DF.PAS SYS$LIBRARY ___________________________________________________________ (¼¡¥Ú¡¼¥¸¤Ë³¤¯) 2-12 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.2ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó ɽ 2-2 (³¤­) ¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤ë¥Õ¥¡¥¤¥ë ___________________________________________________________ ¥Õ¥¡¥¤¥ë̾_________________¥Ç¥£¥ì¥¯¥È¥ê____________________ JSNA3270DF.PEN SYS$LIBRARY JSNA3270DF.PLI SYS$LIBRARY JSNA3270DF.R32 SYS$LIBRARY JSNA3270A014.RELEASE_ SYS$HELP NOTES______________________________________________________ ÆüËܸìDSPI¤Î¥Ø¥ë¥×¾ðÊó¤âJSY$SYSTEM:JSYHELP.HLB¤ËÉÕ¤±²Ã¤¨¤é ¤ì¤Þ¤¹¡£ 2.2.2 ÌäÂêÅÀ¤ÎÄÌÃÎ ËÜ¥½¥Õ¥È¥¦¥§¥¢¤Ë¤Ä¤¤¤Æ¤Ï¡¤ÆüËÜDEC½êÄê¤Î¥½¥Õ¥È¥¦¥§¥¢Êݾڴð½à ¤ËÄê¤á¤é¤ì¤¿Êݾڤ¬Ä󶡤µ¤ì¤Þ¤¹¤Î¤Ç¡¤¤½¤ÎÆâÍƤˤ·¤¿¤¬¤Ã¤¿½è ÃÖ¤ò¼è¤Ã¤Æ¤¯¤À¤µ¤¤¡£ ¤Ê¤ª¡¤¤´ÉÔÌÀ¤ÊÅÀ¤Ë¤Ä¤­¤Þ¤·¤Æ¤Ï¡¤ÆüËÜDEC¤Î³Æ»ÙŹ/±Ä¶È½ê¤Ë¤ª Ì䤤¹ç¤ï¤»¤¯¤À¤µ¤¤¡£ 2.2.3 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î¥µ¥ó¥×¥ë Username: SYSTEM Password: Welcome to OpenVMS AXP V1.5 Last interactive login on Monday, 17-APR-1994 14:58 Last non-interactive login on Monday, 17-APR-1994 17:45 $ SET DEFAULT SYS$UPDATE $ @SYS$UPDATE:VMSINSTAL OpenVMS ALPHA Software Product Installation Procedure V1.5 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2-13 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.2ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó It is 18-APR-1994 at 17:43. Enter a question mark (?) at any time for help. * Are you satisfied with the backup of your system disk [YES]? Y * Where will the distribution volumes be mounted: MKB500: Enter the products to be processed from the first distribution volume set. * Products: JSNA3270A014 * Enter installation options you wish to use (none): The following products will be processed: JSNA3270A V1.4 Beginning installation of JSNA3270A V1.4 at 17:44 %VMSINSTAL-I-RESTORE, Restoring product save set A ... This procedure will register and load the Product Authorization Key (PAK) for the software product DECnet SNA VMS DSPI (English) V1.4. Please disregard the instructions in your Installation Guide for loading and registering the PAK for this product (SNA-3270-DSPI). This procedure supercedes those instructions. Before beginning this procedure, you must first unload and disable any existing Field Test PAKs or Temporary Service PAKs. When disabling these PAKs, you must specify the authorization number. The commands to do this are as follows: $ license unload SNA-3270-DSPI $ license disable SNA-3270-DSPI /auth= Please unload and disable all Field Test SNA-3270-DSPI Licences before continuing this installation. * Do you want to continue the installation [YES]? Y DECnet SNA DSPI PAK has already installed. * Do you want to install Nihongo 3270 DSPI V1.4 now ? [YES]? Y * Do you want to remain the old version files, only if they exist [YES]? N %VMSINSTAL-I-MOVEFILES, Files will now be moved to their target directories... Installation of JSNA3270A V1.4 completed at 17:45 Adding history entry in VMI$ROOT:[SYSUPD]VMSINSTAL.HISTORY Creating installation data file: VMI$ROOT:[SYSUPD]JSNA3270A014.VMI_DATA 2-14 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2.2ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó Enter the products to be processed from the next distribution volume set. * Products: Exit VMSINSTAL procedure done at 17:46 $ LOGOUT ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¡¦¥¬¥¤¥É 2-15 _________________________________________________________________ º÷°ú _D_____________________________ _¥¢____________________________ DSPI, 1-2 ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¦¥×¥í¥°¥é¥à, I 1-2 _______________________________ IBM/DEC¥³¡¼¥ÉÊÑ´¹, 1-7 _¥¤____________________________ IBM, 1-2 ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤Î½àÈ÷, 2-1 L OpenVMS¥·¥¹¥Æ¥à¤ÎɬÍ×»ö¹à, _______________________________ 2-2 LU¥¿¥¤¥×2, 1-6 OpenVMS¥é¥¤¥»¥ó¥¹´ÉÍýµ¡Ç½, 2-3 _S_____________________________ ¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç¥ó¤ÎɬÍ×»ö¹à, SNA¤ÎÍѸì 2-2 SSCP-LU¥»¥Ã¥·¥ç¥ó, 1-3 ɬ¿Ü¥½¥Õ¥È¥¦¥§¥¢, 2-1 SNA¤ÎÍѸì, 1-3 ÇÛÉÛ¥­¥Ã¥È¤Î³Îǧ, 2-1 LU-LU¥»¥Ã¥·¥ç¥ó, 1-3 ¥¨¥ó¥É¡¦¥æ¡¼¥¶, 1-3 _¥ª____________________________ ʪÍýÁõÃÖ(PU), 1-4 ¥ª¥ó¥é¥¤¥ó¡¦¥ê¥ê¡¼¥¹¡¦¥Î¡¼¥È, ¥»¥Ã¥·¥ç¥ó, 1-3 2-6 ÏÀÍýÁõÃÖ(LU), 1-3 V _¥«____________________________ _______________________________ ³ÈÄ¥DS UTL, 1-2, 1-6, 1-9 VMSINSTALɬÍ×»ö¹à, 2-4 ³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥± ¥ó¥¹, 1-54 EXSNA3270$READ_FIELD, 1-58 EXSNA3270$RECEIVE_SCREEN, 1-55 º÷°ú-1 ³Æ¥ë¡¼¥Á¥ó¤Î¥³¡¼¥ê¥ó¥°¡¦¥·¡¼¥± 3270¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤Ø¤Î¥Ç ¥ó¥¹ (³¤­) ¡¼¥¿¤Î½ñ¹þ¤ß, 1-38 EXSNA3270$TRANSMIT_SCREEN, 1-62 _¥»____________________________ EXSNA3270$WRITE_FIELD, 1-60 ¥»¥Ã¥·¥ç¥ó¤Î³ÎΩ, 1-11 ¥»¥Ã¥·¥ç¥ó¤Î½ªÎ», 1-38 _¥­____________________________ ¥»¥ó¥¹¡¦¥³¡¼¥É¤ÎÁ÷¿®, 1-29 ´ðËÜŪ¤ÊIBM¤ÎÍѸì, 1-3 LU¥¿¥¤¥×2, 1-3 _¥Æ____________________________ 3270¾ðÊóɽ¼¨¥·¥¹¥Æ¥à, 1-3 ¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à, 1-2 _¥·____________________________ _¥È____________________________ 3270¾ðÊóɽ¼¨¥·¥¹¥Æ¥à, 1-4 Ʊ´ü¥â¡¼¥É, 1-7 3270¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡, 1-4 _¥Ë____________________________ ³Èĥ°À­, 1-5 ÆüËܸìDSPI¤Î¥¤¥ó¥¹¥È¥ì¡¼¥·¥ç ¥Õ¥£¡¼¥ë¥É¤Î°À­, 1-5 ÄêÍͼ°²èÌÌ, 1-4 ¥ó, 2-6 ´ðËÜ°À­, 1-5 ÆüËܸìDSPIÍøÍѤμê°ú¤­, 1-9 _______________________________ _¥Ò____________________________ 3270¥¹¥¯¥ê¡¼¥ó¡¦¥¤¥á¡¼¥¸¤Î¼õ ÈóƱ´ü¥â¡¼¥É, 1-7 ¿®, 1-23 ¥¨¥é¡¼¸¡ÃΤȤ½¤Î½èÍý, 1-25 _¥Õ____________________________ ¼õ¿®¥Ð¥Ã¥Õ¥¡¤ÎALLOCATION ¥Ö¥í¥Ã¥¯¡¤¥Ù¥¯¥¿¹½Â¤, 1-11 /DEALLOCATION, 1-23 ATTRIBUTE VECTOR, 1-12 ¹½Â¤²½¥Õ¥£¡¼¥ë¥É¤Î½èÍý, 1-24 CHARACTER VECTOR, 1-11 ¹ÎÄê¡¿ÈÝÄê±þÅú¤ÎÁ÷¿®, 1-23 EXTENDED ATTRIBUTE VECTOR, 3270¥¹¥¯¥ê¡¼¥ó¡¦¥¤¥á¡¼¥¸¤ÎÁ÷ 1-12 ¿®, 1-30 EXTENDED FIELD DESCRIPTOR Á÷¿®¥Ð¥Ã¥Õ¥¡¤ÎALLOCATE BLOCK, 1-17 /DEALLOCATE, 1-30 FIELD DESCRIPTOR BLOCK, 1-17 ¥¨¥é¡¼¸¡ÃΤȤ½¤Î½èÍý, 1-30 FIELD VECTOR, 1-16 ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡, 1-2 SCREEN DESCRIPTOR BLOCK, 3270¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡¤«¤é¤Î 1-17 ¥Ç¡¼¥¿¤ÎÆɤ߼è¤ê, 1-31 ²¾ÁÛ¥¹¥¯¥ê¡¼¥ó¡¦¥Ð¥Ã¥Õ¥¡, 1-11 º÷°ú-2 ¥×¥í¥°¥é¥ß¥ó¥°Îã, 1-39 _¥ê____________________________ ¥ê¥ó¥¯¤ÎÊýË¡, 1-39 º÷°ú-3 ÆüËܸìDECnet SNA 3270¥Ç¡¼¥¿¡¦¥¹¥È¥ê¡¼¥à¡¦¥×¥í¥°¥é¥ß¥ó¥°¡¦¥¤¥ó¥¿¡¼ ¥Õ¥§¥¤¥¹for OpenVMS ÍøÍѼԤμê°ú¤­ _________________________________________________________________ 1994ǯ6·î ȯ¹Ô ÆüËܥǥ£¥¸¥¿¥ë ¥¤¥¯¥¤¥Ã¥×¥á¥ó¥È³ô¼°²ñ¼Ò ¢©167 ÅìµþÅÔ¿ùʶè¾å²®1-2-1 ÅÅÏà (03)5349-7111 (ÂçÂåɽ) _________________________________________________________________ AA-Q6QRA-TE