Re: dynamic variables question

[Parijat Sahai <parijatsahai@HOTMAIL.COM>]

I think you should look at the variable more closely. Putting an edit
mask of '99' would be introducing leading space and so the variable
$test_var might have value '$ 1_paid_amount' which might be resulting in
syntax error. Try '88' as edit mask (will pad zeroes instead of spaces).

Parijat

>Date:         Tue, 28 Jul 1998 10:28:41 CDT
>Reply-To: SQR-USERS@USA.NET
>From: "C. Willis III" <ceprn@HOTMAIL.COM>
>Subject:      dynamic variables question
>To: Multiple recipients of list SQR-USERS <SQR-USERS@list.iex.net>
>
>Hello all,
>
>I have an sqr, and I am trying to save some bytes within it.  The
>following is a snippet of the code :
>
>if #REMITLINES = 2
>  LET $2B_INVOICE_ID        = $OB_INVOICE_ID
>  LET $2INVOICE_DT          = $OB_PAY_DOC_DT
>  LET $2B_VOUCHER_ID        = $OB_VOUCHER_ID
>  LET $2B_PAID_AMT          = $OB_PAID_AMT
>  LET $2B_PAID_AMT_GROSS    = $OB_PAID_AMT_GROSS
>  LET $2B_DISCOUNT_TAKEN    = $OB_DISCOUNT_TAKEN
>  LET #X_PAID_AMT           = #OX_PAID_AMT
>  LET $2B_PYMNT_MESSAGE     = $OB_PYMNT_MESSAGE
>
>  LET $2B_INVOICE_ID        = RPAD($2B_INVOICE_ID, 16,' ')
>  LET $2B_VOUCHER_ID        = RTRIM($2B_VOUCHER_ID,' ')
>
>  LET #PGSUB_PAID_AMT_GROSS = #PGSUB_PAID_AMT_GROSS + #X_PAID_AMT_GROSS
>  LET #PGSUB_DISCOUNT_TAKEN = #PGSUB_DISCOUNT_TAKEN + #X_DISCOUNT_TAKEN
>  LET #PGSUB_PAID_AMT       = #PGSUB_PAID_AMT       + #X_PAID_AMT
>
>  END-IF
>
>I have this *40* times in the program, with more examples just like it.
>I know one way to efficiently handle this is to use arrays, but I don't
>like messing with arrays.  Then I though 'dynamic variables', but that
>doesn't seem to be working.  If I can get dynamic variables to work I
>can replace the 40+ iterations of the above code with only one.  Here's
>what I have in testing :
>
>while #counter < #max_counter  ! first code line
>  let $number = edit(#counter, '99') ! second code line
>  let $test_var = '$'||$number||'_paid_amount' ! 3rd
>  let [$test_var] = edit(#some_variable, '99999999999') ! 4th
>end-while ! 5th
>
>When I place a show statement within the code, $test_var does =
>$1_paid_amount (for the first one), like it should, but I get the
>following error on the 3rd line of code:
>Error on line 3:
>   (SQR 4000) Result #variable or $variable or '=' missing in
>expression.
>      let [$test_var] = edit(#some_variable, '99999999999')
>
>Errors were found in the program file.
>
>I am using sqr v4.1 when I run this.  Any ideas?  Is this something
that
>is not allowed, or am I getting something wrong in the syntax?
>
>clark
>
>
>______________________________________________________
>Get Your Private, Free Email at http://www.hotmail.com
>


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com