RE: update files

This guy sounds like he learned from Ira and Carmelo.  You get the full
flavor if you read the message on the bottom first.  The guy who posted the
original question is a system admin who has just gotten his first as/400.
>From other postings he seems like a reasonable human being who actually
knows something about computers in general.  He ended up using a 5 or 10
line RPG program someone else posted.

> -----Original Message-----
> From: Alan Campin [mailto:Alan.Campin@CaseLogic.com]
> Sent: Wednesday, January 05, 2000 10:20 AM
> To: 'RPG400-L@midrange.com'
> Subject: RE: update files
> 
> 
> Could you use SQL? Perfect place for it. Set at a time 
> processing. SQL is
> available on every AS/400 even if you do not have the SQL Package. 
> 
> Using only RPG, I would recommend you build a CL driver, 
> issue an OPNQRYF to
> select records, override data base to point to a file named 
> input and call
> your RPG to read all the records as Update, Primary. Then 
> your program only
> needs to change 'A' to 'X' and issue an update.
> 
> All of this is a lot of work vs. just using an UPDATE 
> statement in SQL.
> 
> -----Original Message-----
> From: Art Baker [mailto:Art_Baker@baan.com]
> Sent: Wednesday, January 05, 2000 10:38 AM
> To: 'RPG400-L@midrange.com'
> Subject: FW: update files
> 
> 
> Hello,
>       I looking to update a data file with RPG. Normally I've 
> been using
> UPDDTA and changing the records, when required, but in this 
> case there is
> over 900 records that needed to be updated. My question is 
> which command to
> use, SETLL, READE or CHAIN. There are two things to look for 
> in this file,
> DTYPE
> and DDSTAT. The DTYPE to look for is JRNL and the DDSTAT to 
> look for is 'A'.
> Both JRNL and 'A' need to be true then, change the 'A' to an 'X'.
> Thanks for any advice,
> Art 
> +---
> | 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
> +---
> 
+---
| 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
+---