Page 1 of 2

More Emailing huge text file as a ZIP file

PostPosted: Tue Apr 27, 2010 12:54 am
by surya4ug
hello,

I tried the following ZIPping code which sends a PKZIP attachment, but when i try to open it, i receive an error that says " The open archieve command failed". Any clue about fixing this problem?

thanks in advance

Surya

Re: Emailing huge text file as a ZIP file

PostPosted: Tue Apr 27, 2010 12:54 am
by surya4ug
//STEP020 EXEC PGM=PKZIP
//STEPLIB DD DSN=TECHPRD.PKZIP.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//INFL1 DD DSN=TVDT.N2.VROL.RUA5AV00,DISP=SHR
//INFL2 DD DSN=TVDT.N2.VROL.BUA5AV00,DISP=SHR
//OUTFL1 DD DSN=TVDT.N2.VROL.UA5AV00,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(10,20),RLSE),DCB=(RECFM=FB,LRECL=80)
//SYSIN DD *
-ARCHIVE_OUTFILE(OUTFL1)
-ZIPPED_DSN(TVDT.N2.VROL.RUA5AV00,RUA5AV00)
-ZIPPED_DSN(TVDT.N2.VROL.BUA5AV00,BUA5AV00)
-INFILE(INFL1)
-INFILE(INFL2)

Re: Emailing huge text file as a ZIP file

PostPosted: Tue Apr 27, 2010 12:56 am
by dick scherrer
Hello,

You need to post the informational output from the zip execution. Do not choose what to post. Just copy/paste the generated output fro pkzip.

Where did you try to open the file?

Re: Emailing huge text file as a ZIP file

PostPosted: Tue Apr 27, 2010 12:58 am
by surya4ug
hello,

I tried the following ZIPping code which sends a PKZIP attachment, but when i try to open it, i receive an error that says " The open archieve command failed". Any clue about fixing this problem? i think i posted this question as a reply to another one by mistake..
//STEP020 EXEC PGM=PKZIP
//STEPLIB DD DSN=TECHPRD.PKZIP.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//INFL1 DD DSN=TVDT.N2.VROL.RUA5AV00,DISP=SHR
//INFL2 DD DSN=TVDT.N2.VROL.BUA5AV00,DISP=SHR
//OUTFL1 DD DSN=TVDT.N2.VROL.UA5AV00,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(10,20),RLSE),DCB=(RECFM=FB,LRECL=80)
//SYSIN DD *
-ARCHIVE_OUTFILE(OUTFL1)
-ZIPPED_DSN(TVDT.N2.VROL.RUA5AV00,RUA5AV00)
-ZIPPED_DSN(TVDT.N2.VROL.BUA5AV00,BUA5AV00)
-INFILE(INFL1)
-INFILE(INFL2)



thanks in advance

Surya

Re: Emailing huge text file as a ZIP file

PostPosted: Tue Apr 27, 2010 1:05 am
by surya4ug
Hello,

I emailed the zip folder to myself....opened it from the outlook as an attachment. also saved it on my desktop and opened with PKZIP ver 8, and ended up with the same error...

Re: Emailing huge text file as a ZIP file

PostPosted: Tue Apr 27, 2010 1:08 am
by surya4ug
Here are the information statements resultant from the zipping code.



ZPAM000I VOLUME INFO LIST FULL, ADDITIONAL VOLUME INFO ENTRIES DISCARDED.     
ZPAM030I OUTPUT Archive opened:  TVDT.N2.VROL.UA5AV00                     
ZPAM000I VOLUME INFO LIST FULL, ADDITIONAL VOLUME INFO ENTRIES DISCARDED.     
ZPAM253I ADDED     File TVDT.N2.VROL.RUA5AV00                               
ZPAM254I   as FIL2                                                           
ZPAM255I   (DEFLATED 94%/94%)  DATA SIZE 11,328,000; ZIP SIZE 640,444         
ZPAM253I ADDED     File TVDT.N2.VROL.BUA5AV00                                 
ZPAM254I   as FIL1                                                           
ZPAM255I   (DEFLATED 93%/93%)  DATA SIZE 17,525,000; ZIP SIZE 1,299,633       
ZPAM140I FILES:       ADDED  EXCLUDED  BYPASSED  IN ERROR    COPIED           
ZPAM140I                  2         0         0         0         0   



and here is the emailing code. I used SAS here so that multiple attachments could be sent.

//STEP03 EXEC SASMSTR,REGION=32K,WORK='2000,1000'                       
//FT11F001 DD  SYSOUT=*                 SAS LOG                         
//FT12F001 DD  SYSOUT=*                 SAS PRINT                       
//FT13F001 DD  SYSOUT=*                 SAS PUNCH                       
//REPORT1 DD DSN=USERID.MYFILE1.CSV,DISP=SHR                   
//REPORT2 DD DSN=USERID.MYFILE2.CSV,DISP=SHR                   
//SYSIN DD *                                                           
  %LET MAILFILE1 = %SYSFUNC(PATHNAME(REPORT1));                         
  %LET MAILFILE2 = %SYSFUNC(PATHNAME(REPORT2));                         
  DATA _NULL_;                                                         
  CALL SYMPUT("FDATE",LEFT(PUT("&SYSDATE"D-1,WORDDATE.)));             
  FILENAME LNOTE EMAIL                                                 
       from=("username@domain.com")               
       to=("username@domain.com")                 
  SUBJECT ="EWR REPORT - &SYSDATE"                                     
  ATTACH =                                                             
  ("&MAILFILE1" EXTENSION='CSV' TYPE='TEXT/CSV' NAME="REPORT1"         
   "&MAILFILE2" EXTENSION='CSV' TYPE='TEXT/CSV' NAME="REPORT2");       
  DATA _NULL_;                                                         
  FILE LNOTE ;

Re: Emailing huge text file as a ZIP file

PostPosted: Tue Apr 27, 2010 1:40 am
by dick scherrer
Hello,

I emailed the zip folder to myself....
How did you do this? Did you specify BINARY (rather than something else) for the transfer?

Suggest you unzip the fle on the mainframe to make sure it is built correctly. Make sure that the original files are not destroyed - you might want them . . .

More Emailing huge text file as a ZIP file X

PostPosted: Tue Apr 27, 2010 1:49 am
by surya4ug
sure...while i try to do that...... please let me know where the BINARY is specified. I've posted the code that i used in the posts above, not sure what you were referring to........when i said the zip folder was emailed to myself, i meant i've used the SAS code mentioned above and just inputted my email address.

please let me know if i misinterpretted ur msg....

Re: Emailing huge text file as a ZIP file

PostPosted: Tue Apr 27, 2010 1:54 am
by dick scherrer
Hello,

CONTENT-TYPE: TEXT/PLAIN;
I don't do SAS, but i believe this will cause the problem. Your file is no longer a plain text file - it is now a binary file.

please let me know if i misinterpretted ur msg....
I believe we are "in sync" :)

Re: More Emailing huge text file as a ZIP file

PostPosted: Tue Apr 27, 2010 2:54 am
by surya4ug
Hmm..got it...

But i dont have any sample code that sends mutiple attachments to users using IEBGENER...in zipped format...

can you guide me or point me to some document that'll help me know the specifics of the code to work on it ?

thanks!