引数の説明
GETまたはSET. |
USINGまたはRETURNING. |
例
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 BY VALUE 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個だけ指定します.