こんにちは。

以下のような集計をしたいのですが、配列とデータストラクチャを指定してループ処理をすれば
良い、というところかではわかるのですが、サンプルとなるコードがまわりになくて、質問させ
ていただきます。

日ごとに１レコードづつレコードを持っているINFILEを、年月ごとに１?３１まで日の項目で
１レコードあるOUTFILEに集計していきたいです。

お忙しいところ申し訳ないのですが、サンプルコードをいただけたらと思います。

RPG-ILE；

INFILE
-------------------------------
　KEYDATEVALUIE
　　A201501011,000
　　A201501021,500
　　A20150103　2,000

OUTFILE
-------------------------------
　KEYYYYMMDay01Day02Day03　.....
　　A2015011,0001,5002,000　.....　

とりあえず、今は日ごとにIF文書いてEVALでセットというのを31コ書いていてカッコ悪いで
す。。。