Re: Updating Database files with a CL program

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
+---