dspf中windows的subfile例子

dspf文件：文件名cs11

A          R SF                        SFL                      
A                                      SFLNXTCHG                
A            opt            2      4  5values(' ' '1' '2' '3' '4')

A            FLD001         3   O  5  5

A            FLD002         3   O  6  5                         
A          R SFC                       SFLCTL(SF)               
A                                      WINDOW(WFOOT)            
A                                      SFLSIZ(0011)             
A                                      SFLPAG(0010)             
A                                      OVERLAY                  
A                                      CF06(06 'sav')           
A                                      CF03(03 'Exit')          
A                                      CF12(12 'Cancel')        
A N27                                  SFLDSP                   
A N27                                  SFLDSPCTL                
A  29                                  SFLINZ                  

A  27                                  SFLCLR                             
A  28                                  SFLEND(*MORE)                      
A                                  2  4'sdf'                              
A          R WFOOT                                                        
A                                      WINDOW(2 2 18 74 *NOMSGLIN)        
A                                      WDWBORDER((*COLOR BLU) (*DSPATR HI)-
A                                       (*CHAR '...:::.:'))               
A                                 17  4'f03= Exit'                        
A          R ASSUME                                                       
A                                      ASSUME                             
A                                 24  2' '                                

使用以上的dspf文件的程序：cs21

fCS11      cf   e             workstn sfile(sf:rrn) 
drrn              s              5  0               

c*inzsr是一个初始化

c                  exsr       inzsr

c*相sf写入数据

c                  exsr       loadsfl

C*

c                  dow        not *in03

c                  write      wfoot 

c                  exfmt      sfc 

c。。。。。              

c                  enddo

c                  seton                                 lr

这里需要将的是dspf文件中的sfc记录中windows键字使用的参数时wfoot的名字，这里的意思是说sfc的windows是将在同一个windows中显示的，其大小和wfoot一样大。程序的写法和dspf使用recorde来显示subfile的写法一样。