*  名前 :  PGM116FM                                                       
      *  ソース :   QTRSRC/QDSPSRC(PGM116FM)                                    
      *  作成   :   CRTEXDSPF FILE(QTROBJ/PGM116FM) SRCFILE(QTRSRC/QDSPSRC)     
      *                   LVLCHK(*NO) AUT(*ALL)                                 
      *  説明   : 5250 ハンドラー用に拡張された DSPF ソース                     
      *      ADD= 追加 , CHG= 変更箇所                                          
                                                                                
      *  DSPSIZ(*FREE) を宣言                                                   
CHG  A                                      DSPSIZ(*FREE)                       
     A                                      MSGLOC(24)                          
     A                                      PRINT                               
     A                                      INDARA                              
     A          R SFREC01                   SFL                                 
     A                                      TEXT(' ＳＦＬレコード ')            
     A  20                                                                      
     AO 99                                  SFLNXTCHG                           
     A            GYO            4A  O  7  2TEXT(' �Y ')                        
     A  03                                  DSPATR(UL)                          
     A            JPCODE         2A  O  7  7                                    
     A            JPNAME        10O  O  7 11                                    
     A            JPCAP         10O  O  7 22                                    
     A            AVTMP          4Y 1O  7 36EDTCDE(K)                           
     A            AVMAX          4Y 1O  7 48EDTCDE(K)                           
     A            AVMIN          4Y 1O  7 60EDTCDE(K)                           
     A  61                                  COLOR(RED)                          
     A            AVHUM          4Y 0O  7 72EDTCDE(K)                           
     A*( ここからは 80 桁オーバー↓ )                                           
ADD  A            AVSUN          4Y 0O  7 84EDTCDE(K)                           
ADD  A            AVRAN          4Y 0O  7 96EDTCDE(K)                           
ADD  A            AVFIN          3Y 0O  7108EDTCDE(K)                           
ADD  A            AVAME          3Y 0O  7120EDTCDE(K)                           
ADD  A            AVSNW          3Y 0O  7132EDTCDE(K)                           
     A          R SFCTL01                   SFLCTL(SFREC01)                     
     A*%%TS  SD  20170215  134547  QTR         REL-V6R1M0  5761-WDS             
     A                                      SFLSIZ(0030)                        
     A                                      SFLPAG(0014)                        
     A                                      TEXT(' ＳＦＬコントロール ')        
     A N49                                  ROLLUP(14 ' 次頁 ')                 
     A                                      CF03(03 ' 終了 ')                   
     A                                      OVERLAY                             
     A                                      SETOF(99)                           
     A  42                                  SFLDSP                              
     A  41                                  SFLDSPCTL                           
     A  43                                  SFLINZ                              
     A  46                                  SFLDLT                              
     A  44                                  SFLCLR                              
     A  49                                  SFLEND(*MORE)                       
     A  61                                  SFLMSGID(EDT0410 QPDA/QEDTMSG 61)   
     A  62                                  SFLMSGID(EDT0411 QPDA/QEDTMSG 62)   
     A  66                                  SFLMSGID(CPF9897 QSYS/QCPFMSG 66 &M-
     A                                      SGDTA)                              
     A  67                                  SFLMSGID(CPD6A6D QSYS/QCPFMSG 67)   
     A                                      RTNCSRLOC(&RCD &FLD &CSRP)          
     A            DSPREC         4S 0H      SFLRCDNBR(CURSOR)                   
     A            RCD           10A  H                                          
     A            FLD           10A  H                                          
     A            CSRP           4S 0H      TEXT('SFL 表示 ﾚｺｰﾄﾞ �Y ')          
     A            MSGDTA        60A  P                                          
     A            PGM           10A  O  1  2COLOR(BLU)                          
     A                                  1 27' 気象データ・ランキング '          
     A                                      DSPATR(HI)                          
      *( *FREEE によって表示位置を変更する )                                    
     A                                  1 61' システム '                        
ADD  A  *FREE                           1115                                    
     A                                  1 72SYSNAME                             
ADD  A  *FREE                           1126                                    
     A                                  2 61' 日付 '                            
ADD  A  *FREE                           2115                                    
     A                                  2 70DATE(*JOB *YY)                      
     A                                      EDTCDE(W)                           
ADD  A  *FREE                           2124                                    
     A                                  3 61' 時刻 '                            
ADD  A  *FREE                           3115                                    
     A                                  3 72TIME                                
ADD  A  *FREE                           3126                                    
     A                                  4 61' ユーザー '                        
ADD  A  *FREE                           4115                                    
     A                                  4 72USER                                
ADD  A  *FREE                           4126                                    
     A                                  6  2' �Y '                              
     A                                      DSPATR(HI)                          
     A                                  6  7'CODE'                              
     A                                      DSPATR(HI)                          
     A                                  6 12' 都道府県 '                        
     A                                      DSPATR(HI)                          
     A                                  6 23' 県庁地 '                          
     A                                      DSPATR(HI)                          
     A                                  6 33' 年平均℃ '                        
     A                                      DSPATR(HI)                          
     A                                  6 46' 月最高℃ '                        
     A                                      DSPATR(HI)                          
     A                                  6 59' 月最低℃ '                        
     A                                      DSPATR(HI)                          
     A                                  6 71' 年湿度％ '                        
     A                                      DSPATR(HI)                          
     A*( ここからは 80 桁オーバー↓ )                                           
ADD  A                                  6 83' 日照時間 '                        
     A                                      DSPATR(HI)                          
ADD  A                                  6 95' 年降水量 '                        
     A                                      DSPATR(HI)                          
ADD  A                                  6107' 年快晴日 '                        
     A                                      DSPATR(HI)                          
ADD  A                                  6119' 年降水日 '                        
     A                                      DSPATR(HI)                          
ADD  A                                  6131' 年降雪日 '                        
     A                                      DSPATR(HI)                          
     A          R DSPEND01                                                      
     A                                      OVERLAY                             
     A                                      TEXT(' 機能キーの表示 ')            
     A                                 23  2'F3= 終了 '                         
     A                                      COLOR(BLU)