A***************************************************************           
     A*    TEST01FM     :   商品マスターの登録                                  
     A*    QTRSRC/QDSPSRC(TEST01FM)                                             
     A*     使用目的    :   更新 (*UPDATE)                                      
     A*     作成日      :  2021/08/07         11:01:41                          
     A*     作成者      :  QTR                                                  
     A***************************************************************           
     A                                      DSPSIZ(24 80 *DS3)                  
     A                                      MSGLOC(24)                          
     A                                      PRINT                               
      *    ---------------------------                                          
     A          R DSPHEAD                                                       
      *    ---------------------------                                          
     A                                      TEXT(' 初期画面 ')                  
     A                                      CF03(03 ' 終了 ')                   
     A                                      ROLLUP(07)                          
     A                                      ROLLDOWN(08)                        
     A                                      BLINK                               
     A                                  1  2'TEST01'                            
     A                                  1 27' 商品マスターの登録 '              
     A                                      DSPATR(HI)                          
     A                                  2 64' 日付 '                            
     A                                  2 71DATE(*JOB *YY)                      
     A                                      EDTCDE(W)                           
     A                                  3 64' 時刻 '                            
     A                                  3 71TIME                                
     A                                      EDTWRD('  :  :  ')                  
      *( キーの記述 )                                                           
     A                                  3  2' 商品コード '                      
     A            SHCODE        10A  B  3 15TEXT(' 商品コード ')                
     A  61                                  ERRMSGID(DFU0806 QSYS/QDFUMSG 61 +  
     A                                      &MSGDTA)                            
     A            MSGDTA        30A  P                                          
     A                                 11 15' 必要な項目を打鍵して実行キーを押 +
     A                                       して下さい。 '                     
     A                                      DSPATR(HI)                          
     A                                 23  2'F3= 終了 '                         
     A                                      COLOR(BLU)                          
     A                                 23 59'ROLL UP/DOWN'                      
     A                                      COLOR(BLU)                          
      *    ---------------------------                                          
     A          R DSPDTA01                                                      
      *    ---------------------------                                          
     A                                      TEXT(' 明細画面 01')                
     A                                      CF03(03 ' 終了 ')                   
     A                                      CF10(10 ' 更新 ')                   
     A                                      CF23(23 ' 削除 ')                   
     A                                      CF12(12 ' 前画面 ')                 
     A                                      ROLLUP(07)                          
     A                                      ROLLDOWN(08)                        
     A                                      SETOF(99)                           
     A                                      BLINK                               
     A                                  1  2'TEST01'                            
     A                                  1 27' 商品マスターの登録 '              
     A                                      DSPATR(HI)                          
     A            DSPMSG         6A  O  1 72TEXT(' 維持モード ')                
     A                                      DSPATR(HI)                          
     A                                  2 64' 日付 '                            
     A                                  2 71DATE(*JOB *YY)                      
     A                                      EDTCDE(W)                           
     A                                  3 64' 時刻 '                            
     A                                  3 71TIME                                
     A                                      EDTWRD('  :  :  ')                  
      *( キーの記述 )                                                           
     A                                  3  2' 商品コード '                      
     A            SHCODE        10A  O  3 15TEXT(' 商品コード ')                
     A  61                                  ERRMSGID(DFU0806 QSYS/QDFUMSG 61 +  
     A                                      &MSGDTA)                            
     A            MSGDTA        30A  P                                          
      *( データの記述 )                                                         
     A                                  5  2' 商品名 '                          
     A            SHNAME        24O  B  5 15TEXT(' 商品名 ')                    
     A                                  6  2' 単価 '                            
     A            SHTANK         7Y 0B  6 15TEXT(' 単価 ')                      
     A                                      EDTCDE(J)                           
     A                                      DSPATR(CS) CHECK(RB)                
     A                                  7  2' 品種コード '                      
     A            SHSCOD         4A  B  7 15TEXT(' 品種コード ')                
     A                               O  8  2' 品種名 '                          
     A            HNSNAM        14O  O  8 15TEXT(' 品種名 ')                    
     A*( 機能キーの記述 )                                                       
     A                                 23  2'F3= 終了 '                         
     A                                      COLOR(BLU)                          
     A                                 23 20'F10= 更新 '                        
     A                                      COLOR(BLU)                          
     A                                 23 41'F12= 前画面 '                      
     A                                      COLOR(BLU)                          
     A                                 23 66'F23= 削除 '                        
     A                                      COLOR(BLU)                          
     A                                 22 66'ROLL UP/DOWN'                      
     A                                      COLOR(BLU)                          
      *    ---------------------------                                          
     A          R ENDOPT                                                        
      *    ---------------------------                                          
     A                                      TEXT(' 終了画面 ')                  
     A                                      CF03(03 ' 終了 ')                   
     A                                      CF12(12 ' 前画面 ')                 
     A                                  1 34' 終了 '                            
     A                                      DSPATR(HI)                          
     A                                  3  2' 処理されたレコード数 '            
     A                                  5 10' 追加  . . . . . :'                
     A            ADDREC         5Y 0O  5 35EDTCDE(1)                           
     A                                  6 10' 変更  . . . . . :'                
     A            CHGREC         5Y 0O  6 35EDTCDE(1)                           
     A                                  7 10' 削除  . . . . . :'                
     A            DLTREC         5Y 0O  7 35EDTCDE(1)                           
     A                                 11  2' 選択項目を打鍵して，実行キーを押 +
     A                                       してください。 '                   
     A                                      COLOR(BLU)                          
     A                                 13  5' データ入力の終了  . . . . . .'    
     A            ANS            1A  B 13 39VALUES('Y' 'N')                     
     A                                 13 53'Y=YES, N=NO'                       
     A                                 23  2'F3= 終了 '                         
     A                                      COLOR(BLU)                          
     A                                 23 15'F12= 前画面 '                      
     A                                      COLOR(BLU)