C******************************************************                                        
     C     TODIGIT       BEGSR                                                                      
     C******************************************************                                        
     C*  文字 CHR30 の値を数字の DIGIT (30,5) に置換えます。                                        
     C*ﾗ 例 ﾝ ----------------------------------------------                                        
     C*                  MOVEL     MYCHR         CHR30                                              
     C*                  EXSR      ﾎﾅDIGIT                                                          
     C*                  Z-ADD     DIGIT         MYDIGIT                                            
     C*-----------------------------------------------------                                        
     CSR                 MOVE      *BLANKS       FGO               1                                
     CSR                 Z-ADD     0             DIGIT            3005                              
     CSR   ' '           CHECKR    CHR30         SIZE#             4 0                              
     CSR   SIZE#         IFGT      0                                                                
     CSR   1             DO        SIZE#         CNT               4 0                              
     CSR   1             SUBST     CHR30:CNT     FLD1              1                                
     CSR   FLD1          IFGE      '0'                                                              
     CSR   FLD1          ANDLE     '9'                                                              
     CSR                 MOVE      FLD1          DG01              1 0                              
     CSR                 MULT      10            DIGIT                                              
     CSR                 ADD       DG01          DIGIT                                              
     CSR                 ELSE                                                                       
     CSR   FLD1          IFEQ      '-'                                                              
     CSR                 MOVE      FLD1          FGO               1                                
     CSR                 END                                                                        
     CSR                 END                                                                        
     CSR                 END                                                                        
     CSR                 END                                                                        
     CSR   FGO           IFEQ      '-'                                                              
     CSR                 Z-SUB     DIGIT         DIGIT                                              
     CSR                 END                                                                        
     CSR                 MOVE      *BLANKS       CHR30            30                                
     CSR                 ENDSR