Chinaunix

标题: AS400-COBOL中，WRITE清空变量问题！ [打印本页]

作者: thursday 时间: 2007-06-09 15:13
标题: AS400-COBOL中，WRITE清空变量问题！
COBOL中，为什么画面入力后，执行了的WRITE，就把入力的项目清空了呢？？？？？？？？？

WRITE DSP-REC FROM P99O-AREA FORMAT IS 'PANEL99'
INDICATORS PANEL99-O-INDIC
WRITE DSP-REC FROM H01O-AREA FORMAT IS 'PANEL01'
INDICATORS PANEL01-O-INDIC

复制代码

作者: pantierui 时间: 2007-06-09 22:15
同一个RECORD可能是写了两次吧。

作者: chmj 时间: 2007-06-10 11:45
不是record重复
01  H010-AREA.
  03  H01I-AREA.
COPY  DDS-PANEL01-I OF  HVK010D.
  03  H01O-AREA.
COPY  DDS-PANEL01-O OF  HVK010D.
  03  P99O-AREA.
COPY  DDS-PANEL99-O OF  HVK010D.
程序里面分别定义DDS-PANEL01-I，DDS-PANEL01-O，在WRITE“DDS-PANEL01-O”的时候“IDDS-PANEL01-I”里的内容全部都被清空了

作者: thursday 时间: 2007-06-11 08:50

WRITE DSP-REC FROM P99O-AREA FORMAT IS 'PANEL99'
INDICATORS PANEL99-O-INDIC

复制代码

执行这个第一句的时候，画面变量已经被清空了。。。。

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)