				Wiki
	updated on 2004.06.23

7.6.DOWEQ合計無し

[ Previous ] [ HOME ] [ Upper ] [ Next ]

Full Procedure全手順の例です。DOWEQ NOT eofとは、Do while NOT eof ; eofでない間は繰り返す、ということ。構造化の命令としてRPGに規定されています。構造化コボルをされる方は、この命令をよく使う傾向があるようです。DOWEQはループに入る前に*IN90のオフ、オンの検査をします。@ENDは、終了時のメッセージとかを出します。当然ですが、これはファイル全体処理です。もし、キーによる位置づけをするならば、@HEDの下に、SETLL命令が入り、また場合によって、READはREADEになります。

     C******************************************************
     C*             M A I N -  R O U T I N E                
     C******************************************************
     C                     EXSR @HED                       :見出
     C*                                                    :
     C                     READ AFILE                    90:
B001 C           *IN90     DOWEQ*OFF                       :
 002 C                     EXSR @DTL                       :明細
 002 C                     READ AFILE                    90:
E002 C                     END                             :
     C*                                                    :
     C                     EXSR @END                       :終了
     C*                                                    :
     C                     MOVE *ON       *INLR            :
     C                     RETRN                           :

[ Previous ] [ HOME ] [ Upper ] [ Next ]

You are at K's tips-n-kicks of AS/400

SEO		[PR] 爆速!無料ブログ無料ホームページ開設無料ライブ放送