Question

有人可以向我解释这段代码在做什么：

ZAZAZA     MOVE  UT-S40-ZONES  (UT-INDS40-R)  TO   W-FH00-S40-ZONES.    PGM
ZAZAZA     MOVE  UT-S40-PERIOD (UT-INDS40-R)  TO   W-FH00-S40-PERIOD.   PGM
----->     DISPLAY "S40-ZONES-PGM::" UT-S40-ZONES  (UT-INDS40-R)           
----->     DISPLAY "W-FH00-S40-ZONES::" W-FH00-S40-ZONES                   
----->     DISPLAY "UT-S40-PERIOD::"  UT-S40-PERIOD (UT-INDS40-R)          
----->     DISPLAY "W-FH00-S40-PERIOD::" W-FH00-S40-PERIOD                 
ZAZAZA*                                                                 PGM

The display are :
S40-ZONES-PGM::******************************************
W-FH00-S40-ZONES:: empty !!!!!
UT-S40-PERIOD::"  ***************************************
W-FH00-S40-PERIOD::***************************************

我无法找到W-FH00-S40-ZONES :: any

我注意到S40-ZONES-PGM和W-FH00-S40-ZONES具有相同的PICTURE X和相同的尺寸。

有没有人有想法？

Answer 1

我找到了答案。事实上，在这些线之前，存在一个未满足的条件。

zzzzzz     IF    UT-S40-REGMAL  (UT-INDS40-R) = "200"                   zzz    
zzzzzz*                                                                 zzz    
zzzzzz*                                                                 zzz    
zzzzzz     MOVE  UT-S40-ZONES  (UT-INDS40-R)  TO   W-FH00-S40-ZONES.    zzz

Cobol在MOVE之后显示变量

1 个答案: