RE: Fw: File in CL Program -- RPG400-L

It's very simple to create a cmd that runs a simple QM/400 query which
expects to be passed a complete SQL statement. We use this in CLP to
dynamically run any SQL UPDATE statement. This feature has been available
for yonks, and there's almost nothing to code to make it available. You
don't need a hammer if you simply wish to use thumb tacks.

Cheers, Peter

-----Original Message-----
From: Mike Silvers [mailto:msilvers@hbs-inc.com]
Sent: Wednesday, August 30, 2000 6:52 AM
To: RPG400-L@midrange.com
Subject: Re: Fw: File in CL Program


This code does not allow you to update a file using CL, it uses RPGLE
programs to do the file manipulation.  You still can not update a file in CL
only.


----- Original Message -----
From: Jodi Walker <Jodi_Walker@ccmail.columbia.com>
To: <RPG400-L@midrange.com>
Sent: Tuesday, August 29, 2000 11:48 AM
Subject: Re: Fw: File in CL Program


>      Actually, yes it is possible to update a db file in a CL.  In fact,
>      you can do more than update - IF you have a little help.  Read the
>      article at
>
http://www.as400network.com/artarchive/index.cfm?fuseaction=viewarticl
>      e&CO_ContentID=7217
>
>      then download & install the code.  I couldn't resist trying it & it
>      works like a champ.
>      If the link doesn't work, just search the AS400 network site for the
>      article called 'CL flexes its database muscles' by Peter Clifford.
>
>      Things you can do with these db i/o commands in CL:
>      Open a db file
>      Close a db file
>      Read a record from a db file
>      Position the file cursor in a db file
>      Update a record in a db file
>      Write a record to a database file
>      Delete a record from a database file
>      Release a locked record
>      Retrieve the value of a named field from a record format
>      Change the value of a named field in a record format
>
>         jw
>
> ______________________________ Reply Separator
_________________________________
> Subject: Fw: File in CL Program
> Author:  Nancy Savino <newnancy@juno.com> at Internet
> Date:    08/29/2000 7:47 AM
>
>
>
>
> --------- Forwarded message ----------
> From: Nancy Savino <newnancy@juno.com>
> To: RPG400-L@midrange.com
> Date: Fri, 25 Aug 2000 11:18:56 -0400
> Subject: File in CL Program
> Message-ID: <20000825.112007.-159601.0.newnancy@juno.com>
>
> I recently went on an interview. (By the way, I am the one who has been
> looking for a job for over a year and has not found one yet). He asked me

> about files in CL programs. I told him that there can only be one, that I
> have read database files in a CL program in a loop, etc. Can you update a
> database file in a CL program? I told him that I never had done that.
>
> Sincerely, Nancy
>
> ________________________________________________________________
> YOU'RE PAYING TOO MUCH FOR THE INTERNET!
> Juno now offers FREE Internet Access!
> Try it today - there's no risk!  For your FREE software, visit:
> http://dl.www.juno.com/get/tagj.
> +---
> | 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
+---

This communication is confidential and may be legally privileged.  If it is not 
addressed to you, you are on notice of its status.  Please immediately contact 
us at our cost and destroy it.  Please do not use, disclose, copy, distribute 
or retain any of it without our authority - to do so could be a breach of 
confidence.  Thank you for your co-operation.  Please contact us on (09) 356 
5800 if you need assistance.
+---
| 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
+---