例題
[P2809.cob] 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句で,位置決め単位を示す定数に対応付けて定義します.