例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2903.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT SRTFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA DIVISION.
000009 FILE SECTION.
000010 SD SRTFILE1
000011 RECORD CONTAINS 0.
000012 01 SRTF1REC.
000013 02 PIC N(80).
000014 WORKING-STORAGE SECTION.
000015 01 WFS1 PIC X(2).
000016 PROCEDURE DIVISION.
000017 END PROGRAM P2903.
P2903.cob (11) : JMN2903I-S 'RECORD CONTAINS 0'は,整列併合用ファイル記述項に指定できません.