埋め込みの説明
@1@ : SAME,MULTIPLE FILE TAPEまたはAPPLY.
@2@ : エラーの原因となったファイル名.
例題
[P2085.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2085. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001 000007 ORGANIZATION IS SEQUENTIAL 000008 FILE STATUS IS WFS1. 000009 I-O-CONTROL. 000010 SAME AREA SQFILE1 SQFILE1. 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD SQFILE1. 000014 01 SQF1REC. 000015 02 PIC X(80). 000016 WORKING-STORAGE SECTION. 000017 01 WFS1 PIC X(2). 000018 PROCEDURE DIVISION. 000019 END PROGRAM P2085.
P2085.cob 10: JMN2085I-S ファイル名'SQFILE1'は,同一形式のSAME句に一度しか指定できません.このファイル名は,無効になります.