例題
[P2819.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2819. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT AFILE1 ASSIGN GS-DD1. 000007 I-O-CONTROL. 000008 APPLY MULTICONVERSATION-MODE. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD AFILE1. 000012 01 AREC. 000013 02 RKY1 PIC X(80). 000014 PROCEDURE DIVISION. 000015 END PROGRAM P2819.
P2819.cob 8: JMN2819I-S 表示ファイル(編成GS)のAPPLY MULTICONVERSATION-MODE句を指定した場合，表示ファイル(編成GS)のAPPLY SAVED-AREA句を指定しなければなりません．
