ページの先頭行へ戻る
NetCOBOL V11.1 メッセージ集
FUJITSU Software

2.4.472 JMN2801I-S

@1@句のデータ名は,英数字または集団項目でなければなりません.ただし,集団項目の場合,オブジェクト参照項目を含むものであってはなりません.

埋め込みの説明

@1@ : PROCESSING MODE,FORMAT,GROUP,SYMBOLIC DESTINATION,DESTINATION-1,DESTINATION-2,DESTINATION-3,MESSAGE MODE,END KEY,SESSION CONTROLまたはSELECTED FUNCTION.

例題

[P2801.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2801.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 REPOSITORY.
000006     CLASS FJBASE.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT FILE1 ASSIGN TO GS-SYS001
000010       SYMBOLIC DESTINATION IS "DSP"
000011       FORMAT               IS WFMT
000012       GROUP                IS WSTYGRP
000013       DESTINATION-1        IS WDST1
000014       FILE STATUS    IS WFS1 WFS2.
000015 I-O-CONTROL.
000016 DATA           DIVISION.
000017 FILE            SECTION.
000018 FD FILE1.
000019 01 F1REC.
000020   02           PIC X(80).
000021 WORKING-STORAGE SECTION.
000022 01 WSTYGRP.
000023   02 WOBJ      OBJECT REFERENCE FJBASE.
000024 01 WFS1        PIC X(2).
000025 01 WFS2        PIC X(4).
000026 01 WDST        PIC X(3).
000027 01 WFMT        PIC X(8).
000028 01 WGRP        PIC X(8).
000029 01 WDST1       PIC X(8).
000030 PROCEDURE      DIVISION.
000031 END PROGRAM    P2801.

P2801.cob 12: JMN2801I-S GROUP句のデータ名は,英数字または集団項目でなければなりません.ただし,集団項目の場合,オブジェクト参照項目を含むものであってはなりません.