Microsoft PowerPoint - 05Cobol.ppt

Size: px

Start display at page:

Download "Microsoft PowerPoint - 05Cobol.ppt"

そうあざみ
7 years ago
Views:

1 73 80 (Page) (Serial) まずは COBOL 入門プログラム言語論第五回 COBOL COmmon Business Oriented Language バッチ処理 ( それしかなかった ) 用に設計データ書式 ( ファイル書式と処理途中のデータの書式 ) がまず念頭にあるプログラム論理は次. データフローに基づいてプログラムロジックを組み立てる. 文の書式書式は固定です, また. COBOL コーディングフォーム Program: P R O G 1 Requested by: Page 2 of 3 Programmer: R O B E R T L I E B Date: Identification Sequence A B COBOL Statement Cont 0 1 W ORK ING - STORAGE SEC TION D A T A - R E M A I N S - S W I T C H P I C X ( 0 2 ) V A L U E S P A C E S H E A D I N G - L I N E F I L L E R P I C X ( 1 0 ) V A L U E S P A C E S F I L L E R P I C X ( 1 2 ) V A L U E ' S T U D E N T N A M E ' F I L L E R P I C X ( 1 0 ) V A L U E S P A C E S D E T A I L - L I N E F I L L E R P I C X ( 0 8 ) V A L U E S P A C E S P R I N T - N A M E P I C X ( 2 5 ) F I L L E R P I C X ( 1 0 ) V A L U E S P A C E S P R O C E D U R E D I V I S I O N. 行番号 Line Number 標識領域 Indicator Area A 領域 Statement B 領域 Statement 覚書 program identification 1 5 P R E P A R E - S E N I O R - R E P O R T. 1 6 O P E N I N P U T S T U D E N T - F I L E 1 7 OU T PU T P R INT - F I L E. 1 8 R E A D S T U D E N T - F I L E 1 9 AT END MOVE ' N O ' T O D A T A - R E M A I N S - S W I T C H 2 1 END - READ. 2 2 P E R F O R M W R I T E - H E A D I N G - L I N E. 2 3 P ERFORM P ROC ESS - RECORDS 2 4 UNT I L DATA - REMAINS - SW I T C H = ' N O '. 2 5 C L O S E S T U D E N T - F I L E 2 6 P R I N T - F I L E. 2 7 STOP -RUN 全体的な注意事項大文字小文字の区別なし (Case insensitive) 通常は大文字を使う ( 歴史的理由 ) コメント * を標識領域に書く文の終端を示す記号はなし一文が複数行に跨ってよい.. は有効範囲の終端を示すたくさんの予約語にたくさんの類義語! Hello World! IDENTIFICATION DIVISION PROGRAM-ID. HELLO-WORLD-PROG AUTHOR. TIMOTHY R P BROWN *The standard Hello world program ENVIRONMENT DIVISION DATA DIVISION WORKING-STORAGE SECTION TEXT-OUT PIC X(12) VALUE 'Hello World!' PROCEDURE DIVISION MAIN-PARAGRAPH DISPLAY TEXT-OUT STOP RUN.

