例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5755. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 WK1 PIC X(8). 000009 PROCEDURE DIVISION. 000010 IDENTIFICATION DIVISION. 000011 METHOD-ID. SET PROPERTY PR5755. 000012 DATA DIVISION. 000013 PROCEDURE DIVISION. 000014 MOVE PROP1 OF SELF TO WK1. 000015 EXIT METHOD. 000016 END METHOD. 000017 END OBJECT. 000018 END CLASS C5755.
C5755.cob (11) : JMN5755I-S プロパティ取出しメソッドまたはプロパティ設定メソッドの手続き部見出しに,必要なパラメタがありません.パラメタとして1バイトの数字項目が指定されたとみなします.
詳細な説明
プロパティ取出しメソッド定義(METHOD-ID段落にGET指定を指定したメソッド定義)の手続き部見出しでは,RETURNING指定だけを指定します.
プロパティ設定メソッド定義(METHOD-ID段落にSET指定を指定したメソッド定義)の手続き部見出しでは,USING指定でパラメタを1個だけ指定します.