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