例
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文で，画面上のカーソル位置を受け渡すためのデータ項目を指定します．