NetCOBOL V11.1 メッセージ集

2.3.331 JMN1575I-W

ASSIGN句にPRINTER_nが指定されています．SELECT句に書いたファイルを印刷装置に関連付けます．

例題

[C1575.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     C1575.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO PRINTER_1
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1.
000014   02                   PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 PRINTER_1   PIC X(160).
000017 01 WFS1        PIC X(2).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM     C1575.

C1575.cob 6: JMN1575I-W ASSIGN句にPRINTER_nが指定されています．SELECT句に書いたファイルを印刷装置に関連付けます．