例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5721. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS SYSOBJ AS "System.Object" 000007 CLASS SYSSTR AS "System.String" 000008 . 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 WOBRDT1 OBJECT REFERENCE SYSOBJ. 000012 01 WOBRDT2 OBJECT REFERENCE SYSSTR. 000013 01 WDAT PIC X(2). 000014 PROCEDURE DIVISION. 000015 SET WOBRDT1 TO WOBRDT2 AS WDAT 000016 EXIT PROGRAM. 000017 END PROGRAM P5721.
P5721.cob (15) : JMN5721I-S オブジェクト指定子のASの直後はオブジェクトの型名でなければなりません.
詳細な説明
オブジェクト指定子のASの直後には,型の名前を記述しなければなりません.