Re: Modiiyng a field value

        * Jerry C. Adams
*IBM System i Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
        615.995.7024
fax
        615.995.1201
email
        jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



Yuriy Veletnik wrote:

I have a file with 4 fields:

Columns . . . :    1  80                                      Browse


SEU==>


FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6
...+.

       *************** Beginning of data
********************************

0001.00      A* TEMPORARY FILE FOR EARLY BUY FIX


0002.00      A          R ORDINV


0003.00      A            ORDNO          3S 0       TEXT('ORDER NUMBER')


0004.00      A            CUST           5          TEXT('CUSTOMER

NAME')

0005.00      A            INVNO          3S 0       TEXT('INVOICE #')


0006.00      A            PROMO          3S 0       TEXT('PROMOTION
CODE')

0007.00      A          K ORDNO




The data I'm trying to change is:

Original file data: 1 XYZ 11 654 2 ABC 15 654 3 ABC 15 000 4 LKJ 18 000 5 LKJ 18 000 6 LKJ 18 321 7 LKJ 18 000 8 LKJ 18 000 9 FGH 23 000 10 FGH 23 000 11 FGH 23 000 12 FGH 23 987 13 JKL 48 000 14 JKL 48 000 15 JKL 48 000 I'm trying to change it to: 1 XYZ 11 654 2 ABC 15 654 3 ABC 15 654 4 LKJ 18 321 5 LKJ 18 321 6 LKJ 18 321 7 LKJ 18 321 8 LKJ 18 321 9 FGH 23 987 10 FGH 23 987 11 FGH 23 987 12 FGH 23 987 13 JKL 48 000 14 JKL 48 000 15 JKL 48 000

So, whenever there is a value in the PROMO field it has to be populated
into the records with the same value in the INVNO field.



To do that I created a logical file keyed on the PROMO + INVNO fields.
I'm trying to read a file from the end to the begging and replace a
PROMO value.

Logical file and a program as following:

SEU==>

FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+

       *************** Beginning of data *************

0001.00 FORDINVL UF E K DISK 0002.00 0003.00 D PROMO_S S 3 0 0004.00 D INVNO_S S 3 0 0005.00 0006.00 C *HIVAL SETGT ORDINVL 0007.00 C READP ORDINVL 0008.00 0009.00 C EVAL INVNO_S = INVNO 0010.00 C EVAL PROMO_S = PROMO 0011.00 0012.00 C DOW NOT %EOF 0013.00 C READP ORDINVL 0014.00 C IF INVNO = INVNO_S 0015.00 C IF PROMO_S <> 0 0016.00 C EVAL PROMO = PROMO_S 0017.00 C UPDATE ORDINV 0018.00 C ENDIF 0019.00 C ELSE 0020.00 C EVAL INVNO_S = INVNO 0021.00 C EVAL PROMO_S = PROMO 0022.00 0023.00 C ENDIF 0024.00 0025.00 C ENDDO 0026.00 0027.00 C EVAL *INLR = *ON 0028.00 C RETURN 0029.00

FMT LF .....A..........T.Name++++++.Len++TDpB......Functions++++++

       *************** Beginning of data *************************

0001.00 A R ORDINV PFILE(ORDINV) 0002.00 A K INVNO 0003.00 A K PROMO

       ****************** End of data ****************************



I get and error message:



Update or delete in file ORDINVL without prior input operation (C G D
F).





Please help me fix that error or is there another solution for the
problem?





Yuriy Veletnik

AS/400 Administrator

Trade Associates Group, ltd

1730 W. Wrightwood

Chicago, IL 60614

773.871.1300 x130