(SQR 6806) String2Em: String to Decimal Object Conversion Error.

["Lee, Michael" <Michael_Lee@QUAKEROATS.COM>]

I am currently running this version of sqr: SQR/4.1.7.3/OS390 V2R4/DB2 5.10
and undergoing an upgrade from PS 7.01 to PS 7.02. and I am having a problem
concerning the above mentioned error. I have checked the table structures of
all fields used and found that they are all numeric or integer. The program
will take these fields and call a FORMAT-NUMBER on each. I figured that
since it was moving these values to character string values (to accommodate
the FORMANT-NUMBER) that I would let the values print as is. This also leads
to the same error. I don't know if this is a recurring problem in SQRv4 or a
problem with the environment. Any help would be appreciated. Here's a sample
of the code:


BEGIN-PROCEDURE Process-Main
BEGIN-SELECT

S.STATE                     (2,1)
S.EFFDT
  do Format-DateTime(&S.EffDt, $out, {DEFDATE}, '', '')
  print $out                (2,9)
S.EFF_STATUS
  if &S.Eff_Status = 'I'
    print 'I'               (2,0,1)
  else
    print ' '               (2,0,1)
  end-if
S.ST_TAX_TYPE

  move 'ST_TAX_TYPE'  to $FieldName
  move &S.St_Tax_Type to $FieldValue
  do Read-Translate-Table
  print $XlatLongName       (3,1)

S.SINGLE_STD_DED
  do Format-Number(&S.Single_Std_Ded, $out, 'b99999')
  print $out                (2,19)
S.MARRIED_STD_DED
  do Format-Number(&S.Married_Std_Ded, $out, 'b99999')
  print $out                (2,30)
S.ALLOWANCE_AMT
  do Format-Number(&S.Allowance_Amt, $out, 'b99999')
  print $out                (2,40)
S.FWT_CREDIT
S.FICA_CREDIT
  if &S.FWT_Credit = 'Y' and &S.FICA_Credit = 'Y'
     print 'FICA'           (2,51)
     print 'FWT'            (3,51)
  else
    if &S.FWT_Credit = 'Y'
       print 'FWT'          (2,51)
    else
      if &S.FICA_Credit = 'Y'
         print 'FICA'       (2,51)
      end-if
    end-if
  end-if
S.SUPL_WAGE_RT
  do Format-Number(&S.Supl_Wage_Rt, $out, 'b.99999')
  print $out                (2,58)
S.SUPPL_CON_METHOD          (2,69)
  print ' / '               ()
S.SUPPL_SEP_METHOD          ()
S.TAX_RPT_INTERVAL          (2,81)
S.EE_DTL_REQUIRED           (2,90)
  move 2 to #descrLine
S.SPECIAL_AMT_1
S.SPECIAL_DESCR_1
  if &S.Special_Amt_1 <> 0
    do Format-Number(&S.Special_Amt_1, $out, 'b999999.99999')
    print $out                (#descrLine,98)
    print &S.Special_Descr_1  (#descrLine,114)
    add 1 to #descrLine
  end-if
S.SPECIAL_AMT_2
S.SPECIAL_DESCR_2
  if &S.Special_Amt_2 <> 0
    do Format-Number(&S.Special_Amt_2, $out, 'b999999.99999')
    print $out                (#descrLine,98)
    print &S.Special_Descr_2  (#descrLine,114)
    add 1 to #descrLine
  end-if
S.SPECIAL_AMT_3
S.SPECIAL_DESCR_3
  if &S.Special_Amt_3 <> 0
    do Format-Number(&S.Special_Amt_3, $out, 'b999999.99999')
    print $out                (#descrLine,98)
    print &S.Special_Descr_3  (#descrLine,114)
    add 1 to #descrLine
  end-if
S.SPECIAL_AMT_4
S.SPECIAL_DESCR_4
  if &S.Special_Amt_4 <> 0
    do Format-Number(&S.Special_Amt_4, $out, 'b999999.99999')
    print $out                (#descrLine,98)
    print &S.Special_Descr_4  (#descrLine,114)
    add 1 to #descrLine
  end-if
S.SPECIAL_AMT_5
S.SPECIAL_DESCR_5
  if &S.Special_amt_5 <> 0
    do Format-Number(&S.Special_Amt_5, $out, 'b999999.99999')
    print $out                (#descrLine,98)
    print &S.Special_Descr_5  (#descrLine,114)
  end-if

  do Get-Other-Taxes

  NEXT-LISTING NEED=4

FROM PS_STATE_TAX_TBL S

ORDER BY S.STATE, S.EFFDT DESC

END-SELECT
END-PROCEDURE


Also, when I check the error message, it tells me the error occurs starting
with the BEGIN-SELECT so I don't know which field is the problem.



                Thanks in advance,
                                        Mike Lee