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

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

£Î£Å£Ã¤Î¥ª¥Õ¥³¥ó¾ðÊó·Ç¼¨ÈġʥΥ¦¥Ï¥¦·Ï¡Ë

£Î£Å£Ã¤Î¥ª¥Õ¥³¥ó¤ò³èÍѤ¹¤ë¤¿¤á¤Î¥Î¥¦¥Ï¥¦¤òÏ䷹礦¤¿¤á¤Î·Ç¼¨ÈĤǤ¹¡£

1: ¡ô£Î£Æ£Ã£Î£Ö¤ÎÀ©¸Â¡©(2)   2: LLNIP¤Î°õºþ(3)   3: ¡ô£Â£Ë£Õ£Ð¤Ç£õ£ó£â¤ËľÀܽÐÎϤǤ­¤Þ¤¹¤«¡©(3)   4: A¡ÝVX¤Î¥×¥ê¥ó¥¿ÀßÄêÊýË¡¤¬Ê¬¤«¤ê¤Þ¤»¤ó(2)   5: £Ï£Ó¤Î£Ã£Ä¤Ë¤Ä¤¤¤Æ(4)   6: ½é´ü¥×¥í¥°¥é¥à¤Ë´Ø¤¹¤ë¼ÁÌä(4)   7: ¥Ü¥ê¥å¡¼¥àMAP¤Ë¤¢¤ë¤¬¡¢#ABC¤À¤È¥Õ¥¡¥¤¥ë¤¬¤ß¤Ä¤«¤é¤Ê¤¤(2)   8: SYS@DDF¤ÎÉüµì(2)   9: ¥¹¥×¡¼¥ë¥Ç¡¼¥¿¤Î¼è¤ê½Ð¤·ÊýË¡¤Ë¤Ä¤¤¤Æ¤Î¼ÁÌä(10)   10: SG½èÍý¤Ë¤Æ¡¢PAGW¼Â¹ÔÃæ¤Ë¥¨¥é¡¼¤¬È¯À¸¤·¤Þ¤·¤¿(9)   11: ¥½¡¼¥¹¥é¥¤¥Ö¥é¥ê¤Î°ì³ç¸¡º÷(9)   12: Ä¢É½¤ò£Ð£Ä£Æ°õºþ¤¹¤ëÊýË¡¡ÊPRINTVEW¤ò»È¤ï¤º¡Ë¤Ï¤¢¤ê¤Þ¤¹¤«(2)   13: SKYLINK¤Ç¥Æ¡¼¥Ö¥ë¤ò¸¡º÷¤¹¤ë¤È¥¨¥é¡¼¤È¤Ê¤ë(1)   14: ¥ª¥Õ¥³¥ó(3)   15: ´ÉÍý¿Í¤µ¤ó¤Ø¤Î¼ÁÌä¤Ç¤¹(3)   16: #LTEDIT¤Ç¥Õ¥©¡¼¥à¤Î¥½¡¼¥¹¤ò»ØÄꤹ¤ë¤È¥á¥ó¥Ð¡¼¤¬¸«¤Ä¤«¤é¤Ê¤¤¤Èɽ¼¨¤µ¤ì¤ë(4)   17: UPS̵¤·¤Î¹½À®¤Ø¤Î¥·¥¹¥Æ¥à°Ü¹Ô(12)   18: #NFCNV ¤Ç¥Ñ¥½¥³¥ó¤ØžÁ÷¤¹¤ë¤È¡¢¥Ç¡¼¥¿¤ÎÀèƬ¤Ë¶õÇò¤¬¤Ä¤¤¤Æ¤·¤Þ¤¦(3)   19: CBL85»ñ»º¤ò£Ï£Ð£Å£Î£ã£ï£â£ï£ì¤Ë°Ü¹Ô¤¹¤ë(3)   20: COBOL¥½¡¼¥¹¤«¤é»ÅÍͽñ¤Î¶ÀºîÀ®¥Ä¡¼¥ë(3)   21: PrintBridge¤Î»È¤¤Êý(8)   22: WS¥¨¥ß¥å¥ì¡¼¥¿¤òWindows7Pro32bitSP1PC¤Ë¥¤¥ó¥¹¥È¡¼¥ë½ÐÍè¤Ê¤¯¤Ê¤Ã¤¿(1)   23: ´Á»ú¤ÈANK¤Î½Ì¾®°õ»ú¤Ë¤Ä¤¤¤Æ(3)   24: #NFCNV¤ÇÀèƬ¤Î¥«¥é¥à¤¬£°¤Ë¤Ê¤ë¤Î¤Ï¡©(2)   25: N7884-14B¤È¸ß´¹À­¤¬¤¢¤ë¥×¥ê¥ó¥¿¤Ë¤Ä¤¤¤Æ(2)   26: É½¼¨¡Ê°õºþ¡Ë¤òǤ°Õ¤Î½çÈ֤ˤ·¤¿¤¤¤Î¤Ç¤¹¤¬¡¦¡¦¡¦(6)   27: JS¤Þ¤¿¤ÏPM¤Î¥³¡¼¥ë¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹(3)   28: ¥Ú¡¼¥¸¥×¥ê¥ó¥¿¡¼¤Î£Ó£ÇÊýË¡(2)   29: SMART¤Î²èÌÌÌÀºÙ¹àÌܤ¬½ª¤ï¤ì¤Ê¤¤(8)   30: £Á£Ö£Ø¤Ç¤Î³°»ú(ô¢¡Ë¤Ë¤Ä¤¤¤Æ(6)  

 ¿·µ¬Åê¹Æ | ¥¹¥ì¥Ã¥Éɽ¼¨ | ¥Ä¥ê¡¼É½¼¨ | Åê¹Æ½çɽ¼¨ | i-mode | ¥È¥Ã¥× 
« 1 ... 22 23 24 (25) 26 27 28 ... 108 »

Re:ʬ³ä¤Ç»Ý¤¯Åê¹Æ¤Ç¤­¤Þ¤·¤¿¡£
¹¾¿ÜÀð 2011-6-15 17:21:35  [ÊÖ¿®] [ÊÔ½¸]


