*************** Beginning of data *************************************    
     A                                               DSPSIZ(24 80 *DS3)        
     A          R HEAD                                                
     A                                           2   1DATE                      
     A                                                  EDTCDE(Y)                 
     A                                           2 69TIME                      
     A                                           2 34'顯示檔記錄'          
     A*****************************************************************
     A          R SUBF                             SFL                       
     A             FLD001         5A  O  9 16
     A             FLD002        20A  O  9 28                     
     A*****************************************************************
     A          R SUBFC                           SFLCTL(SUBF)              
     A                                                  SFLSIZ(9999)              
     A                                                  SFLPAG(0010)              
     A  30                                            SFLDSP                    
     A  31                                            SFLDSPCTL                 
     A  32                                            SFLCLR                    
     A  33                                            SFLEND(*MORE)             
     A                                                  OVERLAY                   
     A                                                  CA12(12 'EXIT')           
     A                                           7 15'欄位1'                
     A                                                  COLOR(WHT)                
     A                                           7 27'欄位2'                
     A                                                  COLOR(WHT)                
     A*****************************************************************
     A          R FOOT                                                
     A                                                  OVERLAY                   
     A                                         24 11'F12=EXIT'                
     A                                                  COLOR(BLU)                
****************** End of data ****************************************

(1) 第一個畫面HEAD注解:
(a) 第一行表明顯示尺寸,一般就這麼寫;
(b) 第二行的R表示接下來是一個記錄,記錄名是HEAD,有點象PF的定義,不過在DSPF裡的記錄代表
  一個畫面;
(c) 第三行的DATE是系統關鍵字,表示日期,該句意思是在第2行第1列顯示系統日期;
(d) 第四行的EDTCDE表示編輯字,EDTCDE(Y)表示系統日期按照“MM/DD/YY”格式顯示;
(e) 第五行的TIME是系統關鍵字,表示時間,該句意思是在第2行第69列顯示系統時間;
(f) 第六行意思是在第2行第34列顯示字元竄"顯示檔記錄"。

(2) 第二個畫面SUBF注解:
(a) 第一行的R和上面一樣,也代表這是一個畫面,名字是SUBF;
  後面的SFL是系統關鍵字,表示該畫面是SUBFILE;
(b) 第二行表示在畫面第9行第16列顯示長度為5的欄位FLD001,5是長度,A表示該欄位是字元型,
  O表示該欄位只用於輸出;
(c) 第三行與上一行類似。

(3) 第三個畫面SUBFC注解:
(a) 第一行的R和上面一樣,也代表這是一個畫面,名字是SUBFC,
  SFLCTL是系統關鍵字,SFLCTL(SUBF)表示該記錄是用來對畫面SUBF顯示的控制,
  一般定義了SUBFILE之後,都要定義這個記錄的;
(b) 第二行的SFLSIZ用來說明SUBF的記錄數,這裡我把它定義為最大9999;
(c) 第三行的SFLPAG用來說明每頁顯示的記錄條數,這裡我把定義為10筆;
(d) 第四、五、六行的SFLDSP是用來顯示記錄的,SFLDSPCTL用來控制顯示的,
  SFLCLR用來清除顯示的記錄的,一般都需要給他們加上指示器,這裡分別是30、31、32;
(e) 第七行的SFLEND用來聲明每頁下方的提示,這裡用*MORE來表示,如果還有下一頁的話,下方
  就顯示”More……“,否則,就顯示”Bottom“,這裡也用個指示器33;
(f) 第八行的OVERLAY表示顯示該記錄之前不要清除上一屏,即保留;
(g) 第九行的CA12表示在這個畫面裡我可以用鍵盤按鍵F12,對應的指示器是12,
  這裡你可以根據自己需要使用別的按鍵,例如CA03;
(h) 第十一行的COLOR是系統關鍵字,用來給上面顯示的字元竄設置顯示顏色,
  這裡用BLU,表示字元竄”欄位1“顯示為藍色;

(4) 第四個畫面FOOT注解參考上面三點即可,在此不在累贅。


文章標籤
全站熱搜
創作者介紹
創作者 狼翔月影 的頭像
狼翔月影

狼翔天地

狼翔月影 發表在 痞客邦 留言(0) 人氣(308)