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

2.4.587 JMN2970I-S

再帰属性を持つプログラム定義で、'@1@'は使用できません.

埋め込みの説明

@1@ : スクリーン操作のACCEPTおよびDISPLAY文

例題

[P2970.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  P2970 IS RECURSIVE PROGRAM.
000003 DATA DIVISION.
000004 BASED-STORAGE SECTION.
000005 WORKING-STORAGE SECTION.
000006 01  REC-1.
000007   02  KEY-REC PIC XX.
000008   02  FILLER  PIC X(78).
000009 01  PT POINTER.
000010 PROCEDURE  DIVISION.
000011     ACCEPT  REC-1 FROM CRT.
000012 END PROGRAM  P2970.

P2970.cob 11: JMN2970I-S 再帰属性を持つプログラム定義で、'スクリーン操作のACCEPTおよびDISPLAY文'は使用できません.