A                                      DSPSIZ(24 80 *DS3)                  
     A                                      MSGLOC(24)                          
     A                                      PRINT                               
     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                                      INZRCD                              
     A                                  1 27' 仕入先マスターの照会 '            
     A                                      DSPATR(RI)                          
     A*                                 1 72' 日付 '                            
     A*           DATE           8Y 0O  1 80                                    
     A                                  2  2' 仕入先コード '                    
     A            SRCODE         4A  B    +1TEXT(' 仕入先コード ')              
     A  91                                  ERRMSG('ﾛｰﾙｱｯﾌﾟ できない ' 91)      
     A  92                                  ERRMSG('ﾛｰﾙﾀﾞｳﾝ できない ' 92)      
     A*                                  + 1'-'                                 
     A                                 11 13' 参照するコードを +                
     A                                       入れて実行キーを押してください '   
     A                                      DSPATR(HI)                          
     A                                 22  2'ROLL UP/DOWN'                      
     A                                 23  2'F3= 終了 '                         
     A          R INZMSG                                                        
     A                                      OVERLAY PUTRETAIN                   
     A                                 23  2'F3= 終了 '                         
     A          R MNUBAR                    MNUBAR                              
     A                                      MNUBARDSP                           
     A                                      MNUBARSW(CA09)                      
     A                                      CF03(03 ' 終了 ')                   
     A*                                     OVERLAY PUTRETAIN                   
     A*%%TS  SD  19940302  221529  QTR         REL-V2R2M0  5738-PW1             
     A            MNUFLD         2Y 0B  1  2                                    
     A                                      MNUBARCHC(1 DSPDTA01 ' 基本情報 ')  
     A                                      MNUBARCHC(2 DSPDTA02 ' 分類情報 ')  
     A                                      MNUBARCHC(3 DSPDTA03 ' 支払情報 ')  
     A                                      MNUBARCHC(4 DSPDTA04 ' 督促条件 ')  
     A                                      MNUBARCHC(5 DSPDTA05 ' 追加情報 ')  
     A                                      MNUBARCHC(6 DSPDTA06 ' 更新情報 ')  
     A*                                23  2'F3= 終了 '                         
     A          R DSPDTA01                                                      
     A                                      PULLDOWN                            
     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 27' 仕入先マスターの照会 '            
     A                                      DSPATR(RI)                          
     A                                  3  2' 仕入先コード '                    
     A            SRCODE         4A  O  3 18TEXT(' 仕入先コード ')              
     A  91                                  ERRMSG('ﾛｰﾙｱｯﾌﾟ できない ' 91)      
     A  92                                  ERRMSG('ﾛｰﾙﾀﾞｳﾝ できない ' 92)      
     A                                  4  2' 基本情報 '                        
     A                                      DSPATR(RI)                          
     A                                  5 10' 仕入先名 '                        
     A            SRNMJ         32A  B  5 25TEXT(' 仕入先名 ')                  
     A                                  6 10' 略名 '                            
     A            SRNMK     R        B  6 25REFFLD(@SIREMT/SRNMK QTRFIL/SIREMT) 
     A                                  7 10' 電話番号 '                        
     A            SRTEL     R        B  7 25REFFLD(@SIREMT/SRTEL QTRFIL/SIREMT) 
     A                                  8 10' FAX 番号 '                        
     A            SRFAX     R        B  8 25REFFLD(@SIREMT/SRFAX QTRFIL/SIREMT) 
     A                                  9 10' 〒 '                              
     A            SRZIP     R        B  9 25REFFLD(@SIREMT/SRZIP QTRFIL/SIREMT) 
     A                                      TEXT('*ZIPCODE')                    
     A                                 10 10' 住所１ '                          
     A            SRADR1    R        B 10 25REFFLD(@SIREMT/SRADR1 QTRFIL/SIREMT)
     A                                      TEXT('*ADDR1')                      
     A                                 11 10' 住所２ '                          
     A            SRADR2    R        B 11 25REFFLD(@SIREMT/SRADR2 QTRFIL/SIREMT)
     A                                      TEXT('*ADDR2')                      
     A                                 12 10' 担当者名 '                        
     A            STANTO    R        B 12 25REFFLD(@SIREMT/STANTO QTRFIL/SIREMT)
     A*                                23  2'F3= 終了 '                         
     A*                                23 35'F10= 更新 '                        
     A*                                23 53'F23= 削除 '                        
     A*                                23 69'F12= 前画面 '                      
     A          R DSPDTA02                                                      
     A                                      PULLDOWN                            
     A                                      TEXT(' 分類情報 02')                
     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 27' 仕入先マスターの照会 '            
     A                                      DSPATR(RI)                          
     A                                  3  2' 仕入先コード '                    
     A            SRCODE         4A  O  3 15TEXT(' 仕入先コード ')              
     A  91                                  ERRMSG('ﾛｰﾙｱｯﾌﾟ できない ' 91)      
     A  92                                  ERRMSG('ﾛｰﾙﾀﾞｳﾝ できない ' 92)      
     A                                  4  2' 分類情報 '                        
     A                                      DSPATR(RI)                          
     A                                  5 10' 仕入先名 '                        
     A            SRNMJ         32A  B  5 25TEXT(' 仕入先名 ')                  
     A                                 13 10' 仕入先区分 '                      
     A            SRKB@          2Y 0B 13 25                                    
     A                                      SNGCHCFLD((*NUMCOL 2))              
     A                                      CHOICE(1 ' 仕入先 ')                
     A                                      CHOICE(2 ' 外注先 ')                
     A                                 14 10' 業種区分 '                        
     A            SGYOSH    R        B 14 25REFFLD(@SIREMT/SGYOSH QTRFIL/SIREMT)
     A*                                                                         
     A          R DSPDTA03                                                      
     A                                      PULLDOWN                            
     A                                      TEXT(' 支払情報 03')                
     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 27' 仕入先マスターの照会 '            
     A                                      DSPATR(RI)                          
     A                                  3  2' 仕入先コード '                    
     A            SRCODE         4A  O  3 15TEXT(' 仕入先コード ')              
     A  91                                  ERRMSG('ﾛｰﾙｱｯﾌﾟ できない ' 91)      
     A  92                                  ERRMSG('ﾛｰﾙﾀﾞｳﾝ できない ' 92)      
     A                                  4  2' 支払情報 '                        
     A                                      DSPATR(RI)                          
     A                                  5 10' 仕入先名 '                        
     A            SRNMJ         32A  B  5 25TEXT(' 仕入先名 ')                  
     A*                                                                         
     A          R DSPDTA04                                                      
     A                                      PULLDOWN                            
     A                                      TEXT(' 督促条件 04')                
     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 27' 仕入先マスターの照会 '            
     A                                      DSPATR(RI)                          
     A                                  3  2' 仕入先コード '                    
     A            SRCODE         4A  O  3 15TEXT(' 仕入先コード ')              
     A  91                                  ERRMSG('ﾛｰﾙｱｯﾌﾟ できない ' 91)      
     A  92                                  ERRMSG('ﾛｰﾙﾀﾞｳﾝ できない ' 92)      
     A                                  4  2' 督促条件 '                        
     A                                      DSPATR(RI)                          
     A                                  5 10' 仕入先名 '                        
     A            SRNMJ         32A  B  5 25TEXT(' 仕入先名 ')                  
     A*                                                                         
     A          R DSPDTA05                                                      
     A                                      PULLDOWN                            
     A                                      TEXT(' 追加情報 05')                
     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 27' 仕入先マスターの照会 '            
     A                                      DSPATR(RI)                          
     A                                  3  2' 仕入先コード '                    
     A            SRCODE         4A  O  3 15TEXT(' 仕入先コード ')              
     A  91                                  ERRMSG('ﾛｰﾙｱｯﾌﾟ できない ' 91)      
     A  92                                  ERRMSG('ﾛｰﾙﾀﾞｳﾝ できない ' 92)      
     A                                  4  2' 追加情報 '                        
     A                                      DSPATR(RI)                          
     A                                  5 10' 仕入先名 '                        
     A            SRNMJ         32A  B  5 25TEXT(' 仕入先名 ')                  
     A*                                                                         
     A          R DSPDTA06                                                      
     A                                      PULLDOWN                            
     A                                      TEXT(' 更新情報 06')                
     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 27' 仕入先マスターの照会 '            
     A                                      DSPATR(RI)                          
     A                                  3  2' 仕入先コード '                    
     A            SRCODE         4A  O  3 15TEXT(' 仕入先コード ')              
     A  91                                  ERRMSG('ﾛｰﾙｱｯﾌﾟ できない ' 91)      
     A  92                                  ERRMSG('ﾛｰﾙﾀﾞｳﾝ できない ' 92)      
     A                                  4  2' 更新情報 '                        
     A                                      DSPATR(RI)                          
     A                                  5 10' 仕入先名 '                        
     A            SRNMJ         32A  B  5 25TEXT(' 仕入先名 ')