●出力ファイル名
　OTnn-FILE
　IN(固定)、nn(連番01、02〜)、-FILE(固定)

●レコード名(01レベル)
　XXXXXXX-REC
　XXXXXXX(コピー句ID)、-REC(固定)

●データ項目名(03レベル以下)
　nnn-XXXXXXXX
　nnn(プレフィクス、略称標準化一元管理)、-(固定)、XXXXXXXX(任意文字列)

●セクション名
　nnn-XXXXXXXX
　nnn(セクションIDピリオドなし)、-(固定)、XXXXXXXX(任意文字列)

●ローマ字はヘボン式を使用する。
　あ行　　Ａ　Ｉ　Ｕ　Ｅ　Ｏ
　か行　　ＫＡ　ＫＩ　ＫＵ　ＫＥ　ＫＯ
　さ行　　ＳＡ　ＳＨＩ　ＳＵ　ＳＥ　ＳＯ
　た行　　ＴＡ　ＣＨＩ　ＴＵ　ＴＥ　ＴＯ
　な行　　ＮＡ　ＮＩ　ＮＵ　ＮＥ　ＮＯ
　は行　　ＨＡ　ＨＩ　ＨＵ　ＨＥ　ＨＯ
　ま行　　ＭＡ　ＭＩ　ＭＵ　ＭＥ　ＭＯ
　や行　　ＹＡ　−−　ＹＵ　−−　ＹＯ
　ら行　　ＲＡ　ＲＩ　ＲＵ　ＲＥ　ＲＯ
　わ行　　ＷＡ　−−　−−　−−　−−
　ん　　　Ｎ　　−−　−−　−−　−−

　が行　　ＧＡ　ＧＩ　ＧＵ　ＧＥ　ＧＯ
　ざ行　　ＺＡ　 ＪＩ　ＺＵ　ＺＥ　ＺＯ
　だ行　　ＤＡ　ＪＩ　ＺＵ　ＤＥ　ＤＯ
　ば行　　ＢＡ　ＢＩ　ＢＵ　ＢＥ　ＢＯ

　ぱ行　　ＰＡ　ＰＩ　ＰＵ　ＰＥ　ＰＯ

　きゃ行　ＫＹＡ　−−　ＫＹＵ　−−　ＫＹＯ
　しゃ行　ＳＹＡ　−−　ＳＹＵ　−−　ＳＹＯ
　ちゃ行　ＣＹＡ　−−　ＣＹＵ　−−　ＣＹＯ
　にゃ行　ＮＹＡ　−−　ＮＹＵ　−−　ＮＹＯ
　ひゃ行　ＨＹＡ　−−　ＨＹＵ　−−　ＨＹＯ
　みゃ行　ＭＹＡ　−−　ＭＹＵ　−−　ＭＹＯ
　りゃ行　ＲＹＡ　−−　ＲＹＵ　−−　ＲＹＯ

　ぎゃ行　ＧＹＡ　−−　ＧＹＵ　−−　ＧＹＯ
　じゃ行　ＪＹＡ　−−　ＪＹＵ　−−　ＪＹＯ
　びゃ行　ＢＹＡ　−−　ＢＹＵ　−−　ＢＹＯ

　ぴゃ行　ＰＹＡ　−−　ＰＹＵ　−−　ＰＹＯ

撥音(はねる音)：Ｎで表現する。　品目→ＨＩＮＭＯＫＵ
促音(つまる音)：次にくる最初の子音を� �ねる　結果→ＫＥＫＫＡ
長音(のびる音)：前の母音を重ねる　融資→ＹＵＵＳＨＩ

000100[C7]***************************************************[C70]
000300*[C10]サブシステム名　[C25]：[C26]資材所要量計画■■■■■■M[C70]*
001700　[C8]IDENTIFICATION　　　　 [C31]DIVISION.
001800　[C8]PROGRAM-ID.　　　　　　[C31]SAMPLE03.

002300 FILE-CONTROL.
002300 [+4]SELECT　　[+2]IN01-FILE　 ASSIGN　 IN01.

005100*----ワークエリア----------------------------------------------*
005200　01 WRK-AREA.
004100　　03 CAN-AREA.
004200　　　05 CAN-PGMID　　　　[C41]PIC X(08) VALUE "SAMPLE03".

013400****************************************************************
013500* [C12]SAMPLE03　　　　　　　　　　　　　　　[C50](0.0)　　　　 *
013600****************************************************************
016400　　[C12]OPEN INPUT IN01-FILE.
016500　　[C12]OPEN OUTPUT OT01-FILE.

025900　　[C12]MOVE　[C18]TOT-AAA001　　　　[C36]TO　[C40]TOT-BBB001.

026400　　[C12]IF　　[C16]AAAAA　　[C28]NOT　[C32]＝　[C35]BBBBB
　　　

●PERFORM命令
　PERFORM　SECTION名を使用してTHRUは使用しない

●IF命令
　IF命令のネスト5個を上限とする。ネストが深い場合EVALUATEを使用する

●CONTINUEの使用
　IF命令のELSEが無実行の場合、CONTINUEは省略できる。但し、END-IFは省略しない
　EVALUATE命令のELSEが無実行の場合、CONTINUEは省略できる。但し、END-EVALUATEは省略しない

●算術演算について
　COMPUTE命令に統一する
　剰余が必要な除算に限り、DIVIDE命令を使用

●比較演算子について
　NOTと不等記号の組合せは使用しない。
　100≦AAA≦300の場合
　　　不可　IF (X NOT 300)
　　　　可　IF (X >= 100) AND (X

　（　）を活用して、比較関係を分り易くする。

●帳票出力について
　改ページ、改行はAFTER句で統一する。
　ADVANCINGとLINES句は記述を省略する。

●頻繁に初期化する時は、ワーク0をMOVEして初期化する。回さない。
例１ではなく、例２を使用する。

例１-------------------------------------
　01　AAA.
　　　03　AAA1　　　　　OCCURS　　50.
　　　　　05　AAA11　　　PIC　9(03).
　　　　　05　AAA12　　　PIC　9(03).

　PERFORM　VALYING　　IX　　FROM　1　　BY　　1
　　　　　　　UNTIL　　IX　　>　　50
　　　MOVE　0　　TO　　　AAA11(IX)
　　　MOVE　0　　TO　　　AAA12(IX)
　END-PERFORM.

例２-------------------------------------
　01　AAA.
　　　03　AAA1　　　　　OCCURS　　50.
　　　　　05　AAA11　　　PIC　9(03).
　　　　　05　AAA12　　　PIC　9(03).

　01　ZZZ.
　　 　03　FILLER　　　　OCCURS　　50.
　　　　　05　ZZZ11　　　PIC　9(03)　　VALUE　0.
　　　　　05　ZZZ12　　　PIC　9(03)　　VALUE　0.