2.5.159 JMN5583I-S

特殊レジスタ@1@はプログラム定義だけで使用できます．

引数の説明

@1@:

PROGRAM-STATUSまたはRETURN-CODE．

例

      000001 IDENTIFICATION DIVISION.
      000002 CLASS-ID.      C5583.
      000003 ENVIRONMENT    DIVISION.
      000004 IDENTIFICATION DIVISION.
      000005 OBJECT.
      000006 PROCEDURE      DIVISION.
      000007 IDENTIFICATION DIVISION.
      000008 METHOD-ID.     M5581.
      000009 ENVIRONMENT    DIVISION.
      000010 DATA           DIVISION.
      000011 WORKING-STORAGE SECTION.
      000012 PROCEDURE      DIVISION.
      000013     DISPLAY PROGRAM-STATUS.
      000014     DISPLAY RETURN-CODE.
      000015 END METHOD     M5581.
      000016 END OBJECT.
      000017 END CLASS      C5583.

C5583.cob (13) : JMN5583I-S 特殊レジスタPROGRAM-STATUSはプログラム定義だけで使用できます．

C5583.cob (14) : JMN5583I-S 特殊レジスタRETURN-CODEはプログラム定義だけで使用できます．

詳細な説明

特殊レジスタPROGRAM-STATUS(RETURN-CODE) は，手続き部見出しにRETURNING指定のないプログラムに関連して，自動的に生成されます．PROGRAM-STATUS とRETURN-CODE は，同義です．PROGRAM-STATUSは，オペレーティングシステムまたは呼び出したプログラムに復帰コードを渡すために使うことができます．