*************** 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注解參考上面三點即可,在此不在累贅。




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