IBM大型机论坛索引
 
 登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答  寄存器
 

压缩 file Sending through SMTP


IBM大型机论坛 -> 所有其他大型机主题
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
arjun.h

新的用户


已加入:2012年1月13日
帖子:20
地点:印度

 发布 发表:2012年1月19日,星期四2:41 pm
引用回复

大家好,

我已经阅读了几页有关如何通过SMTP发送zip附件的页面,但是没有一个完整的解决方案。抱歉,如果您觉得这是重复

在大型机方面,一切似乎都很好,我没有收到任何错误。
但是当我尝试使用ZIP实用程序在Windows中打开文件时,它弹出以下错误

[无法打开文件:它似乎不是有效的存档
如果您下载了此文件,请尝试再次下载文件
]

我使用PKZIP压缩文件,JCL如下

码:
[//STEP1 EXEC PGM = PKZIP,REGION = 6M,TIME = 90   
// STEPLIB  DD DSN = SYSU.PKZIP.LOADLIB,DISP = SHR
// SYSUDUMP DD  SYSOUT=*                       
// SYSPRINT DD  SYSOUT=*                       
// SYSIN    DD  *                               
-ARCHIVE_DSN(XXXXXXXXXXXX)       
-建筑师(BIGPRD)                             
-建筑(CYL)                               
-ARCHPRIMARY(10)                               
-ARCHSECONDARY(10)                             
-DATA_DELIMITER(LF)                           
-FILE_TERMINATOR(LF)                           
-TRANSLATE_TABLE_DATA(EBC#8859)               
-行动 (ADD)                                   
YYYYYYYYYYYY                           
/ *



注意:
XXXXXXXXXXXX-> OUTPUT 数据 SET
YYYYYYYYYYYY-> INPUT 数据 SET
]


电邮步骤如下

码:
//步骤1 EXEC PGM = LINKABND,PARM =(UCANDU,12)                           
// SYSPRINT DD  SYSOUT=*                                                 
// SYSUT1   DD  DSN=EMAIL.LIST(CNTCRD),DISP=SHR                     
//         DD  DSN=XXXXXXXXXXXX,                     
//             DISP=SHR                                                 
// SYSUT2   DD DSN=TEMP.DATASET,                       
//            DISP=(,CATLG,DELETE),                                     
//            UNIT=SCRTCH,                                             
//            SPACE=(CYL,(10,10),RLSE),AVGREC=K,                       
//            DCB=(DCO01.DSCB,RECFM=U)
// SYSIN    DD  *                                                       
全部复制                                                                
// *                                                                      
//第2步  EXEC PGM=IEBGENER                                           
// SYSIN    DD DUMMY                                                     
// SYSPRINT DD  SYSOUT=*                                                 
// SYSUT1   DD DSN = TEMP.DATASET,DISP = SHR                   
// SYSUT2   DD  SYSOUT=(A,SMTP)                                         
// *
]


电子邮件详细信息/ Mime如下

[你好xxxxx
MAIL 从:<>
RCPT至:<a@xxx.COM>
数据
从: Report
至:测试邮件
学科: Report
MIME版本:1.0
内容类型:APPLICATION / OCTET-STREAM; NAME =“ 邮编”
内容传输编码:BASE64]




注意:我厌倦了使用SAS发送ZIped文件,并且成功,我能够在Windows中打开Zip文件,这可能意味着Zipping很好。

问题是我不能使用SAS,任何人都可以帮助我。 icon_sad.gif


内嵌文字
码:


