例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2809.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006 POSITIONING UNIT PUN-A IS 12 CPI
000007 POSITIONING UNIT PUN-B IS 10 CPI
000008 POSITIONING UNIT PUN-B ARE 15 CPI.
000009 DATA DIVISION.
000010 WORKING-STORAGE SECTION.
000011 01 REC-A PIC X(10) PRINTING POSITION IS 10 BY PUN-A.
000012 01 REC-B PIC X(10) PRINTING POSITION IS 10 BY PUN-B.
000013 PROCEDURE DIVISION.
000014 END PROGRAM P2809.
P2809.cob (12) : JMN2809I-S PRINTING POSITION句の名標は,一意な位置決め単位名でなければなりません.
詳細な説明
位置決め単位名は,印字位置を示す値の単位に付ける名前です.位置決め単位名は,環境部の特殊名段落のPOSITIONING UNIT句で,位置決め単位を示す定数に対応付けて定義します.