2003-6-24 COBOL COBOL 2002 ISO/IEC JTC 1/SC 22/WG 4 (COBOL) INCITS J4 (COBOL) SC 22/COBOL WG COBOL JIS 1
1. COBOL 2. 2002 COBOL 3. 2002 COBOL 4. 5. COBOL 2
1. COBOL 3
COBOL COBOL Java C C++ 200 100 100 ~300 50 35 70% COBOL University of LIMERICK, Department of Computer Science and Information Systems HP 2002 4 4
COBOL COBOL 63 COBOL Java The Gartner Programming Language Survey 1 Oct 2001 COBOL COBOL IDC Research Director Dirk Coburn Java and XML for ebusiness COBOL Common Business Oriented Language (COBOL) 1950 COBOL Visual Basic 35 http://www-6.ibm.com/jp/developerworks/linux/000929/j_cobol.html T.W.Burger 2000 5 5
COBOL COBOL IT COBOL 70% COBOL 2004 80% COBOL 1000 PL/I Pascal Basic Ada The new face of COBOL ACUCORP Seminar Series 2002 COBOL IEEE Software Vol.17 No.2 pp.16-72 2000 6
COBOL C 10 30 COBOL 30 7
COBOL ( ) COBOL Java Java HTML JSP ( ).NET Framework Visual Basic COBOL Oracle Microsoft SQL Server DB DB COBOL 8
2. 2002 COBOL 9
COBOL COBOL COBOL CODASYL (the Conference on Data Systems Languages) 1960/4 (COBOL-60) 10
COBOL ANSI ISO JIS 68 72 74 78 80 85 85 88 90 92 92 2003? 2004? 100 2002 72 11 Copyright(C) 1998 Hitachi,Ltd.All rights reserved
ISO/IEC JTC 1/SC 22/WG 4 (COBOL) 1 ITSCJ (ANSI) INCITS J4 ( X3J4) 6 ISO Microfocus( ), IBM, Unisys, HP, EDS, ITSCJ( ), CODASYL 1992 X3J4 (1959 1992) IPSJ/ITSCJ SC 22/COBOL WG 4 ISO/ANSI COBOL WG IBM NHK NTT 12
3. 2002 COBOL 13
2002 COBOL 2002 COBOL 14
/ / 15
01 OR-1 USAGE OBJECT REFERENCE. INVOKE OR-1 " " CALL " " 16
IDENTIFICATION DIVISION. CLASS-ID. INHERITS. IDENTIFICATION DIVISION. OBJECT. DATA DIVISION. WORKIGN-STORAGE SECTION. 01 PIC S9(9). 01 PIC N(20). PROCEDURE DIVISION. IDENTIFICATION DIVISION. METHOD-ID.. END METHOD. END OBJECT. END CLASS. 17
01 A PIC 99 VALUE 50. 01 B PIC 99 VALUE 60. COBOL PROCEDURE DIVISION. DECLARATIVES. ERROR-HANDLER SECTION. USE AFTER EXCEPTION CONDITION EC-SIZE-TRUNCATION... END DECLARATIVES. >>TURN EC-SIZE-TRUNCATION CHECKING ON ADD A TO B *>... IF A > 60 *> RAISE EXCEPTION EC-SIZE-TRUNCATION 18
: >>DEFINE TYPE1 AS 1. IDENTIFICATION DIVISION. PROGRAM-ID. PROG-1. DATA DIVISION. PROCEDURE DIVISION. >>IF TYPE1 IS DEFINED *> DISPLAY "DEFINED". >>ELSE *> DISPLAY "NOT DEFINED". >>END-IF. 19
: >> FLAG85 DIVIDE OFF ( ) >> LISTING ON ( ) >> PAGE >> PROPAGATE ON ( ) >> SOURCE FORMAT IS FIXED ( >> TURN EC-RANGE-PERFORM-VARYING CHECKING ON ( ) >> IMP 20
*> 01 IS TYPEDEF. 05 PIC 9(4). 05 PIC 9(2). 05 PIC 9(2). 01 FILLER. *> 05 TYPE. *> 05 TYPE. 21
IDENTIFICATION DIVISION. FUNCTION-ID.. DATA DIVISION. LINKAGE SECTION. 01 A PIC S9(9). 01 B PIC S9(9). 01 R PIC S9(9). PROCEDURE DIVISION USING A B RETURNING R.... END FUNCTION. *> COMPUTE = FUNCTION (X Y) 22
>>SOURCE FORMAT IS FREE L++++++++1+++++++++2+++++++++3+++++ +++R SECTION. ADD TO. *> (A/B ) >>SOURCE FORMAT IS FIXED L+++++CP+1+++++++++2+++++++++3+++++ +++R 000130 SECTION. 000240 MOVE ZERO TO. 23
( ) 01 PIC N(3) VALUE N" ". MOVE FUNCTION NATIONAL-OF(X) TO. 24
01 PIC 1(5) 01 PIC 1(5) 01 PIC 1(5). VALUE B"10101". VALUE B"01010". COMPUTE = B-OR COMPUTE = FUNCTION INTGER-OF-BOOLEAN( 1. 25
USAGE 01 A USAGE IS FLOAT-SHORT. 01 B USAGE IS FLOAT-LONG. 01 C USAGE IS FLOAT-EXTENDED. COMPUTE = FUNCTION NUMVAL-F(X. 26
FILE-CONTROL. *> *> SELECT USER-FILE ASSIGN TO SYS001 ORGANIZATION IS SEQUENTIAL SHARING WITH ALL OTHER LOCK MODE IS AUTOMATIC WITH LOCK ON RECORD. READ USER-FILE RETRY FOREVER 27
VALIDATE 01. 05-1 PIC 9(4) DESTINATION IS -2 88 VALID VALUE 1990 THRU 1999. 05-1 PIC 9(2) DESTINATION IS -2 88 VALID VALUE 1 THRU 12. 05-1 PIC 9(2) DESTINATION IS -2 00 88 VALID VALUE 1 THRU 31. 01. 05-2 PIC 9(4). 05-2 PIC 9(2). 05-2 PIC 9(2). MOVE FUNCTION CURRENT-DATE TO. VALIDATE. DISPLAY. VALIDATE IF -1 >= 1990 And <= 1999 then MOVE -1 TO -2 else INITIALIZE -2 28
01 P USAGE POINTER. 01 MY-REC BASED. 02 NAME PIC X(30). 02 ADDR PIC X(30). SET ADDRESS OF MY-REC TO P. 29
31 01 VERY-HUGE-NUMBER PIC 9(31). 19 SQL3 SQL3 31 30
4. 31
COBOL COBOL Web ( COBOL2002 )) Java-COBOL Web COBOL Java COBOL JavaBeans EJB COBOL-XML XML XML COBOL COBOL-SOAP SOAP Web 32
HITACHI MP5400EX Java-COBOL : Java Java Servlet JSP COBOL Web COBOL COBOL JavaBeans EJB UNIX COBOL UAP COBOL UAP Java Java-COBOL (Servlet, JSP) Web JSP Java Srver Pages EJB Enterprise JavaBeans 33
Java-COBOL : Java COBOL Web ( COBOL2002 Microsoft SQL Server COBOL DLL Oracle HiRDB COBOL Bean JavaBeans Servlet JSP W e b Java COBOL Bean COBOL COBOL COBOL Bean Web 34
COBOL XML XML COBOL COBOL e- XML XML COBOL COBOL 35
COBOL-XML / COBOL2002 XML COBOL2002 XML COBOL UAP ( ).cbl.cbl.cbl COBOL2002 COBOL UAP COBOL UAP & ( XML ) XML XML XML COBOL COBOL DDF( DDF( ) ) COBOL2002 COBOL2002 XML XML XML XML COPY COPY XML XML COBOL COBOL XML XML,, XML XML COBOL COBOL COBOL COBOL XML XML 36
Web Web XML SOAP Web A XML/SOAP Web : : COBOL Web Web (COBOL) : : Web B : Web W eb Web XML/SOAP Web 37
SOAP Web SOAP SOAP XML SOAP SOAP SOAP SOAP SOAP : Web Sum_4num <soap:envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/xmlschema-instance" xmlns:xsd="http://www.w3.org/2001/xmlschema"> <soap:header> </soap:header> <soap:body> <Sum_4num xmlns="http://tempuri.org/"> <a>1</a><b>2</b><c>3</c><d>4</d> </Sum_4num> </soap:body> </soap:envelope> Web <soap:envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/xmlschema-instance" xmlns:xsd="http://www.w3.org/2001/xmlschema"> <soap:body> <Sum_4numResponse xmlns="http://tempuri.org/"> <Sum_4numResult>10</Sum_4numResult> </Sum_4numResponse> </soap:body> </soap:envelope> Sum_4num 10 38
COBOL WSDL SOAP COBOL WSDL Web WSDL Web COBOL CALL SOAP WSDL WSDL COBOL SOAP COBOL COBOL COBOL COBOL-SOAP COBOL WSDL Web Web WSDL(Web Services Description Language) XML WSDL UDDI COBOL Web UDDI(Universal Description, Discovery and Integration) WSDL Web 39
5. COBOL 40
COBOL Workshop 2003 6 25 SC 22/WG 4 (COBOL) 2003 6 26 28 COBOL Workshop 41
1. COBOL XML 2. 3. 4. ( ) 5. XML 6. 7. 42
COBOL Web XML, Web COBOL COBOL 43
ORACLE Oracle Corporation Java Java Sun Microsystems,Inc. Microsoft Microsoft SQL Server Visual Basic Windows Windows NT Windows 2000 Microsoft, Corp 44