Re: Updating Database files with a CL program

Stephen, et al...

no such thing as a dumb question....

You can use Cl to read a PF then why not turn around and have SQL (you
already have the engine on your system as base code) do the updates??

Don in DC

On Thu, 24 Sep 1998, Rob Berendt wrote:

> Updating from CL can be a unique opportunity.  You can use the Query 
>Management Facility by passing parameters to it.
> 
> CRTSRCPF lib/QQMQRYSRC
> Use your editor to make one line in a member, in our sample let's pretend the 
>member is called qmqry.
> UPDATE library/file SET fielda = &value   WHERE fieldb = &selection
> CRTQMQRY QMQRY(library/qmqry) SRCFILE(library/QQMQRYSRC)
> 
> Then in your CL place the following:
> ...
> DCL &VAR1 ...
> DCL &VAR1Q ...
> DCL &VAR2 ...
> DCL &VAR21 ...
> DCL        VAR(&APOS) TYPE(*CHAR) LEN(1) /* +           
>              Apostrophe                       */        
> CHGVAR     VAR(&APOS) VALUE(X'7D')                      
> ...
> CHGVAR     VAR(&VAR1Q) VALUE(&APOS *TCAT &VAR1 +  
>              *TCAT &APOS)                               
> CHGVAR     VAR(&VAR2Q) VALUE(&APOS *TCAT &VAR2 +    
>              *TCAT &APOS)                               
> STRQMQRY   QMQRY(library/qmqry) SETVAR((value &VAR1Q) + 
>              (selection &VAR2Q))                         
> ...
> 
> You all got it?
> 
> 
> 
> 
> 
> v2cib216@us.ibm.com on 09/24/98 10:34:18 AM
> Please respond to MIDRANGE-L@midrange.com@Internet
> To:   midrange-l@midrange.com@Internet
> cc:    
> Subject:      Updating Database files with a CL program
> 
> Hello,
>  I am just curious if someone can answer a stupid question for me.  I
> need to update a Database Feild and want to know if I can do that with OPNQRYF
> in a CL or if I will have to code it in COBOL to access the Database.  Thanks
> 
> --
> Stephen Johnson
> * Unite For Java -- http://www.javalobby.org *
> Performance Technologies
> IBM
> 3605 Hwy 52 N
> Rochester MN 55901
> Phone : (507) 253-6822
> Fax :  (507)253-7743
> Stephen Johnson/Rochester/Contr/IBM
> Internet - v2cib216@us.ibm.com
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
> 
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
> 

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---