E                    KJN    10  10  1                漢数字                
     E                    KJS    10  10  4                漢数字                
     E                    KJA        10  3               WORK                   
     E                    KJB        10  2               WORK                   
     E                    KJC        18  1               WORK                   
     E                    KGR         9  2               WORK                   
     E                    DGR         9  1                                      
     C******************************************************                    
     C           KJSU      BEGSR                                                
     C******************************************************                    
     C*  数字 DG09 9,0 ----> 漢字 KJSUJI 20,0 に変換                            
     CSR                   MOVE '  '      OEOF    2                             
     CSR                   MOVELOEOF      OE      1                             
     CSR                   MOVE OEOF      OF      1                             
     CSR                   MOVE ' ￥ '    FLD3    3                             
     CSR                   MOVELFLD3      \MARK   2                             
     CSR                   MOVELKJS       KJA                                   
     CSR                   MOVE KJA       KJB                                   
     C*                                                                         
     CSR                   MOVE DG09      FLD9    9                             
     CSR                   MOVEAFLD9      DGR                                   
     CSR         1         DO   9         J       20                            
     CSR         DGR,J     COMP ' '                      50                     
     CSRN50      DGR,J     COMP '0'                      50                     
     CSRN50                GOTO OUTKJ                                           
     CSR                   MOVE *BLANKS   DGR,J                                 
     CSR                   END                                                  
     CSR         OUTKJ     TAG                                                  
     C*                                                                         
     CSR         1         DO   9         J                                     
     CSR         DGR,J     IFNE *BLANKS                                         
     CSR         J         SUB  1         K                                     
     CSR         K         IFNE 0                                               
     CSR                   MOVE '\'       DGR,K                                 
     CSR                   END                                                  
     CSR                   GOTO OUT\                                            
     CSR                   END                                                  
     CSR                   END                                                  
     CSR         OUT\      TAG                                                  
     C*                                                                         
     CSR         1         DO   9         J                                     
     CSR         DGR,J     IFEQ *BLANKS                                         
     CSR                   MOVE *BLANKS   KGR,J                                 
     CSR                   GOTO BYPASJ                                          
     CSR                   END                                                  
     C*                                                                         
     CSR         DGR,J     IFEQ '\'                                             
     CSR                   MOVE \MARK     KGR,J                                 
     CSR                   GOTO BYPASJ                                          
     CSR                   END                                                  
     C*                                                                         
     CSR                   MOVE DGR,J     FLD1    1                             
     CSR                   Z-ADD1         K       20                            
     CSR         FLD1      LOKUPKJN,K                    50                     
     CSR 50                MOVE KJB,K     KGR,J                                 
     C*                                                                         
     CSR         BYPASJ    TAG                                                  
     CSR                   END                                                  
     CSR                   MOVEAKGR       FLD18  18                             
     CSR                   MOVEAFLD18     KJC                                   
     C*                                                                         
     CSR         1         DO   18        J                                     
     CSR         KJC,J     IFNE *BLANKS                                         
     CSR         J         SUB  1         K                                     
     CSR         K         IFNE 0                                               
     CSR                   MOVE OE        KJC,K                                 
     CSR                   END                                                  
     CSR                   GOTO OUTOE                                           
     CSR                   END                                                  
     CSR                   END                                                  
     CSR         OUTOE     TAG                                                  
     C*                                                                         
     CSR                   MOVEAKJC       FLD18                                 
     CSR                   MOVE FLD18     FLD19  19                             
     CSR                   MOVELFLD19     KJSUJI 20                             
     CSR         KJSUJI    COMP *BLANKS                  50                     
     CSRN50                MOVE OF        KJSUJI                                
     CSR                   ENDSR                                                
**                                                                              
0123456789                                                                      
**                                                                              
 ０  １  ２  ３  ４  ５  ６  ７  ８  ９