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