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

使用XMITIP将单个报告拆分为单独的报告


IBM大型机论坛 -> TSO / ISPF
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
阿卜杜拉菲

活跃用户


已加入:2009年9月14日
职位:184
地点:哥印拜陀

发布发表:2017年3月27日星期一3:59 pm
引用回复

你好

我确实有以下jcl,可根据密钥拆分文件并将其发送到邮件ID。但是由于回车,我无法得到它。

此处的密钥是21805和21809,位于文件的左上方。我需要在邮件中获得两个单独的附件,一个带有21805数据,另一个带有21809。

您能帮我解决这个问题吗?


码:

// T040C4TX作业(P904020,T040,99,99),'EXPORTTS-TEST1',               
 //  NOTIFY=&SYSUID,MSGCLASS = Q,TIME =(02,00),REGION=0M               
 // REPSPLIT EXEC XMITIP                                             
 // 输入1 DD DSN = NVSTN.PR.IMAGE4.TEST.EDIT1,DISP = SHR                 
 // 输入 DD DSN = NVSTN.XMIT.INVSUMM,DISP = SHR                         
 //XMCC   DD *                                                       
 FROM b.abdulrafi@gmail.com
 FORMAT TXT                                                         
 MSGT 'ATTACHED ARE THE 发票 SUMMARY'             
 主题为“发票摘要报告”                               
 /*                                                                 
 //SYSTSIN  DD *                                                     
 %XMITIPSP DD:INPUT1 DD:INPUTC                                       
 // *** TROL DD DSN = T040BK8.PDS.CNTL2(XMITCC),DISP=SHR                 
 // SYSPRINT DD SYSOUT = *



码:

21805     INVOICE SUMMARY
              DOCUMENTS SENT:  03/21/17

发票       MODEL YEAR  MODEL             TMSORDER  FREIGHT     UNITS    INSURANCE        FOB               CIF
-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- ---



现金管理

日期:_______________存款银行:  _______________

量:_______________信息来源:   _______________

21805     INVOICE SUMMARY
          DOCUMENTS SENT:  03/21/17

发票       MODEL YEAR  MODEL             TMSORDER  FREIGHT     UNITS    INSURANCE        FOB               CIF
-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- ---


21809     INVOICE SUMMARY
          DOCUMENTS SENT:  03/21/17

发票       MODEL YEAR  MODEL             TMSORDER  FREIGHT     UNITS    INSURANCE        FOB               CIF


     
现金管理

日期:_______________存款银行:  _______________

量:_______________信息来源:   _______________

21809     INVOICE SUMMARY
          DOCUMENTS SENT:  03/21/17

发票       MODEL YEAR  MODEL             TMSORDER  FREIGHT     UNITS    INSURANCE        FOB               CIF
-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- ---
           


使用的控制卡:
码:

SEPLOC = 1/5/1                                                           
 KEYV=21805                                                           
 KEYMAIL=b.abdulrafi@gmail.com
 MERGEMAIL                                                             
 KEYV=21809                                                           
 KEYMAIL=b.abdulrafi@gmail.com       
 MERGEMAIL                                                             
 SUBJECT=INV SUMMARY                                         
 XMITIPCONFIG=DD:XMCC                                                 
 FILENAME = INVOICE_SUMMARY_&SEPVAL.TXT   



作业日志错误:
码:

错误:请求了SEPLOC ROW,且输入数据在DCB RECFM中缺少进位控制。 


如果我只给SEPLOC AS 1/5,我得到的输出是,
码:


21805     INVOICE SUMMARY
              DOCUMENTS SENT:  03/21/17

发票       MODEL YEAR  MODEL             TMSORDER  FREIGHT     UNITS    INSURANCE        FOB               CIF
-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- ---


缺少对应于21805的几行内容。

我不确定哪里出了问题。是因为我的输入文件中没有任何回车符。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2017年3月27日星期一4:16 pm
引用回复

引用:
DCB RECFM中的输入数据缺少托架控制。


xmitip抱怨DCB属性错误

FBM / FM / FBA / FA

与回车无关
回到顶部
查看用户资料 发送私信
阿卜杜拉菲

活跃用户


已加入:2009年9月14日
职位:184
地点:哥印拜陀

发布发表:2017年3月27日星期一4:25 pm
引用回复

是的,我同意你的观点。我给了正确的DCB参数,但是有什么办法可以解决它。我正在尝试但无法完成我想要的。

您能否建议我必须更改任何参数?
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

发布发表:2017年3月27日星期一9:24 pm
引用回复

您是否创建了带有运输控制字符的数据?
回到顶部
查看用户资料 发送私信
阿卜杜拉菲

活跃用户


已加入:2009年9月14日
职位:184
地点:哥印拜陀

发布发表于:2017年3月28日,星期二12:11 pm
引用回复

不,我不是。但是看到错误我认为我们需要在文件中返回回车符。类似于报表中的分页内容。我把钥匙朝最右边的一端插入,它起作用了。它可以正确拆分。
回到顶部
查看用户资料 发送私信
阿卜杜拉菲

活跃用户


已加入:2009年9月14日
职位:184
地点:哥印拜陀

发布发表于:星期一四月03,2017 3:59下午
引用回复

你好

需要更多帮助。使用相同的输入和jcl,我有2个控制卡,并且正在执行XMITIP步骤以将报告发送给用户。目前,我的XMITIP步骤将单个ESHP文件拆分为两个单独的报告,一个报告包含包含密钥vauke 21805的数据,另一个包含21809。
Same applies with 发票 SUMMARY as well.

我可以通过分别发送2封邮件来实现。但是我需要以单封邮件发送报告。我面临的挑战是,这两个文件的密钥相同。因此,我无法将两者合并。
注意:这两个文件的布局是不同的。

请让我知道是否可以将报告以附件形式发送到单个邮件中。

以下是两个控制卡,
码:

SEPLOC = 102/5                                                     
KEYV = 21805                                                       
KEYMAIL=abdul.rafi@gmail.com
梅吉尔                                                       
KEYV = 21809                                                       
KEYMAIL=abdul.rafi@gmail.com
梅吉尔                                                       
主题=文件&JOB                                   
XMITIPCONFIG = DD:XMCC                                             
FILENAME = ESHP_&SEPVAL.TXT                                       


SEPLOC = 129/5                                                         
KEYV = 21805                                                           
KEYMAIL=abdul.rafi@gmail.com     
梅吉尔                                                           
KEYV = 21809                                                           
KEYMAIL=abdul.rafi@gmail.com   
梅吉尔                                                           
SUBJECT = INV摘要&JOB                                       
XMITIPCONFIG = DD:XMCC                                                 
FILENAME = INVOICE_SUMMARY_&SEPVAL.TXT       
回到顶部
查看用户资料 发送私信
阿卜杜拉菲

活跃用户


已加入:2009年9月14日
职位:184
地点:哥印拜陀

发布发表于:2017年4月4日,星期二2:04 pm
引用回复

任何帮助,将不胜感激。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表于:2017年4月4日,星期二2:49 pm
引用回复

记住..

我们按自己的时间免费回复

如果没人回答,那就意味着
没有人对该主题有深入的了解
没有人有兴趣回答
您的仁慈系数低(*)
没有人喜欢你 icon_biggrin.gif

(*)并寻求答案将使它下降得更多
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> TSO / ISPF

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 将匹配的记录写入输出文件 DFSORT / ICETOOL 11
没有新帖 需要将单行分成两行 DFSORT / ICETOOL 7
没有新帖 使用CO创建单记录文件... DFSORT / ICETOOL 8
没有新帖 SARBCH REPORT DD写入错误 CA产品 1
没有新帖 从CA Disp中以ARCHIVE格式卸载报告... CA产品 0
搜索我们的论坛:


回到顶部