RE: Query manager question -- MIDRANGE-L

--
[ Picked text/plain from multipart/alternative ]

 Thanks, but I have decided to go in another direction with this.  I am using 
RUNSQLSTM instead of query manager.
Thanks for your input.  It was much appreciated.
  "Weatherly, Howard" <hweatherly@dlis.dla.mil> wrote: This message is in MIME 
format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
--
[ Picked text/plain from multipart/alternative ]
Richard,

Here is an example of the runsqlstm, it is as close to what you are doing
that I could find. You could conceivably have many more statements in the
member.


******** member ABDATA of file DDLSOURCE in lib HGR0093 *********
DROP TABLE HGR0093.BDATA;
COMMIT;

CREATE TABLE HGR0093.BDATA
(
DUNS CHAR(13) NOT NULL WITH DEFAULT,
TIMESTMP TIMESTAMP NOT NULL WITH DEFAULT,
LASTACT CHAR(1) NOT NULL WITH DEFAULT,
PRIMARY KEY(DUNS,TIMESTMP)
);
COMMIT;

INSERT INTO HGR0093.BDATA(
SELECT DISTINCT DUNS_3405||DUNS_PLUS4_4361 AS DUNS, TMSTMP1_4564
AS TIMESTMP,DUNS_LST_ACTN_4389 AS LASTACT
FROM DLCDBAP.TCCR_AUDIT_TRAIL
WHERE TMSTMP1_4564>CURRENT TIMESTAMP - 8 DAYS
AND DUNS_LST_ACTN_4389='B'
AND USR_CD_1101 IN ('VALIDDAB'));
COMMIT;

********** RUNSQLSTM *************
Run SQL Statements (RUNSQLSTM)



Type choices, press Enter.



Source file . . . . . . . . . . > DDLSOURCE Name

Library . . . . . . . . . . . > HGR0093 Name, *LIBL, *CURLIB

Source member . . . . . . . . . > ABDATA Name

Commitment control . . . . . . . *CHG *CHG, *ALL, *CS, *NONE...

Naming . . . . . . . . . . . . . > *SQL *SYS, *SQL



Additional Parameters



Severity level . . . . . . . . . 10 0-40

Date format . . . . . . . . . . *JOB *JOB, *USA, *ISO, *EUR...

Date separator character . . . . *JOB *JOB, /, ., ,, -, ' ',
*BLANK
Time format . . . . . . . . . . *HMS *HMS, *USA, *ISO, *EUR,
*JIS
Time separator character . . . . *JOB *JOB, :, ., ,, ' ', *BLANK

Default collection . . . . . . . *NONE Name, *NONE

IBM SQL flagging . . . . . . . . *NOFLAG *NOFLAG, *FLAG

ANS flagging . . . . . . . . . . *NONE *NONE, *ANS


More...
Run SQL Statements (RUNSQLSTM)



Type choices, press Enter.



Decimal Point . . . . . . . . . *JOB *JOB, *SYSVAL, *PERIOD...

Sort sequence . . . . . . . . . *JOB Name, *HEX, *JOB...

Library . . . . . . . . . . . Name, *LIBL, *CURLIB

Language id . . . . . . . . . . *JOB *JOB, *JOBRUN...

Print file . . . . . . . . . . . QSYSPRT Name

Library . . . . . . . . . . . *LIBL Name, *LIBL, *CURLIB

Statement processing . . . . . . *RUN *RUN, *SYN

Allow copy of data . . . . . . . *OPTIMIZE *OPTIMIZE, *YES, *NO

Close SQL cursor . . . . . . . . *ENDACTGRP *ENDMOD, *ENDACTGRP

Allow blocking . . . . . . . . . *ALLREAD *ALLREAD, *NONE, *READ

Delay PREPARE . . . . . . . . . *NO *YES, *NO

Debugging view . . . . . . . . . *NONE *STMT, *LIST, *NONE

User profile . . . . . . . . . . *NAMING *NAMING, *USER, *OWNER

Dynamic user profile . . . . . . *USER *USER, *OWNER

Listing output . . . . . . . . . *NONE *NONE, *PRINT

Target release . . . . . . . . . *CURRENT *CURRENT, VxRxMx


Bottom

--
Content-Description: RE: Query manager question

From: Richard Reeve
Reply-To: midrange-l@midrange.com
To: midrange-l@midrange.com
Subject: RE: Query manager question
Date: Tue, 15 Jan 2002 12:33:31 -0500
X-Plaintext: Picked text/plain from multipart/alternative

--
[ Picked text/plain from multipart/alternative ]
--
[ Picked text/plain from multipart/alternative ]

I would be interested in seeing an example of what you are refering to.
The entire process that I am attempting is a series of inserts (to save the
deleted records to another file) and deletes.

"Weatherly, Howard" wrote: This message is in
MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
--
[ Picked text/plain from multipart/alternative ]
Richard,

I believe you can have only one Statement in a QM query, but you can save
the SQL to a file type of DDL and use RUNSQLSTM (I was going to post the
command but our machine is paying far more attention to something else other
than me at the moment!)

As an aside, it appears that you could combine the example you gave into one
sql statement or is that only part of what you need to do?


--
Content-Description: Query manager question

From: Richard Reeve
Reply-To: midrange-l@midrange.com
To: Midrange-l@midrange.com
Subject: Query manager question
Date: Tue, 15 Jan 2002 10:52:01 -0500
X-Plaintext: Picked text/plain from multipart/alternative

--
[ Picked text/plain from multipart/alternative ]
--
[ Picked text/plain from multipart/alternative ]

All,

I have created a source member that has multiple inserts and deletes in
it. I am basically saving the record that I will subsequently delete. Here
is a snipet of the memeber;

INSERT INTO QGPL/VSCP015SV SELECT * FROM vscp015 WHERE smname =
'VTMM00' AND secopt = '03';
delete from vscp015 where smname = 'VTMM00' AND secopt = '03';
--
INSERT INTO QGPL/VSCP015SV SELECT * FROM vscp015 WHERE smname =
'VTMM00' AND secopt = '14';
delete from vscp015 where smname = 'VTMM00' AND secopt = '14';
--

My question/problem is this - I need to convert to query manager but don't
see how I can accomplish. Any thoughts?





---------------------------------
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail.
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.





---------------------------------
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail.
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.





---------------------------------
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail.