7.2.1 形式
PROGRAM-ID.プログラム名.
DATA DIVISION.
WORKING-STORAGE SECTION.
：
LINKAGE SECTION.
01 データ名A ADDRESS. /* インタフェースエリアアドレス */
01 データ名B ADDRESS. /* 履歴情報レコードインデクスアドレス */
01 データ名C ADDRESS. /* 編集後データインデクスアドレス */
01 データ名D ADDRESS. /* ユーザ引き継ぎエリアアドレス */
01 データ名E PIC S9(9) COMP. /* ユーザ引き継ぎエリアサイズ */
PROCEDURE DIVISION USING BY VALUE データ名A データ名B データ名C データ名D データ名E．
：
UOCの処理
：
EXIT PROGRAM.