Re:

["Scott Klement" <infosys@xxxxxxxxxxxx>]

You could probably just do   "eval   TRCRDT = ACCT_NUM"
However, I don't see how this is any better than "MOVE" approach :)

HTH


rbrightman@amclog.com wrote:
>
> This code takes an inputted account code, finds it in the field
>  "adjust_account"
>  and returns the
> account number.
>
> Question: Is there a way I can change the 'evaluate' statement so th
>  I can do
> away with the 'move'
>      following it (line 271)? Remember, "trcrdt" is a packed field o
>  a physical
>  file.
>
> 0019.00 D
> 0020.00 D                            DS
> 0021.00 D   ACCT_NUM                          1        4     0
> 0022.00 D   ACCT_ALFA                         1        4
> 0023.00 D
>
>                D TRCRDT                            S    4P   0
> 0032.00 D ADJUST_ACCOUNT      S         174      INZ('A3130 B1820
>  C3121 D3127
> E432
> 0033.00 D
> F0313 G4324 H0312 I8402 J313
> 0034.00 D
> K3132 L4354 M3128 N3129 O312
> 0035.00 D                                     P0304 Q3124 R3126 S312
>  T432
> 0036.00 D
> U4333 V4360 W4313 Y2290 Z312
> 0037.00 D
>  *0315
> @0316 #4330 &4350')
> 0043.00 D POS                             S              3    0
>
> 0044.00 D PAY2D                          S              9     2
>
>
> 0267.00 C* Get account number code.
>      C          EXFMT    SCREEN1
> 0268.00 C                   EVAL              POS = %SCAN(AJCD2 :
> ADJUST_ACCOUNT)
> 0269.00 C                   IF                     POS > 0
>
> 0270.00 C                   EVAL             ACCT_ALFA =
>  %SUBST(ADJUST_ACCOUNT :
>  POS + 1)
> 0271.00 C                   MOVE           ACCT_ALFA     TRCRDT
>
> 0272.00 C                   ENDIF
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---