Problem: Move Record Archive Data to AS/400 Database Files

[nsideras]

Hello all,

thank you very much for looking at my problem.

Situation:
---------
Record Archive (OnDemand)
We have 10 optical volumes that each one has many optical files inside.
We need to transfer all records from these optical files to the corresponding database files in AS/400 because IBM will stop supporting Record Archive.
I found till now that all these optical physical files have
1. a PF with the same name and structure in AS/400
2. a User Index with the same name that has all the data of key fields and the position in the optical file
3. a User Space with the same name that has relative information of the optical file
4. The optical path is like "Volume->Library->FileName->Stream Files"

A. At the first time i wrote a program using Record Archive APIs with the real optical volumes and I used "QRLARDS" to read sequential every optical file
and write every record in the database file (AS/400)
Problem: It worked but it was very very very slow and the optical library was changing volumes like insane. I guess QRLARDS is reading the User Index and not the actual optical file but the problem in this case is the User Index keys.

B. Second try I created Virtual Optical Volumes in a Test environment and copied the real data in them. Then I used the program from the first try with APIs
Problem: It worked but it was very slow. It took around 3 days to read half an optical file of 1.75Gb total size. I guess the problem in this case is the User Index keys again.

C. Last try I created a logical file with different key sequence from a DDS based on a physical file of an optical file. Then I used CRTLOFRDAR to create a logical optical file. Then in my program I used the Logical File name to read in sequence and it worked much faster!
Problem: CRTLOFRDAR works fine for the half Optical files I have.
For the rest optical files I get this error when i try to run the command:
Pointer not set for location referenced.
Function check. MCH3601 unmonitored by QRLAFIO at statement *N,
instruction X'0551'.
Message MCH3601 in QRLAFIO in QRDARS (C D F G).

........

Stopped now for a cigar and to post my problem.....

Thank you very much again!

Nick