E                    KJR       256  1                漢字補正              
    +C                     MOVEAFIELD     KJR                補正 ﾌｨｰﾙﾄﾞ        
     C                     Z-ADD99        KJLEN   30        ﾌｨｰﾙﾄﾞ 長           
     C                     EXSR KANJI                       漢字補正            
     C                     MOVEAKJR       FIELD                                 
     C******************************************************                    
     C           KANJI     BEGSR                                                
     C******************************************************                    
     C*( 漢字補正 ｻﾌﾞ･ﾙｰﾁﾝ )                                                    
     CSR                   Z-ADDKJLEN     KL      30                            
     CSR         KL        SUB  1         KM      30                            
     CSR         KL        ADD  1         KU      30                            
     CSR                   MOVEA*BLANKS   KJR,KU                                
     C*     漢字 ﾌｨｰﾙﾄﾞ の O/E O/F の欠落を補正する。                           
     CSR                   MOVE '  '      OEOF    2                             
     CSR                   MOVELOEOF      OE      1                             
     CSR                   MOVE OEOF      OF      1                             
     CSR                   Z-ADD1         KJ      20                            
     CSR         NXTKJ     TAG                                                  
     CSR         OE        LOKUPKJR,KJ                   50                     
     CSRN50                GOTO KJ0END                                          
     CSR                   Z-ADDKJ        KJE     20                            
     CSR         KJE       IFEQ KL                                              
     CSR                   MOVE *BLANKS   KJR,KL                                
     CSR                   GOTO KJ0END                                          
     CSR                   END                                                  
     C*                                                                         
     CSR         KJE       IFLT KJLEN                      KJE < 30             
     CSR                   ADD  1         KJ                                    
     CSR         OF        LOKUPKJR,KJ                   50                     
     CSR 50      KJ        CABEQKJLEN     KJ0END                                
     CSR 50                ADD  1         KJ                                    
     CSR 50                GOTO NXTKJ                                           
     CSR                   END                             KJE < 30             
     C*( OE に対応する OF がなかった )                                          
     CSR                   ADD  KL        KJE                                   
     CSR         KJE       DIV  2         KJA     20                            
     CSR                   MVR            KJB     20                            
     C*  KJB=0:OE は偶数桁にある                                                
     C*  KJB=1:OE は奇数桁にある                                                
     CSR         KJB       IFEQ *ZEROS                     KJB=0                
     CSR                   MOVE OF        KJR,KM                                
     CSR                   MOVE ' '       KJR,KL                                
     CSR                   ELSE                            KJB=0                
     CSR                   MOVE OF        KJR,KL                                
     CSR                   END                             KJB=0                
     CSR         KJ0END    ENDSR