引数の説明
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句は無効になります.