AS400-COBOL中，WRITE清空变量问题！

thursday

COBOL中，为什么画面入力后，执行了的WRITE，就把入力的项目清空了呢？？？？？？？？？

1. 
   
2. 
   
3. WRITE  DSP-REC  FROM P99O-AREA  FORMAT IS 'PANEL99'   
   
4.                      INDICATORS PANEL99-O-INDIC        
   
5. WRITE  DSP-REC  FROM H01O-AREA  FORMAT IS 'PANEL01'   
   
6.                      INDICATORS PANEL01-O-INDIC

复制代码

pantierui

同一个RECORD可能是写了两次吧。

chmj

不是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

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

复制代码

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