3.4 復帰コード（関数値）の参照

■復帰コード（関数値）とPROGRAM-STATUSとの属性の対応

DPCライブラリから渡される復帰コード（関数値）を受け取る場合、特殊レジスタPROGRAM-STATUSを使用します。PROGRAM-STATUSの属性は、以下のようにCOBOLとC言語で対応します。なお、PROGRAM-STATUSは、暗黙に宣言されます。明示的に宣言する必要はありません。

COBOLのデータ項目	Cのデータ型	符合	COBOLの記述	Cでの宣言	大きさ
2進（バイナリ）	long int （またはlong）	有	01 PROGRAM-STATUS PIC S9(9) COMP-5	long int ps;	4バイト
2進（バイナリ）	long int （またはlong）	無	01 PROGRAM-STATUS PIC 9(9) COMP-5	unsigned long int ps;	4バイト

■参照方法

以下にPROGRAM-STATUSの参照方法の例を示します。

（例） XDpc_Acceptを使用した場合

003000 PROCEDURE DIVISION.
003100*DPCACCEPTの呼び出し
003200       CALL "XDpc_Accept" WITH STDCALL LINKAGE
003300                          USING BY REFERENCE DPC-COMM-AREA
003400                                             DPC-ACPTLST-AREA
003500                                             MSG
003600                                BY VALUE     APL-ID.
003700*関数値の参照
003800       IF PROGRAM-STATUS = 0
003900          DISPLAY "COMPLETE"