引数の説明
USAGE OBJECT REFERENCE |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5114. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS SYSOBJ AS "System.Object". 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 A. 000010 02 OBJA USAGE OBJECT REFERENCE SYSOBJ 000011 OCCURS 1 TO 10 TIMES 000012 DEPENDING ON DD. 000013 01 DD PIC S9(04). 000014 PROCEDURE DIVISION. 000015 END PROGRAM P5114.
P5114.cob (11) : JMN5114I-S USAGE OBJECT REFERENCE句はOCCURS DEPENDING ON句を含むデータ項目に指定してはなりません.OCCURS DEPENDING ON句は無効になります.