H            Y/                                                      LOWBCH
     F********** 変更後の高速バッチＰＧＭ *****************************         
     FFILE    IF  E           K        DISK                                     
     FTANTO   IF  E           K        DISK                                     
     F*****************************************************************         
     E                    CDR       500  4               CODE * 500             
     E                    NMR       500 20               NAME * 500             
     C           1         DO   *HIVAL    N       40                            
     C                     READ TANTO                    50                     
     C   50                LEAVE                                                
     C                     MOVE CODE      CDR,N                                 
     C                     MOVE NAME      NMR,N                                 
     C                     END                                                  
     C*                                                                         
     C                     DO   *HIVAL                                          
     C                     SETOF                     50                         
     C                     READ FILE                     50                     
     C                     Z-ADD1         N                                     
     C           TANKEY    LOKUPCDR,N                    50                     
     C   50                MOVE NMR,N     NAME                                  
     C   50                LEAVE                                                
     C*----------------------------------------------------+                    
     C                     UPDATFILER                      |                    
     C*----------------------------------------------------+                    
     C                     END