COBOL 3 All Rights Reserved Copyright 2001 COBOL

Ⅰ．COBOLコンソーシアムのご案内 3 All Rights Reserved, Copyright © 2001, COBOL Consortium

Ⅱ．COBOLの現状と特長 5 All Rights Reserved, Copyright © 2001, COBOL Consortium

COBOL言語の成熟度（C, Javaとの対比）壮年期 COBOL 青年期成熟度幼年期

Ⅲ. 新環境・新技術に対応する COBOL 14 All Rights Reserved, Copyright © 2001, COBOL Consortium

COBOLでのDCOMアプリケーション開発・クライアントのプレゼンテーションは，EXCEL や VB を使用・サーバの業務ロジックやDBへのアクセスは，既存のCOBOLアプリケーションを活用 COBOLｸﾗｲｱﾝﾄ INVOKE OLE-HANDLE 'SUB' USING BY VALUE IN-KEY RETURNING COUNT 1 COBOLサーバプログラム（OLEｻｰﾊﾞ） DB Set Obj 1 = Create. Object("SRVSUB. CBLPrgm. Class") COUNT 1 = Obj 1. SUB(IN-KEY) Excelのマクロ，Visual Basic 21 All Rights Reserved, Copyright © 2001, COBOL Consortium

Ⅳ．Web環境への対応ｰアプリケーションサーバと Java連携ｰ 22 All Rights Reserved, Copyright © 2001, COBOL Consortium

COBOL(CGI機能）によるWebｱﾌﾟﾘｹｰｼｮﾝ作成 COBOLによる CGIプログラム作成を支援：フォーム情報の解析，HTMLコードの自動生成，HTMLﾌｧｲﾙのCOBOL副プログラムへの変換）入力情報　　の解析ブラウザから送信されるフォーム情報の形式 SEI=%93%FA%97%A 7&MEI=%91%BE%98%59&SUBMIT=%91%97%90%4 D COBOL CGI機能を使うと. . . 。 PROCEDURE DIVISION. DATA-GET. CALL “CBLCGIINIT“ USING A COBOL CGIプログラムのコーディングが簡単 COBOL CGI機能を使わないと. . . 。 PROCEDURE DIVISION. DATA -GET. ACCEPT PARAM FROM SYSIN. PERFORM VARYING ANPA-COUNT FROM 1 BY 1 　 UNTIL SW-1 NOT = 0 　　　 UNSTRING PARAM DELIMITED BY "&" 　　 INTO W-BOX-1 -REC(ANPA-COUNT) 　　　 : 　 END-UNSTRING END -PERFORM. フォーム情報の処理に，煩雑なコーディングが必要 24 All Rights Reserved, Copyright © 2001, COBOL Consortium

Ⅴ. COBOL-XML連携機能－Bto. B でのデータ交換などに適用－ 31 All Rights Reserved, Copyright © 2001, COBOL Consortium

Ⅵ．COBOL標準化の最新動向 35 All Rights Reserved, Copyright © 2001, COBOL Consortium

COBOLの歴史： COBOLの誕生最初のアイデア英語でのプログラム作成共通の言語仕様最初のCOBOL仕様書 CODASYL (the Conference on Data Systems Languages) 1960/4

COBOL 2002：規格化のスケジュール追加項目決定 (ISO) 1992/6 WD (作業草案) FCD 1995/3 (委員会最終案) 2001/2 DIS (国際規格草案) IS 2002/6 (国際規格) 2002/12 WD: Working Draft FCD: Final Committee Draft DIS: Draft International Standard　　IS： International Standard 39 All Rights Reserved, Copyright © 2001, COBOL Consortium

COBOL 2002の主な新機能：オブジェクト指向機能 (3) クラス定義オブジェクト定義メソッド定義 IDENTIFICATION DIVISION. CLASS-ID. 当座 INHERITS 預金. IDENTIFICATION DIVISION. OBJECT. DATA DIVISION. WORKIGN-STORAGE SECTION. 01 残高 PIC S 9(9). PROCEDURE DIVISION. IDENTIFICATION DIVISION. METHOD-ID. 預け入れ. ･･･ END METHOD 預け入れ. END OBJECT. END CLASS 当座. 44 All Rights Reserved, Copyright © 2001, COBOL Consortium

COBOL 2002の主な新機能：利用者定義型型定義と型名によるデータ定義と型チェック 01 日付 05 年 05 月 05

COBOL 2002の主な新機能：関数(2) 利用者定義関数戻り値を伴う処理を関数として定義できる IDENTIFICATION DIVISION. FUNCTION-ID. 最大公約数. DATA DIVISION. LINKAGE SECTION. 01 A PIC S 9(9). 01 B PIC S 9(9). 01 R PIC S 9(9). PROCEDURE DIVISION USING A B RETURNING R. . END FUNCTION 最大公約数. 関数の参照 *> 別のプログラムの中で --COMPUTE 結果 = 最大公約数(X Y) All Rights Reserved, Copyright © 2001, COBOL Consortium 51

COBOL 2002の主な新機能：例外処理機能 COBOL 共通の例外処理機構 01 A PIC 99 VALUE 50. 01 B PIC 99 VALUE 60. PROCEDURE DIVISION DECLARATIVES. SIZE-OVERFLOW SECTION. USE AFTER EXCEPTION EC-SIZE-OVERFLOW. . . END DECLARATIVES. ADD A TO B *> システムが例外発生を自動検出. . . IF A > 60 *>プログラムによって例外を発生させる RAISE EXCEPTION EC-SIZE-OVERFLOW 52 All Rights Reserved, Copyright © 2001, COBOL Consortium

COBOL 2002の主な新機能：データ妥当性検査機能フィールド値チェックの自動化 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． 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 入力日付＜VALIDATE命令の処理イメージ＞ DISPLAY 出力日付 IF 年-1 >= 1990 And <= 1999 then MOVE 年-1 TO 年-2 else INITIALIZE 年-2 53 All Rights Reserved, Copyright © 2001, COBOL Consortium