//步骤1 EXEC PGM = PKZIP,REGION = 6M,TIME = 90   
// STEPLIB  DD DSN = SYSU.PKZIP.LOADLIB,DISP = SHR
// SYSUDUMP DD  SYSOUT=*                       
// SYSPRINT DD  SYSOUT=*                       
// SYSIN    DD  *                               
-ARCHIVE_DSN(XXXXXXXXXXXX)       
-建筑师(BIGPRD)                             
-建筑(CYL)                               
-ARCHPRIMARY(10)                               
-ARCHSECONDARY(10)                             
-DATA_DELIMITER(LF)                           
-FILE_TERMINATOR(LF)                           
-TRANSLATE_TABLE_DATA(EBC#8859)               
-行动 (ADD)                                   
YYYYYYYYYYYY                           
/ *                                              


注意 :
XXXXXXXXXXXX-> OUTPUT 数据 SET
YYYYYYYYYYYY-> INPUT 数据 SET



电邮


// **************************************************** **********************
//步骤1 EXEC PGM = LINKABND,PARM =(UCANDU,12)                           
// SYSPRINT DD  SYSOUT=*                                                 
// SYSUT1   DD  DSN=EMAIL.LIST(CNTCRD),DISP=SHR                     
//         DD  DSN=XXXXXXXXXXXX,                     
//             DISP=SHR                                                 
// SYSUT2   DD DSN=TEMP.DATASET,                       
//            DISP=(,CATLG,DELETE),                                     
//            UNIT=SCRTCH,                                             
//            SPACE=(CYL,(10,10),RLSE),AVGREC=K,                       
//            DCB=(DCO01.DSCB,RECFM = FB,LRECL = 385,BLKSIZE = 0)             
// SYSIN    DD  *                                                       
全部复制                                                                
// *                                                                      
//第2步  EXEC PGM=IEBGENER                                           
// SYSIN    DD DUMMY                                                     
// SYSPRINT DD  SYSOUT=*                                                 
// SYSUT1   DD DSN = TEMP.DATASET,DISP = SHR                   
// SYSUT2   DD  SYSOUT=(A,SMTP)                                         
// *                                                                      



电邮清单

你好xxxxx                                          
MAIL 从:<>                                         
RCPT至:<a@xxx.COM>                   
数据                                                  
从: Report                             
TO:  TEST MAIL                                       
学科: Report
MIME版本: 1.0                                   
内容类型:应用程序/八音流; NAME ="A.ZIP"
内容传输编码: BASE64                   


不要发布附件,不是每个人都能看到附件,从而减少了有能力帮助操作人员的人数
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

 发布 发表:2012年1月19日,星期四,下午6:32
引用回复

您是否使用其他编码进行过测试?
您是否已对多部分MIME邮件进行了测试?
回到顶部
查看用户资料 发送私信
arjun.h

新的用户


已加入:2012年1月13日
帖子:20
地点:印度

 发布 发表:2012年1月19日,星期四,下午7:59
引用回复

罗伯特

我对以下内容感到厌倦,甚至没有在我的邮箱中收到附件

内容类型: MULTIPART/MIXED ; NAME="REPORT.ZIP"
内容传输编码:BASE64


我也尝试过

内容类型: PLAIN/TEXT ; NAME="REPORT.ZIP"
内容传输编码:BASE64

没有成功。
回到顶部
查看用户资料 发送私信
arjun.h

新的用户


已加入:2012年1月13日
帖子:20
地点:印度

 发布 发表:2012年1月19日,星期四,晚上8:16
引用回复

罗伯特

由于我们正在转移到Windows,因此EBCDIC需要转换为ACSII,而BASE64可以做到这一点。如果这是错误的,请通知我。
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

 发布 发表:2012年1月19日,星期四,下午8:34
引用回复

引用:
由于我们正在转移到Windows,因此EBCDIC需要转换为ACSII,而BASE64可以做到这一点。如果这是错误的,请通知我。
1.您对此绝对不对。 压缩文件是BINARY文件,如果将其转换为ASCII,则将不再有ZIP文件-您将产生垃圾。这可以解释您的结果-已翻译的ZIP文件不再是存档。

2. BASE64是ASCII编码,它不用于二进制(即ZIP)文件传输。您应该对SMTP传输使用二进制编码。
回到顶部
查看用户资料 发送私信
arjun.h

新的用户


已加入:2012年1月13日
帖子:20
地点:印度

 发布 发表于:星期五一月20,2012 10:32上午
引用回复

你好罗伯特。


7bit和8bit是MIME中的二进制编码,我尝试过但相同的情况。

这是我尝试过的三个选项


内容类型:APPLICATION / OCTET-STREAM; NAME =“ REPORT.ZIP”
内容传输编码: 7BIT


内容类型:APPLICATION / OCTET-STREAM; NAME =“ REPORT.ZIP”
内容传输编码: 8BIT


MIME版本:1.0
内容类型:APPLICATION / OCTET-STREAM; NAME =“ REPORT.ZIP”
回到顶部
查看用户资料 发送私信
arjun.h

新的用户


已加入:2012年1月13日
帖子:20
地点:印度

 发布 发表:2012年1月20日,星期五3:25 pm
引用回复

更多信息

压缩文件具有以下属性

组织。 。 。 :PS
记录格式。 。 。 :U
记录长度。 。 。 :0
块大小。 。 。 。 :27998
回到顶部
查看用户资料 发送私信
arjun.h

新的用户


已加入:2012年1月13日
帖子:20
地点:印度

 发布 发表时间:2012年1月20日,星期五,晚上11:29
引用回复

大家好,

如果有人有工作用PKZIP进行压缩,然后通过SMTP发送文件,请发表。

icon_rolleyes.gif
回到顶部
查看用户资料 发送私信
瓦桑斯

全球主持人


已加入:2007年8月28日
帖子:1689
地点:印度蒂鲁普布尔

 发布 发表:2012年1月22日,星期日,上午1:39
引用回复

我有时会遇到类似的问题,并且耐心地等待有人在该线程中发布解决方案。

在我们的例子中,我们将文件传输到USS并用TARZIP压缩到USS,然后通过电子邮件发送。没有确切的解决方案,但是可以解决。
回到顶部
查看用户资料 发送私信
超人

新的用户


已加入:2011年3月28日
帖子:12
地点:印度

 发布 发表:2012年1月30日星期一12:36 pm
引用回复

我认为我们需要更改文件的长度,我认为您收到的错误是因为所有SMTP文件的长度都必须相同,否则会产生错误。您在修改文件的长度后是否尝试了相同的操作压缩文件?
回到顶部
查看用户资料 发送私信
瓦桑斯

全球主持人


已加入:2007年8月28日
帖子:1689
地点:印度蒂鲁普布尔

 发布 发表:2012年1月30日星期一12:47 pm
引用回复

超人,
您如何建议修改压缩文件的长度并且仍保持内容完整? (具有超强的人文能力吗?:-))
据我所知,我认为ZIP文件的格式为RECFM = U和LRECL = 0
码:
组织  . . . : PS 
记录格式。 。 。: U   
记录长度。 。 。: 0   
块大小  . . . . : 6144
回到顶部
查看用户资料 发送私信
超人

