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.
*
   ------
   ------