000010 IDENTIFICATION      DIVISION.
000020**************************************************************************
000030*    SOFTWARE DEVELOPMENT AIDING TOOL                                    *
000040*    ¥½¥Õ¥È¥¦¥§¥¢³«È¯»Ù±ç¥Ä¡¼¥ë¡¡¡¡¡¡¡¡      ¡¡¡¡(DEVLOP)                *
000050**************************************************************************
000060*------------------------------------------------------------------------*
000070 PROGRAM-ID.         DEVLOP.
000080 AUTHOR.             SCEN.
000090*------------------------------------------------------------------------*
000100*    ´Ä¶­Éô
000110 ENVIRONMENT         DIVISION.
000120*------------------------------------------------------------------------*
000130*    ¹½À®Àá
000140 CONFIGURATION       SECTION.
000150 SOURCE-COMPUTER.    EXPRESS5800-600AI.
000160 OBJECT-COMPUTER.    EXPRESS5800-600XI.
000170*------------------------------------------------------------------------*
000180*    Æþ½ÐÎÏÀá
000190 INPUT-OUTPUT        SECTION.
000200 FILE-CONTROL.
000210*------------------------------------------------------------------------*
000220*    ¥á¥ó¥Ð¡¼ÍúÎò´ÉÍý¥Õ¥¡¥¤¥ë
000230     SELECT   MBRKF   ASSIGN  TO  MBRKFB-RDB.
000240 I-O-CONTROL.
000250     APPLY  SHARED-MODE  ON  MBRKF.
000260*------------------------------------------------------------------------*
000270*    ¥Ç¡¼¥¿¡¼Éô
000280 DATA                DIVISION.
000290*------------------------------------------------------------------------*
000300*    ¥Õ¥¡¥¤¥ëÀá
000310 FILE                SECTION.
000320 FD  MBRKF
000330     LABEL   RECORD       IS      STANDARD
000340     VALUE   OF  IDENTIFICATION   "MEMBERKANRIFILE-B".
000350 01  MEMBER-REC.
000360     02  MKF-KEY.
000370       03  MKF-MBNM PIC X(06).
000380*                                 ¥á¥ó¥Ð¡¼Ì¾
000390       03  MKF-LBFL PIC X(17).
000400*                                 ¥é¥¤¥Ö¥é¥ê¡¼¥Õ¥¡¥¤¥ë̾
000410       03  MKF-LBDV PIC X(06).
000420*                                 ¥é¥¤¥Ö¥é¥ê¡¼ÁõÃÖ̾
000430     02  MKF-MBTP PIC X(03).
000440*                                 ¥á¥ó¥Ð¡¼¼ïÊÌ¡¡
000450     02  MKF-MBSM PIC X(30).
000460*                                 ¥á¥ó¥Ð¡¼ÀâÌÀʸ
000470     02  MKF-LBF2 PIC X(17).
000480*                                 ¥é¥¤¥Ö¥é¥ê¡¼¥Õ¥¡¥¤¥ë̾£²
000490     02  MKF-LBD2 PIC X(06).
000500*                                 ¥é¥¤¥Ö¥é¥ê¡¼ÁõÃÖ̾£²
000510     02  FILLER  PIC X(151).
000520*                                 £±£µ£±·å¤ÎͽÈ÷
000530     02  MKF-STNO PIC X(06).
000540*                                 ¥¹¥Æ¡¼¥·¥ç¥óÈÖ¹æ
000550     02  MKF-KSHI PIC X(06).
000560*                                 ¹¹¿·Æü
000570     02  MKF-KSTM PIC X(08).
000580*                                 ¹¹¿·»þ´Ö
000590*------------------------------------------------------------------------*
000600*    ºî¶È¾ì½êÀá
000610 WORKING-STORAGE            SECTION.
000620*------------------------------------------------------------------------*
000630*    £Å£Î£Ä¡¡£Ó£Ô£Á£Ô£Õ£Ó¡¡¹àÌÜ̾ÄêµÁ
000640 01  END-STATUS.
000650     02   NON      PIC  X(2)  VALUE  "00".
000660     02   HTB      PIC  X(2)  VALUE  "01".
000670     02   C1       PIC  X(2)  VALUE  "02".
000680     02   C2       PIC  X(2)  VALUE  "03".
000690     02   ADV      PIC  X(2)  VALUE  "04".
000700     02   RTN      PIC  X(2)  VALUE  "05".
000710     02   SKP      PIC  X(2)  VALUE  "06".
000720     02   UARW     PIC  X(2)  VALUE  "07".
000730     02   DARW     PIC  X(2)  VALUE  "08".
000740     02   BSKP     PIC  X(2)  VALUE  "09".
000750     02   FWD      PIC  X(2)  VALUE  "FW".
000760     02   BWD      PIC  X(2)  VALUE  "BW".
000770     02   UPK      PIC  X(2)  VALUE  "UP".
000780     02   DWN      PIC  X(2)  VALUE  "DW".
000790     02   FRM      PIC  X(2)  VALUE  "FM".
000800     02   HLP      PIC  X(2)  VALUE  "P0".
000810     02   PF1      PIC  X(2)  VALUE  "P1".
000820     02   PF2      PIC  X(2)  VALUE  "P2".
000830     02   PF3      PIC  X(2)  VALUE  "P3".
000840     02   PF4      PIC  X(2)  VALUE  "P4".
000850     02   PF5      PIC  X(2)  VALUE  "P5".
000860     02   PF6      PIC  X(2)  VALUE  "P6".
000870     02   PF7      PIC  X(2)  VALUE  "P7".
000880     02   PF8      PIC  X(2)  VALUE  "P8".
000890     02   PF9      PIC  X(2)  VALUE  "P9".
000900     02   PF10     PIC  X(2)  VALUE  "PA".
000910     02   PF11     PIC  X(2)  VALUE  "PB".
000920     02   PF12     PIC  X(2)  VALUE  "PC".
000930     02   PF13     PIC  X(2)  VALUE  "PD".
000940     02   PF14     PIC  X(2)  VALUE  "PE".
000950     02   PF15     PIC  X(2)  VALUE  "PF".
000960     02   PF16     PIC  X(2)  VALUE  "PG".
000970     02   ALFA     PIC  X(2)  VALUE  "AL".
000980     02   MATK     PIC  X(2)  VALUE  "MA".
000990     02   IDKY     PIC  X(2)  VALUE  "ID".
001000*------------------------------------------------------------------------*
001010*    £Ó£Ù£Ó£Ã£È£Á£É£Î¡¡¥ì¥³¡¼¥É
001020 01  SYSCHAIN-REC.
001030     02   FILLER   PIC  X(256).
001040 01  CHN-CNT       PIC  9(04).
001050*------------------------------------------------------------------------*
001060*    £Ó£Ù£Ó£Ã£È£Á£É£Î¡¡¡ô£Ô£Å£Ä£É£Ô¡¡¥ì¥³¡¼¥É
001070 01  EDTCHAIN-REC.
001080     02   FILLER   PIC  X(11) VALUE "#TEDIT;TYP=".
001090     02   EDT-MBTP PIC  X(03) VALUE "COB".
001100     02   FILLER   PIC  X(13) VALUE "_WKD=TEM_WSZ=".
001110     02   EDT-WKSZ PIC  9(05) VALUE 02400.
001120     02   FILLER   PIC  X(07) VALUE "_RALL [".
001130     02   EDT-MBNM PIC  X(06) VALUE "DEVLOP".
001140     02   FILLER   PIC  X(02) VALUE "] ".
001150     02   EDT-LBDV PIC  X(06) VALUE "MSD".
001160     02   FILLER   PIC  X(01) VALUE " ".
001170     02   EDT-LBFL PIC  X(17) VALUE "USERSUL".
001180     02   FILLER   PIC  X(03) VALUE "_/>".
001190 01  EDT-CNT       PIC  9(04) VALUE 74.
001200*------------------------------------------------------------------------*
001210*    £Ó£Ù£Ó£Ã£È£Á£É£Î¡¡£Ã£Ï£Í£Ð£É£Ì£Å¡¡¥ì¥³¡¼¥É
001220 01  CBLCHAIN-REC.
001230     02   FILLER    PIC  X(19) VALUE "CBL85 ,SSW1=ON;SUD=".
001240     02   CBL-LBDV  PIC  X(06) VALUE "MSD   ".
001250     02   FILLER    PIC  X(05) VALUE "_SUF=".
001260     02   CBL-LBFL  PIC  X(17) VALUE "USERSUL".
001270     02   FILLER    PIC  X(05) VALUE "_LBD=".
001280     02   CBL-LBD2 PIC  X(06) VALUE "MSD   ".
001290     02   FILLER    PIC  X(05) VALUE "_LBF=".
001300     02   CBL-LBF2 PIC  X(17) VALUE "USERSUL".
001310     02   FILLER    PIC  X(05) VALUE "_CUD=".
001320     02   FILLER    PIC  X(06) VALUE "MSD   ".
001330     02   FILLER    PIC  X(05) VALUE "_CUF=".
001340     02   FILLER    PIC  X(17) VALUE "USERCUL".
001350     02   FILLER    PIC  X(13) VALUE "_WKD=TEM_WSZ=".
001360     02   FILLER    PIC  9(05) VALUE 02400.
001370     02   FILLER    PIC  X(13) VALUE "_PRD=STN_PRG=".
001380     02   CBL-MBNM  PIC  X(06) VALUE "DEVLOP".
001390     02   FILLER    PIC  X(08) VALUE "_MOD=REP".
001400     02   FILLER    PIC  X(08) VALUE "_COD=SOU".
001410     02   FILLER    PIC  X(08) VALUE "_DBG=SOU".
001420     02   FILLER    PIC  X(07) VALUE "_OPT=NO".
001430     02   FILLER    PIC  X(08) VALUE "_NXT=LIN".
001440     02   FILLER    PIC  X(03) VALUE "_/>".
001450 01  CBL-CNT        PIC  9(04) VALUE 192.
001460*------------------------------------------------------------------------*
001470*    £Ó£Ù£Ó£Ã£È£Á£É£Î¡¡¥á¥ó¥Ð¡¼É½¼¨¡¡¥ì¥³¡¼¥É
001480 01  DIRCHAIN-REC.
001490     02   FILLER   PIC  X(18) VALUE "#LBM  ;PRD=PRN999_".
001500     02   FILLER   PIC  X(19) VALUE "MDE=NO_ACT=DIR_IDE=".
001510     02   DIR-LBDV PIC  X(06) VALUE "MSD".
001520     02   FILLER   PIC  X(05) VALUE "_IFI=".
001530     02   DIR-LBFL PIC  X(17) VALUE "USERSUL".
001540     02   FILLER   PIC  X(09) VALUE "_ODE=STN_".
001550     02   FILLER   PIC  X(08) VALUE "ACT=999_".
001560     02   FILLER   PIC  X(07) VALUE "MDE=NO_".
001570     02   FILLER   PIC  X(03) VALUE "_/>".
001580 01  DIR-CNT       PIC  9(04) VALUE 92.
001590*------------------------------------------------------------------------*
001600*    £Ó£Ù£Ó£Ã£È£Á£É£Î¡¡¼Â¹Ô¡¡¡¡¡¡¡¡¡¡¥ì¥³¡¼¥É
001610 01  RUNCHAIN-REC.
001620     02   RUN-MBNM PIC  X(06) VALUE "DEVLOP".
001630     02   FILLER   PIC  X(05) VALUE ",DEV=".
001640     02   RUN-LBDV PIC  X(06) VALUE "MSD".
001650     02   FILLER   PIC  X(05) VALUE ",FIL=".
001660     02   RUN-LBFL PIC  X(17) VALUE "USERLML".
001670     02   FILLER   PIC  X(02) VALUE ",(".
001680     02   RUN-ADVN PIC  X(07) VALUE "ADV=YES".
001690     02   FILLER   PIC  X(02) VALUE ");".
001700 01  RUN-CNT       PIC  9(04) VALUE 50.
001710*------------------------------------------------------------------------*
001720*    £Ó£Ù£Ó£Ã£È£Á£É£Î¡¡¥á¥ó¥Ð¡¼Äɲᡥ쥳¡¼¥É
001730 01  CPYCHAIN-REC.
001740     02   FILLER   PIC  X(18) VALUE "#LBM  ;PRD=PRN999_".
001750     02   FILLER   PIC  X(04) VALUE "MDE=".
001760     02   CPY-LBD2 PIC  X(06) VALUE "MSD   ".
001770     02   FILLER   PIC  X(05) VALUE "_MFI=".
001780     02   CPY-LBF2 PIC  X(17) VALUE "WORKLML".
001790     02   FILLER   PIC  X(05) VALUE "_ACT=".
001800     02   CPY-MBTP PIC  X(03) VALUE "ADD".
001810     02   FILLER   PIC  X(05) VALUE "_IDE=".
001820     02   CPY-LBDV PIC  X(06) VALUE "MSD".
001830     02   FILLER   PIC  X(05) VALUE "_IFI=".
001840     02   CPY-LBFL PIC  X(17) VALUE "SAVELML".
001850     02   FILLER   PIC  X(09) VALUE "_SCS=YES_".
001860     02   FILLER   PIC  X(08) VALUE "IDE=999_".
001870     02   FILLER   PIC  X(08) VALUE "ACT=999_".
001880     02   FILLER   PIC  X(08) VALUE "MDE=END_".
001890     02   FILLER   PIC  X(03) VALUE "_/>".
001900 01  CPY-CNT       PIC  9(04) VALUE 127.
001910*------------------------------------------------------------------------*
001920*    ²èÌÌÊݸ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¥ì¥³¡¼¥É
001930 01  DSP-REC.
001940     02  DSP-SREC1.
001950         04  DSP-KSHI  PIC 99/99B.
001960         04  DSP-KSTMH PIC 99.
001970         04  DSP-COLON PIC X     VALUE ":".
001980         04  DSP-KSTMM PIC 99B.
001990     02  DSP-SREC2.
002000         04  DSP-MBNM  PIC X(06).
002010         04  FILLER    PIC X(01) VALUE SPACE.
002020         04  DSP-LBFL  PIC X(17).
002030         04  FILLER    PIC X(01) VALUE SPACE.
002040         04  DSP-LBDV  PIC X(06).
002050         04  FILLER    PIC X(01) VALUE SPACE.
002060         04  DSP-MBTP  PIC X(03).
002070         04  FILLER    PIC X(01) VALUE SPACE.
002080         04  DSP-SREC21.
002090           06  DSP-MBSM  PIC X(30) VALUE SPACE.
002100           06  FILLER    PIC X(02) VALUE SPACE.
002110         04  DSP-SREC21R REDEFINES DSP-SREC21.
002120           06  DSP-LBF2R PIC X(17).
002130           06  FILLER    PIC X(01).
002140           06  DSP-LBD2R PIC X(06).
002150           06  FILLER    PIC X(01).
002160           06  DSP-MBS2R PIC X(07).
002170 01  WRK-REC.
002180     02  REC-TOP       PIC 9(04) VALUE 1.
002190     02  REC-CUR       PIC 9(04) VALUE ZERO.
002200     02  REC-END       PIC 9(04) VALUE 1.
002210     02  LN            PIC 9(02) VALUE 2.
002220     02  I             PIC 9(02) VALUE 1.
002230     02  FLD-CNT       PIC 9(03) VALUE ZERO.
002240     02  REC-CNT       PIC 9(04) VALUE ZERO.
002250     02  WRK-STNO      PIC X(06) VALUE SPACE.
002260     02  WRK-IN        PIC X(68) VALUE SPACE.
002270     02  DSP-SREC22.
002280         06  DSP-LBF2  PIC X(17).
002290         06  FILLER    PIC X(01) VALUE SPACE.
002300         06  DSP-LBD2  PIC X(06).
002310         06  FILLER    PIC X(01) VALUE SPACE.
002320         06  DSP-MBS2  PIC X(07).
002330 01  TBL-REC.
002340     02  FILLER        PIC X(13) VALUE "JSL JCL 00240".
002350     02  FILLER        PIC X(13) VALUE "LML RUN 02400".
002360     02  FILLER        PIC X(13) VALUE "MNL PAR 00240".
002370     02  FILLER        PIC X(13) VALUE "PML PAR 00240".
002380     02  FILLER        PIC X(13) VALUE "SGL SGL 00240".
002390     02  FILLER        PIC X(13) VALUE "SUL COB 02400".
002400 01  TBL-RECR REDEFINES TBL-REC.
002410     02 TBL-REC2 OCCURS 6.
002420        03 TBL-LBTP    PIC X(03).
002430        03 FILLER      PIC X(01).
002440        03 TBL-MBTP    PIC X(03).
002450        03 FILLER      PIC X(01).
002460        03 TBL-WKSZ    PIC 9(05).
002470 01  MODE-REC.
002480     02  CALL-MOD      PIC N(04) VALUE NC"ÊÔ½¸".
002490 01  ENDSW             PIC X(03) VALUE "OFF".
002500 88  ENDSW-ON                    VALUE "ON ".
002510 88  ENDSW-OFF                   VALUE "OFF".
002520*------------------------------------------------------------------------*
002530*    ²èÌÌÀá
002540 SCREEN  SECTION.
002550 SD  GAMEN END STATUS IS  ENDSTS.
002560 01  DISP-CLR.
002570     02  CLEAR  SCREEN.
002580 01  DISP-HEAD.
002590     02 LINE 01 COLUMN 01 VALUE "TOP :".
002600     02 LINE 01 COLUMN 07 PIC 9(04) FROM REC-TOP.
002610     02 LINE 01 COLUMN 13 VALUE "CUR :".
002620     02 LINE 01 COLUMN 19 PIC 9(04) FROM REC-CUR.
002630     02 LINE 01 COLUMN 26 VALUE "END :".
002640     02 LINE 01 COLUMN 32 PIC 9(04) FROM REC-END.
002650     02 LINE 01 COLUMN 54 VALUE "TEXT :".
002660     02 LINE 01 COLUMN 61 PIC X(07) FROM DSP-MBNM.
002670     02 LINE 01 COLUMN 70 VALUE "TYPE :".
002680     02 LINE 01 COLUMN 77 PIC X(03) FROM DSP-MBTP.
002690     02 LINE 01 COLUMN 01 VALUE ""27"S0101060".
002700     02 LINE 01 COLUMN 19 VALUE ""27"S0119064".
002710     02 LINE 01 COLUMN 23 VALUE ""27"S0123060".
002720     02 LINE 22 COLUMN 13 VALUE "*".
002730     02 LINE 22 COLUMN 20 VALUE "*".
002740     02 LINE 22 COLUMN 38 VALUE "*".
002750     02 LINE 22 COLUMN 45 VALUE "*".
002760     02 LINE 22 COLUMN 49 VALUE "*".
002770     02 LINE 22 COLUMN 67 VALUE "*".
002780     02 LINE 22 COLUMN 01
002790        OVER  LINE TO 80
002800        UNDER LINE TO 80.
002810     02 LINE 24 COLUMN 01 VALUE "MODE : ".
002820     02 DISP-MOD
002830        LINE 24 COLUMN 08 PIC N(04) FROM CALL-MOD.
002840     02 DISP-STNO
002850        LINE 24 COLUMN 64 PIC X(06) FROM WRK-STNO.
002860     02 DISP-ADV
002870        LINE 24 COLUMN 74 PIC X(07) FROM RUN-ADVN.
002880     02 LINE 24 COLUMN 01
002890        OVER  LINE TO 80
002900        UNDER LINE TO 80.
002910 01  DISP-CBL.
002920     02  CLEAR  SCREEN.
002930     02 LINE 01 COLUMN 01 VALUE "A-VXX".
002940     02 LINE 01 COLUMN 11 VALUE "REL.  X.XX".
002950     02 LINE 01 COLUMN 24 VALUE "CBL85".
002960     02 LINE 01 COLUMN 34 VALUE "REV. XXXX".
002970     02 LINE 01 COLUMN 48 VALUE "PROGRAM:".
002980     02 LINE 01 COLUMN 57 PIC X(06) FROM DSP-MBNM.
002990     02 LINE 01 COLUMN 66 VALUE "REV. XXXX".
003000     02 LINE 03 COLUMN 11 VALUE
003010                          NC"£Ã¡¡£Ï¡¡£Â¡¡£Ï¡¡£Ì¡¡£¸¡¡£µ".
003020     02 LINE 03 COLUMN 41 VALUE
003030                          NC"£Ã¡¡£Ï¡¡£Í¡¡£Ð¡¡£É¡¡£Ì¡¡£Å¡¡£Ò".
003040     02 LINE 05 COLUMN 04 VALUE "SOURCE UNIT DEVICE;".
003050     02 LINE 05 COLUMN 37 VALUE "SUD=".
003060     02 LINE 05 COLUMN 41 PIC X(06) FROM DSP-LBDV.
003070     02 LINE 06 COLUMN 04 VALUE "SOURCE UNIT FILE NAME;".
003080     02 LINE 06 COLUMN 37 VALUE "SUF=".
003090     02 LINE 06 COLUMN 41 PIC X(17) FROM DSP-LBFL.
003100     02 LINE 07 COLUMN 04 VALUE "COPY LIBRALY DEVICE;".
003110     02 LINE 07 COLUMN 37 VALUE "LBD=".
003120     02 LINE 07 COLUMN 41 PIC X(06) FROM DSP-LBD2.
003130     02 LINE 08 COLUMN 04 VALUE "COPY LIBRALY FILE NAME;".
003140     02 LINE 08 COLUMN 37 VALUE "LBF=".
003150     02 LINE 08 COLUMN 41 PIC X(17) FROM DSP-LBF2.
003160     02 LINE 09 COLUMN 04 VALUE "COMPILE UNIT DEVICE;".
003170     02 LINE 09 COLUMN 37 VALUE "CUD=MSD".
003180     02 LINE 10 COLUMN 04 VALUE "COMPILE UNIT FILE NAME;".
003190     02 LINE 10 COLUMN 37 VALUE "CUF=USERCUL".
003200     02 LINE 11 COLUMN 04 VALUE "WORK DEVICE;".
003210     02 LINE 11 COLUMN 37 VALUE "WKD=TEMPORARY".
003220     02 LINE 12 COLUMN 04 VALUE "WORK FILE SIZE;".
003230     02 LINE 12 COLUMN 37 VALUE "WSZ=02400".
003240     02 LINE 13 COLUMN 04 VALUE "PRINT DEVICE;".
003250     02 LINE 13 COLUMN 37 VALUE "PRD=STN".
003260     02 LINE 14 COLUMN 04 VALUE "PROGRAM NAME;".
003270     02 LINE 14 COLUMN 37 VALUE "PRG=".
003280     02 LINE 14 COLUMN 41 PIC X(06) FROM DSP-MBNM.
003290     02 LINE 15 COLUMN 04 VALUE "COMPILE UNIT OUTPUT MODE;".
003300     02 LINE 15 COLUMN 37 VALUE "MOD=REPLACE".
003310     02 LINE 16 COLUMN 04 VALUE "CU CHARACTER CODE;".
003320     02 LINE 16 COLUMN 37 VALUE "COD=SOURCE".
003330     02 LINE 17 COLUMN 04 VALUE "DEBUG MODE;".
003340     02 LINE 17 COLUMN 37 VALUE "DBG=SOURCE".
003350     02 LINE 18 COLUMN 04 VALUE "OPTIONAL FUNCTION;".
003360     02 LINE 18 COLUMN 37 VALUE "OPT=NO".
003370     02 LINE 19 COLUMN 04 VALUE "NEXT;".
003380     02 LINE 19 COLUMN 37 VALUE "NXT=LINK".
003390     02 LINE 01 COLUMN 01 VALUE ""27"S0101024".                   OVERLINE
003400     02 LINE 01 COLUMN 01 VALUE ""27"S0101405".                   PURPLE
003410     02 LINE 01 COLUMN 01 VALUE ""27"S0201024".                   OVERLINE
003420     02 LINE 01 COLUMN 01 VALUE ""27"S0201406".                   CYAN
003430     02 LINE 01 COLUMN 01 VALUE ""27"S0301044".                   UNDERLIN
003440     02 LINE 01 COLUMN 01 VALUE ""27"S0401407".                   WHITE
003450     02 LINE 01 COLUMN 01 VALUE ""27"S2110000".                   NORMAL
003460     02 LINE 01 COLUMN 01 VALUE ""27"S2110404".                   BLUE
003470     02 LINE 01 COLUMN 01 VALUE ""27"S2175004".                   REVERSE
003480     02 LINE 01 COLUMN 01 VALUE ""27"S2175407".                   WHITE
003490 01  DISP-DIR.
003500     02  CLEAR  SCREEN.
003510     02 LINE 01 COLUMN 01 VALUE ""27"S0101024".                   OVERLINE
003520     02 LINE 01 COLUMN 01 VALUE ""27"S0101405".                   PURPLE
003530     02 LINE 01 COLUMN 01 VALUE ""27"S0201024".                   OVERLINE
003540     02 LINE 01 COLUMN 01 VALUE ""27"S0201406".                   CYAN
003550     02 LINE 01 COLUMN 01 VALUE ""27"S0301044".                   UNDERLIN
003560     02 LINE 01 COLUMN 01 VALUE ""27"S0401407".                   WHITE
003570 01  DISP-CPY.
003580     02  CLEAR  SCREEN.
003590     02 LINE 01 COLUMN 01 VALUE ""27"S0101024".                   OVERLINE
003600     02 LINE 01 COLUMN 01 VALUE ""27"S0101405".                   PURPLE
003610     02 LINE 01 COLUMN 01 VALUE ""27"S0301024".                   OVERLINE
003620     02 LINE 01 COLUMN 01 VALUE ""27"S0301406".                   CYAN
003630     02 LINE 01 COLUMN 01 VALUE ""27"S0401044".                   UNDERLIN
003640     02 LINE 01 COLUMN 01 VALUE ""27"S0501407".                   WHITE
003650 01  DISP-LINE.
003660     02 LINE LN COLUMN 01 PIC X(80) FROM  DSP-REC.
003670 01  DISP-LINE-R.
003680     02 LINE LN COLUMN 01 PIC X(80) FROM  DSP-REC
003690        REVERSE.
003700 01  ACEP-LINE.
003710     02 LINE 23 COLUMN 01 PIC X(12) FROM  DSP-SREC1.
003720     02 LINE 23 COLUMN 13 PIC X(68) USING WRK-IN
003730                          NO IFC CHECK OVERFLOW.
003740*    º®ºß¥â¡¼¥É¤Ë¤¹¤ë¤È²èÌ̤ò°ú¤­·Ñ¤¤¤À¤È¤­¤Ë²èÌ̤¬¥¯¥ê¥¢¤µ¤ì¤ë¤Î
003750*    ¤Çºï½ü¤¹¤ë
003760*                         USAGE IS MIXED.
003770 01  ACEP-STNO.
003780     02 LINE 24 COLUMN 64 PIC X(06) INTO WRK-STNO
003790                          NO IFC CHECK OVERFLOW.
003800 01  DISPUP.
003810     02 LINE 01 COLUMN 01 VALUE ""27"A0221"27"F01".
003820 01  DISPDWN.
003830     02 LINE 01 COLUMN 01 VALUE ""27"A0221"27"G01".

