NetCOBOL V11.1 メッセージ集

2.4.503 JMN2870I-S

APPLY WRITE-ONLY句に指定されたファイル'@1@'は可変長形式の順ファイルでなければなりません．

埋め込みの説明

@1@ : エラーの原因となったファイル名．

例題

[P2870.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2870.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008     APPLY WRITE-ONLY ON SQFILE1.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1 BLOCK CONTAINS 160.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2870.

P2870.cob 11: JMN2870I-S APPLY WRITE-ONLY句に指定されたファイル'SQFILE1'は可変長形式の順ファイルでなければなりません．

詳細な説明

APPLY WRITE-ONLY句は，OSIV系システムの固有機能です．