Saving multiple attachments to one zip file

I created an app engine program to extract attachments into zip files for all vouchers in a pay cycle in Financials. You should be able to adapt the logic to work online. I'm pretty sure the logic that uses java classes originally came from Jim Marion's blog site (Jim's PeopleSoft Journal ).

Function AddFileToZip(&zipInternalPath, &fileNameToZip, &zip)

   REM ** We will read &fileNameToZip into a buffer and write it out to &zip;

   Local JavaObject &file = CreateJavaObject("java.io.File", &fileNameToZip);

   Local JavaObject &buf = CreateJavaArray("byte[]", 1024);

   Local number &byteCount;

   Local JavaObject &in = CreateJavaObject("java.io.FileInputStream", &fileNameToZip);

   Local JavaObject &zipEntry = CreateJavaObject("java.util.zip.ZipEntry", &zipInternalPath | "/" | &file.getName());

  

   &zip.putNextEntry(&zipEntry);

   &byteCount = &in.read(&buf);

   While &byteCount > 0

      &zip.write(&buf, 0, &byteCount);

      &byteCount = &in.read(&buf);

   End-While;

   &in.close();

  

   rem Delete the extracted file attachment after adding to the zip;

   &file.delete();

End-Function;

 

 

 

Local Record &recAtt = CreateRecord(Record.ATT_VW);

Local Rowset &rsAtt = CreateRowset(Record.ATT_VW);

Local integer &nAtt = &rsAtt.Fill("WHERE ...");

  

SQLExec("SELECT PRCSOUTPUTDIR FROM PSPRCSPARMS WHERE PRCSINSTANCE=:1", &nPrcsInst, &sOutDir);

Local JavaObject &zip = CreateJavaObject("java.util.zip.ZipOutputStream", CreateJavaObject("java.io.FileOutputStream", &sOutDir | "\Voucher_Attachments.zip", True));

  

For &i = 1 To &nAtt

   &recAtt = &rsAtt(&i).ATT_VW;

   &sSysFile = &recAtt.ATTACHSYSFILENAME.Value;

   &sUserFile = &recAtt.ATTACHUSERFILE.Value;

   &sInvoiceId = &recAtt.INVOICE_ID.Value;

   &sVendorName = &recAtt.NAME1.Value;

   &sTmpPath = GetEnv("PS_FILEDIR");

   &sUserFile = &sInvoiceId | " - " | &sUserFile;

   &retcode = GetAttachment("record://PSFILE_ATTDET", &sSysFile, &sTmpPath | "\" | &sUserFile);

   If &retcode = 0 Then

      AddFileToZip(&sVendorName, &sTmpPath | "\" | &sUserFile, &zip);

   Else

      &sMsg = "WARNING: Extraction failed with rc = " | &retcode;

      MessageBox(0, "", 0, 0, &sMsg);

   End-If;

End-For;

 

 

 

&zip.flush();

&zip.close();

I stripped out some of the code to make it easier to follow so it may not run successfully as is, but the essential pieces are there.

Regards,

Bob

Thanks Bob! I did blog about this a while back. Another fun option today is to use the Java Zip file system.

For attachments stored in the database, the first step would be to export the content to the real file system. Otherwise you will have to get Java to read the database. Possible, but more work. If the data is sensitive and can't be  temporarily moved to a protected location, then you may have to resort to a store procedure.

Here is the original blog post. Are you flushing and closing resources? That could be it

Jim's PeopleSoft Journal: Manipulating Zip Files with PeopleCode