Native ZIP tools for iSeries

[bwadmin]

Hello,

Here is a FREE RPG program that you can use for IFS file compression on your iSeries (i5, AS/400, System i). There is also a not free tool with more functionalities.

No setup, no PASE, no shell...only RPG program to call.

Have fun !

http://www.businesswebzone.com/ramte...eries-software

[abercrombieande]

Re: Native ZIP tools for iSeries

You can add the QSH compression utilities right into your RPG program. I know I cant install thirdparty software on our systems http://www.mcpressonline.com/tips-te...ing-files.html

[jamief]

Re: Native ZIP tools for iSeries

Here is a version I use:

          //=======================================================                                          // zip them up                                                                             
         // STRQSH CMD('jar cfM zip/profit.zip zip/*.*')                                            
         //=======================================================                                  
                                                                                                    
          cmdstring = 'STRQSH CMD(' + Q + 'jar cfM '  +                                             
            %trim(inDirectory) +                                                                    
            %trim(attname) +                                                                        
            '  ' + %trim(InDirectory) + '*.*' + Q + ')';                                            
                                                                                                    
          cmdlength = %len(%trim(cmdstring));                                                       
          monitor;                                                                                  
          $command(cmdstring:cmdlength);                                                            
          on-error;                                                                                 
          endmon;                                                                                   
                                                                                                    
         // The name of the attached zip file                                                       
          tempAttach = %trim(InDirectory) + %trim(attname);