Re: Ž¢¥×¥ê¥ó¥¿ÀêÍ­¥×¥í¥°¥é¥à¡×¤Î¸ø³«
¥¿¡¼¥é¥ä¥ó 2011-6-15 1:41:16  [ÊÖ¿®] [ÊÔ½¸]

ÉÙ»³À¶É÷¤µ¤ó¡¢¤¤¤Ä¤â¾ðÊ󤢤꤬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

º£Å٤ηǼ¨ÈĤϡ¢¥×¥í¥°¥é¥à¤ÎÁ°¸å¤òȾ³Ñʸ»ú¤Î¡Î£ã£ï£ä£å¡Ï¡Á¡Î¡¿£ã£ï£ä£å¡Ï¤Ç°Ï¤à¤È¡¢¶õÇò¤¬µÍ¤á¤é¤ì¤º¤Ë¡¢Àµ¤·¤¯É½¼¨¤µ¤ì¤Þ¤¹¡£¡ÊȾ³Ñ¡Ü¾®Ê¸»ú¤¸¤ã¤Ê¤¤¤È¥À¥á¤Ç¤¹¡£¡Î£Ã£Ï£Ä£Å¡Ï¤À¤È¥À¥á¡Ë

°Ê²¼¤Î¤è¤¦¤Ê¶ñ¹ç


000010 IDENTIFICATION           DIVISION.
000020 PROGRAM-ID.              PRN999.
000030******************************************************************
000040*    £Ð£Ò£Î£¹£¹£¹»ÈÍÑÃæ                                          *
000050******************************************************************
000060 DATE-COMPILED.
000070 ENVIRONMENT     DIVISION.
000080 CONFIGURATION   SECTION.
000090 SOURCE-COMPUTER.    SYSTEM150.
000100 OBJECT-COMPUTER.    SYSTEM150.
000110 INPUT-OUTPUT    SECTION.
000120 FILE-CONTROL.
000130     SELECT                      LPF
000140                 ASSIGN          LPF-PRN999.
000150 DATA                    DIVISION.
000160 FILE                    SECTION.
000170 FD  LPF
000180         LABEL RECORD OMITTED
000190         LINAGE  66.
000200 01  LP-RC                PIC X(300).
000210******************************************************************
000220 WORKING-STORAGE          SECTION.
000230 01  QASG01.
000240     03  QASG0101         PIC X(06).
000250 01  QASG02.
000260     03  QASG0201         PIC X(06).
000270 01  FILE-STATUS.
000280     03  STSXXX           PIC X(02).
000290 01  WG-AREA.
000300     03  F                PIC X(03) VALUE "PRN".
000310     03  WG-PRN           PIC 9(03).
000320 01  WG-PRN999.
000330     03  WG-PRN001        PIC N(03).
000340     03  WG-PRN002        PIC N(03).
000350     03  WG-PRN003        PIC N(03).
000360******************************************************************
000370 SCREEN              SECTION.
000380 SD  GAMEN           END STATUS  ESTS.
000390 01  GA.
000400     03  GA-PRN  LINE 23  COLUMN 77  PIC 9(03)  INTO WG-PRN
000410                     CHECK  OVERFLOW         NO  IFC.
000420 01  GD.
000430     03  GD-PRN  LINE 12  COLUMN 30  PIC N(09)  FROM WG-PRN999
000440                      BLINK REVERSE.
000450******************************************************************
000460 PROCEDURE               DIVISION.
000470 ST.
000480     MOVE    "PRN"       TO      WG-PRN001.
000490     MOVE    "999"       TO      WG-PRN002.
000500     MOVE    NC"»ÈÍÑÃæ"  TO      WG-PRN003.
000510     DISPLAY GD-PRN.
000520     OPEN    OUTPUT  LPF.
000530     PERFORM MAIN-RTN        THRU    MAIN-EXT
000540     CLOSE           LPF.
000550 ST-END.
000560     STOP    RUN.
000570******************************************************************
000580 MAIN-RTN.
000590     ACCEPT  GA-PRN.
000600     IF    ( WG-PRN      =       " " )           GO  MAIN-EXT.
000610     CLOSE           LPF.
000620     MOVE    WG-AREA     TO      QASG0101.
000630     MOVE    " "         TO      QASG0201.
000640     CALL    "CBLASGN"   USING   LPF     QASG01  QASG02.
000660     MOVE    "PRN"       TO      WG-PRN001.
000670     MOVE    WG-PRN      TO      WG-PRN002.
000680     MOVE    NC"»ÈÍÑÃæ"  TO      WG-PRN003.
000690     DISPLAY GD-PRN.
000700     OPEN    OUTPUT  LPF.
000710                                                 GO  MAIN-RTN.
000720 MAIN-EXT.
000730     EXIT.



Ž¢¥×¥ê¥ó¥¿ÀêÍ­¥×¥í¥°¥é¥à¡×¤Î¸ø³«
ÉÙ»³À¶É÷ 2011-6-14 18:12:51  [ÊÖ¿®] [ÊÔ½¸]

³§¤µ¤ó¤â¤¹¤Ç¤Ë¡¢¼«ºî¤Ç¤ª»ý¤Á¤À¤È¤Ï»×¤¤¤Þ¤¹¤¬¡¢Ž¢¥×¥ê¥ó¥¿ÀêÍ­¥×¥í¥°¥é¥àŽ£¤ò¸ø³«¤·¤Þ¤¹¡£

