引数の説明
データ記述項の記述可能な句 |
TYPE, TYPEDEFまたは特定の用途を指定するUSAGE句 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C5102. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS SYSOBJ AS "System.Object". 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 OBJA USAGE OBJECT REFERENCE SYSOBJ BLANK WHEN ZERO. 000010 01 OBJB USAGE OBJECT REFERENCE SYSOBJ SYNC. 000011 01 OBJC USAGE OBJECT REFERENCE SYSOBJ VALUE "AA". 000012 01 OBJD PIC X(10) OBJECT REFERENCE SYSOBJ. 000013 01 RR PIC X(08). 000014 01 OBJE REDEFINES RR USAGE OBJECT REFERENCE SYSOBJ. 000015 PROCEDURE DIVISION. 000016 END PROGRAM C5102.
C5102.cob (9) : JMN5102I-S USAGE OBJECT REFERENCE句はBLANK WHEN ZERO句と同時に指定できません.BLANK WHEN ZERO句は無効になります.
C5102.cob (10) : JMN5102I-S USAGE OBJECT REFERENCE句はSYNCHRONIZED句と同時に指定できません.SYNCHRONIZED句は無効になります.
C5102.cob (11) : JMN5102I-S USAGE OBJECT REFERENCE句はVALUE句と同時に指定できません.VALUE句は無効になります.
C5102.cob (14) : JMN5102I-S USAGE OBJECT REFERENCE句はREDEFINES句と同時に指定できません.REDEFINES句は無効になります.