引数の説明
FUNCTION MAX, FUNCTION MIN, FUNCTION ORD-MAX, FUNCTION ORD-MIN |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3382.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC 1(8) BIT.
000007 01 B PIC 9(1).
000008 01 RCV PIC 9(1).
000009 PROCEDURE DIVISION.
000010 P-START.
000011 COMPUTE RCV = FUNCTION MAX(A B).
000012 END PROGRAM C3382.
C3382.cob (11) : JMN3382I-S FUNCTION MAXの引数の型は,英字,英数字または数字のいずれかでなければなりません.