引数の説明
ADD/SUBTRACT/MULTIPLY/DIVIDE |
一意名の名標 |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3063.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC 9(4).
000007 01 B PIC 9(4).
000008 01 C PIC X(4).
000009 PROCEDURE DIVISION.
000010 P-START.
000011 ADD A TO B GIVING C.
000012 SUBTRACT A FROM B GIVING C.
000013 MULTIPLY A BY B GIVING C.
000014 DIVIDE A INTO B GIVING C.
000015 STOP RUN.
C3063.cob (11) : JMN3063I-S ADD文のGIVING指定の作用対象'C'は,数字項目または数字編集項目でなければなりません.
C3063.cob (12) : JMN3063I-S SUBTRACT文のGIVING指定の作用対象'C'は,数字項目または数字編集項目でなければなりません.
C3063.cob (13) : JMN3063I-S MULTIPLY文のGIVING指定の作用対象'C'は,数字項目または数字編集項目でなければなりません.
C3063.cob (14) : JMN3063I-S DIVIDE文のGIVING指定の作用対象'C'は,数字項目または数字編集項目でなければなりません.