AS400/COBOL上subfile的问题

jskyzz

我以前还遇到 多次write contro file的时候也会死掉
.....
估计就是写的时候写到 400 内存的限制区域了，也就是说应该是写的问题，多次写 或者 写的内容不对

milanfeng

jskyzz,

谢谢你的回帖．

细问一句，按照什么样的格式写会比较规范，可以避免多次写control file出错　？

例如：
set clear_ctr_on to true.
write control file.
set clear_ctr_off to ture.

set sub_dsp_on to true.
set sub_ds_ctr_on to true.

move 1 to WDPOS.
write subfile .

................

如果方便的话，能否给一个像上面的例子　？　

jskyzz

我刚刚接触这个东西 我是用cobol做的
我操作subfile 一般是这样的
write subfile xxxxx .......
write xxxxx (SFL) .....
write xxxxx (CTL) .......
read xxxxx (CTL) .....
.............

jskyzz

不知道这个对你是否有用 呵呵

milanfeng

jskyzz,

谢谢．

按照你的方式试了，但发现，
如果subfile 记录里面有"ttt ttt ttt" , control format 里面有"001100"（指示器植），
则在执行以下步骤时：
write subfile xxxxx .......
write xxxxx (SFL) .....
write xxxxx (CTL) .......
read xxxxx (CTL) .....
.............

control format 里面的指示器植会覆盖subfile里面的记录．即原本想将控制方面的信息和数据记录值分别传送给screen-record，但结果是控制信息将数据记录值给覆盖掉（因为先执行write subfile xxxx, 再执行write xxx(CTL))．　不知道我的测试结果是否正常

jskyzz

覆盖掉的内存错乱  一般是因为 没有 write ---- from ----- format -----不对
还有读写的地方到底是   input 的 部分 还是 output的部分
试试看吧

milanfeng

jskyzz,

谢谢，按照你的方式去试，问题已解决．