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

2.3.305 JMN1535I-S

@1@句は順ファイル以外に指定できません.

埋め込みの説明

@1@ : PADDING,RECORD DELIMITER

例題

[C1535.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C1535.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT RLFILE ASSIGN TO SYS006
000007       ORGANIZATION IS RELATIVE
000008       PADDING CHARACTER IS WPC.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD RLFILE.
000012 01 RLREC.
000013   02           PIC 9(4).
000014   02           PIC X(66).
000015 WORKING-STORAGE SECTION.
000016 01 WPC         PIC X(1).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    C1535.

C1535.cob 8: JMN1535I-S PADDING句は順ファイル以外に指定できません.