引数の説明
FUNCTION ORD |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3381.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC X(2).
000007 01 RCV PIC S9(2) BINARY.
000008 PROCEDURE DIVISION.
000009 P-START.
000010 COMPUTE RCV = FUNCTION ORD(A).
000011 END PROGRAM C3381.
C3381.cob (10) : JMN3381I-S FUNCTION ORDの引数は,英字型または英数字型で,字数は1でなければなりません.