°ÊÁ°¡¢Ž¢µì²È¥¤¥È¥¦²È¤Î¾®µ»Î¢µ»¡Ê¤½¤Î£·¡ËŽ£¤Ë¥×¥ê¥ó¥¿ÀêÍ­¥×¥í¥°¥é¥à¤¬ºÜ¤Ã¤Æ¤¤¤Þ¤·¤¿¤¬¡¢
¾®À¸¤â¡¢Ž¢¥¹¥Æ¥Ã¥×¿ô¤Î¾¯¤Ê¤¤Ž£¤«¤ÄŽ¢¸«¤ä¤¹¤¤Ž£¥×¥ê¥ó¥¿ÀêÍ­¥×¥í¥°¥é¥à¤òºîÀ®¤·¤Þ¤·¤¿¤Î¤Ç¸ø³«¤·¤Þ¤¹¡£
Ž¢¥×¥ê¥ó¥¿ÀêÍ­¥×¥í¥°¥é¥àŽ£¤ÎɬÍ×À­¤Ë¤Ä¤¤¤Æ¤Ïµ­½Ò¤·¤Þ¤»¤ó¤¬¡¢¡¦¡¦¡¦

»ÈÍÑÊýË¡¤Ï
£±.ËÜ¥×¥í¥°¥é¥à¤òµ¯Æ°¤¹¤ë¢ªPRN999(¥¹¥Æ¡¼¥·¥ç¥óÂбþ¥×¥ê¥ó¥¿?)¤¬Ž¢»ÈÍÑÃ掣¤È¤Ê¤ê¡¢¤«¤Ä¡¢ÆþÎÏÂÔ¤Á¤Ë¤Ê¤ë
£².ÆþÎÏÂÔ¤Á¤Ç¥¨¥ó¥¿¡¼¤Ç¥×¥í¥°¥é¥à½ªÎ»(¥×¥ê¥ó¥¿³«Êü)
¡¡XXX¥ê¥¿¡¼¥ó¤Ç¸½ºß»ÈÍÑÃæ¤Î¥×¥ê¥ó¥¿¤¬³«Êü¤µ¤ì¡¢PRNXXX¤¬Ž¢»ÈÍÑÃ掣¤È¤Ê¤ê¡¢ºÆÅÙ¡¢ÆþÎÏÂÔ¤Á¤Ë¤Ê¤ë
¡¡°Ê²¼¡¢£²¤ò·«¤êÊÖ¤¹¡£

¤´¤¯¤´¤¯¡¢´Êñ¤Ê¥×¥í¥°¥é¥à¤Ç¤¹¡£

000010_IDENTIFICATION___________DIVISION.
000020_PROGRAM-ID.______________PRN999.
000030******************************************************************
000040*____£Ð£Ò£Î£¹£¹£¹»ÈÍÑÃæ__________________________________________*
000050******************************************************************
000060_DATE-COMPILED.
000070_ENVIRONMENT_____DIVISION.
000080_CONFIGURATION___SECTION.
000090_SOURCE-COMPUTER.____SYSTEM150.
000100_OBJECT-COMPUTER.____SYSTEM150.
000110_INPUT-OUTPUT____SECTION.
000120_FILE-CONTROL.
000130_____SELECT______________________LPF
000140_________________ASSIGN__________LPF-PRN999.
000150_DATA____________________DIVISION.
000160_FILE____________________SECTION.
000170_FD__LPF
000180_________LABEL_RECORD_OMITTED
000190_________LINAGE__66.
000200_01__LP-RC________________PIC_X(300).
000210******************************************************************
000220_WORKING-STORAGE__________SECTION.
000230_01__QASG01.
000240_____03__QASG0101_________PIC_X(06).
000250_01__QASG02.
000260_____03__QASG0201_________PIC_X(06).
000270_01__FILE-STATUS.
000280_____03__STSXXX___________PIC_X(02).
000290_01__WG-AREA.
000300_____03__F________________PIC_X(03)_VALUE_"PRN".
000310_____03__WG-PRN___________PIC_9(03).
000320_01__WG-PRN999.
000330_____03__WG-PRN001________PIC_N(03).
000340_____03__WG-PRN002________PIC_N(03).
000350_____03__WG-PRN003________PIC_N(03).
000360******************************************************************
000370_SCREEN______________SECTION.
000380_SD__GAMEN___________END_STATUS__ESTS.
000390_01__GA.
000400_____03__GA-PRN__LINE_23__COLUMN_77__PIC_9(03)__INTO_WG-PRN
000410_____________________CHECK__OVERFLOW_________NO__IFC.
000420_01__GD.
000430_____03__GD-PRN__LINE_12__COLUMN_30__PIC_N(09)__FROM_WG-PRN999
000440______________________BLINK_REVERSE.
000450******************************************************************
000460_PROCEDURE_______________DIVISION.
000470_ST.
000480_____MOVE____"PRN"_______TO______WG-PRN001.
000490_____MOVE____"999"_______TO______WG-PRN002.
000500_____MOVE____NC"»ÈÍÑÃæ"__TO______WG-PRN003.
000510_____DISPLAY_GD-PRN.
000520_____OPEN____OUTPUT__LPF.
000530_____PERFORM_MAIN-RTN________THRU____MAIN-EXT
000540_____CLOSE___________LPF.
000550_ST-END.
000560_____STOP____RUN.
000570******************************************************************
000580_MAIN-RTN.
000590_____ACCEPT__GA-PRN.
000600_____IF____(_WG-PRN______=_______"_"_)___________GO__MAIN-EXT.
000610_____CLOSE___________LPF.
000620_____MOVE____WG-AREA_____TO______QASG0101.
000630_____MOVE____"_"_________TO______QASG0201.
000640_____CALL____"CBLASGN"___USING___LPF_____QASG01__QASG02.
000660_____MOVE____"PRN"_______TO______WG-PRN001.
000670_____MOVE____WG-PRN______TO______WG-PRN002.
000680_____MOVE____NC"»ÈÍÑÃæ"__TO______WG-PRN003.
000690_____DISPLAY_GD-PRN.
000700_____OPEN____OUTPUT__LPF.
000710_________________________________________________GO__MAIN-RTN.
000720_MAIN-EXT.
000730_____EXIT.

¼ÁÌä¤Ê¤É¤¬¤¢¤ì¤ÐËܷǼ¨ÈĤˤƤª´ê¤¤¤·¤Þ¤¹¡£

°Ê¾å¤Ç¤¹¡£

»ÈÍѤµ¤ì¤¿Êý¤Ï´¶ÁÛ¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£

¥¬¥ó¥Ð¥ìÅìÆüËÜ¡ª¡ª
¥¬¥ó¥Ð¥ì£Ï£Ð¥æ¡¼¥¶¡¼¡ª¡ª


¡ÖWS¥¨¥ß¥å¥ì¡¼¥¿ºÆÀܳ¥­¥Ã¥È¤Ï¥¨¥é¡¼¤¬È¯À¸¤·¤¿¤¿¤áÊĤ¸¡¦¡¦¡¦¡×¡¡²ò·èºÑ
¤¿¤Ì¤­´Ý 2011-6-8 9:30:10  [ÊÖ¿®] [ÊÔ½¸]

²ò·èºÑ¤ß¤Ç¤¹¤¬¡¢¾ðÊóÄ󶡤Τ¿¤áÅê¹Æ¤·¤Þ¤¹¡£»²¹Í¤Ë¤Ê¤ì¤Ð¹¬¤¤¤Ç¤¹¡£

¡Ú¸½¾Ý¡Û
¤¢¤ëÆü¤ÎÃëµÙ¤ß¤Ë¡¢Á´WS-EML¤Î²èÌ̤ˡÖWS¥¨¥ß¥å¥ì¡¼¥¿ºÆÀܳ¥­¥Ã¥È¤Ï¥¨¥é¡¼¤¬È¯À¸¤·¤¿¤¿¤áÊĤ¸¤é¤ì¤Þ¤·¤¿¡×¤È¤Î¥á¥Ã¥»¡¼¥¸¤¬É½¼¨¤µ¤ì¤¿¡£
AVX¥µ¡¼¥Ð¤òºÆµ¯Æ°¤¹¤ë¤ÈÉüµì¤¹¤ë¤¬¿ôÆü¸å¤ËºÆȯ¡£

¡ÚÂнè¡Û
Êݼé²ñ¼Ò¤ËÏ¢Íí¤·¤ÆÄ´ºº¤·¤Æ¤â¤é¤¦¤È¡ÖWS¥¨¥ß¥å¥ì¡¼¥¿ºÆÀܳ¥­¥Ã¥È¡×¤Î¾ã³²¤ÈȽÌÀ¡£¥Ñ¥Ã¥Á¤¬¤¢¤ë¤Î¤Ç¤½¤ì¤òŬÍѤ·¤Æ´°Î»¡£

¡ÚȯÀ¸´Ä¶­¡Û
AVX¥µ¡¼¥Ð¡§Express 5800/640xi
AVX OS¡§AVX01 R3.01
WS-EML¡§Ver 16.0
Ž¢£±¹Ô£±£¸£±Ê¸»ú¤ò°õ»ú¤¹¤ë¡×¥µ¥Ö¥ë¡¼¥Á¥ó¸ø³«
ÉÙ»³À¶É÷ 2011-6-7 8:39:33  [ÊÖ¿®] [ÊÔ½¸]

Ž¢¥×¥ê¥ó¥¿À©¸æ¥³¡¼¥É¤ò»ÈÍѤ·¤¿COBOL¥×¥é¥°¥é¥à¤ÎCOMPILE&LINK»ØÄꎣ¤Î¥¹¥ì¥Ã¥É¤ÎÃæ¤Î
Ž¢²óž¤Îã¿Í_2011-5-19_12:58:21Ž£_¤ÇŽ¢£±¥Ð¥¤¥ÈȾ³Ñ£±£³£²Ê¸»ú¤¬£±£·£¶Ê¸»ú°õ»ú²Äǽ¤Ë¤Ê¤ê¤Þ¤¹Ž£¤¬¤¢¤ê¤Þ¤·¤¿¡£
¤½¤³¤Ç¾®À¸¤ÎºîÀ®¤·¤¿¥µ¥Ö¥ë¡Ý¥Á¥ó¤ÇƱÍͤʤâ¤Î¤¬¤¢¤ê¤Þ¤·¤¿¤Î¤Ç¸ø³«¤·¤Þ¤¹¡£

£±¹Ô£±£¸£±Ê¸»ú°õ»ú²Äǽ¤Ë¤Ê¤ê¤Þ¤¹
(181¤È¤Ï:136*4/3¢ª181.333¢ªÀÚ¤ê¼Î¤Æ181ʸ»ú¤Ç¤¹)
¼ÂºÝ¤Ï180ʸ»ú¤Þ¤Ç¤·¤«°õ»ú¤·¤¿¤³¤È¤¬¤¢¤ê¤Þ¤»¤ó¤¬¡¢ÍýÏÀ¾å¤Ï181ʸ»ú°õ»ú²Äǽ¤Ç¤¹¡£

COBOL¤Î¤ï¤«¤ëÊý¤Ç¤¢¤ì¤Ð¡¢LINK¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£
¤½¤â¤½¤â¡¢£±¹Ô£±£³£·Ê¸»ú°Ê¾å¤ÇÀ߷פ¹¤ë¤³¤È¼«ÂΤ¬ÌµÍý¤¬¤¢¤ë¤Î¤Ç¤¹¤¬¡¦¡¦¡¦
Ĺ¡¹¤È½ñ¤­¤Þ¤¹¤¬¤´ÍƼϤ¯¤À¤µ¤¤¡£

