A*-----------------------------------------------*                         
     A*   サブファイル表示     SMP111FM               *                         
     A*                                                                         
     A*        年間売上ヒストリー                                               
     A*                                                                         
     A*    DSPSIZ(*FREE) を指定して                                             
     A*     CRTEXDSPF で作成するだけです。     ↓                               
     A*-----------------------------------------------*                         
     A                                      DSPSIZ(*FREE)                       
     A                                      MSGLOC(24)                          
     A                                      PRINT                               
     A*-----------------------------------------------*                         
     A          R DSPHEAD                                                       
     A*-----------------------------------------------*                         
     A                                      TEXT(' 初期画面 ')                  
     A                                      CF03(03 ' 終了 ')                   
     A                                      SETOF(99)                           
     A                                      BLINK                               
     A                                      CSRLOC(LIN        POS)              
     A                                  1 27' 年間売上ヒストリー '              
     A                                      DSPATR(RI)                          
     A                                      COLOR(PNK)                          
     A                                  2  2' 商品コード '                      
     A            STRCOD        10A  B  2 15TEXT(' 商品コード ')                
     A                                 11 15' 必要な項目を打鍵して実行キーを押 +
     A                                       して下さい。 '                     
     A                                      DSPATR(HI)                          
     A                                 23  2'F3= 終了 '                         
     A                                      COLOR(BLU)                          
     A            LIN            3S 0H                                          
     A            POS            3S 0H                                          
      * サブ・ファイル・レコード                                                
     A          R SFREC01                   SFL                                 
     A                                      TEXT(' ＳＦＬ明細行 ')              
     A  20                                                                      
     AO 99                                  SFLNXTCHG                           
     A            GYO            4A  O  6  2TEXT(' �Y ')                        
     A* 03                                  DSPATR(UL)                          
     A            SHCODE        10A  O  6  7TEXT(' 商品コード ')                
     A            SHNAME        24O  O  6 18TEXT(' 商品名 ')                    
     A*( 1 段目の表示 )                                                         
     A            NHSU01         4Y 0O  6 45TEXT('1 月売上高 ')                 
     A                                      EDTCDE(J)                           
     A            NHSU02         4Y 0O  6 53TEXT('2 月売上高 ')                 
     A                                      EDTCDE(J)                           
     A            NHSU03         4Y 0O  6 61TEXT('3 月売上高 ')                 
     A                                      EDTCDE(J)                           
     A            NHSU04         4Y 0O  6 69TEXT('4 月売上高 ')                 
     A                                      EDTCDE(J)                           
     A*( 2 段目の表示 )                                                         
     A            NHSU05         4Y 0O  6 77TEXT('5 月売上高 ')                 
     A                                      EDTCDE(J)                           
     A            NHSU06         4Y 0O  6 85TEXT('6 月売上高 ')                 
     A                                      EDTCDE(J)                           
     A            NHSU07         4Y 0O  6 93TEXT('7 月売上高 ')                 
     A                                      EDTCDE(J)                           
     A            NHSU08         4Y 0O  6101TEXT('8 月売上高 ')                 
     A                                      EDTCDE(J)                           
     A*( 3 段目の表示 )                                                         
     A            NHSU09         4Y 0O  6109TEXT('9 月売上高 ')                 
     A                                      EDTCDE(J)                           
     A            NHSU10         4Y 0O  6117TEXT('10 月売上高 ')                
     A                                      EDTCDE(J)                           
     A            NHSU11         4Y 0O  6125TEXT('11 月売上高 ')                
     A                                      EDTCDE(J)                           
     A            NHSU12         4Y 0O  6132TEXT('12 月売上高 ')                
     A                                      EDTCDE(J)                           
     A          R SFCTL01                   SFLCTL(SFREC01)                     
     A                                      SFLSIZ(0020)                        
     A                                      SFLPAG(0010)                        
     A                                      TEXT(' ＳＦＬ制御見出 ')            
     A                                      OVERLAY                             
     A  41                                  SFLDSPCTL                           
     A  42                                  SFLDSP                              
     A  43                                  SFLINZ                              
     A                                      SFLRNA                              
     A  44                                  SFLCLR                              
     A  45                                  SFLEND(*MORE)                       
     A  46                                  SFLDLT                              
     A                                      ROLLUP(14 ' 次頁 ')                 
     A                                      ROLLDOWN(15 ' 前頁 ')               
     A                                      CF03(03 ' 終了 ')                   
     A                                      CF12(12 ' 前画面 ')                 
     A                                      SETOF(99)                           
     A                                      BLINK                               
     A            PGM           10A  O  1  2COLOR(BLU)                          
     A            DMYFLD         1A  O  1 72                                    
     A  61                                  ERRMSGID(EDT0411 QPDA/QEDTMSG 61)   
     A  62                                  ERRMSGID(EDT0410 QPDA/QEDTMSG 62)   
     A  63                                  ERRMSGID(QRY1902 QQRYMSG 63)        
     A  64                                  ERRMSGID(QRY1903 QQRYMSG 64)        
     A            DSPREC         4S 0H      SFLRCDNBR(CURSOR)                   
     A                                      TEXT('SFL 表示 ﾚｺｰﾄﾞ �Y ')          
     A            LIN            3S 0H      TEXT('ｶｰｿﾙ 位置合せ - 行 ')         
     A            POS            3S 0H      TEXT('ｶｰｿﾙ 位置合せ - 桁 ')         
     A                                  1 27' 年間売上ヒストリー '              
     A                                      DSPATR(RI)                          
     A                                      COLOR(PNK)                          
     A                                  1121' システム '                        
     A                                  1132SYSNAME                             
     A                                  2121' 日付 '                            
     A                                  2130DATE(*YY) EDTCDE(W)                 
     A                                  3121' 時刻 '                            
     A                                  3132TIME                                
     A                                  4121' ユーザー '                        
     A                                  4132USER                                
     A*( 明細行の桁見出し )                                                     
     A                                  5  2' �Y '                              
     A                                      DSPATR(HI)                          
     A*     ｴﾗｰ 標識 :61 - 69                                                   
     A                                  5  7' 商品コード '                      
     A                                      DSPATR(HI)                          
     A                                  5 20' 商品名 '                          
     A                                      DSPATR(HI)                          
     A*( 1 段目の表示 )                                                         
     A                                  5 45' 1 月 '                            
     A                                      DSPATR(HI)                          
     A                                  5 53' 2 月 '                            
     A                                      DSPATR(HI)                          
     A                                  5 61' 3 月 '                            
     A                                      DSPATR(HI)                          
     A                                  5 69' 4 月 '                            
     A                                      DSPATR(HI)                          
     A*( 2 段目の表示 )                                                         
     A                                  5 77' 5 月 '                            
     A                                      DSPATR(HI)                          
     A                                  5 85' 6 月 '                            
     A                                      DSPATR(HI)                          
     A                                  5 93' 7 月 '                            
     A                                      DSPATR(HI)                          
     A                                  5101' 8 月 '                            
     A                                      DSPATR(HI)                          
     A*( 3 段目の表示 )                                                         
     A                                  5109' 9 月 '                            
     A                                      DSPATR(HI)                          
     A                                  5117'10 月 '                            
     A                                      DSPATR(HI)                          
     A                                  5125'11 月 '                            
     A                                      DSPATR(HI)                          
     A                                  5133'12 月 '                            
     A                                      DSPATR(HI)                          
     A*( 見出しの項目 )                                                         
     A          R NOREC                                                         
     A                                      TEXT(' ＭＳＧ : レコードなし ')     
     A                                      OVERLAY                             
     A                                      CF03(03 ' 終了 DEBUG')              
     A                                 10  5'( 検索されて見つかったレコードが - 
     A                                       ない。 )'                          
     A                                      DSPATR(HI)                          
     A                                 16  5' 処理を続けるために実行キーを押し -
     A                                       なさい。 '                         
     A                                      DSPATR(HI)                          
     A          R DSPEND01                                                      
     A                                      TEXT(' 機能キーの表示 ')            
     A                                      OVERLAY                             
     A                                      CF03(03 ' 終了 ')                   
     A                                      SLNO(*VAR)                          
     A            SLNO           2Y 0H                                          
     A                                 17  2'F3= 終了 '                         
     A                                      COLOR(BLU)                          
     A                                 17 19'F12= 前画面 '                      
     A                                      COLOR(BLU)