CPYFRMIMPFコマンドでパラメータにFLDDLM(*TAB)を指定したら良いのではないでしょうか。
または、どんさんのおっしゃているように配列にデータをセットしてＤＯ文で回して
１項目づつ取り出すのが良いのかと。
でもレコードが長すぎとあるのでもしかしたらレコード長が9999バイト超えているという事かな。
そうなるとレコードを分割しながら、ちょっと工夫がいりますね。
アドバイスにならなくてすみません。