汎用機COBOL資産のマイグレーション事例 ～短期間でのスト …

1 COBOL .. 2005 6 14 .. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. 20,000 . 500 .. URL 5353 . 347 .. JQA-IM0095) JQA-2674). (JQA-EM1475) . ( 820158(01)). JEITA IT-1002 2003 3 ) . (JEITA ITR-1001A 2003 3 .. (TEL 022-742-3375) . Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. Oracle .. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. COBOL 366 134,143 ACUMENU. 171 OLTP VIS-MAIN. JCL 253 28,318 JCL AJ_JCL. 202 6,181 AJ_SORT. COBOL 12 9,993 AJ_FLCONV. 2 AJ_FDEL.. 24 AJ_FCOPY.. FTP AJ_FTP. COPY 121. AJ_FTRAN . 3. AJ_DURL. SEQ / ISEQ 239. AJ_GETPRINT . VSAS 12. - AJ_CONSIGN . / AJ_RJWAIT . Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. OCR.. OCR . OCR .. OCR OCR AP . A4 A5 . DURL .. Copyright 2005, Tokyo System House Co.

2 , Ltd. All Rights Reserved.. DA128k .. IP-VPN DA128k .. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. COBOL JCL .. COBOL / COPY ACUCOBOL / COPY . JCL / ACUCOBOL JCL .. ACUCOBOL Screen . FormHelper . ALPS . ACUCOBOL. SEQ / ISEQ / VSAS . SEQ / Vision / Oracle ACUCOBOL .. OLTP OLTP . DURL.. eXsenju OS Windows2003 Server Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. ACOS4 .. I/O VIS MFDL .. ACOS4 COBOL ACU. COBOL COBOL Windows,UNIX,Linux .. ACCEPT READ TOOL. COBOL JCL DISPLAY WRITE. VIS . Vision . (MFDL PGM) (VIS PGM) csv,txt IF,ELSE TOOL . COBOL/S ACUCOBOL.. VIS-MAIN IF: IF . (VIS ) 1 1. ELSE: ELSE ACUCOBOL Runtime 2 2. COBOL ACUCOBOL ACUCOOBL AcuConnect ACOS4 Windows,UNIX END: END COBOL/S . ACUCOBOL VIS-MAIN TOOL. MFDL PGM. VIS ACUCOBOL TOOL . ACOS ACUCOBOL VIS-MAIN.

3 JCL JCL COBOL/S ACUCOBOL.. 1 1 . VIS ThinClient VIS-MAIN . FormEX CASE: EVALUATE . ACUCOBOL OF: 1 WHEN 1. ACOS COBOL 1 1. DURL. OF: 2 WHEN 2. VSAS/RIQS Oracle . EBCDIC S-JIS 2 2.. OTHER: WHEN OTHER.. n n 12 END: END-EVALUATE.. 2 2 . AJ_MCANL AJ_MCANL2 CASE: EVALUATE TRUE. VIS OF: 1 WHEN 1. COBOL/S 1 1. (RECEIVE) OF: 2 WHEN 2. 2 2. I/O . AJ_MACRO OTHER: WHEN OTHER. (SEND n n COBOL/S COPY END: END-EVALUATE.. AJ_CBSAC 1 WHILE: TOOL.. COBOL/S ACOS COBOL TOOL . VISMAIN . ACOS4->ACUCOBOL AJ_AC4AC COBOL/S ACUCOBOL. WHILE: PERFORM UNTIL NOT( ).. ACOS4 COBOL ACUCOBOL . END: END-PERFORM. MFDL ACUCOBOL Screen Section COBOL. MFDL AJ_MFLAC . VIS-MAIN 2 ITERATE: TOOL.. ACOS4 MFDL ACUCOBOL . TOOL . ACOS4 JCL . VIS COBOL/S ACUCOBOL. ACOS4 JCL ACUCOBOL JCL ITERATE: PERFORM UNTIL 1 NOT = 1. ACOS COBOL COBOL/S VIS-MAIN COBOL . SEND RECEIVE VIS-MAIN UNTIL: IF . I/O EXIT PERFORM.)

4 END-IF. END-PERFORM. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. 44U . NEC Express5800/320Lb-R. N8800-041. CPU Xeon 1. 256MB 2. O S Windows Sever 2003 Enterprise Edition . COBOL ACUCOBOL-GT . Acu4GL For Oracle AcuConnect . AcuODBC Server DURL. eXsenju RDBMS Oracle9i Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. V-LAN.. 512K. SW-HUB.. AcuThin AcuThin DURL. DURL Job . Job .. V-LAN. OCR . OCR .. AcuThin AcuThin DURL. DURL Job . Job . AcuThin AcuThin AcuThin AcuThin Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved. DURL. DURL Job . Job DURL. DURL Job . Job .. OCR . OCR PM. COBOL OCR .. SE.. COBOL COBOL .. SE.. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. 2004 2005 . 9 10 11 12 1 2 3 .. 55 .. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. ACU .. AJ_JCL ACUCBOL.

5 AJ_JCL ACUCBOL JCL . JCL . (WRITE) (WRITERD) (SET) . (CALL,EXEC) .. JCL (SORT,MERGE) . (FILTRANS) . Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. DURL . DURL . ACUCOBOL. COBOL. ACUCOBOL .. JCL. DURL . DURL .. DURL .. Job . DURL . DURL . Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. Oracle . Oracle Acu4GL . Acu4GL COBOL . COBOL . READ Acu4GL SQL(SELECT). COBOL Oracle FD for Oracle . COBOL Oracle XFD PIC X(n) CHAR(n). PIC N(n) VARCHAR2 (XFD ). RAW(n) (XFD ). Oracle PIC S9(n) NUMBER(n). PIC S9(n) COMP-3. PIC 9(n)V9(m) NUMBER(n+m, m). OCCURS n _1, _2, _n . FILLER . Oracle COBOL Oracle COBOL Oracle Acu4GL(XFD) . Acu4GL(XFD) .. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. eXsenju . eXsenju .. eXsenju eXsenju .. ACUCOBOL. eXsenju . ACUCOBOL.. JCL .. COBOL .. Copyright 2005, Tokyo System House Co., Ltd.

6 All Rights Reserved.. eXsenju . eXsenju .. FTP .. EBCDIC To S-JIS.. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. 1 5 20 2 .. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.. Copyright 2005, Tokyo System House Co., Ltd. All Rights Reserved.