×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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
midrange.com
