No Subject

[rbrightman@xxxxxxxxxx]

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 that I can do
away with the 'move'
     following it (line 271)? Remember, "trcrdt" is a packed field on a physical
 file.
                                                   Rick


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 S3123 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
+---