screen-section. zzz-suryo zzz- from wrk-suryo. procedure division. move 9999 to btab-position. initialize wrk-suryo. ------- ------- suryo-in. display zzz-suryo. accept acp-suryo. display dsp-suryo. *---終了キーチェック * next-in. display zzz-next. accept acp-next. display dsp-next. if end-status = ”09” go to suryo-in. * ------ ------