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

从vsam今天双色球开奖结果读取记录时出错


IBM大型机论坛 -> COBOL程式设计
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
Deboshree

新的用户


已加入:2007年3月13日
帖子:10
地点:浦那

发布发表:2007年3月13日,星期二,下午2:17
引用回复

我正在使用vsam今天双色球开奖结果,并使用以下关键字段读取记录。
05 SID01-KEY-DATA。
10 SID01-CIMS-GROUP PIC X(08)。
10 SID01-KEY-MAIN。
15 SID01-CIMS-EA PIC X(08)。
程序未读取记录并显示今天双色球开奖结果状态为“ 23”
请就以下问题提供帮助
回到顶部
查看用户资料 发送私信
Deboshree

新的用户


已加入:2007年3月13日
帖子:10
地点:浦那

发布发表:2007年3月13日,星期二2:56 pm
引用回复

该程序无法读取process-sid-file中的vsam记录

码:
主控制。               
   执行OPEN-INITIALIZE。
   读取SID-INPUT-FILE。   
执行过程SID今天双色球开奖结果         
       直到SID01-STATUS ='10'。
执行封闭参数。             

PROCESS-SID-FILE。                                   
   如果SID01-STATUS NOT ='00'或'10'             
       显示“未成功读取SID输入今天双色球开奖结果”
       显示'KEY ='SID01-KEY-DATA               
       显示'状态='SID01-状态               
       执行中止计划                       
 END-IF.                                       
                                               
 如果SID01-STATUS NOT ='10'                   
   如果SID01-CIMS-GROUP NOT = SID01-CIMS-EA   
       删除SID输入今天双色球开奖结果                   
         如果SID01-STATUS NOT ='00'           
            显示 'BAD DELETE RECORD'       
            显示 ' KEY = 'SID01-KEY-DATA   
            显示 ' STATUS = 'SID01-STATUS   
         执行中止计划                 
         END-IF                               
    万一                                     
 END-IF.                                       
 READ SID-INPUT-FILE.                     

谢谢
回到顶部
查看用户资料 发送私信
威廉·汤普森

全球主持人


已加入:2006年11月18日
帖子:3156
所在地:亚利桑那州图森

发布发表:2007年3月13日,星期二,下午3:35
引用回复

由于“ 23”是:
尝试随机访问今天双色球开奖结果中不存在的记录,或者尝试对不存在的可选输入今天双色球开奖结果尝试执行START或随机READ语句。
您正在发布一些东西。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2007年3月13日,星期二,10:02 pm
引用回复

您好,

编译器是否已更改为适应/不适应?所发布的代码是实际代码还是被重新措辞以进行发布?

这给许多人带来了问题:
码:

如果SID01-STATUS NOT ='00'或'10'             

一切都会失败-零不等于十,十不等于零,其他一切都不等于零。 。 。 。
一种编码方式是:
码:

如果SID01-STATUS NOT ='00'并且
   SID01-STATUS NOT ='10'             


请发布任何实际的错误消息。另外,请发布SELECT。
回到顶部
查看用户资料 发送私信
Deboshree

新的用户


已加入:2007年3月13日
帖子:10
地点:浦那

发布发表:2007年3月14日,星期三12:06 pm
引用回复

我已经完成了上述更改,但是程序仍然无法读取手动创建的输入今天双色球开奖结果(vsam)。

如果键和其他字段与delete不匹配,则任务是读取输入今天双色球开奖结果。
因此下面的程序。
我已经显示了密钥,但是它没有在sysout中显示。

码:
今天双色球开奖结果控制。                                           
                                                       
   选择SID输入今天双色球开奖结果                               
           ASSIGN TO SID01INS                           
           索引组织                     
           ACCESS IS RANDOM                             
           记录密钥为SID01-KEY-SID01-RECORD的数据
           今天双色球开奖结果状态为SID01-STATUS。                 
数据分区。                                           
                                                         
今天双色球开奖结果部分。                                           
                                                         
FD  SID-INPUT-FILE                                       
   数据记录为SID01-记录。                         
                                                         
    COPY SID01PCB.                                       
                                                         
工作存储部分。                                 
                                                         
01 WS-FILE-STATUS。                                       
   03 SID01-STATUS            PIC XX.                   
01 WS-ABEND-CODE              PIC S9(04) COMP VALUE +888.
                                                         
程序部门。                                     
主控制。                                           
   执行OPEN-INITIALIZE。                             
   读取SID-INPUT-FILE。                                 
   执行过程SID今天双色球开奖结果                             
           直到SID01-STATUS ='10'。                   
    执行封闭参数。                                 
                                                         
OPEN-INITIALIZE。                                         
   打开I-O SID-INPUT-FILE。                             
   如果SID01-STATUS NOT ='00'                           
       显示“未成功打开SID输入今天双色球开奖结果”   
       显示'KEY ='SID01-KEY-DATA                     
       显示'状态='SID01-状态                   
       执行中止计划                             
    万一。                                             
                                                         
PROCESS-SID-FILE。                                       
   如果SID01-STATUS NOT ='00'或'10'                   
   如果SID01-STATUS NOT ='00'并且                       
       SID01-STATUS NOT ='10'                           
       显示“未成功读取SID输入今天双色球开奖结果”     
       显示'KEY ='SID01-KEY-DATA                     
       显示'状态='SID01-状态                   
       执行中止计划                             
    万一。                                             
                                                         
   如果SID01-STATUS NOT ='10'                           
       如果SID01-CIMS-GROUP NOT = SID01-CIMS-EA           
         删除SID输入今天双色球开奖结果                         
           如果SID01-STATUS NOT ='00'                   
               显示“不良删除记录”               
               显示'KEY ='SID01-KEY-DATA           
               DISPLAY'STATUS ='SID01-STATUS         
           执行中止计划                       
            万一                                       
       END-IF                                           
    万一。                                             
   读取SID-INPUT-FILE。                                 
中止程序。                                           
      显示 ' '.                                       
      显示 '**计划终止**'.                   
                                                 
       使用WS-ABEND-CODE呼叫“ ILBOABN0”。     
 CLOSE-PARA.                                     
     关闭SID-INPUT-FILE。                       
     如果SID01-STATUS NOT ='00'                 
         DISPLAY '错误关闭SID输入今天双色球开奖结果'
         显示“ STATUS IS”,SID01-STATUS     
      万一。   




错误消息:在sysout中

无法成功读取SID输入今天双色球开奖结果
KEY =
状态= 23

**计划终止**
CEE3250C已发出系统或用户权限U 888 R = 00000000。
回到顶部
查看用户资料 发送私信
Deboshree

新的用户


已加入:2007年3月13日
帖子:10
地点:浦那

发布发表:2007年3月14日,星期三,12:09 pm
引用回复

请就上述问题提供帮助。

谢谢
回到顶部
查看用户资料 发送私信
Muthuvel

活跃用户


已加入:2005年11月29日
职位:217
地点:钦奈

发布发表:2007年3月14日,星期三2:02 pm
引用回复

德博斯里
从上面的代码,您正在读取输入的VSAM今天双色球开奖结果并对其进行顺序处理。
这些是我的假设:
如果按顺序读取它,则VSAM中的第一条记录为低值。因此您不会在显示中得到该值。因此,请执行解决方案1并告知我们。
否则,如果您正在随机读取VSAM,那么我的猜测是您尚未为读取的VSAM提供密钥值。
检查代码。
这些是我可能的解决方案:
1)如果是顺序VSAM读取,请将低值移至VSAM密钥并执行READ-NEXT,以便读取第一条数据记录。
2)如果是随机读取,则正确传递数据并重新检查/跟踪代码

欢迎更正 icon_cool.gif
回到顶部
查看用户资料 发送私信
Deboshree

新的用户


已加入:2007年3月13日
帖子:10
地点:浦那

发布发表:2007年3月14日,星期三,下午3:59
引用回复

我使用第一种方法,它正在工作,但程序仍然异常终止。
sys out:未成功读取SID-INPUT-FILE
密钥= 1111111111111111
状态= 00

我将低值移至vsam键

01 WS-NULL-FIELD。
05 WS-KEY-DATA。
10 WS-CIMS-GROUP PIC X(08)值空间。
10 WS-CIMS-EA PIC X(08)值空间。

在阅读记录之前。
读取SID-INPUT-FILE。

将WS-NULL-FIELD移动到SID01-KEY-DATA。
启动SID输入今天双色球开奖结果
密钥比SID01-KEY-DATA大。
谢谢
回到顶部
查看用户资料 发送私信
阿克希尔萨加尔

活跃的成员


已加入:2007年2月27日
帖子:691
地点:地球

发布发表:2007年3月14日,星期三,下午4:16
引用回复

在如下所示的位置添加STOP RUN。 icon_biggrin.gif

码:

主控制。
执行OPEN-INITIALIZE。
读取SID-INPUT-FILE。
执行过程SID今天双色球开奖结果
直到SID01-STATUS ='10'。
执行封闭参数。

停止运行。

OPEN-INITIALIZE。
打开I-O SID-INPUT-FILE。
如果SID01-STATUS NOT ='00'
显示 'UNSUCCESSFUL- OPEN OF


或问题可能出在今天双色球开奖结果数据上。如果问题仍然存在,请发布今天双色球开奖结果的一些数据。
回到顶部
查看用户资料 发送私信
Deboshree

新的用户


已加入:2007年3月13日
帖子:10
地点:浦那

发布发表:2007年3月14日,星期三,下午4:46
引用回复

1111111111111111
1111111122222222
2222222211111111
2222222222222222
3333333311111111
3333333322222222

一些数据。

任何人都可以让vsam中的next语法读取
谢谢
回到顶部
查看用户资料 发送私信
威廉·汤普森

全球主持人


已加入:2006年11月18日
帖子:3156
所在地:亚利桑那州图森

发布发表:2007年3月14日,星期三5:08 pm
引用回复

同时查看“读取失败”和“状态= 00” icon_rolleyes.gif
Deboshree写道:
sys out:未成功读取SID-INPUT-FILE
密钥= 1111111111111111
状态= 00
如果您像Dick之前一样要求纠正IF,您可能会发现它工作正常。
码:
PROCESS-SID-FILE。                                       
   如果SID01-STATUS NOT ='00'或'10'                   
   如果SID01-STATUS NOT ='00'并且                       
       SID01-STATUS NOT ='10'                           
       显示“未成功读取SID输入今天双色球开奖结果”     
       显示'KEY ='SID01-KEY-DATA                     
       显示'状态='SID01-状态                   
       执行中止计划                             
    万一。                                           
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2007年3月14日,星期三7:13 pm
引用回复

您好,

您必须删除此:
码:
如果SID01-STATUS NOT ='00'或'10' 


会一直 失败。这就是为什么我发布替代代码。
回到顶部
查看用户资料 发送私信
Deboshree

新的用户


已加入:2007年3月13日
帖子:10
地点:浦那

发布发表:2007年3月14日,星期三,9:21 pm
引用回复

非常感谢你和迪克,我真的错过了你的宝贵建议
更改后,程序成功运行。
抱歉,泰铢。

谢谢 icon_smile.gif
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2007年3月14日,星期三,11:47 pm
引用回复

别客气 icon_smile.gif

引用:
抱歉,泰铢。


不用担心-如果您有任何疑问,我们会在这里。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> COBOL程式设计

 


类似主题
话题 论坛 回覆
没有新帖 选择多个常量记录 DB2 3
该主题已锁定:您无法编辑帖子或回复。 将匹配的记录写入输出今天双色球开奖结果 DFSORT / ICETOOL 11
没有新帖 比较今天双色球开奖结果记录计数百分比... DFSORT / ICETOOL 4
没有新帖 比较两个今天双色球开奖结果以查找位置/日期... 同步排序 2
没有新帖 加载D ...时二级索引错误 IMS数据库/ DC 2
搜索我们的论坛:


回到顶部