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

[Tim Bronski <tim.bronski@xxxxxxxxx>]

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