例
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句を指定しなければなりません.