AS400/COBOL Display file 中的 window

milanfeng

在display file中,我定义了
R   testwindow
xx01    6 0B    4 3
xx02    4 0B    5 3
xx03   10  B    6 3
......

在程序中当我引用xx01,xx02,xx03如下:
write xx01 To File-xx01
write xx02 To File-xx02
write xx03 To File-xx03
....

在compile时, 发现30 错误, 提示xx01,xx02,xx03没定义. 重新检查了一下,引用的display file 名字没错,而且在FILE SECTION里面已定义如下:
COPY DDS-ALL-FORMATS OF "display file name"

请问,如何在程序中引用display file 中window format 里面所定义的变量?

谢谢

milanfeng

有人知道吗？

milanfeng

补充一点，对window的完整定义如下：
A          R TESTWIN                                    
A                                      WINDOW(4 20 11 40)
A                                      OVERLAY           
A                                  2  4'TEST WINDOW'     
A                                      DSPATR(HI)        
A            xx01         6  0B  4 16                  
A            xx02         2  0B  5 16                  
A            xx03        20   B  6 16                  
A                                  4  4'xxxxxx01  :'      
A                                      DSPATR(HI)  
A                                  5  4'xxxxxx02  :'
A                                      DSPATR(HI)  
A                                  6  4'xxxxxx03 :'
A                                      DSPATR(HI)  
A                                 10  4'F3 - EXIT'   
A                                       COLOR(BLU)   
A                                 10 16'F5 - CONFIRM'
A                                       COLOR(BLU)   
A          R DUMMY                     ASSUME        
A                                  1 24' '           
A          R DUMMY2                    CLRL(*NO)     
A                                      OVERLAY

digitalchina

write testwindow

july1732

在文件节中这样定义：
FD   DSPFILE.
       01   DSP-REC.
            COPY  DDS-ALL-FORMATS  OF  "display file name".（无需引号）
在工作單元節中還需要如下定義:
01  TESTWIN-O-AREA.
             COPY  DDS-TESTWIN-O   OF  "display file name".（无需引号）
然后在程序中这样引用:
      WRITE  TESTWIN FROM  TESTWIN-O-AREA FORMAT IS "TESTWIN".
这样就可以把你输入的值SHOW到画面上来了。

july1732

纠正：如下，刚才WRITE  TESTWIN FROM  TESTWIN-O-AREA FORMAT IS "TESTWIN".
TESTWIN应该是DSP-REC.抱歉！

milanfeng

july1732：

谢谢，已成功．