例題
[C5512.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5512. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 PROCEDURE DIVISION. 000009 IDENTIFICATION DIVISION. 000010 METHOD-ID. M5512. 000011 DATA DIVISION. 000012 LINKAGE SECTION. 000013 01 LK1 PIC S9(4) DISPLAY. 000014 01 LK2 PIC X(4). 000015 PROCEDURE DIVISION RETURNING LK1 LK2. 000016 DISPLAY "PARAMETER ERROR". 000017 END METHOD M5512. 000018 END OBJECT. 000019 END CLASS C5512.
C5512.cob 15: JMN5512I-S RETURNING指定の作用対象は,1つでなければなりません.
詳細な説明
手続き部見出しのRETURNING指定には,呼出し元に返却する値を格納するためのデータ記述項を指定します.値は1つしか返却できません.