Writing File and File Member to AS400 using Access Classes

Question

Hi! All,
I am in a fix here and would sincerely appreciate any help I can get. I need to write a pogram that will allow me to write a file and many FileMembers to the File in the AS400.
I have the following method which I thought would help me do it, but I get exceptions.
public static void writeFileOnAS400(String pFileName, String pFileMemberName, String pContents ) throws Exception
AS400 as400 = new AS400();
String as400FileName = "/QSYS.LIB/MYLIB.LIB/" + pFileName + ".FILE";
String as400MemberName = pFileMemberName + ".MBR";
// Create a file object that represents the file
SequentialFile newFile = new SequentialFile(as400, as400FileName + "/" + as400MemberName);
// Create the file
newFile.create(pContents.getBytes().length, "*DATA", "Data file created with " + pContents.getBytes().length + "byte record." );
// Open the file for writing only.
// Note: The record format for the file
// has already been set by create()
newFile.open(AS400File.WRITE_ONLY, 0, AS400File.COMMIT_LOCK_LEVEL_NONE);
// Write a record to the file. Because the record
// format was set on the create(), getRecordFormat()
// can be called to get a record properly formatted
// for this file.
Record writeRec = newFile.getRecordFormat().getNewRecord();
writeRec.setField(0, pContents);
newFile.write(writeRec);
// Close the file since I am done using it
newFile.close();
// Disconnect since I am done using
// record-level access
as400.disconnectService(AS400.RECORDACCESS);
This works the first time for the 1st Member(ie; when te file or Member is not yet created). When I want to add a new Member to the same file, by passing in the same fileName, but a different fileMemberName, it does not work. The string pContents is what I need to write to the Member.
Anyone Know about the AS400?
Thanks

Answer 1

The whole class is as shown below
import com.ibm.as400.access.*;
public class AS400Utility
public static void writeFileOnAS400(String pFileName, String pFileMemberName, String pContents ) throws Exception
AS400 as400 = new AS400();
String as400FileName = "/QSYS.LIB/IQFILES.LIB/" + pFileName + ".FILE";
String as400MemberName = pFileMemberName + ".MBR";
// Create a file object that represents the file
SequentialFile newFile = new SequentialFile(as400, as400FileName + "/" + as400MemberName);
// Create the file
newFile.create(pContents.getBytes().length, "*DATA", "Data file created with " + pContents.getBytes().length + "byte record." );
// Open the file for writing only.
// Note: The record format for the file
// has already been set by create()
newFile.open(AS400File.WRITE_ONLY, 0, AS400File.COMMIT_LOCK_LEVEL_NONE);
// Write a record to the file. Because the record
// format was set on the create(), getRecordFormat()
// can be called to get a record properly formatted
// for this file.
Record writeRec = newFile.getRecordFormat().getNewRecord();
writeRec.setField(0, pContents);
newFile.write(writeRec);
// Close the file since I am done using it
newFile.close();
// Disconnect since I am done using
// record-level access
as400.disconnectService(AS400.RECORDACCESS);
public static void main(String args[])
System.out.println("Writing file to AS400...");
try
writeFileOnAS400_2("BPL0000004", "M001", "<SampleXML>The sample file 1</SampleXML>");
System.out.println("Finished writing file 1");
writeFileOnAS400_2("BPL0000004", "M002", "<SampleXML>The sample file 2</SampleXML>");
catch(Exception e)
e.printStackTrace();
System.out.println("Completed file writing to AS400...");
}