BOX BOXED CENTERED COLOR (COLOR 指令が使用される場合) POP-UP SCROLLSHADOW WINDOW WRAP
xnnn-P*******
エラーがない場合や、エラーであっても「続行しますか」に「いいえ」で答えると、コンパイラは 0 のエラー戻りコードを返します。
DISPLAY WINDOW DISPLAY BOX DISPLAY LINE CLOSE WINDOW EXIT PROGRAM
次のサブプログラムをコンパイルして、ウィンドウ構文による処理を明示的に終了するサブルーチンを作成できます。
$set preprocess "window1" autoclose procedure division para-1. exit program.
他の ACCEPT/DISPLAY 構文に切り替える前に、このサブプログラムを呼び出せるようになります。AUTOCLOSE プリプロセッサ指令は、サブプログラムを終了する前に EXIT PROGRAM 文にウィンドウ構文による処理を終了させます。ウィンドウ サブシステムは、他のウィンドウ文が見つかると、再初期化されます。ウィンドウ サブシステムの初期化のたびに、背景画面および内容が再表示されます。