例題
[P2897.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2897. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT PRFILE1 ASSIGN TO SYS001 000007 FORMAT IS WFMT. 000008 I-O-CONTROL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD PRFILE1 000012 FORMATTED RECORD IS FMTREC. 000013 01 PRF1REC. 000014 02 PIC X(80). 000015 01 FMTREC PIC X(80). 000016 WORKING-STORAGE SECTION. 000017 01 WFMT PIC X(8). 000018 PROCEDURE DIVISION. 000019 END PROGRAM P2897.
P2897.cob 12: JMN2897I-S FORMAT句指定の印刷ファイルに,FORMATTED RECORD句は指定できません.
詳細な説明
FORMATED RECORD句は,OSIV系システムの固有機能です.