RE: Inconsistency ?

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

RCCUS must be a numeric field.  Without the K in the file spec. the program
is chaining to the file by relative record number.  Are you sure no records
are being updated?  I think records are being updated, just not the ones you
think should be.  Look at the records with a releative record number of what
RCCUS is.  When you put the K in the file spec. then the chain is by the key
field and it updates the records you expect.

Scott Mildenberger

> -----Original Message-----
> From: jjooste@omnia.co.za [SMTP:jjooste@omnia.co.za]
> Sent: Wednesday, October 25, 2000 8:01 AM
> To:   RPG400-L@midrange.com
> Subject:      Inconsistency ?
> 
> 
> Please can anybody give me advise on the weird situation.
> 
> FRARXX02   IP   E             DISK
> FRCML01    UF   E             DISK
> C***
> C     RCCUS         CHAIN(E)  RCML01
> C                     IF                 %FOUND AND NOT %ERROR
> C               ADD           RAMT          CAMTD
> C                    UPDATE(E)     IPR100CM
> C                     ENDIF
> C***
> 
> Reading a file, chaining to another file without a K specified, and
> updating it.
> When compiling the pgm, not even a severity 10 error. Debugging it, it
> shows the
> data moving into the correct field, interrupting it, it also shows the
> file and
> record being accessed and updated.
> 
> Problem: After running the pgm, not one record were updated ?
> 
> Changing the 2nd line to this: FRCML01    UF   E          K   DISK, with
> the K
> in place, it worked.
> 
> Am I going mad or what ?
> 
> 
> 
> +---
> | 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
> +---
+---
| 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
+---