埋め込みの説明
@1@ : PROGRAM-STATUSまたはRETURN-CODE．
例題
[C5583.cob] 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は，オペレーティングシステムまたは呼び出したプログラムに復帰コードを渡すために使うことができます．
