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. if end-status = ”09” go to suryo-in. ------ ------