例題
[P2933.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2933. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 CURSOR IS CRS1. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 CRS1 PIC 9(8) USAGE BINARY. 000010 PROCEDURE DIVISION. 000011 END PROGRAM P2933.
P2933.cob 6: JMN2933I-S CURSOR句のデータ名は作業場所節に定義された長さ4または6の項目で，その用途は表示用でなければなりません．
詳細な説明
CURSOR句は，スクリーン操作機能のACCEPT文で，画面上のカーソル位置を受け渡すためのデータ項目を指定します．
