例
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID. C5519.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 IDENTIFICATION DIVISION.
000006 OBJECT.
000007 PROCEDURE DIVISION.
000008 IDENTIFICATION DIVISION.
000009 METHOD-ID. M5519.
000010 PROCEDURE DIVISION.
000011 EXIT PROGRAM
000012 END METHOD M5519.
000013 END OBJECT.
000014 END CLASS C5519.
C5519.cob (11) : JMN5519I-S EXIT PROGRAM文はメソッド定義に指定できません.
詳細な説明
EXIT PROGRAM文は,プログラム定義の手続き部に記述します.