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

报告时在EZP中返回代码10


IBM大型机论坛 -> CA产品
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
picus_mf
警告:1

新的用户


已加入:2006年6月9日
帖子:52

发布发表:2014年3月3日星期一2:31 pm
引用回复

我正在尝试执行下面的ezp,该ezp实际上在字段上使用SEQUNCE,CONTROL和SUM语句来报告数据。对该现有模块进行的更改很少,无法更改格式和添加新字段。

码:

// J80XXXX EXEC PGM = CM01EZP
// STEPLIB DD DSN = SYS5.COMTEST.LINKLIB,DISP = SHR               
//         DD DSN = SYSTEMS.LINKLIB,DISP = SHR                   
// EZTVFM   DD DATACLAS=MB050                                 
//宏   DD DISP = SHR,DSN = PDS.EZPMACRO                 
// SYSPUNCH DD DUMMY                                           
// SYSOUT   DD SYSOUT=*                                       
// SYSLST   DD SYSOUT=*                                       
// SYSPRINT DD SYSOUT = Y                                       
// SYSUDUMP DD SYSOUT = *                                       
// SYS001   DD DISP = SHR,DSN = CM165LT.MINESUB.TEMP.SRT
//报告 DD DSN = CM165LT.APRP.SUMMARY.RV010B,     
//            DCB=(LRECL=150,RECFM=FB),DATACLAS=MB100,       
//            DISP=(NEW,CATLG,DELETE)                         


-------------------------------------------------- ------------------

作业失败,并显示以下错误代码。没有什么问题的线索。在JOB语句之后显示的显示语句等于输入文件中记录的编号。如有任何错误,请提出建议。


码:

文件报告打印机FB(150, 0)           
*                                         
作业输入NULL START START-PROC           
*                                         
显示'STARTED ...'                     
 GET SYS001                               
 IF (EOF SYS001)                         
   STOP                                   
 ELSE                                     
   IF AP-RP1 NUMERIC                     
     WS-AP-RP = WS-AP-RP + AP-RP1         
   ELSE                                   
     AP-RP1   = 0                         
   END-IF                                 
   IF SYSA-POL EQ ' '                     
      MISC = 0                           
   ELSE                                   
      MISC = 1                           
   END-IF                                    
   OUT-REC1 = OUT-REC                 
   执行打印报告过程           
 END-IF                               
*                                     
 打印报告过程。 PROC。             
 WS-AP-PREM   = 0                     
 WS-RP-PREM   = 0                     
 IF AP-RP  NUMERIC                     
   IF AP-RP GE 0                       
     WS-AP-PREM = AP-RP               
   ELSE                               
     WS-RP-PREM = AP-RP               
   END-IF                             
 ELSE                                 
   WS-AP-PREM = 0                     
   WS-RP-PREM = 0                     
 END-IF                               
 WS-NET-PREM = WS-AP-PREM + WS-RP-PREM
  PRINT REPORTA                                   
 *                                                 
  结束程序.                                       
 START-PROC. PROC                                 
                                                   
       MOVE SYSDATE      TO WS-SYSDATE-LONG       
       显示WS-SYSDATE-MM1                     
       IF      WS-SYSDATE-MM1 =  01 02 03         
             PRT-TITLE-1 ='卡车-第一季度' 
       ELSE-IF WS-SYSDATE-MM1 =  04 05 06         
             PRT-TITLE-1 ='卡车-第二季' 
       ELSE-IF WS-SYSDATE-MM1 =  07 08 09         
             PRT-TITLE-1 ='卡车-第三季度' 
       ELSE-IF WS-SYSDATE-MM1 =  10 11 12         
             PRT-TITLE-1 ='卡车-第四季度' 
       END-IF                                     
                                                   
  结束程序                                         
报告报告空间1页大小500 摘要尺寸149  +     
 PRINTER  REPORTA  NOADJUST                                       
*                                                                 
序列县公司                                           
控制最后的打印  COUNTY  NOPRINT  COMPANY                   
和     POLCOUNT WS-AP-PREM WS-RP-PREM WS-NET-PREM                 
标题1 COL 17'QUARTERLY  PREMIUM'  +           
        COL 54 'CHANGE 和MARY'                        +           
        COL 73 'CMS21'                                         
TITLE 2 COL 34  PRT-TITLE-1                                       
标题3''                                                       
1号线   '              ' 县公司客户数  WS-AP-PREM +   
WS-RP-PREM    WS-NET-PREM                                         
*                                                                 
BREAK后。 PROC                                           
 IF LEVEL = 3                                               