³µÍפϡ§
ANK:ANK1ʸ»ú¤ò£²¥Ð¥¤¥È·ÏȾ³Ñʸ»ú¤ËÊÑ´¹¤·¥»¥Ã¥È
JIP:¤½¤Î¤Þ¤Þ¥»¥Ã¥È(½èÍý¤ÎÅÔ¹ç¾å2ŽÊŽÞŽ²ŽÄ·Ï¤Î¾å1·å¤È²¼1·å¤òʬ¤±¤Æ¥»¥Ã¥È¡Ë

(Ãí)¥é¥¤¥ó¥×¥ê¥ó¥¿¤Ç°õ»ú¤¹¤ë¾ì¹ç¤Ï¡¢¥é¥¤¥ó¥×¥ê¥ó¥¿¤Î¥Ñ¥Í¥ëÉô¤Î¥¹¥¤¥Ã¥Á¡©¤Ç
¡¡¡¡2/3,1/2,Ž¥Ž¥Ž¥¤Î¥Ç¥£¥Ã¥×¥¹¥¤¥Ã¥Á¤ò/2¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤«¤Ã¤¿¤è¤¦¤Ê¡©¡©¡©
¡¡¡¡µ­²±¤¬¤¢¤¤¤Þ¤¤¤Ç¤¹¡£

¥á¥¤¥ó¤«¤é¤Î¥Ñ¥é¥á¡¼¥¿¤Ï4¤Ä¤Ç¤¹¡£
1.ÆþÎϥǡ¼¥¿____QATJ-INPUT_______X(250)
2.ÆþÎϥǡ¼¥¿Ä¹__QATJ-INPUTSIZE___9(03)
3.½ÐÎϥǡ¼¥¿____QATJ-OUTPUT______X(505)
4.½ÐÎϥǡ¼¥¿Ä¹__QATJ-OUTPUTSIZE__9(03)


¥á¥¤¥ó¤ÎÎ㡧
_____MOVE____PR-01___________TO______QATJ-INPUT.____________°õ»ú¤·¤è¤¦¤È¤·¤Æ¤¤¤ëʸ»úÎó
_____MOVE____180_____________TO______QATJ-INPSIZE.__________·å¿ô
_____CALL____"AAQATJ"________USING___QATJ.__________________¥µ¥Ö¥ë¡¼¥Á¥ó¤òCALL
_____WRITE___LP-RC___________FROM____QATJ-OUTPUT_AFTER_1.___·ë²Ì¤ò°õ»ú

¥µ¥Ö¥ë¡¼¥Á¥ó¤ÏŽ£°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£

000010_IDENTIFICATION___________DIVISION.
000020_PROGRAM-ID.______________AAQATJ.
000030******************************************************************
000040*____£Á£Î£Ë¡¡¤«¤é¡¡ÆüËܸìʸ»ú¤ØÊÑ´¹¥µ¥Ö¥ë¡¼¥Á¥ó¡¡¡¡____¡¡¡¡¡¡¡¡¡¡*
000050******************************************************************
000060_DATE-COMPILED.
000070_ENVIRONMENT_________DIVISION.
000080_CONFIGURATION_______SECTION.
000090_SOURCE-COMPUTER.____SYSTEM150.
000100_OBJECT-COMPUTER.____SYSTEM150.
000110_DATA____________________DIVISION.
000120_WORKING-STORAGE_________SECTION.
000130******************************************************************
000140_01__CBL01.
000150_____05__CBL0101_____________PIC__X(256).
000160_____05__CBL0101R____________REDEFINES_CBL0101.
000170_______07__CBL0101O__________OCCURS_256.
000180_________09__CBL010101_______PIC__X(01).
000190_01__CBL02.
000200_____03__CBL0201_____________PIC__9(04)__VALUE__256.
000210****
000220_01__CBL03.
000230****____________________________________________0123456789ABCDEF
000240_____03__F___________________PIC__X(16)__VALUE_"AAAAJAJAJJJAAAAA"._0
000250_____03__F___________________PIC__X(16)__VALUE_"AAAAJAAJAAJJAAAA"._1
000260_____03__F___________________PIC__X(16)__VALUE_"JJJJJJAAJJJJJAAA"._2
000270_____03__F___________________PIC__X(16)__VALUE_"JJAJJJJAJJJJAAJA"._3
000280_____03__F___________________PIC__X(16)__VALUE_"AAAAAAAAAAAAAAAA"._4
000290_____03__F___________________PIC__X(16)__VALUE_"AAAAAAAJAJAAAAAA"._5
000300_____03__F___________________PIC__X(16)__VALUE_"AAJJJJJJJJJAAAAA"._6
000310_____03__F___________________PIC__X(16)__VALUE_"JJJJJJJJJJAAAAAA"._7
000320_____03__F___________________PIC__X(16)__VALUE_"JAAAAAAAAAAJAAAA"._8
000330_____03__F___________________PIC__X(16)__VALUE_"AAAAAAAAAAAJJAAA"._9
000340_____03__F___________________PIC__X(16)__VALUE_"JJAAAAAAAAAJAAAA"._A
000350_____03__F___________________PIC__X(16)__VALUE_"JAJJJJJJJJAAAAAA"._B
000360_____03__F___________________PIC__X(16)__VALUE_"JAAAAAAAAAJJJJJJ"._C
000370_____03__F___________________PIC__X(16)__VALUE_"AAAAAAAAAAJJJJJJ"._D
000380_____03__F___________________PIC__X(16)__VALUE_"AJAAAAAAAAJJJJJJ"._E
000390_____03__F___________________PIC__X(16)__VALUE_"AAAAAAAAAAJJJJJJ"._F
000400****_´Á»úʸ»ú¥Ô¥Ã¥Á¡¡£±£°¡¥£¸¥Ý¥¤¥ó¥È
000410_01__PR-START.
000420__________03__F_______________PIC_X(05)_VALUE_""3FE04F40A0"".
000430****_´Á»úʸ»ú¥Ô¥Ã¥Á¡¡£±£´¡¥£´¥Ý¥¤¥ó¥È
000440_01__PR-END.
000450__________03__F_______________PIC_X(05)_VALUE_""3FE04FE080"".
000460_01__PR-END-R____________REDEFINES_PR-END.
000470_____03__TBL-END-O_______OCCURS__5.
000480_______05__TBL-END1______PIC__X(01).
000490_01__TBL-CNV.
000500_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".00-0F
000510_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".10-1F
000520_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".20-2F
000530_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".30-3F
000540_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".40-4F
000550_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".50-5F
000560_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".60-6F
000570_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".70-7F
000580_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".80-8F
000590_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".90-9F
000600_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".A0-AF
000610_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".B0-BF
000620_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".C0-CF
000630_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".D0-DF
000640_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".E0-EF
000650_____03__F___PIC_N(16)_VALUE_NC"¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦".F0-FF
000660_01__TBL-CNV-R___________REDEFINES_TBL-CNV.
000670_____03__TBL-CNR-O_______OCCURS_256.
000680_______05__TBL-JIP1______PIC__X(01).
000690_______05__TBL-JIP2______PIC__X(01).
000700_01__TBL-CNV-RR__________REDEFINES_TBL-CNV.
000710_____03__TBL-CNR-OO______OCCURS_256.
000720_______05__TBL-JIP_______PIC__N(01).
000730_01__WK-CNV-COLUMN___________PIC_9(03).
000740****_""00""+""XX""¢ªCOMP-1¤Ø
000750_01__WK-CNV-COMP_________________COMP-1.
000760_01__WK-CNV-COMP-R___________REDEFINES_WK-CNV-COMP.
000770_____03__WK-CNV-00___________PIC_X(01).
000780_____03__WK-CNV-ANK__________PIC_X(01).
000790*************************************************_IX
000800_01__IX-AREA.
000810_____03__IX-INP______________PIC_9(03).
000820_____03__IX-OUT______________PIC_9(03).
000830_____03__IXPR________________PIC_9(02).
000840******************************************************************
000850_LINKAGE_________________SECTION.
000860****_ÆþÎϥǡ¼¥¿¡¢ÆþÎÏ¥µ¥¤¥º¡¢½ÐÎÏ·ë²Ì¡ÊÊÑ´¹·ë²Ì¡Ë¡¢½ÐÎÏ¥µ¥¤¥º
000870_01__QATJ.
000880_____03__WK-INPUT.
000890_________05__WK-INPDATA______OCCURS__250______PIC_X(01).
000900_____03__WK-INPUTSIZE________PIC_9(03).
000910_____03__WK-OUTPUT.
000920_________05__WK-ESC0_________PIC_X(05).
000930_________05__WK-OUTDATA______OCCURS__505______PIC_X(01).
000940_____03__WK-OUTPUTSIZE_______PIC_9(03).
000950******************************************************************
000960_PROCEDURE_______________DIVISION____USING__QATJ.
000970_ST.
000980****_½ÐÎÏ¥¨¥ê¥¢¤Î¥¯¥ê¥¢
000990_____MOVE____LOW-VALUE_______TO______WK-OUTPUT.
001000****_½ÐÎÏ¥¨¥ê¥¢¤Ë£±£°¡¥£¸¥Ý¥¤¥ó¥È¤òÀèƬ¤ËÀßÄê
001010_____MOVE____PR-START________TO______WK-ESC0._____________________
001020****
001030_____PERFORM_RECORD-CNV-RTN__THRU__RECORD-CNV-EXT.
001040****_½ÐÎÏ¥ì¥ó¥°¥¹ÀßÄê
001050_____MOVE____IX-OUT__________TO______WK-OUTPUTSIZE.
001060_ST-END.
001070_____EXIT____PROGRAM.
001080******************************************************************
001090_RECORD-CNV-RTN.
001100****_ÆþÎϥǡ¼¥¿¤ò¥³¡¼¥ÉÊÑ´¹¤·ANK/JIP(A/J)¤ËÃÖ¤­´¹¤¨¤ë
001110_____MOVE____WK-INPUT________TO______CBL0101.
001120_____CALL___"CBLCODE"________USING___CBL01
001130_____________________________________CBL02
001140_____________________________________CBL03.
001150****_°Ê²¼£±Ê¸»ú¤Å¤Ä¥Á¥§¥Ã¥¯¤·ANK/JIP¤ÎȽÃǤò¹Ô¤¤¤Ê¤¬¤é½ÐÎÏ¥¨¥ê¥¢¤Ø
001160****_ANK:ANK1ʸ»ú¤ò£²¥Ð¥¤¥È·ÏȾ³Ñʸ»ú¤ËÊÑ´¹¤·¥»¥Ã¥È
001170****_JIP:¤½¤Î¤Þ¤Þ¥»¥Ã¥È(½èÍý¤ÎÅÔ¹ç¾å2ŽÊŽÞŽ²ŽÄ·Ï¤Î¾å1·å¤È²¼1·å¤ò¥»¥Ã¥È
001180_____MOVE____0_______________TO______IX-INP.
001190_____MOVE____0_______________TO______IX-OUT.
001200_RECORD-CNV-10.
001210_____ADD_____1_______________TO______IX-INP.
001220_____IF____(_IX-INP__________>_______250)
001230_______________________________________________GO_RECORD-CNV-90.
001240_____IF____(_IX-INP__________>_______WK-INPUTSIZE)
001250_______________________________________________GO_RECORD-CNV-90.
001260_____MOVE____LOW-VALUE__________TO_____WK-CNV-00.
001270_____MOVE____WK-INPDATA(IX-INP)_TO_____WK-CNV-ANK.
001280_____COMPUTE_WK-CNV-COLUMN___=______WK-CNV-COMP_+_1.
001290_____IF____(_CBL010101(IX-INP)___=___"A"_)
001300_________COMPUTE_IX-OUT__________=_______IX-OUT_+_1
001310_________MOVE____TBL-JIP1(WK-CNV-COLUMN)
001320_________________________________TO______WK-OUTDATA(IX-OUT)
001330_________COMPUTE_IX-OUT__________=_______IX-OUT_+_1
001340_________MOVE____TBL-JIP2(WK-CNV-COLUMN)
001350_________________________________TO______WK-OUTDATA(IX-OUT)
001360_____ELSE
001370_________COMPUTE_IX-OUT__________=_______IX-OUT_+_1
001380_________MOVE____WK-INPDATA(IX-INP)
001390_________________________________TO______WK-OUTDATA(IX-OUT)
001400_________COMPUTE_IX-OUT__________=_______IX-OUT_+_1
001410_________COMPUTE_IX-INP__________=_______IX-INP_+_1
001420_________MOVE____WK-INPDATA(IX-INP)
001430_________________________________TO______WK-OUTDATA(IX-OUT)
001440_____END-IF.
001450_______________________________________________GO_RECORD-CNV-10.
001460_RECORD-CNV-90.
001470****_°õ»ú¤Î¸å¤í¤Ë£±£´¡¥£´¥Ý¥¤¥ó¥È¤òÉղ乤ë¡Ê¸µ¤Ë¤â¤É¤¹¡Ë_________14.4
001480_____PERFORM______________________________________________________14.4
001490_________VARYING__IXPR__FROM__1___________________________________14.4
001500________________________BY____1___________________________________14.4
001510_________UNTIL____IXPR__>_____5___________________________________14.4
001520____________ADD____1________________TO__IX-OUT____________________14.4
001530____________MOVE___TBL-END1(IXPR)___TO__WK-OUTDATA(IX-OUT)________14.4
001540_____END-PERFORM._________________________________________________14.4
001550_RECORD-CNV-EXT.
001560_____EXIT.
»ÈÍÑ»þ¤Ï²¼Àþ("_")¤ò¥¹¥Ú¡¼¥¹(" ")¤ÇÃÖ¤­´¹¤¨¤Æ¤¯¤À¤µ¤¤¡£

000500-000650¤Î¡¦¡¦¡¦¡¦¤ÎÉôʬ¤¬#NFCNV¤Ç¾å¼ê¤¯ÊÑ´¹¤Ç¤­¤Ê¤«¤Ã¤¿¤Î¤Ç»ÈÍÑ»þ¤ÏŽ¢¼ê½¤ÀµŽ£¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£
000500:"________________"_00-0F¡¡
000510:"________________"_10-1F
000520:"________________"_20-2F
000530:"________________"_30-3F
000540:"_Ž¡Ž¢Ž£Ž¤Ž¥Ž¦Ž§Ž¨Ž©[.<(+!"_40-4F
000550:"&ŽªŽ«Ž¬Ž­Ž®Ž©_Ž°_]\*);_"_50-5F
000560:"-/_________,%_>?"_60-6F
000570:"__________:#@'=""_70-7F
000580:"_Ž±Ž²Ž³Ž´ŽµŽ¶Ž·Ž¸Ž¹Žº_Ž»Ž¼Ž½Ž¾"_80-8F
000590:"Ž¿ŽÀŽÁŽÂŽÃŽÄŽÅŽÆŽÇŽÈŽÉ__ŽÊŽËŽÌ"_90-9F
000600:"__ŽÍŽÎŽÏŽÐŽÑŽÒŽÓŽÔŽÕ_ŽÖŽ×ŽØŽÙ"_A0-AF
000610:"__________ŽÚŽÛŽÜŽÝŽÞŽß"_B0-BF
000620:"_ABCDEFGHI______"_C0-CF
000630:"_JKLMNOPQR______"_D0-DF
000640:"__STUVWXYZ______"_E0-EF
000650:"0123456789______"_F0-FF
¾åµ­¤ÎN(16)¤Ï¤¤¤º¤ì¤â´Á»ú¤ÎȾ³Ñʸ»ú¤Ç¤¹¡£
»ÈÍÑ»þ¤Ï²¼Àþ("_")¤ò£²¥Ð¥¤¥È·Ï¤ÎȾ³Ñ¥¹¥Ú¡¼¥¹¤ÇÃÖ¤­´¹¤¨¤Æ¤¯¤À¤µ¤¤¡£

¼ÁÌä¤Ê¤É¤¬¤¢¤ì¤ÐËܷǼ¨ÈĤˤƤª´ê¤¤¤·¤Þ¤¹¡£

°Ê¾å¤Ç¤¹¡£

»ÈÍѤµ¤ì¤¿Êý¤Ï´¶ÁÛ¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£

¥¬¥ó¥Ð¥ìÅìÆüËÜ¡ª¡ª
¥¬¥ó¥Ð¥ì£Ï£Ð¥æ¡¼¥¶¡¼¡ª¡ª
Re: À©¸æ¥³¡¼¥É¤Ï¤Ê¤ó¤Ç¤¹¤«¡©¡Ê¥×¥ê¥ó¥¿À©¸æ¥³¡¼¥É¤ò»ÈÍѤ·¤¿COBOL¥×¥é¥°¥é¥à¤ÎCOMPILE&LINK»ØÄê¡Ë
ÉÙ»³À¶É÷ 2011-6-3 12:04:46  [ÊÖ¿®] [ÊÔ½¸]

>>À©¸æ¥³¡¼¥É¤Ï¤Ê¤ó¤Ç¤¹¤«
¤¿¤Ö¤ó²¼µ­¤ÎÆâÍƤÀ¤È»×¤¤¤Þ¤¹¡£(¤¢¤¯¤Þ¤ÇÁÛÁü¤Ç¤¹¤¬)

ANKÉôʬ
Ž¢ÈÆÍÑÍÑ»æ¤Ë160ʸ»ú¡ÊANK)¤òÊÔ½¸¤·¤Æ¤¤¤ëŽ£¤È¤Ï¡¢¤¿¤Ö¤ó163ʸ»ú°õ»ú¤·¤Æ¤¤¤ë¤Î¤À¤È»×¤¤¤Þ¤¹¡£
(163¤È¤Ï:136*12CPI/10CPI¢ª163.2¢ªÀڼΤƤÇ163¡Ë

´Á»úÉôʬ
(163¤È¤Ï:136*14.4¥Ý¥¤¥ó¥È/12.0¥Ý¥¤¥ó¥È¢ª163.2¢ªÀڼΤƤÇ163¡Ë

¾®À¸¤Ï²¼µ­¥³¡¼¥Ç¥£¥ó¥°¤Ë¤ÆŽ¢ÈÆÍÑÍÑ»æ¤Ë163ʸ»ú¡ÊANK/´Á»úº®ºß²Ä)¤ò°õ»úŽ£¤·¤Æ¤¤¤Þ¤¹


01 PR-01.
__03 FILLER PIC X(08) VALUE ""3F46405079407DA0"".¡¡12CPI¡¡¡¡¡¡¡¡¡¡ANKʸ»ú¥µ¥¤¥º(ANK³«»ÏÍÑ)
__03 FILLER PIC X(05) VALUE ""3FE04F7F75"".¡¡¡¡¡¡¡¡12.0¥Ý¥¤¥ó¥È¡¡Ê¸»ú¥Ô¥Ã¥Á(´Á»ú³«»ÏÍÑ)
__03 PR-163 PIC X(163).
__03 FILLER PIC X(05) VALUE ""3FE04FE080"".¡¡¡¡¡¡¡¡14.4¥Ý¥¤¥ó¥È¡¡Ê¸»ú¥Ô¥Ã¥Á(´Á»ú½ªÎ»ÍÑ)
__03 FILLER PIC X(08) VALUE ""3F46407D59404D76"".¡¡10CPI¡¡¡¡¡¡¡¡¡¡ANKʸ»ú¥µ¥¤¥º(ANK½ªÎ»ÍÑ)
Re: À©¸æ¥³¡¼¥É¤Ï¤Ê¤ó¤Ç¤¹¤«¡©¡Ê¥×¥ê¥ó¥¿À©¸æ¥³¡¼¥É¤ò»ÈÍѤ·¤¿COBOL¥×¥é¥°¥é¥à¤ÎCOMPILE&LINK»ØÄê¡Ë
¹¾¿ÜÀð 2011-5-29 17:38:23  [ÊÖ¿®] [ÊÔ½¸]

ÂçÊѼºÎé¤Ç¤¹¤¬¡¢²¼µ­¤ÎÆâÍƤ¬Îɤ¯¤ï¤«¤é¤Ê¤¤¤Î¤Ç¤¹¤¬¡©

¡ä£Ã£Ï£Â£Ï£Ì¤Ç¥×¥ê¥ó¥¿À©¸æ¥³¡¼¥É¡Êʸ»ú¥Ô¥Ã¥Á»ØÄê¡Ë¤ò»È¤Ã¤Æ¡¢ÈÆÍÑÍÑ»æ¤Ë£±£¶£°Ê¸»ú¡Ê£Á£Î£Ë¡Ë¤òÊÔ½¸¤·¤Æ¤¤¤ë

ÈÆÍÑÍÑ»æ¤È¤Ï£±£±£ø£±£µ¥¤¥ó¥Á¤ÎϢ³ÍÑ»æ¤Î¤³¤È¤Ç¤¹¤«¡©

£±£¶£°Ê¸»ú¡Ê£Á£Î£Ë¡Ë¤È¤Ï£±¥Ð¥¤¥È·Ï¤ò»ØÄꤷ¤Æ¤¤¤ë¤Î¤Ç¤¹¤«¡©
¤½¤ì¤È¤â¥×¥ê¥ó¥¿¤Î½ÐÎϥ쥳¡¼¥É¤¬£Ð£É£Ã£Ô£Õ£Ò£Å¡¡£Ø¡Ê£±£¶£°¡Ë¤ò°ÕÌ£¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¡©

ʸ»ú¥Ô¥Ã¥Á»ØÄê¤È¤Ï
£Ã£Ð¡Ê£Ã£Å£Ø¡¡£ã¡É¡ð¡É£Ð£±¡¢£ø¡É£³£Æ£Å£°¡É£Ð£±¡Ë¤Ç¤¹¤«¡©
¤³¤ì¤Ï¡¢£²¥Ð¥¤¥ÈÍѤǤ¹¤è¤Í
£Á£Ç£Ó¡Ê£Ã£Å£Ø¡¡£ø¡É£´£¶¡É£Ð£±£Ð£±¡¢£ø¡É£³£Æ£´£¶¡É£Ð£±£Ð£²¡Ë
¤Ï£±¥Ð¥¤¥È·Ï¤Îʸ»ú¥µ¥¤¥º»ØÄê¤Ç¤¹¤¬¡¢£±¥Ð¥¤¥È·Ï¤Ïʸ»ú¥µ¥¤¥º¤·¤«»ØÄê½ÐÍ褺¡£¤·¤«¤â£Î£É£Ð¡Ê¥ì¡¼¥¶¡¼¥×¥ê¥ó¥¿¡Ë¤·¤«Âбþ¤·¤Æ¤Þ¤»¤ó¡£
¼ÁÌäÆâÍƤ¬Ãê¾ÝŪ¤Ç¤¹¤È³§ÍͤβóÅú¤âÃê¾ÝŪ¤Ë¤Ê¤ë¤È»×¤¤¤Þ¤¹¡£

½¤ÀµÁ°¥×¥í¥°¥é¥à¤ò¤½¤Î¤Þ¤Þ¥³¥ó¥Ñ¥¤¥ë¤·¤¿¤é¤É¤¦¤Ê¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©¡¡
¤½¤Î¾ì¹ç¤Ï¤Á¤ã¤ó¤È½ÐÎϤµ¤ì¤ë¤È¸À¤¦¤³¤È¤Ç¤¹¤«¡©

À©¸æ¥³¡¼¥É¤¬Àµ¤·¤¯¼Â¹Ô¤Ç¤­¤Ê¤¤¤È¡¢Á´¤¯½ÐÎϤµ¤ì¤Ê¤¤¤Î¤Ç¤Ï¡¢¸½¾Ý¤¬¤Á¤¬¤¦¤È¤ª¤â¤¤¤Þ¤¹¡£

Á´¤¯½ÐÎϤµ¤ì¤Ê¤¤¤È¤¤¤¦»ö¤Ç¤¢¤ì¤Ð¡¢ÂçÊѼºÎé¤Ç¤¹¤¬¡¢Ê̤θ¶°ø¤¬¹Í¤¨¤ì¤ì¤Þ¤¹¡£
Î㤨¤Ð
£±¡¥¥µ¥Ö¥×¥í¥°¥é¥à¤ò¥ê¥ó¥¯¤¹¤ëɬÍפ¬¤¢¤ë¤¬¥ê¥ó¥¯¤Ç¤­¤Æ¤Ê¤¤
£²¡¥Ä¾ÀÜ¥¹¥×¡¼¥ë½ÐÎϤǥ¹¥×¡¼¥ë¤Ë°õºþ¤µ¤ì¤Æ¤¤¤ë
£³¡¥ÆÃÄê¥×¥ê¥ó¥¿»ØÄêËô¤Ï¡¢¥·¥¹¥Æ¥à¥×¥ê¥ó¥¿»ØÄê¤Ç¼Â¤Ï¤½¤Á¤é¤Ë½ÐÎϤµ¤ì¤Æ¤¤¤ë

Re: ¥á¥Ã¥»¡¼¥¸´ÉÍý£Ó¡Ê£×£ó¥¨¥ß¥å¥ì¡¼¥¿¤ÎÀÚÃǤˤĤ¤¤Æ¡Ë
¹¾¿ÜÀð 2011-5-29 15:35:12  [ÊÖ¿®] [ÊÔ½¸]

Ū³°¤ì¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢£Á¡Ý£Ö£Ø£°£±¤Ë°Ü¹Ô»þ¤Ë£×£Ó¥¨¥ß¥å¥ì¡¼¥¿¤ÎÀÚÃǤ¬ÉÑȯ¤·¤¿¤Î¤Ç¡¢
¥µ¡¼¥Ð¡¼Â¦¤ÎÀßÄê¤òÊݼé²ñ¼Ò¤Ë¥Ç¥Õ¥©¥ë¥È¤«¤é£¹£°ÉäËÊѹ¹¤·¤Æ¤â¤é¤¤¤Þ¤·¤¿¡£
²¼µ­¡¢¥á¥Ã¥»¡¼¥¸´ÉÍý£Ó¡¡£¶£¹¥Ú¡¼¥¸¤ò¤´»²¾È¤¯¤À¤µ¤¤¡£¡Ê£Á¡Ý£Ö£Ø£°£±¡Ë

°Ê²¼¡¢¥Þ¥Ë¥å¥¢¥ëÈ´¿è
£Á¡¥£±¡¥£² £Á¡Ý£Ö£Ø­¶¡¿­·¤ä°ÊÁ°¤Î£Á¡Ý£Ö£Ø­¸¤«¤é°Ü¹Ô»þ¤ÎÃí°ÕÅÀ
¡Ê£±¡Ë¥­¡¼¥×¥¢¥é¥¤¥Ö¤ÎÁ÷¿®´Ö³Ö
¡¡¥­¡¼¥×¥¢¥é¥¤¥Ö¤ÎÁ÷¿®´Ö³Ö¤¬¡¢°Ê²¼¤ÎÄ̤ê£Á¡Ý£Ö£Ø £Ï£Ó¤ä¥ê¥Ó¥¸¥ç¥ó¤Ë¤è¤Ã¤Æ°Û¤Ê¤ê¤Þ¤¹¤Î¤ÇÃí°Õ¤·¤Æ²¼¤µ¤¤¡£
¡¡¤Þ¤¿¡¢É¬Íפ˱þ¤¸¤ÆÀßÄêµÚ¤ÓÀßÄêÊѹ¹¤ò¹Ô¤Ã¤Æ²¼¤µ¤¤¡£

¥­¡¼¥×¥¢¥é¥¤¥Ö¤ÎÁ÷¿®´Ö³Ö
£Á¡Ý£Ö£Ø­¶¡¡£¹£°Éôֳ֤ÇÁ÷¿®¤µ¤ì¤Þ¤¹(´Ö³Ö¤Ï¡¢Êѹ¹ÉÔ²Ä)
£Á¡Ý£Ö£Ø­·¡¢£Á¡Ý£Ö£Ø­¸¡Ê£Ò£´¡¥£µËø¡Ë
¡¡¡¡¡¡¡¡¡¡¡¡¥Ç¥Õ¥©¥ë¥È¤Ç£²»þ´Ö¡¢É¸½à£×£Ó´Æ»ë»þ´ÖÀßÄê¥Ä¡¼¥ë¤Ç»ØÄꤷ¤¿¾ì¹ç¤Ï¡¢»ØÄꤷ¤¿´Ö³Ö¤ÇÁ÷¿®¤µ¤ì¤Þ¤¹¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡Êɸ½à£×£Ó´Æ»ë»þ´ÖÀßÄê¥Ä¡¼¥ë¤Ï£Á¡Ý£Ö£ØÊݼ饰¥ë¡¼¥×¤Ë¤¢¤êÀßÄꤷ¤¿´Æ»ë»þ´Ö¤Ë¹ç¤ï¤»¤Æ¥­¡¼¥×¥¢¥é¥¤¥Ö¤ÎÁ÷¿®´Ö³Ö¤òÊѹ¹¤·¤Þ¤¹¡Ë
£Á¡Ý£Ö£Ø­¸¡Ê£Ò£µ¡¥£°°Ê¹ß¡Ë¡¢£Á¡Ý£Ö£Ø£°£±
¡¡¡¡¡¡¡¡¡¡¡¡¥Ç¥Õ¥©¥ë¥È¤Î£²»þ´Ö´Ö³Ö(ºÆÁ÷¤Ï£±ÉôֳÖ)¤ÇÁ÷¿®¤µ¤ì¤Þ¤¹¡£Á÷¿®´Ö³Ö¤òÊѹ¹¤¹¤ë¾ì¹ç¤Ï¡¢£×£é£î£ä£ï£÷£ó£Ï£Ó¦¤Î¥ì¥¸¥¹¥È¥êÀßÄê¤òÊѹ¹¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£
¡¡¡¡¡¡¡¡¡¡¡¡Hkey_Local_Machine\System\CurrentControlSet\Services\Tcpip\Parameters ¤ÎKeepAliveTime¤ÈeepAliveInterval

⤷¡¢Êݼé²ñ¼Ò¤â»ä¤¬¤³¤Î¥Ú¡¼¥¸¤ò»ØŦ¤¹¤ë¤Þ¤Ç¡¢Ã´Åö¼Ô¤¬ÃΤ餺¡¢Æ³Æþ»þ¤ËÊüÃÖ¤µ¤ì¤Æ¤¤¤Þ¤·¤¿¡£
Re: £×£ó¥¨¥ß¥å¥ì¡¼¥¿¤ÎÀÚÃǤˤĤ¤¤Æ
¥ë¥ê¥ë¥ê 2011-5-27 19:39:53  [ÊÖ¿®] [ÊÔ½¸]

»ä¤â°ÊÁ°¤½¤Î¤è¤¦¤ÊÏäòʹ¤¤¤¿¤³¤È¤¬¤¢¤ê¤Þ¤·¤¿¡£
ƳÆþ»þ¡¢¾ÊÅÅÎϥ⡼¥É¤Ï»ÈÍѤ·¤Ê¤¤¤è¤¦¤ÊÀßÄê¤ò¤·¤Æ¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£Àܳ¤¬¤­¤ì¤ë¸½¾Ý¤Ïµ¯¤­¤Æ¤Þ¤»¤ó¡£


Re: ¥×¥ê¥ó¥¿À©¸æ¥³¡¼¥É¤ò»ÈÍѤ·¤¿COBOL¥×¥é¥°¥é¥à¤ÎCOMPILE&LINK»ØÄê
¥ë¥ê¥ë¥ê 2011-5-27 19:36:37  [ÊÖ¿®] [ÊÔ½¸]

°ÊÁ°¥³¥ó¥Ñ¥¤¥ë¤·¤¿»þ¤Î
£Ï£Ó¡¢Ê¤Ӥˣãϣ£ϣ̤«£Ã£Ï£Â£Ï£Ì£¸£µ¤ÎVER.Åù¤ÏȽ¤ê¤Þ¤¹¤«¡©

ʸ»ú¥Ô¥Ã¥Á¤Ï¡¢7.2 9.6 10.8 14.4 18.0 21.6 25.2
¤¬»ÈÍѲÄǽ¤Ç¤¹¡£
¤³¤Îʸ»ú¥Ô¥Ã¥Á¤¬¤É¤¦¤«³Îǧ²¼¤µ¤¤¡£
Re: £×£ó¥¨¥ß¥å¥ì¡¼¥¿¤ÎÀÚÃǤˤĤ¤¤Æ
¥¿¡¼¥é¥ä¥ó 2011-5-26 2:26:21  [ÊÖ¿®] [ÊÔ½¸]

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

¥Î¡¼¥È¥Ñ¥½¥³¥ó¤Ë¤è¤¯¤¢¤ë¾ÊÅÅÎϥ⡼¥É¤ÎÀßÄ꤬¤·¤Æ¤¢¤Ã¤Æ¡¢
£±£°Ê¬¤°¤é¤¤·Ð¤Ä¤È¡¢¥¹¥ê¡¼¥×¥â¡¼¥É¤äµÙ»ß¾õÂ֤ˤʤäơ¢
Àܳ¤¬ÀÚ¤ì¤ë¤È¤¤¤¦¤³¤È¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£

¤¢¤Þ¤ê³Î¾Ú¤Ï¤Ê¤¤¤Ç¤¹¤¬¡£
Re: £×£ó¥¨¥ß¥å¥ì¡¼¥¿¤ÎÀÚÃǤˤĤ¤¤Æ
²¹Àô¹¥¤­¤Î¤¦¤µ¤® 2011-5-26 0:28:42  [ÊÖ¿®] [ÊÔ½¸]

Ʊ°ì¤Î´Ä¶­²¼¤Ë¤¢¤ëÊ£¿ô¤ÎüËö¤ÇƱ°ì¤Î¸½¾Ý¤¬µ¯¤³¤Ã¤Æ¤¤¤ë¤Î¤«¡¢¤½¤ì¤È¤â¡¢ÆÃÄê¤Î°ìÂæ¤Î¤ß¤ÇÌäÂ꤬ȯÀ¸¤·¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£¤É¤Á¤é¤«¤¬¤ï¤«¤ì¤Ð¡¢¸¶°ø²òÌÀ¤·°×¤¯¤Ê¤ë¤È»×¤¤¤Þ¤¹¡£¤Þ¤¿¡¢ºÆÀܳ¥­¥Ã¥È¤Ï»È¤ï¤ì¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£

¤Ê¤ª¡¢Windows7Âбþ¤ÎPC/WS¥¨¥ß¥å¥ì¡¼¥¿(32)¤Î¥Ð¡¼¥¸¥ç¥ó¤Ï¡¢ºÇ¿·¤ÎVer.21.0 (U75830-J108)¤ÈVer.20.0 (U75830-J107)¤Î¤ß¤Ç¤¢¤ê¡¢Ver.19.0°ÊÁ°¤Î¤â¤Î¤Ï̤Âбþ¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
WS¥¨¥ß¥å¥ì¡¼¥¿¤Î¥Ð¡¼¥¸¥ç¥ó¤ò³Îǧ¤·¤Æ¡¢Âбþ¤·¤¿¤â¤Î¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤«¤É¤¦¤«¤Î¥Á¥§¥Ã¥¯¤ò¡¢¤Þ¤ºÂè°ì¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
Windows7¤Ë̤Âбþ¤ÎWS¥¨¥ß¥å¥ì¡¼¥¿¤ò»ÈÍѤ·¤Æ¤¤¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢ÉÔ°ÂÄê¤ÊÆ°ºî¤ò¤¹¤ë¤È¤¤¤¦²ÄǽÀ­¤Ï½¼Ê¬¤Ë¹Í¤¨¤é¤ì¤Þ¤¹¡£

¤Á¤Ê¤ß¤Ë¡¢Windows2000¤ËÂбþ¤¹¤ëWS¥¨¥ß¥å¥ì¡¼¥¿¤Î¥Ð¡¼¥¸¥ç¥ó¤Ï¡¢Ver.6.0¤«¤éVer.20.0¤Þ¤Ç¤Ç¤¹¡£
£×£ó¥¨¥ß¥å¥ì¡¼¥¿¤ÎÀÚÃǤˤĤ¤¤Æ
¤Í¤³¤­¤Á 2011-5-25 12:17:08  [ÊÖ¿®] [ÊÔ½¸]

¤¤¤Ä¤â¤ªÀ¤ÏäˤʤäƤ¤¤Þ¤¹¡£
¡ÊÃÙ¤¯¤Ê¤ê¤Þ¤·¤¿¤¬¡¢²¹Àô¹¥¤­¤Î¤¦¤µ¤®¤µ¤ó¡¢¥Û¥ó¥À£Æ£±¤µ¤ó¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£¡Ë

º£²ó¤Ï¡¢£×£ó¥¨¥ß¥å¥ì¡¼¥¿¤¬ÀÚÃǤµ¤ì¤ë»ö¤Çº¤¤Ã¤Æ¤¤¤Þ¤¹¡£
Win2000¤Ç£×£ó¥¨¥ß¥å¥ì¡¼¥¿¤ò»ÈÍѤ·¤Æ¤¤¤¿»þ¤Ï²¿¤éÀܳ¤Ë´Ø¤·¤ÆÌäÂê¤Ê¤«¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢Win7¤Ç£×£ó¥¨¥ß¥å¥ì¡¼¥¿¤ò»ÈÍѤ·¤Æ¤¤¤Æ¡¢£±£°Ê¬°ÌÊüÃÖ¤·¤Æ¤ª¤¯¤È¡¢£Á¡Ý£Ö£Ø¤Î²èÌ̤ϻĤäƤ¤¤ë¤Î¤Ç¤¹¤¬¡¢ÆþÎϤ·¤ÆEnter¤ò²¡¤¹¤È¡¢¡Ø¥µ¡¼¥Ð¡¼¤Ë¥Ç¡¼¥¿¤òÁ÷¿®¤Ç¤­¤Ê¤¤¤«Àܳ¤òÀÚÃǤ·¤Þ¤·¤¿¡£¤â¤·¤¯¤Ï¥µ¡¼¥Ð¡¼¤«¤éÀܳ¤òÀÚÃǤµ¤ì¤Þ¤·¤¿¡ÊTCP/IP ¥¨¥é¡¼¥³¡¼¥É10054¡Ë<0500469>¡Ù¤Èɽ¼¨¤µ¤ì½ªÎ»¤¹¤ë¤·¤«¤Ê¤¤¾õÂ֤ˤʤê¤Þ¤¹¡£
ÀÚÃǤµ¤ìľ¤°¤Ë¡¢£×£ó¥¨¥ß¥å¥ì¡¼¥¿¤òµ¯Æ°¤·¤Æ¤âÌäÂê¤Ê¤¯Àܳ¤Ç¤­¡¢»ÈÍѤϤǤ­¤Þ¤¹¡£

Win7¤Ç¤Ï¡¢WinXPËø¤ÏɬÍפʤ«¤Ã¤¿ÀßÄ꤬ɬÍפʤΤ«¡¢ÉÔÍפʤΤ«
¤È¤¤¤¦¤³¤È¤¬¤¢¤ì¤Ð¡¢¶µ¤¨¤Æ¤¤¤¿¤À¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©
µ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
Re: ¥×¥ê¥ó¥¿À©¸æ¥³¡¼¥É¤ò»ÈÍѤ·¤¿COBOL¥×¥é¥°¥é¥à¤ÎCOMPILE&LINK»ØÄê
²¹Àô¹¥¤­¤Î¤¦¤µ¤® 2011-5-24 0:46:23  [ÊÖ¿®] [ÊÔ½¸]

¤Ê¤ó¤È¤«²ò·è¤Î»å¸ý¤ò¸«¤Ä¤±¤Æ¤¢¤²¤¿¤¤¤È»×¤¦¤Î¤Ç¤¹¤¬¡¢¤¢¤Þ¤ê¤Ë¤â¾ðÊ󤬾¯¤Ê¤¹¤®¤Þ¤¹¡£¼ÒÆâ¼éÈëµÁ̳¤Ë¤Ò¤Ã¤«¤«¤ë¤è¤¦¤ÊÌäÂê¤Ç¤â¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£¤»¤á¤Æ¡¢°Ê²¼¤ÎÆâÍƤ°¤é¤¤¶µ¤¨¤Æ¤¤¤¿¤À¤±¤Þ¤»¤ó¤Ç¤·¤ç¤¦¤«¡£

(1) ¥³¥ó¥Ñ¥¤¥ë¤ä¥ê¥ó¥¯¤Ëµ¿Ì䤬¤¢¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢¼ÂºÝ¤Ë»ØÄꤷ¤¿¥Ñ¥é¥á¡¼¥¿¤Ï²¿¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡£

(2) ʸ»ú¥Ô¥Ã¥Á»ØÄê(CP)¤ÎÀ©¸æ¥³¡¼¥É¤Ï¡¢¶ñÂÎŪ¤Ë¤Ï²¿¤Ç¤·¤ç¤¦¤«¡£¥½¡¼¥¹¥ê¥¹¥È¾å¤Ç¤Ï¡¢¤É¤¦¥³¡¼¥Ç¥£¥ó¥°¤µ¤ì¤Æ¤¤¤Þ¤¹¤«¡£

(3) ¡ÖÈÆÍÑÍÑ»æ¤Ë160ʸ»ú(ANK)¤òÊÔ½¸¡×¤È¤¢¤ê¤Þ¤¹¤¬¡¢CP¤ÎÀ©¸æ¥³¡¼¥É¤òCEX¥·¡¼¥±¥ó¥¹¤ÇÄêµÁ¤·¤Æ¤¤¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢¤½¤ì¤ÏÆüËܸì¥×¥ê¥ó¥¿¤Î¤ß»ÈÍѲÄǽ¤Ç¤¹¡£ANK¥×¥ê¥ó¥¿¤ÏÉԲġ£
¥×¥í¥°¥é¥à¤Ç¥×¥ê¥ó¥¿¤ÎÄêµÁ¤¬ÆüËܸì¥×¥ê¥ó¥¿¤È¤Ê¤ë¤è¤¦»ØÄꤷ¤Æ¤¤¤Þ¤¹¤«¡¢¤µ¤â¤Ê¤¯¤Ð½ÐÎϤµ¤ì¤¿LM¤Î¥×¥ê¥ó¥¿Â°À­¤òJIPS¤ËÊѹ¹¤·¤Æ¤¤¤Þ¤¹¤«¡£¤Þ¤¿¡¢¥×¥ê¥ó¥¿¤Îµ¡¼ï̾¤Ï¡£

(4) ¡Ö¤½¤ÎLM¤ò¼Â¹Ô¤¹¤ë¤È²¿¤â½ÐÎϤµ¤ì¤Ê¤¤¡×¤È¤¢¤ê¤Þ¤¹¤¬¡¢¶ñÂÎŪ¤Ë¤É¤ó¤ÊÆ°ºî¤ò¤¹¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£¤¿¤È¤¨¤Ð¡¢
¡¡¡¦¥×¥ê¥ó¥¿¤¬¤Þ¤Ã¤¿¤¯È¿±þ¤·¤Ê¤¤¡£
¡¡¡¦¶õÇò¤ò°õ»ú¤·¤Æ¤¤¤ë¡£²þ¹Ô¡¢²þ¥Ú¡¼¥¸¤Î¤ß¡£
¡¡¡¦Ê¸»ú¥Ô¥Ã¥ÁÀ©¸æ¤ò¤·¤¿¤¤Éôʬ¤Î¤ß½ÐÎϤµ¤ì¤Ê¤¤¡£Â¾¤ÎÉôʬ¤Ï½ÐÎϤµ¤ì¤ë¡£
¡¡¡¦Ê¸»ú²½¤±¤ò¤·¤Æ½ÐÎϤµ¤ì¤Æ¤¤¤ë¡£Á´Éô¡¢°ìÉô¡£

(5) LM¼Â¹ÔÃæ¥×¥ê¥ó¥¿¤Ï´Ö°ã¤¤¤Ê¤¯¥ª¡¼¥×¥ó¤µ¤ì¤Æ¤¤¤Þ¤¹¤«¡£
Re: ¥×¥ê¥ó¥¿À©¸æ¥³¡¼¥É¤ò»ÈÍѤ·¤¿COBOL¥×¥é¥°¥é¥à¤ÎCOMPILE&LINK»ØÄê
ÀΤΣɣԣϣӠ2011-5-20 9:58:02  [ÊÖ¿®] [ÊÔ½¸]

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

¥³¡¼¥ÉÊÑ´¹Åù¤Ï¹Ô¤ï¤º¡¢¥×¥ê¥ó¥È¥¨¥ê¥¢¤ÎÀèƬ¤ËÀ©¸æ¥³¡¼¥É¤ò¥»¥Ã¥È¤·¤Æ¡¢write¤·¤Æ¤¤¤Þ¤¹¡£
Re: ¥×¥ê¥ó¥¿À©¸æ¥³¡¼¥É¤ò»ÈÍѤ·¤¿COBOL¥×¥é¥°¥é¥à¤ÎCOMPILE&LINK»ØÄê
ÀΤΣɣԣϣӠ2011-5-20 9:53:36  [ÊÖ¿®] [ÊÔ½¸]

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

»ÄÇ°¤Ê¤¬¤é¡¢Æ±¤¸¥×¥ê¥ó¥¿¡¼¤Ç¡¢¤«¤ÄƱ¤¸ÆþÎÏ¥Õ¥¡¥¤¥ë¤ò»È¤Ã¤Æ¼Â¹Ô¤·¤¿·ë²Ì¤Ç¤¹¡£
Re: KLP360CM¤ÎŽÈŽ¯ŽÄŽÜŽ°Ž¸ŽÎŽÞŽ°ŽÄŽÞÀßÄê¤Ë¤Ä¤¤¤Æ
¥¿¡¼¥é¥ä¥ó 2011-5-20 1:33:18  [ÊÖ¿®] [ÊÔ½¸]

²ò·è¤µ¤ì¤¿¤è¤¦¤ÇÎɤ«¤Ã¤¿¤Ç¤¹¡£

¤ª¤½¤é¤¯¡¢4,5ËçÁȤˤʤäƤ¤¤ëCD-ROM¤Î¤¦¤Á¤Î£±Ëç¤ËÆþ¤Ã¤Æ¤¤¤¿¤Î¤Ç¤¹¤è¤Í¡£
Re: ¥×¥ê¥ó¥¿À©¸æ¥³¡¼¥É¤ò»ÈÍѤ·¤¿COBOL¥×¥é¥°¥é¥à¤ÎCOMPILE&LINK»ØÄê
¥¿¡¼¥é¥ä¥ó 2011-5-20 1:19:30  [ÊÖ¿®] [ÊÔ½¸]

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

¸½ºß¤¦¤Þ¤¯Æ°¤¤¤Æ¤¤¤ë¥×¥í¥°¥é¥à¤È²¿¤â½ÐÎϤµ¤ì¤Ê¤¤¥×¥í¥°¥é¥à¤Ç¡¢Æ±¤¸¥×¥ê¥ó¥¿¤Ë½ÐÎϤ·¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£
¤Ä¤Þ¤ê¡¢¤¦¤Þ¤¯Æ°¤¤¤Æ¤¤¤ë¥×¥í¥°¥é¥à¤Ï¤Á¤ã¤ó¤È½ÐÎϤµ¤ì¤Æ¡¢¿·¤·¤¯¥³¥ó¥Ñ¥¤¥ë¤·Ä¾¤·¤¿Êý¤À¤È¡¢Æ±¤¸¥×¥ê¥ó¥¿¤Ë½ÐÎϤ·¤Æ¤âÂÌÌܤʤΤǤ·¤ç¤¦¤«¡£

¤¦¤Þ¤¯¤¤¤Ã¤Æ¤¤¤ë¤â¤Î¤ÈÂÌÌܤʤâ¤Î¤Ï¡¢Æ±¤¸¥×¥ê¥ó¥¿¤Ë½ÐÎϤ·¤Æ¤¤¤ë¤Î¤«¡¢°ã¤¦¥×¥ê¥ó¥¿¤Ë½ÐÎϤ·¤Æ¤¤¤ë¤Î¤«¡¢¤Á¤ç¤Ã¤Èµ¤¤Ë¤Ê¤ê¤Þ¤·¤¿¡£

¥×¥ê¥ó¥¿¤Îµ¡¼ï¤Ë¤è¤Ã¤Æ¡¢»È¤¨¤ëÀ©¸æ¥³¡¼¥É¡¢»È¤¨¤Ê¤¤À©¸æ¥³¡¼¥É¤¬¤¢¤ê¤Þ¤¹¡£
CP¤Ë¤Ä¤¤¤Æ¤â¡¢µ¡¼ï¤Ë¤è¤Ã¤Æ¡¢»È¤¨¤ë¥Ô¥Ã¥Á¡¢»È¤¨¤Ê¤¤¥Ô¥Ã¥Á¤¬¤¢¤ê¤Þ¤¹¡£
¤½¤ì¤Ë¥×¥ê¥ó¥¿¥á¡¼¥«¡¼¤Ë¤è¤Ã¤Æ¤Ï¡¢À©¸æ¥³¡¼¥É¤ÎÂηϼ«ÂΤ¬°Û¤Ê¤ë¤³¤È¤â¤¢¤ê¤Þ¤¹¡£

¤½¤ÎÀ©¸æ¥³¡¼¥É¤ËÂбþ¤·¤Æ¤¤¤Ê¤¤¥×¥ê¥ó¥¿¤À¤È¡¢Ê¸»ú²½¤±¤·¤¿¤ê¡¢²¿¤â½Ð¤Ê¤«¤Ã¤¿¤ê¤·¤Þ¤¹¡£
¤â¤·¡¢°ã¤¦¥×¥ê¥ó¥¿¤Ë½ÐÎϤ·¤Æ¤¤¤ë¤è¤¦¤Ç¤¢¤ì¤Ð¡¢»î¤·¤Ë¤¦¤Þ¤¯¤¤¤Ã¤Æ¤¤¤ë¥×¥ê¥ó¥¿¤ÎÊý¤Ç»î¤·¤Æ¤ß¤Æ¤Ï¤É¤¦¤Ç¤·¤ç¤¦¤«¡£
Re: KLP360CM¤ÎŽÈŽ¯ŽÄŽÜŽ°Ž¸ŽÎŽÞŽ°ŽÄŽÞÀßÄê¤Ë¤Ä¤¤¤Æ
¤´¤¸¤ã¤Ã¤Ú 2011-5-19 13:29:44  [ÊÖ¿®] [ÊÔ½¸]

¼«¸Ê²ò·è¤·¤Þ¤·¤¿¡¢¡¢¡¢
Re: ¥×¥ê¥ó¥¿À©¸æ¥³¡¼¥É¤ò»ÈÍѤ·¤¿COBOL¥×¥é¥°¥é¥à¤ÎCOMPILE&LINK»ØÄê
²óž¤Îã¿Í 2011-5-19 12:58:21  [ÊÖ¿®] [ÊÔ½¸]

¡¡¥×¥ê¥ó¥¿À©¸æ¥³¡¼¥É¤Ç¤Ï¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢Ê¸»ú¿ô¤òÂô»³°õ»ú¤Ç¤­¤ë¤è¤¦¤Ê¥µ¥Ö¥ë¡¼¥Á¥ó¤ò¤Ï¤ë¤«ÀΤ˺î¤Ã¤¿»ö¤¬¤¢¤ê¤Þ¤¹¡£
¡¡£±¥Ð¥¤¥ÈȾ³Ñʸ»ú¤È£²¥Ð¥¤¥ÈȾ³Ñʸ»ú¤ÎÂбþ¥Æ¡¼¥Ö¥ë¤òºîÀ®¤·¡¢£²¥Ð¥¤¥ÈȾ³Ñʸ»ú¤ËÊÑ´¹¤·¤Æ¡¢¥Ô¥Ã¥ÁµÍ¤á¤¹¤ì¤Ð¡¢£±¥Ð¥¤¥ÈȾ³Ñ£±£³£²Ê¸»ú¤¬£±£·£¶Ê¸»ú°õ»ú²Äǽ¤Ë¤Ê¤ê¤Þ¤¹¡£¡¡¤Ò¤ç¤È¤·¤Æ¡¢¤³¤ó¤Ê¥µ¥Ö¥ë¡¼¥Á¥ó¤ò»È¤Ã¤Æ¤¤¤Ê¤¤¤Ç¤¹¤«¡£

 ¿·µ¬Åê¹Æ | ¥¹¥ì¥Ã¥Éɽ¼¨ | ¥Ä¥ê¡¼É½¼¨ | Åê¹Æ½çɽ¼¨ | i-mode | ¥È¥Ã¥× 
« 1 ... 22 23 24 (25) 26 27 28 ... 108 »

BluesBB ©Sting_Band