A*%%TS  SD  20160201  161323  QTR         REL-V6R1M0  5761-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  20160201  161323  QTR         REL-V6R1M0  5761-WDS             
     A                                      TEXT(' 明細画面 01')                
     A                                      CA03(03 ' 終了 ')                   
     A                                      CF10(10 ' 更新 ')                   
     A                                      CF23(23 ' 削除 ')                   
     A                                      CF12(12 ' 前画面 ')                 
     A                                      ROLLUP(07)                          
     A                                      ROLLDOWN(08)                        
     A                                      SETOF(99)                           
     A                                      BLINK                               
     A                                      PUTOVR                              
     A            TITLE         22A  O  1 27DFT(' 得意先マスターの登録 ')       
     A                                      DSPATR(HI)                          
     A                                      OVRDTA                              
     A            DSPMSG         6A  O  1 72TEXT(' 維持モード ')                
     A                                      DSPATR(HI)                          
     A                                      OVRDTA OVRATR                       
     A                                  3  2' 得意先コード '                    
     A            TKCODE         4A  O  3 25TEXT(' 得意先コード ')              
     A                                      OVRDTA OVRATR                       
     A                                  5 10' 得意先名 '                        
     A            TKNMJ         32J  B  5 25TEXT(' 得意先名 ')                  
     A                                      OVRDTA OVRATR                       
     A                                      DSPATR(PR)                          
     A                                  6 10' 略名 '                            
     A            TKNM      R        B  6 25REFFLD(TOKMASR/TKNM QTRFIL/TOKMAS)  
     A                                      OVRDTA OVRATR                       
     A                                  7 10' 得意先区分 '                      
     A            TKKBN     R        B  7 25REFFLD(TOKMASR/TKKBN QTRFIL/TOKMAS) 
     A                                      DSPATR(PC)                          
     A                                      VALUES('1' '2' '3')                 
     A                                      TEXT('" 得意先 " " 請求先 " " 納入 -
     A                                       先 "')                             
     A                                      OVRDTA OVRATR                       
     A                                  8 10' 電話番号 '                        
     A            TKTEL     R        B  8 25REFFLD(TOKMASR/TKTEL QTRFIL/TOKMAS) 
     A                                      OVRDTA OVRATR                       
     A                                  9 10' FAX 番号 '                        
     A            TKFAX     R        B  9 25REFFLD(TOKMASR/TKFAX QTRFIL/TOKMAS) 
     A                                      OVRDTA OVRATR                       
     A                                 10 10' 〒 '                              
     A            TKZIP     R        B 10 25REFFLD(TOKMASR/TKZIP QTRFIL/TOKMAS) 
     A                                      TEXT('*ZIPCODE')                    
     A                                      OVRDTA OVRATR                       
     A                                 11 10' 住所１ '                          
     A            TKADR1    R        B 11 25REFFLD(TOKMASR/TKADR1 QTRFIL/TOKMAS)
     A                                      TEXT('*ADDR1')                      
     A                                      OVRDTA OVRATR                       
     A                                 12 10' 住所２ '                          
     A            TKADR2    R        B 12 25REFFLD(TOKMASR/TKADR2 QTRFIL/TOKMAS)
     A                                      TEXT('*ADDR2')                      
     A                                      OVRDTA OVRATR                       
     A                                 13 10' 担当者 '                          
     A            TKTNCD    R        B 13 25REFFLD(@TANTOM/TACODE QTRFIL/TANTOM)
     A  61                                  ERRMSG(' 担当者コードの誤りです ' 6-
     A                                      1)                                  
     A                                      TEXT('*COMBO *KEY PROC="QTROBJ/P1"')
     A                                      OVRDTA OVRATR                       
     A            TTNAMJ    R        O 13 31REFFLD(@TANTOM/TTNAMJ QTRFIL/TANTOM)
     A                                      TEXT('*COMBO *DATA')                
     A                                      OVRDTA OVRATR                       
     A                                 14 10' 締日 '                            
     A            TKSIME    R        B 14 25REFFLD(TOKMASR/TKSIME QTRFIL/TOKMAS)
     A                                      OVRDTA OVRATR                       
     A                                 15 10' 支払い日 '                        
     A            TKSIHR    R        B 15 25REFFLD(TOKMASR/TKSIHR QTRFIL/TOKMAS)
     A                                      OVRDTA OVRATR                       
     A                                 16 10' 請求先 '                          
     A            TKSCOD    R        B 16 25REFFLD(TOKMASR/TKSCOD QTRFIL/TOKMAS)
     A                                      OVRDTA OVRATR                       
     A  62                                  ERRMSG(' 請求先コードの誤りです ' 6-
     A                                      2)                                  
     A            SKNM      R        B 16 30REFFLD(TOKMASR/TKNM QTRFIL/TOKMAS)  
     A                                      OVRDTA OVRATR                       
     A                                 17 10' 与信限度額 '                      
     A            TKSMAX    R        B 17 25REFFLD(TOKMASR/TKYMAX QTRFIL/TOKMAS)
     A                                      EDTCDE(J) CHECK(RB)                 
     A                                      OVRDTA OVRATR                       
     A                                 19  2' 前月残 '                          
     A                                 19 16' 売上高 '                          
     A                                 20 16' 返品額 '                          
     A                                 21 16' 値引 '                            
     A                                 19 39' 振込 '                            
     A                                 20 39' 手形 '                            
     A                                 19 66' 売掛残 '                          
     A            TKUZAN    R        B 20  2REFFLD(TOKMASR/TKUZAN QTRFIL/TOKMAS)
     A                                      EDTCDE(J) CHECK(RB)                 
     A                                      OVRDTA OVRATR                       
     A            TKTURI    R        B 19 25REFFLD(TOKMASR/TKTURI QTRFIL/TOKMAS)
     A                                      EDTCDE(J) CHECK(RB)                 
     A                                      OVRDTA OVRATR                       
     A            TKTHEN    R        B 20 25REFFLD(TOKMASR/TKTHEN QTRFIL/TOKMAS)
     A                                      EDTCDE(J) CHECK(RB)                 
     A                                      OVRDTA OVRATR                       
     A            TKTNEB    R        B 21 25REFFLD(TOKMASR/TKTNEB QTRFIL/TOKMAS)
     A                                      EDTCDE(J) CHECK(RB)                 
     A                                      OVRDTA OVRATR                       
     A            TKNKFR    R        B 19 49REFFLD(TOKMASR/TKNKFR QTRFIL/TOKMAS)
     A                                      EDTCDE(J) CHECK(RB)                 
     A                                      OVRDTA OVRATR                       
     A            TKNKTG    R        B 20 49REFFLD(TOKMASR/TKNKTG QTRFIL/TOKMAS)
     A                                      EDTCDE(J) CHECK(RB)                 
     A                                      OVRDTA OVRATR                       
     A            TKTZAN    R        B 20 64REFFLD(TOKMASR/TKTZAN QTRFIL/TOKMAS)
     A                                      EDTCDE(J) CHECK(RB)                 
     A                                      OVRDTA OVRATR                       
     A*                                                                         
     A                                 23  2'F3= 終了 '                         
     A                                      COLOR(BLU)                          
     A                                 23 15'F10= 更新 '                        
     A                                      COLOR(BLU)                          
     A                                 23 30'F23= 削除 '                        
     A                                      COLOR(BLU)                          
     A                                 23 59'F12= 前画面 '                      
     A                                      COLOR(BLU)                          
     A*( 罫線クリヤー )                                                         
     A          R GRDCLR                    GRDRCD                              
     A                                      GRDCLR                              
     A          R CLRRCD                                                        
     A                                  2  2' '                                 
     A*( 罫線バッファー )                                                       
     A          R GRDREC                    GRDRCD                              
     A                                      GRDATR((*COLOR WHT) (*LINTYP SLD))  
     A                                      GRDBOX((*POS (*DS3 19 2 3 75)) +    
     A                                      (*TYPE PLAIN))                      
     A                                      GRDLIN((*POS (*DS3 19 15 3)) +      
     A                                      (*TYPE LEFT))                       
     A                                      GRDLIN((*POS (*DS3 19 38 3)) +      
     A                                      (*TYPE LEFT))                       
     A                                      GRDLIN((*POS (*DS3 19 62 3)) +      
     A                                      (*TYPE LEFT))                       
     A          R DSPHEAD                                                       
     A                                      TEXT(' 初期画面 ')                  
     A*            11:59:33    QSECOFR     REL-R06M00  5714-UT1                 
     A*                                     CF03(03 ' 終了 ')                   
     A                                      CA03(03 ' 終了 ')                   
     A                                      ROLLUP(07)                          
     A                                      ROLLDOWN(08)                        
     A                                      BLINK                               
     A                                  1 27' 得意先マスターの登録 '            
     A                                      DSPATR(HI)                          
     A                                  3  2' 得意先コード '                    
     A            TKCODE         4A  B  3 25TEXT(' 得意先コード ')              
     A            TKKBN          1A  B  3 30                                    
     A                                      VALUES('1' '2' '3' '4' '5' '9')     
     A                                      TEXT('*COMBO')                      
     A                                  3 30HTML('" 設備 " +                    
     A                                      " ユニット " +                      
     A                                      " 部品 " +                          
     A                                      " 素材 " +                          
     A                                      " 木型 " +                          
     A                                      " その他 "')                        
     A                                 11 13' 得意先コードを入れて +            
     A                                       実行キーを押しなさい '             
     A                                      DSPATR(HI)                          
     A            CPYCHKKBN      2Y 0B  3 42MLTCHCFLD                           
     A*                                     CHOICE(1 ' 複写区分 ')              
     A                                      CHOICE(1 '>COPY')                   
     A*                                     CHOICE(1 'COPY')                    
     A                                      CHCCTL(1 &CPYCHK1)                  
     A            CPYCHK1        1Y 0H                                          
     A            HIDDTA        10A  H                                          
     A            MSG           78A  O 22  2                                    
     A                                      DSPATR(HI)                          
     A                                 23  2'F3= 終了 '