2 プログラムの構造 4 つの division: 見出し部 Identification Division (required) 環境部 Environment Division (optional) データ部 Data Division (optional) 手続き部 Procedure Division (optional) Identification Division プログラム名等, 実行への直接的影響ないもの INDENTIFICATION DIVISION PROGRAM-ID. EXAMPLE-1-PROG AUTHOR. HOPPER INSTALLATION. XYZ GROUP DATE-WRITTEN. 16/1/04. Optional DATE-COMPILED SECURITY. LOCAL GROUP. Environment Division 環境節と入出力節 Configuration & I/O section ENVIRONMENT DIVISION CONFIGURATION SECTION SOURCE-COMPUTER. IBM PC. optional OBJECT-COMPUTER. IBM PC INPUT-OUTPUT SECTION FILE-CONTROL SELECT INPUT-FILE ASSIGN TO 'input.dat' ORGANIZATION IS LINE SEQUENTIAL SELECT PRINT-FILE ASSIGN TO PRINTER. Environment Division 入出力節 I/O section 識別名をファイルやプリンタに割り当てる SELECT identifiers ASSIGN TO filename ORGANIZATION IS LINE SEQUENTIAL. プリンタの構成を記す必要はないピリオドなし Data Division Data Division File Section ファイル節作業場所節連絡節 File, working-storage と linkage section DATA DIVISION FILE SECTION FD INPUT-FILE CUSTOMER-DATA NAME PIC X(12) ADDRESS HOUSE-NUMBER PIC STREET PIC X(19) WORKING-STORAGE SECTION RECORD-COUNTER PIC 9(5) VALUE ZERO. File は record からなる Business-oriented language FD INPUT-FILE CUSTOMER-DATA NAME PIC X(12) ADDRESS HOUSE-NUMBER PIC STREET PIC X(19). CUSTOMER- DATA NAME ADDRESS 定義するファイルに関する記述 ; レコード名 ; フィールド名 ; 下位フィールド名 ; HOUSE- NUMBER STREET

3 Data Division Working Storage Section Data Division Variable Declaration 変数代わりの領域の定義である WORKING-STORAGE SECTION RECORD-COUNT PIC 9(5) VALUE ZERO OUTPUT-LINE PIC X(8) VALUE SPACES INITIAL-NUM PIC 9999 VALUE 10. レベル番号 Level number 01 がレコード相当 () それより上はフィールド相当 () 大きい番号は深いレベルに 66, 77, 88 予約識別名 ( 一意名としているが ) identifier 最大 30 文字英数字かハイフンデータ型文字 01 INPUT-STR PIC XXXX VALUES 'ABCD'. 01 INPUT-STR PIC X(4) VALUES SPACES. 数 01 INPUT-NUM PIC 9999 VALUES INPUT-NUM PIC 9(4) VALUES ZERO. Procedure Division 代入文実行制御はここに PROCEDURE DIVISION MAIN-PARAGRAPH DISPLAY TEXT-OUT STOP RUN. 注意 :. Main paragraph ( 何でも OK); 文 ; End 文 ; MOVE value TO variable 例 01 DATE-IN. 03 W-DAY PIC W-MONTH PIC 99. MOVE 31 TO W-DAY MOVE 12 TO W-MONTH IN DATE-IN 算術式単純な算術式 ADD value1 TO value2 GIVING variable SUBTRACT value2 FROM value1 GIVING variable MULTIPLY value1 BY value2 GIVING variable DIVIDE value1 BY value2 GIVING variable 普通の算術式 COMPUTE variable = arithmetic expression 演算子 : +, -, *, /, ** IF 文 IF condition THEN statement 1 ELSE statement 2 END-IF 論理演算子 Logical operators NOT, AND, OR 関係演算子 Relational operators =, >, <, <=, >=, NOT =

4 条件変数例 DATA DIVISION WORKING-STORAGE SECTION NUMBER-SIZE PIC X BIG-NUMBER VALUE 'Y'. レベル 88 は条件変数 ( 型?) 'Y' = true not 'Y' = false 条件変数 NUMBER-SIZE に代入する MOVE 'Y' TO NUMBER-SIZE MOVE 'N' TO NUMBER-SIZE BIG-NUMBER を評価させる IF BIG-NUMBER THAN 多水準に分けるには 01 GRADES-CHECK PIC A-GRADE VALUE 70 THRU B-GRADE VALUE 60 THRU C-GRADE VALUE 50 THRU FAIL-GRADE VALUE 0 THRU 49. 繰り返し文 Until Loop Until ループ PERFORM UNTIL condition Do-Until ループ PERFORM WITH TEST AFTER UNTIL condition 繰り返し文 For Loop 版 1 PERFORM n TIMES 版 2 PERFORM VARYING counter FROM initial BY step UNTIL condition 表一次元 01 W-NAME PIC X(10) OCCURS 5 TIMES. 使い方 Optional MOVE 'Hopper' TO W-NAME(1) 多次元 01 SALES-TABLE. 03 BRANCH-NO OCCURS SALES PIC 9(4) OCCURS 4. Paragraph サブルーチンの COBOL 版パラメータの引渡しはなしグローバル変数を用いる paragraph-name last statement. Paragraphの起動 : PERFORM pname PERFORM pname until condition Statements; in Last statement: ended with fullstop.

