埋め込みの説明
@1@ : GETまたはSET.
@2@ : USINGまたはRETURNING.
例題
[C5538.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5538. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 W5538 PIC S9(4) COMP-5. 000009 PROCEDURE DIVISION. 000010 IDENTIFICATION DIVISION. 000011 METHOD-ID. SET PROPERTY PR5538. 000012 DATA DIVISION. 000013 LINKAGE SECTION. 000014 01 LK1 PIC S9(4) COMP-5. 000015 01 LK2 PIC S9(4) COMP-5. 000016 PROCEDURE DIVISION USING LK1 000017 RETURNING LK2. 000018 MOVE LK1 TO W5538. 000019 EXIT METHOD. 000020 END METHOD. 000021 END OBJECT. 000022 END CLASS C5538.
C5538.cob 11: JMN5538I-S SET指定のメソッドの手続き部見出しには,1つのUSINGパラメタだけを記述できます.
詳細な説明
プロパティ取出しメソッド定義(METHOD-ID段落にGET指定を指定したメソッド定義)の手続き部見出しでは,RETURNING指定だけを指定します.
プロパティ設定メソッド定義(METHOD-ID段落にSET指定を指定したメソッド定義)の手続き部見出しでは,USING指定でパラメタを1個だけ指定します.