1. COBOL COBOL COBOL COBOL 2

Size: px

Start display at page:

Download "1. COBOL COBOL COBOL COBOL 2"

ぎんとおおはし
8 years ago
Views:

1 COBOL COBOL 2002 ISO/IEC JTC 1/SC 22/WG 4 (COBOL) INCITS J4 (COBOL) SC 22/COBOL WG COBOL JIS 1

2 1. COBOL COBOL COBOL COBOL 2

3 1. COBOL 3

4 COBOL COBOL Java C C ~ % COBOL University of LIMERICK, Department of Computer Science and Information Systems HP

5 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 T.W.Burger

6 COBOL COBOL IT COBOL 70% COBOL % COBOL 1000 PL/I Pascal Basic Ada The new face of COBOL ACUCORP Seminar Series 2002 COBOL IEEE Software Vol.17 No.2 pp

7 COBOL C COBOL 30 7

8 COBOL ( ) COBOL Java Java HTML JSP ( ).NET Framework Visual Basic COBOL Oracle Microsoft SQL Server DB DB COBOL 8

9 COBOL 9

10 COBOL COBOL COBOL CODASYL (the Conference on Data Systems Languages) 1960/4 (COBOL-60) 10

12 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 ( ) IPSJ/ITSCJ SC 22/COBOL WG 4 ISO/ANSI COBOL WG IBM NHK NTT 12

13 COBOL 13

14 2002 COBOL 2002 COBOL 14

15 / / 15

16 01 OR-1 USAGE OBJECT REFERENCE. INVOKE OR-1 " " CALL " " 16

17 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

18 01 A PIC 99 VALUE 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

19 : >>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

20 : >> FLAG85 DIVIDE OFF ( ) >> LISTING ON ( ) >> PAGE >> PROPAGATE ON ( ) >> SOURCE FORMAT IS FIXED ( >> TURN EC-RANGE-PERFORM-VARYING CHECKING ON ( ) >> IMP 20

21 *> 01 IS TYPEDEF. 05 PIC 9(4). 05 PIC 9(2). 05 PIC 9(2). 01 FILLER. *> 05 TYPE. *> 05 TYPE. 21

22 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

23 >>SOURCE FORMAT IS FREE L R SECTION. ADD TO. *> (A/B ) >>SOURCE FORMAT IS FIXED L+++++CP R SECTION MOVE ZERO TO. 23

24 ( ) 01 PIC N(3) VALUE N" ". MOVE FUNCTION NATIONAL-OF(X) TO. 24

25 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

26 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

27 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

28 VALIDATE PIC 9(4) DESTINATION IS VALID VALUE 1990 THRU PIC 9(2) DESTINATION IS VALID VALUE 1 THRU PIC 9(2) DESTINATION IS VALID VALUE 1 THRU PIC 9(4) PIC 9(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

29 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

30 31 01 VERY-HUGE-NUMBER PIC 9(31). 19 SQL3 SQL

31 4. 31

32 COBOL COBOL Web ( COBOL2002 )) Java-COBOL Web COBOL Java COBOL JavaBeans EJB COBOL-XML XML XML COBOL COBOL-SOAP SOAP Web 32

33 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

34 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

35 COBOL XML XML COBOL COBOL e- XML XML COBOL COBOL 35

36 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

37 Web Web XML SOAP Web A XML/SOAP Web : : COBOL Web Web (COBOL) : : Web B : Web W eb Web XML/SOAP Web 37

38 SOAP Web SOAP SOAP XML SOAP SOAP SOAP SOAP SOAP : Web Sum_4num <soap:envelope xmlns:soap=" xmlns:xsi=" xmlns:xsd=" <soap:header> </soap:header> <soap:body> <Sum_4num xmlns=" <a>1</a><b>2</b><c>3</c><d>4</d> </Sum_4num> </soap:body> </soap:envelope> Web <soap:envelope xmlns:soap=" xmlns:xsi=" xmlns:xsd=" <soap:body> <Sum_4numResponse xmlns=" <Sum_4numResult>10</Sum_4numResult> </Sum_4numResponse> </soap:body> </soap:envelope> Sum_4num 10 38

39 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

40 5. COBOL 40

41 COBOL Workshop SC 22/WG 4 (COBOL) COBOL Workshop 41

42 1. COBOL XML ( ) 5. XML

43 COBOL Web XML, Web COBOL COBOL 43

44 ORACLE Oracle Corporation Java Java Sun Microsystems,Inc. Microsoft Microsoft SQL Server Visual Basic Windows Windows NT Windows 2000 Microsoft, Corp 44

CAC

CAC VOL.24NO.1 61 IMS Transaction 3270 DataBase Transaction OS/370 IMS Traditional Transaction Web Browser Transaction Internet WWW AP IIS APache WebLogic Websphere DataBase Oracle DB2 SQL Server Web Browser