埋め込みの説明
@1@ : エラーの原因となった関数名.
例題
[P2769.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2769. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WGRP. 000007 02 TBL OCCURS 10 PIC 9(2). 000008 77 A PIC 9(2). 000009 PROCEDURE DIVISION. 000010 COMPUTE A = FUNCTION ACOS(TBL(ALL)) 000011 END PROGRAM P2769.
P2769.cob 10: JMN2769I-S 添字'ALL'は'FUNCTION ACOS'に指定できません.添字に1が指定されたものとみなします.
詳細な説明
添字付きのデータ名を1つずつ書くかわりに,添字にALLを指定したデータ名を書くことができます.添字にALLを書くと,その次元のすべての表要素を,出現順に従って左から右へ指定したかのように扱われます.
添字ALLは,次の関数の引数に指定できます.
MAX関数
MEAN関数
MEDIAN関数
MIDRANGE関数
MIN関数
ORD-MAN関数
ORD-MIN関数
PRESENT-VALUE関数
RANGE関数
STANDARD-DEVIATION関数
SUM関数
VARIANCE関数