復帰コードと返却項目の使用方法について説明します。
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) {