例題
[P2907.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2907. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD SQFILE1 000011 REPORT IS REP1. 000012 WORKING-STORAGE SECTION. 000013 01 CTLD PIC 9(2). 000014 01 . 000015 02 WITM PIC 9(2) OCCURS 10. 000016 REPORT SECTION. 000017 RD REP1 PAGE 66 000018 CONTROL CTLD. 000019 01 TYPE CF CTLD. 000020 02 WSC1 PIC N(4) SUM WITM(2). 000021 PROCEDURE DIVISION. 000022 END PROGRAM P2907.
P2907.cob 20: JMN2907I-S SUM句は,外部10進項目,英数字項目,数字編集項目,英数字編集項目および外部浮動小数点項目以外には,指定できません.
詳細な説明
SUM句は合計カウンタを設定します.合計カウンタは,コンパイラが生成する演算符号付きの数字データ項目です.