A*%%TS  SD  20070808  145526  QTR         REL-V5R4M0  5722-WDS             
     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  20070808  145526  QTR         REL-V5R4M0  5722-WDS             
     A                                      TEXT(' 明細画面 01')                
     A                                      CF03(03 ' 終了 ')                   
     A                                      CF10(10 ' 更新 ')                   
     A                                      CF23(23 ' 削除 ')                   
     A                                      CF12(12 ' 前画面 ')                 
     A                                      ROLLUP(07)                          
     A                                      SETOF(99)                           
     A                                      BLINK                               
     A                                  1 27' 仕入先マスターの登録 '            
     A                                      DSPATR(HI)                          
     A            DSPMSG         6A  O  1 72TEXT(' 維持モード ')                
     A                                      DSPATR(HI)                          
     A                                  3  2' 仕入先コード '                    
     A            SRCODE         4A  O  3 25TEXT(' 仕入先コード ')              
     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                                 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                                 15 10' 発注限度額 '                      
     A            SRHLMT    R        B 15 25REFFLD(@SIREMT/SRHLMT QTRFIL/SIREMT)
     A                                      AUTO(RAB)                           
     A                                 16 10' 営業所 '                          
     A            SEGCD@         2Y 0B 16 25                                    
     A                                      SNGCHCFLD((*NUMCOL 3))              
     A                                      CHOICE(1 ' 本社 ')                  
     A                                      CHOICE(2 ' 大阪 ')                  
     A                                      CHOICE(3 ' 名古屋 ')                
     A                                 17 10' 地区コード '                      
     A            SCHIKU    R        B 17 25REFFLD(@SIREMT/SCHIKU QTRFIL/SIREMT)
     A                                 18 10' 取引状態 '                        
     A            SRTRI     R        B 18 25REFFLD(@SIREMT/SRTRI  QTRFIL/SIREMT)
     A                                 19 10' 支払先コード '                    
     A            SRSHCD    R        B 19 25REFFLD(@SIREMT/SRSHCD QTRFIL/SIREMT)
     A                                 20 10' 手形区分 '                        
     A            SRSHKB    R        B 20 25REFFLD(@SIREMT/SRSHKB QTRFIL/SIREMT)
     A                                      VALUES('1' '2' '3' '4' '5')         
     A                                      TEXT('"4 月末 " "3 月末 " -         
     A                                      "3 月 20" "3 月 10" " 任意 "')      
     A                                 21 10' 支払方法 '                        
     A            SRSHHO    R        B 21 25REFFLD(@SIREMT/SRSHHO QTRFIL/SIREMT)
     A                                      AUTO(RAB)                           
     A N88                             22 73' 続く ..'                          
     A                                      DSPATR(HI)                          
     A          R DSPDTA02                                                      
     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 10' 手形サイト '                      
     A            SRSIT     R        B  1 26REFFLD(@SIREMT/SRSIT  QTRFIL/SIREMT)
     A                                  2 10' 税区分 '                          
     A            SRZEI     R        B  2 25REFFLD(@SIREMT/SRZEI  QTRFIL/SIREMT)
     A                                      VALUES('0' '1' '2')                 
     A                                      TEXT('" 内税 " " 外税 "  " 一括 "') 
     A                                  3 10' 代表者名 '                        
     A            SDIHYO    R        B  3 25REFFLD(@SIREMT/SDIHYO QTRFIL/SIREMT)
     A                                  4 10' 支払条件 '                        
     A            SJOKEN    R        B  4 25REFFLD(@SIREMT/SJOKEN QTRFIL/SIREMT)
     A                                  5 10' 振込銀行 '                        
     A            SBNKCD    R        B  5 25REFFLD(@SIREMT/SBNKCD QTRFIL/SIREMT)
     A                                  6 10' 　　支店 '                        
     A            SSTNCD    R        B  6 25REFFLD(@SIREMT/SSTNCD QTRFIL/SIREMT)
     A                                  7 10' 預金種目 '                        
     A            SYOKKB@        2Y 0B  7 25                                    
     A                                      SNGCHCFLD((*NUMCOL 2))              
     A                                      CHOICE(1 ' 普通 ')                  
     A                                      CHOICE(2 ' 当座 ')                  
     A                                  8 10' 口座番号 '                        
     A            SKOZNO    R        B  8 25REFFLD(@SIREMT/SKOZNO QTRFIL/SIREMT)
     A                                  9 10' 預金者名 '                        
     A            SYOKNM    R        B  9 25REFFLD(@SIREMT/SYOKNM QTRFIL/SIREMT)
     A                                 10 10' 最新仕入日 '                      
     A            SNEWDT    R        B 10 25REFFLD(@SIREMT/SNEWDT QTRFIL/SIREMT)
     A                                      EDTCDE(Y)                           
     A                                 11 10' 未決済残高 '                      
     A            SMITEG    R        B 11 25REFFLD(@SIREMT/SMITEG QTRFIL/SIREMT)
     A                                      EDTCDE(K)                           
     A                                 12 10' 計画確認日 '                      
     A            SRKEDT    R        B 12 25REFFLD(@SIREMT/SRKEDT QTRFIL/SIREMT)
     A                                 13 10' 着手催促日 '                      
     A            SRHDDT    R        B 13 25REFFLD(@SIREMT/SRHDDT QTRFIL/SIREMT)
     A                                 14 10' 完成確認日 '                      
     A            SROKDT    R        B 14 25REFFLD(@SIREMT/SROKDT QTRFIL/SIREMT)
     A                                 15 10' 資本金 '                          
     A            SSIHON    R        B 15 25REFFLD(@SIREMT/SSIHON QTRFIL/SIREMT)
     A                                      AUTO(RAB) EDTCDE(K)                 
     A                                 16 10' 年商 '                            
     A            SNENSO    R        B 16 25REFFLD(@SIREMT/SNENSO QTRFIL/SIREMT)
     A                                      AUTO(RAB) EDTCDE(K)                 
     A                                 17 10' 創立年月 '                        
     A            SORITU    R        B 17 25REFFLD(@SIREMT/SORITU QTRFIL/SIREMT)
     A                                 18 10' 社員数 '                          
     A            SSHAIN    R        B 18 25REFFLD(@SIREMT/SSHAIN QTRFIL/SIREMT)
     A                                 19 10' 決算月 '                          
     A            SKESAN    R        B 19 25REFFLD(@SIREMT/SKESAN QTRFIL/SIREMT)
     A                                 20 10' メーカー '                        
     A            SMAKER    R        B 20 25REFFLD(@SIREMT/SMAKER QTRFIL/SIREMT)
     A                                 21 10' 扱い品 '                          
     A            SSHHIN    R        B 21 25REFFLD(@SIREMT/SSHHIN QTRFIL/SIREMT)
     A N88                             22 73' 続く ..'                          
     A                                      DSPATR(HI)                          
     A*                                                                         
     A          R DSPDTA03                                                      
     A                                      TEXT(' 明細画面 03')                
     A                                      CF03(03 ' 終了 ')                   
     A                                      CF10(10 ' 更新 ')                   
     A                                      CF23(23 ' 削除 ')                   
     A                                      CF12(12 ' 前画面 ')                 
     A                                      ROLLDOWN(08)                        
     A                                      SETOF(99)                           
     A                                      BLINK                               
     A                                  1 10' 当社取引品 '                      
     A            STRHIN    R        B  1 25REFFLD(@SIREMT/STRHIN QTRFIL/SIREMT)
     A                                  2 10' 備考１ '                          
     A            SBIKO1    R        B  2 25REFFLD(@SIREMT/SBIKO1 QTRFIL/SIREMT)
     A                                  3 10' 備考２ '                          
     A            SBIKO2    R        B  3 25REFFLD(@SIREMT/SBIKO2 QTRFIL/SIREMT)
     A                                  4 10' 更新者 '                          
     A            STORCD    R        B  4 25REFFLD(@SIREMT/STORCD QTRFIL/SIREMT)
     A                                  5 10' 更新日 '                          
     A            STOROK    R        B  5 25REFFLD(@SIREMT/STOROK QTRFIL/SIREMT)
     A                                      EDTCDE(Y)                           
     A N88                             22 73' 終わり '                          
     A                                      DSPATR(HI)                          
     A*                                                                         
     A                                 23  2'F3= 終了 '                         
     A                                 23 15'F10= 更新 '                        
     A                                 23 30'F23= 削除 '                        
     A                                 23 59'F12= 前画面 '                      
     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                                  1 27' 仕入先マスターの登録 '            
     A                                      DSPATR(HI)                          
     A                                  3  2' 仕入先コード '                    
     A            SRCODE         4A  B  3 25TEXT(' 仕入先コード ')              
     A                                 11 13' 仕入先コードを入れて +            
     A                                       実行キーを押しなさい '             
     A                                      DSPATR(HI)                          
     A            MSG           78A  O 22  2                                    
     A                                      DSPATR(HI)                          
     A                                 23  2'F3= 終了 '