IDENTIFICATION DIVISION
プログラム全体の見出し
ENVIRONMENT DIVISION
データベースへのアクセスのための記述など (DB名とテーブル名)
DATA DIVISION
データの型、変数宣言など
PROCEDURE DIVISION
処理する内容
* アスタリスク=コメント * スラッシュは改ページ * ハイフンは継続行(通常使用しない)
文字の組 - 文字列 - 予約語 利用者語 定数 (数字定数/文字定数/表意定数) 分離符 利用者語
予約語= MOVE, WRITE, SECTION, DIVISION, ... 利用者語=プログラマが自由に定義できる
MOVE ZERO TO WORK-AREA (数値としてのゼロクリア) MOVE SPACE TO WORK-AREA (文字列としての空白) INITIALIZE WORK-AREA (型に応じたクリア)
データ部
PICTURE 01 9が数字 999V999 X(5) 文字列5桁 N(8) 日本語の桁数
MOVE a TO b. READ URIAGE-F. MOVE URIAGE-TOKUI TO GOKEI-TOKUI. COMPUTE var = exp. DISPLAY value " and " 123
PERFORM PERFORM SUBROUTINE 10 TIMES. PERFORM SUBROUTINE UNTIL VAR >= 10. PERFORM SUBROUTINE. SUBROUTINE. 処理. 処理. NEXTROUTINE. PERFORMにWHILEはない PERFORM VARYING PERFORM VARYING FROM 1 BY 1 UNTIL WORK-COUNTER > 10 処理 END-PERFORM. ADD 1 TO VAR SUBTRACT 1 TO VAR DIVIDE 除数 INTO HOGE-A GIVING HOGE-AMARI. 被除数の変数は必ず破壊される NOT = NOT EQUAL
IF HOGE-AMARI = 1 THEN DISPLAY 'KISU' ELSE DISPLAY 'GUSU' END-IF.
MOVE 60 TO HOGE-A. EVALUATE HOGE-A WHEN 0 THRU 50 処理 WHEN 50 THRU 100 WHEN OTHER 処理 END-EVALUATE.