|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
3.8.OPNQRYFのグループ処理 | |||||||||
物理ファイルOPNQRYF1：集計の対象となるデータファイル出来れば、ここに、数件のデータを入れてみて下さい。KEYには、重複キーを入れて、ここをキーにAMTを集計しよう、というわけです。 A*------------------------------------*
A R TEST
A*------------------------------------*
A KEY 3S 0
A AMT 7P 0
A*
A K KEY
物理ファイルOPNQRYF2：データ（集計結果用のレコード様式を持つファイル） A*------------------------------------*
A R TEST2
A*------------------------------------*
A KEY 3S 0
A COUNT 7 0
A AMTTOL 15 0
A AMTMAX 15 0
A AMTAVG 15 0
A*
A K KEY
OPNQRYR1（RPGサイクル） H 1 Y/ 1
F******************************************************
F* D E F I N E F I L E S *
F******************************************************
FOPNQRYF2IP E K DISK
FQPRINT O F 132 OF PRINTER
I******************************************************
I* D E F I N E I N P U T F I E L D *
I******************************************************
ITEST2 01
O******************************************************
O* O U T P U T M O D U L E *
O******************************************************
OQPRINT D 1 01
O 'KEY:'
O KEY J + 1
O 'COUNT:'
O COUNT J + 1
O 'AMTTOL:'
O AMTTOLJ + 1
O 'AMTMAX:'
O AMTMAXJ + 1
O 'AMTAVG:'
O AMTAVGJ + 1
OPNQRYFR2（READ命令） H 1 Y/ 1
F******************************************************
F* D E F I N E F I L E S *
F******************************************************
FOPNQRYF2IF E K DISK
FQPRINT O F 132 OF PRINTER
C******************************************************
C* M A I N - R O U T I N E
C******************************************************
B001 C *IN90 DOUEQ*ON :
001 C READ OPNQRYF2 90:
B002 C *IN90 IFEQ *OFF :
002 C EXCPT#DTL :
E002 C END :
E001 C END :
C* :
C MOVE *ON *INLR :
C RETRN :
O******************************************************
O* O U T P U T M O D U L E *
O******************************************************
OQPRINT E 1 #DTL
O 'KEY:'
O KEY J + 1
O 'COUNT:'
O COUNT J + 1
O 'AMTTOL:'
O AMTTOLJ + 1
O 'AMTMAX:'
O AMTMAXJ + 1
O 'AMTAVG:'
O AMTAVGJ + 1
OPNQRYFを実行するCLPグループ集計処理PGM
/*グループ合計*/
OVRDBF OPNQRYF2 OPNQRYF1 SHARE(*YES)
OPNQRYF OPNQRYF1 +
FORMAT(OPNQRYF2) +
KEYFLD(KEY) +
GRPFLD(KEY) +
MAPFLD((COUNT '%COUNT') +
(AMTTOL '%SUM(AMT)') +
(AMTMAX '%MAX(AMT)') +
(AMTAVG '%AVG(AMT)'))
CALL OPNQRYFR1 /* RPG CYCLE */
POSDBF OPNQRYF1 *START
CALL OPNQRYFR2 /* READ */
CLOF OPNQRYF1
DLTOVR OPNQRYF2
RETURN
ENDPGM
OPNQRYFの実行をすると、...
解説
総合計処理PGM
/*総合計*/
OVRDBF OPNQRYF2 OPNQRYF1 SHARE(*YES)
OPNQRYF OPNQRYF1 +
GRPSLT('COUNT *NE 0') +
FORMAT(OPNQRYF2) +
MAPFLD((KEY '999') +
(COUNT '%COUNT') +
(AMTTOL '%SUM(AMT)') +
(AMTMAX '%MAX(AMT)') +
(AMTAVG '%AVG(AMT)'))
CALL OPNQRYFR1 /* RPG CYCLE */
POSDBF OPNQRYF1 *START
CALL OPNQRYFR2 /* READ */
CLOF OPNQRYF1
DLTOVR OPNQRYF2
RETURN
ENDPGM
解説
OPNQRYFの実行をすると、...
基本的に、前述のグループ処理と同じです。違いは、GRPFLDが無いだけです。集計キーが無い集計は、「総合計」となるわけです。後は、上記の「グループ集計」を参考にして下さい。 問題は、元データが無い場合に、オープンした後の処理です。なにもしないと、必ず、RPGでCPF5305（マッピングエラー）が出ます。集計キーを指定したグループ処理では、このエラーは、でません。不思議でした。実はこれに気づいたのは、2000年のテストをしていたときです。QRYSLTで元データを選択してから、総合計を出そうとしているプログラムが、このエラーを出したのです。つまり、データはあるのに、QRYSLTで全部対象外になったのです。早い話、元データをCLRPFMしたのと同じ前提になったわけです。（CLRPFM OPNQRY1をしてからGRPSLTを消して、実行してみて下さい。）テストで、上記のプログラムを作り、何度も、試行錯誤を繰り返し、マニュアルに当たり、デバッグをして、やっと、分かりはじめました。総合計の場合、何か空白値を持つレコードが、1レコード出来るらしいのです。*NULLという空白値は、私にとって、未だに、妙な存在です。これに気づいたのは、CPYFRMQRYFをすると、元データが0件のはずなのに、合計レコードが、1件（数値は0）で、出来てしまうからです。 そこで、GRPSLTで、集計値の件数が0の場合は、データをよこさない指定をしました。これで、CPF5305は出なくなりました。これから、総合計をやろうとしている、あなた。対象データが無い場合のテストも忘れずに。ILEは、もしかすると、うまくいくかもしれません（知りません）が、OPMの場合、エラーが出ることになるので、必ず、%COUNTを指定して、GRPSLTでそれが0でないとき、と、条件設定しましょう。 それから、上記のCLPで、MAPFLD(KEY '999')としているのは、このサンプルを作るに当たり、同じファイルOPNQRYF2を流用しているために、グループ集計の時には、必要だった、KEYは、総合計には不要となります。OPNQRYF実行時にエラーとなったか、よく覚えていないのですが、KEYに999をセットしました。これだと、固定的に999が入ります。たしか、これを入れないと、実行時にOPNQRYFで、エラーになったような気がします。 ※MAPFLDで、固定的に文字を指定する場合は、MAPFLD((FIELD '"AAAAA"'))です。ダブルコーテーションに注意して下さい。数字をセットする場合は、MAPFLD((FIELD '9999'))となります。 CPYFRMQRYFを利用した例OPNQRYFR3（CHAIN命令） H 1 Y/ 1
F******************************************************
F* D E F I N E F I L E S *
F******************************************************
FOPNQRYF2IF E K DISK
FQPRINT O F 132 OF PRINTER
C******************************************************
C* M A I N - R O U T I N E
C******************************************************
C Z-ADD999 KEY :
C KEY CHAINOPNQRYF2 90 :
B001 C *IN90 IFEQ *OFF :
001 C EXCPT#DTL :
E001 C END :
C* :
C MOVE *ON *INLR :
C RETRN :
O******************************************************
O* O U T P U T M O D U L E *
O******************************************************
OQPRINT E 1 #DTL
O 'KEY:'
O KEY J + 1
O 'COUNT:'
O COUNT J + 1
O 'AMTTOL:'
O AMTTOLJ + 1
O 'AMTMAX:'
O AMTMAXJ + 1
O 'AMTAVG:'
O AMTAVGJ + 1
PGM
DCL &RTNLIB *CHAR 10
/* CPYFRMQRYFの利用*/
CHKOBJ QTEMP/OPNQRYF2 *FILE
MONMSG CPF9800 *N DO
RTVOBJD OPNQRYF2 *FILE RTNLIB(&RTNLIB)
CRTDUPOBJ OPNQRYF2 &RTNLIB *FILE QTEMP
ENDDO
CLRPFM QTEMP/OPNQRYF2
/*グループ集計*/
OPNQRYF OPNQRYF1 +
FORMAT(OPNQRYF2) +
KEYFLD((KEY)) +
GRPFLD((KEY)) +
MAPFLD((COUNT '%COUNT') +
(AMTTOL '%SUM(AMT)') +
(AMTMAX '%MAX(AMT)') +
(AMTAVG '%AVG(AMT)'))
CPYFRMQRYF OPNQRYF1 QTEMP/OPNQRYF2 +
MBROPT(*ADD) FMTOPT(*NOCHK)
CLOF OPNQRYF1
/*総合計*/
OPNQRYF OPNQRYF1 +
FORMAT(OPNQRYF2) +
GRPSLT('COUNT *NE 0') +
MAPFLD((KEY '999') +
(COUNT '%COUNT') +
(AMTTOL '%SUM(AMT)') +
(AMTMAX '%MAX(AMT)') +
(AMTAVG '%AVG(AMT)'))
CPYFRMQRYF OPNQRYF1 QTEMP/OPNQRYF2 +
MBROPT(*ADD) FMTOPT(*NOCHK)
CLOF OPNQRYF1
/* RPG */
OVRDBF OPNQRYF2 QTEMP/OPNQRYF2
CALL OPNQRYFR1 /* RPG CYCLE */
CALL OPNQRYFR2 /* READ */
CALL OPNQRYFR3 /* CHAIN */
DLTOVR OPNQRYF2
DLTF QTEMP/OPNQRYF2
RETURN
ENDPGM
解説
OPNQRYFの実行(2つ)をすると、...
1998/10/15 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
「GRPFLD
パラメーターを指定した場合は、グループが昇順で表示されないことがあります。特定の順序を確実にするためには、KEYFLD
パラメーターを使用してください。」と出ているので、KEYFLDを使用したい場合は、以下に注意して下さい。（必ずしも、KEYFLDは無くてもいいのですが、きれいにキー順にレコードが並んで、到着順にセットして欲しい場合に指定します。