COBOL2002 使用の手引 手引編
復帰コードと返却項目の使用方法について説明します。
WORKING-STORAGE SECTION. 01 RTC PIC S9(9) USAGE COMP. PROCEDURE DIVISION. : CALL 'SAMPLE1' RETURNING RTC. IF RTC = 12345 THEN :
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE1. : LINKAGE SECTION. 01 RTC PIC S9(9) USAGE COMP. PROCEDURE DIVISION RETURNING RTC. : MOVE 12345 TO RTC. EXIT PROGRAM.
COBOLプログラムでは,RETURN-CODE特殊レジスタに値を設定することで,C言語のプログラムのように復帰コードを設定できます。復帰コードの規則について,次に示します。
呼び出し先プログラムでRETURN-CODE特殊レジスタに値を設定できます。
MOVE 0 TO RETURN-CODE.
return(0);
呼び出し先プログラムでRETURN-CODE特殊レジスタに設定された復帰コードを,呼び出し元プログラムで参照する方法を,次に示します。
CALL 'SAMPLE1'. IF RETURN-CODE = 20 THEN :
int rtn_value; : rtn_value = SAMPLE1(); if (rtn_value == 20) {
All Rights Reserved. Copyright (C) 2014, 2017, Hitachi, Ltd.