Re: How to read the contents of a zip file without unzipping it?

Sorry Luis, the version on the website download didn't have the ALISTZIP command...BUT... it does now if you want to download again. Here's a piece of CL to show how it works...basically the ALISTZIP command sends info messages to your program queue that you can retrieve. The file name is in the message data...

/* List any text files in archive...*/
ALISTZIP ARCHIVE('/temp/ziptest.zip') INCPATH(*YES) LISTFILT('*.txt')

MONMSGMSGID(ARP9022) EXEC(GOTO CMDLBL(ERROR))

MONMSGMSGID(ARP9023) EXEC(GOTO CMDLBL(NO_FILES))

NEXTINLIST:

RCVMSGMSGTYPE(*INFO) MSGDTA(&FILENAME) MSGDTALEN(&FNAMELEN) MSGID(&MSGID) +

MSGDTALEN(&FNAMELEN) MSGID(&MSGID) MSGF(&MSGF) MSGFLIB(&MSGFLIB)

IFCOND(&MSGID *NE ' ') THEN(DO)

/* If we got a matching file name ...*/

IFCOND(&MSGID *EQ 'AZP1006') THEN(DO)

/* We probably want to unzip this file after doing something...*/

AUNZIPIFSARCHIVE('/temp/ziptest.zip') EXTRACTTO('/temp/extractdir')IGNPATH(*YES) SLTFILE(&FILENAME) SLTIGNPATH(*NO)

ENDDO

GOTOCMDLBL(NEXTINLIST)

ENDDO


On 5/17/2012 6:20 PM, Luis Rodriguez wrote:

Tim,

Just curious, How would you do it with AUNZIPIFS?

I just downloaded the last version of the product and I can't seem to find
any option to extract only a list of the zipped files...


Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries