|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
Deboshree
新的用户
已加入：2007年3月13日
帖子：10
地点：浦那
|
|
|
|
我正在使用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
地点：浦那
|
|
|
|
该程序无法读取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
所在地：亚利桑那州图森
|
|
|
|
由于“ 23”是：
尝试随机访问今天双色球开奖结果中不存在的记录，或者尝试对不存在的可选输入今天双色球开奖结果尝试执行START或随机READ语句。
您正在发布一些东西。 |
|
| 回到顶部 |
|
|
迪克·谢勒
主持人荣誉
已加入：2006年11月23日
帖子：19245
位置：矩阵内部
|
|
|
|
您好，
编译器是否已更改为适应/不适应？所发布的代码是实际代码还是被重新措辞以进行发布？
这给许多人带来了问题：
| 码： |
如果SID01-STATUS NOT ='00'或'10' |
一切都会失败-零不等于十，十不等于零，其他一切都不等于零。 。 。 。
一种编码方式是：
| 码： |
如果SID01-STATUS NOT ='00'并且
SID01-STATUS NOT ='10' |
请发布任何实际的错误消息。另外，请发布SELECT。 |
|
| 回到顶部 |
|
|
Deboshree
新的用户
已加入：2007年3月13日
帖子：10
地点：浦那
|
|
|
|
我已经完成了上述更改，但是程序仍然无法读取手动创建的输入今天双色球开奖结果（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
地点：浦那
|
|
|
|
请就上述问题提供帮助。
谢谢 |
|
| 回到顶部 |
|
|
Muthuvel
活跃用户
已加入：2005年11月29日
职位：217
地点：钦奈
|
|
|
|
德博斯里
从上面的代码，您正在读取输入的VSAM今天双色球开奖结果并对其进行顺序处理。
这些是我的假设：
如果按顺序读取它，则VSAM中的第一条记录为低值。因此您不会在显示中得到该值。因此，请执行解决方案1并告知我们。
否则，如果您正在随机读取VSAM，那么我的猜测是您尚未为读取的VSAM提供密钥值。
检查代码。
这些是我可能的解决方案：
1）如果是顺序VSAM读取，请将低值移至VSAM密钥并执行READ-NEXT，以便读取第一条数据记录。
2）如果是随机读取，则正确传递数据并重新检查/跟踪代码
欢迎更正  |
|
| 回到顶部 |
|
|
Deboshree
新的用户
已加入：2007年3月13日
帖子：10
地点：浦那
|
|
|
|
我使用第一种方法，它正在工作，但程序仍然异常终止。
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
地点：地球
|
|
|
|
在如下所示的位置添加STOP RUN。 
| 码： |
主控制。
执行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
地点：浦那
|
|
|
|
1111111111111111
1111111122222222
2222222211111111
2222222222222222
3333333311111111
3333333322222222
一些数据。
任何人都可以让vsam中的next语法读取
谢谢 |
|
| 回到顶部 |
|
|
威廉·汤普森
全球主持人
已加入：2006年11月18日
帖子：3156
所在地：亚利桑那州图森
|
|
|
|
同时查看“读取失败”和“状态= 00” 
| 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
位置：矩阵内部
|
|
|
|
您好，
您必须删除此：
| 码： |
| 如果SID01-STATUS NOT ='00'或'10' |
它 会一直 失败。这就是为什么我发布替代代码。 |
|
| 回到顶部 |
|
|
Deboshree
新的用户
已加入：2007年3月13日
帖子：10
地点：浦那
|
|
|
|
非常感谢你和迪克，我真的错过了你的宝贵建议
更改后，程序成功运行。
抱歉，泰铢。
谢谢  |
|
| 回到顶部 |
|
|
迪克·谢勒
主持人荣誉
已加入：2006年11月23日
帖子：19245
位置：矩阵内部
|
|
|
|
别客气
不用担心-如果您有任何疑问，我们会在这里。 |
|
| 回到顶部 |
|
|
|
|
