オフコン練習帳

Re:数字項目のTABキー（再々）ＥＸＣＨＡＮＧＥ 2007-3-14 22:21

4 Re:数字項目のTABキー（再々）

ＥＸＣＨＡＮＧＥ 2007-3-14 22:21 [返信] [編集]

＊　ご期待通りのものではないかもしれませんが、


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

＊　なんて　だめかしら。。。。