A*%%TS  SD  19940302  221529  QTR         REL-V2R2M0  5738-PW1             
     A*            11:59:33    QSECOFR     REL-R06M00  5714-UT1                 
     A*%%EC                                                                     
     A                                      DSPSIZ(24 80 *DS3)                  
     A                                      MSGLOC(24)                          
     A                                      PRINT                               
     A          R DSPDTA01                                                      
     A*%%TS  SD  19940302  221529  QTR         REL-V2R2M0  5738-PW1             
     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                                      KEEP                                
     A                                      BLINK                               
     A                                  1 27' 商品マスターの照会 '              
     A                                      DSPATR(RI)                          
     A            DSPMSG         6A  O  1 72TEXT(' 維持モード ')                
     A                                      DSPATR(HI)                          
     A                                  2  2' 商品 [ｰqﾞ'                        
     A            SHCODE        10A  O  2 13TEXT(' 商品 [ｰqﾞ')                  
     A  91                                  ERRMSG('ﾚｰyYWﾊﾟ できない ' 91)      
     A  92                                  ERRMSG('ﾚｰynﾞbﾜ できない ' 92)      
     A                                  5 10' 商品名 '                          
     A            SHNAME        24O  B  5 24TEXT(' 商品名 ')                    
     A                                  8 10' 単価 '                            
     A            SHTANK         7Y 0B  8 24TEXT(' 単価 ')                      
     A                                      CHECK(RB)                           
     A                                      EDTCDE(K)                           
     A                                      DSPATR(CS)                          
     A                                 11 10' 品種 [ｰqﾞ'                        
     A            SHSCOD         4A  B 11 24TEXT(' 品種 [ｰqﾞ')                  
     A  93                                  ERRMSG(' 品種 [ｰqﾞ の誤りです。    -
     A                                                                ' 93)     
     A                                 23  2'F3= 終了 '                         
     A                                 23 35'F10= 更新 '                        
     A                                 23 53'F23= 削除 '                        
     A                                 23 69'F12= 前画面 '                      
     A            HNSNAM        14   O 11 31                                    
     A          R DSPHEAD                                                       
     A                                      TEXT(' 初期画面 ')                  
     A*            11:59:33    QSECOFR     REL-R06M00  5714-UT1                 
     A                                      CF03(03 ' 終了 ')                   
     A                                      ROLLUP(07)                          
     A                                      ROLLDOWN(08)                        
     A                                      BLINK                               
     A*                                     INVITE  INZRCD                      
     A*                                     FRCDTA                              
     A                                  1 27' 商品マスターの照会 '              
     A                                      DSPATR(RI)                          
     A                                  2  2' 商品 [ｰqﾞ'                        
     A            SHCODE        10A  B  2 13TEXT(' 商品 [ｰqﾞ          ')        
     A                                      AUTO(RA)                            
     A  91                                  ERRMSG('ﾚｰyYWﾊﾟ できない ' 91)      
     A  92                                  ERRMSG('ﾚｰynﾞbﾜ できない ' 92)      
     A                                 11 13' 登録または変更する [ｰqﾞ を +      
     A                                       入れて実行 fｰ を押しなさい '       
     A                                      DSPATR(HI)                          
     A                                 22  2'ROLL UP/DOWN'                      
     A                                 23  2'F3= 終了 '