Arithmetic extract-phase column logic with brackets

[ghannington]

Extract-phase column logic with arithmetic expressions with brackets at the end of the expression, do not produce all the correct DIMN statements.
See view 12221, env 804, SAFRWBGD.

This produces the following.
Note that line 11 references an accumulator that is not declared.

Generated on 2024-10-23 0:0:0                                                                     
       1     0 HD                                                                                 
                                                                                                  
       2     0 RENX  1506                                                                         
------------                                                                                      
View 0012221                                                                                      
------------                                                                                      
       3     0 NV   EXTRACT  LR=1595 SKA=0, STA=0, DTA=16, CTC=0 Source Number=1                  
       4     1 DTC  "Arith_B"                                        ->     1   8 X (U/0,0 NONE L)
       5     2 DIMN Declare g_12221_1506_1595_1_1  = 0                                            
       6     2 SETE    1506    1595   90902   30   1 B (S/0,0 NONE)  ->  g_12221_1506_1595_1_1    
       7     2 MULC g_12221_1506_1595_1_1                            =  2                         
       8     2 DIMN Declare g_12221_1506_1595_1_0  = 0                                            
       9     2 SETA g_12221_1506_1595_1_0 <- g_12221_1506_1595_1_1                                
      10     2 ADDC g_12221_1506_1595_1_0                            =  10                        
      11     2 SUBA g_12221_1506_1595_1_0 - g_12221_1506_1595_1_2                                 
      12     2 DTA  g_12221_1506_1595_1_0                            ->     1   8 Z (S/0,0 NONE R)
      13     0 WRDT Dest=File                                                                     
      14     0 ES   1506                                                                          
      15     0 EN