新的用户


已加入:2011年3月28日
帖子:12
地点:印度

 发布 发表:2012年1月30日星期一2:45 pm
引用回复

瓦桑斯

我没有想到这一点。确实存在问题。
因此,您的意思是说我无法通过SMTP传输PKZIP文件。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10715
所在地:意大利

 发布 发表:2012年1月30日星期一2:53 pm
引用回复

开箱即用的解决方案检查
www.lbdsoftware.com/xmitip.html
这里还有其他有用的提示
planetmvs.com/mvsmail/index.html
回到顶部
查看用户资料 发送私信
arjun.h

新的用户


已加入:2012年1月13日
帖子:20
地点:印度

 发布 发表:2012年2月7日,星期二,下午6:24
引用回复

你好VasanthZ和超人

我差一点就离开了这篇文章,因为我实在希望渺茫。希望这对您有帮助

如果将文件压缩到LRECL 80将提供解决方案,则需要包括两个额外的参数
码:

-建筑师(BIGPRD)   
-建筑(CYL)     
-ARCHPRIMARY(10)     
-ARCHSECONDARY(10)   
-DATA_DELIMITER(LF) 
-FILE_TERMINATOR(LF)
-ARCHIVE_LRECL = 080   
-ARCHIVE_RECFM = FB   
-TRANSLATE_TABLE_DATA(EBC#8859)     
-行动 (ADD)

我可以压缩,但使用SMTP失败
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10715
所在地:意大利

 发布 发表:2012年2月7日,星期二,下午6:32
引用回复

已删除...
我没有注意到通过SAS发送压缩文件有效!
回到顶部
查看用户资料 发送私信
arjun.h

新的用户


已加入:2012年1月13日
帖子:20
地点:印度

 发布 发表:2012年2月9日,星期四,下午12:49
引用回复

恩里科

是的,SAS工作正常。但是JCL呢?

我能够通过SAS发送,它也很简单。
回到顶部
查看用户资料 发送私信
arjun.h

新的用户


已加入:2012年1月13日
帖子:20
地点:印度

 发布 发表:2012年2月10日,星期五,上午11:47
引用回复

大家好,

这是一段完美工作的SAS代码,希望这对您有用。


码:
// SASMAIL EXEC SAS9,REGION = 2M                                           
// SYSIN DD *                                                           
数据;                                                                    
FILENAME MYFILE EMAIL                                                   
TO ="A@B.COM"                                         
从 ="A@B.COM"                                       
学科 ="SUBJECT OF UR MAIL"                                           
ATTACH =('ZIP FILE PS NAME'
NAME ='A'EXT ="ZIP");  ----> 压缩 FILE NAME IN MAIL                                               
数据 _NULL_;                                                           
FILE MYFILE;                                                            
输入“邮件描述”;                                         
跑;                                                                    
退出;                                                                    
/ *                                                                      



PS:SMTP有限制,因此,如果sas执行正常且您没有收到邮件,则表明您已超过限制。
回到顶部
查看用户资料 发送私信
查尔斯·沃尔特斯

新的用户


已加入:2011年3月30日
帖子:48
所在地:美国

 发布 发表:2012年2月11日,星期六2:52上午
引用回复

阿俊

我最近一直在使用Z / OS PKZIP,并且收到与您相同的错误消息,但是正如Robert指出的,这是因为我没有将压缩数据集从大型机到Windows的传输方法指定为BINARY。您可能想尝试的一件事是下载免费的ZIPREADER副本(来自PKZIP开发人员)以将数据集提取到PC而不是WINZIP上。

查尔斯·沃尔特斯
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 所有其他大型机主题

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 将匹配的记录写入输出文件 DFSORT / ICETOOL 11
没有新帖 比较文件记录计数百分比... DFSORT / ICETOOL 4
没有新帖 比较两个文件以查找位置/日期... 同步排序 2
没有新帖 将文件从PD转换为显示... 同步排序 4
没有新帖 RECFM = U磁带文件的记录数 DFSORT / ICETOOL 17
搜索我们的论坛:


 回到顶部