例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2838.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA DIVISION.
000009 FILE SECTION.
000010 FD SQFILE1
000011 FORMATTED RECORD FREC.
000012 01 SQF1REC.
000013 02 PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE DIVISION.
000016 END PROGRAM P2838.
P2838.cob (11) : JMN2838I-S FORMATTED RECORD句を指定するファイルは,表示ファイル,図表ファイルまたはFORMAT句指定の印刷ファイルでなければなりません.
詳細な説明
FORMATTED RECORD句は,OSIV系システムの固有機能です.