ititiのプロフィール

いつもお世話になっております。 IBM　AS/400の駆け出しプログラマーです。 今、配列を使ったシステムを組んでいるのですが、 たとえばAというDBの項目に同じものがいくつかあるとします。 課所コード１（KSCD1)、課所コード２（KSCD2）、・・・・ といったような項目です。 そのAのファイルを読み、課所コードを配列に入れたいのですが、 配列KSCというものに KSC,1にはKSCD1 KSC,2にはKSCD2といった感じです。 演算仕様書でMOVEL　　KSCD1　　KSC,1 と個々にやっていく方法以外にレコードを読んだときに自動的に配列に入れるような方法があったら教えていただきたいと思います。 何せ個々に入れていくとそれだけで８０行使ってしまうので・・・・ 知っている方がいらっしゃいましたらどうかお助けください。 お願い致します。