Full Procedure全手順の例です。DOUEQ eofとは、Do until eof ; eofになるまで繰り返す、ということ。構造化の命令としてRPGに規定されています。コボルをされる方は、DO
Whileを使われますが、自分はDOWだから関係ない、とはいかないのがプログラマーの辛いところ。他人のソースだって修正するかも。知っとけば後で楽です。*IN90
IFEQ *OFFがないとおかしくなります。それから、DOUEQはループに入る前に*IN90のオフ、オンの判定はしません。@ENDは、終了時のメッセージとかを出します。当然ですが、これはファイル全体処理です。もし、キーによる位置づけをするならば、@HEDの下に、SETLL命令が入り、また場合によって、READはREADEになります。
C******************************************************
C* M A I N - R O U T I N E
C******************************************************
C EXSR @HED :
C* :
B001 C *IN90 DOUEQ*ON :
001 C READ AFILE 90:
B002 C *IN90 IFEQ *OFF :
002 C EXSR @DTL :明細
E002 C END :
E001 C END :
C* :
C EXSR @END :終了
C* :
C MOVE *ON *INLR :
C RETRN : |
|