引数の説明
MOVE, INITIALIZE, STRING,UNSTRING |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3372.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 RCV PIC 9(5).
000007 01 DATA-A PIC X(20) VALUE "ABC".
000008 PROCEDURE DIVISION.
000009 MOVE FUNCTION LENGTH(DATA-A) TO RCV *> ERROR
000010 COMPUTE RCV = FUNCTION LENGTH(DATA-A) *> OK
000011 END PROGRAM C3372.
C3372.cob (9) : JMN3372I-S MOVE文の送出し側として,整数関数および数字関数は指定できません.
詳細な説明
整数関数および数字関数は,算術式中にだけ記述することができます.
整数関数および数字関数の値を変数に設定する場合は,COMPUTE文を使用してください.