* 455389                                                   
  中频AP-RP NUMERIC                                         
    NOP                                                     
  其他                                                     
     AP-RP = 0                                             
  万一                                                   
   PREM-GRAND-TOTAL  = 最高总计  + AP-RP           
   WS-PREM-GRAND-TOTAL = 最高总计                   
  万一                                                   
 END-IF                                                     
结束程序                                                   
终止。 PROC                                               
   DISPLAY '             '                                       
   DISPLAY '                 净总AP RP金额   :'       +
                             WS-AP-RP                           
*                            WS-PREM-GRAND-TOTAL                 
   DISPLAY '             '                                       
结束程序                                                         


码:

03                                                                             
EZABX000程序CM165EZ6中发生错误。                             
EZABX001以下消息提供诊断信息。  Please         
         联系负责维护此事的人         
         application. 他们可能想查看此信息,或者他们可能       
         want it printed.                                                       
         #####################诊断信息#####################   
EZABX003错误发生在2014年3月3日的00.47。                               
EZABX007程序CM165EZ6以错误代码00000010结尾。                       
EZABX024程序在SYNCSORT中结束。检查报告程序。检查流量表。 
回到顶部
查看用户资料 发送私信
picus_mf
警告:1

新的用户


已加入:2006年6月9日
帖子:52

发布发表:2014年3月3日星期一2:38 pm
引用回复

与这个问题有关的另一点是,
当我使用实用程序EZTPA00提交同一程序时,它运行正常。但是,当我将其添加到Endevor后用作程序名称(PGM = EZPPROGRAM)时,出现此问题。元素的类型和处理器组是否正确使用。
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


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

发布发表:2014年3月3日星期一2:39 pm
引用回复

您已经通过在报表中添加内容来使内部报表文件更大。您已经对SyncSort感到震惊了。可能是工作空间/内存不足。

如果您无法从sysout中看到分辨率,请发布。
回到顶部
查看用户资料 发送私信
picus_mf
警告:1

新的用户


已加入:2006年6月9日
帖子:52

发布发表:2014年3月3日星期一2:48 pm
引用回复

我给SORKWK01和SORTWK02设置了dataclas = MB100并再次尝试,结果仍然相同。以下是SYSPRINT的完整列表

码:

EZABX000程序CMZ65EZ6中发生错误。                           
EZABX001以下消息提供诊断信息。  Please       
         联系负责维护此事的人       
         application. 他们可能想查看此信息,或者他们可能     
         want it printed.                                                     
         #####################诊断信息#####################
EZABX003错误发生在2014年3月3日的01.16。                             
EZABX007程序CMZ65EZ6以错误代码00000010结尾。                     
EZABX024程序在SYNCSORT中结束。检查报告程序。检查流量表。
EZABX018中断时的程序状态字为:           
              PSW * 478D0000 9B50​​8DF6 00020006 00000000 * .....&.6........ *
EZABX019中断时的程序寄存器为:             
            R0-3   * 00000000 004619D8 1B5015A4 004618F0 * ....... Q。&.u...0 *
            R4-7   * 0000CCC8 0000D05C 0000D3C4 1B5097A0 * ... H ..}*..LD.&p. *
            R8-11 * 1B523F38 0000CC90 0000D720 1B5087A0 * ..... P ..&g. *
           R12-15 * 0000D01C 00461988 1B509EB0 004619D0 * ..}....h.&.....} *
EZABX020该程序引用了以下文件:                         
         File Name                 Record 地址  Record Length  Status     
         EZTR001                      0041C3A0       95           Open       
         SYS001                       0041C098       400          End of file
EZABX022该程序引用了以下存储块:               
         BASE   Address                                                     
         12     0041C9F0                                                     
         14     0041C098                                                     
         16     0041C3A0                                                     
         17     0041C640                                                     
         18     0041C588                                                     
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


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

发布发表:2014年3月3日星期一3:54 pm
引用回复

需要带有WER消息的步骤中的sysout。您还看到的任何其他消息... Easytrieve VFM的大小也可能有问题,但是这些消息会告诉您...
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> CA产品

 


类似主题
话题 论坛 回覆
没有新帖 无论先前的步骤如何,都执行步骤... JCL和VSAM 2
没有新帖 错误0C1原因代码1与分支i ... PL / I和组装商 3
没有新帖 JCL用于替换Cobol中的代码 JCL和VSAM 7
没有新帖 Easytrieve EZABX007,错误代码0 ... CA产品 7
该主题已锁定:您无法编辑帖子或回复。 VSAM I / O-扩展寻址-... JCL和VSAM 12
搜索我们的论坛:


回到顶部