5 ファイル入出力 Open と Close ファイル Opene OPEN mode filename1 filename2 Mode: INPUT, OUTPUT, I-O, EXTEND ファイル Close CLOSE filename1 filename2 ファイル入出力読み込み仮にファイル構造は : Grace Hopper William Selden ファイルのレコード構造を下記で定義 FD IN-FILE. 01 CUSTOMER-DETAILS. 03 CUS-NAME PIC X(15). 03 CUS-NUM PIC 9(6). ファイル入出力読み込みファイルからの 1 レコードの読み込み : READ IN-FILE CUS-NAME には顧客名が CUS-NUM には顧客番号が読み込まれる次のレコードを読むためには同じ文を再実行する. ファイル入出力書き出し仮にファイル構造が : Grace Hopper William Selden ファイルのレコード構造を下記で定義 FD OUT-FILE. 01 CUSTOMER-DETAILS. 03 CUS-NAME PIC X(15). 03 CUS-NUM PIC 9(6). ファイル入出力書き出しファイルに 1 レコード書き込むには : MOVE 'William Selden' TO CUS-NAME MOVE TO CUS-NUM WRITE CUSTOMER-DETAILS $ SET SOURCEFORMAT"FREE IDENTIFICATION DIVISION. PROGRAM-ID. Iteration-If. AUTHOR. Michael Coughlan. DATA DIVISION. WORKING-STORAGE SECTION. Num1 PIC 9 VALUE ZEROS. 01 Num2 PIC 9 VALUE ZEROS. 01 Result PIC 99 VALUE ZEROS. 01 Operator PIC X VALUE SPACE. PROCEDURE DIVISION. Calculator. PERFORM 3 TIMES DISPLAY "Enter First Number : " WITH NO ADVANCING ACCEPT Num1 DISPLAY "Enter Second Number : " WITH NO ADVANCING ACCEPT Num2 DISPLAY "Enter operator (+ or *) : " WITH NO ADVANCING ACCEPT Operator IF Operator = "+" THEN ADD Num1, Num2 GIVING Result END-IF IF Operator = "*" THEN MULTIPLY Num1 BY Num2 GIVING Result END-IF DISPLAY "Result is = ", Result. STOP RUN.

6 学習用 COBOL インタプリター YCOBOL というものがあります使い方解説別件ですが COBOL example programs Fujitsu Cobol 3.0 本格的コボル. Fujitsu USA. ダウンロードしてインストールすればよい ( あたりまえだが ). 環境変数 PATH と LIB に次を含めて下さい C: FSC PCOBOL32 (default 値 ) コンパイルするには : cobol32 /MAIN program.cob link program.obj f3bicimp.lib libc.lib kernel32.lib user32.lib /out:program.exe 参考 Fujitsu Softcopy Documentation Set 4.0 をインストール Fujitsu Cobol の使い方チュートリアル :

スクールCOBOL2002

スクールCOBOL2002 (h) 登録集原文の指定方法 . 登録集原文の指定方法複数の COBOL プログラムに共通の記述を別のソースファイルとしておき COPY 文で取り込むことができます登録集原文の概念図を下欄に示しますこのようにするとコーディング量を削減でき記述ミスもなくなるため開発効率を高めることができますここでは第章で実習した reidai.cbl というソースファイルの DATA0 と YYMMDD