× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. January 2002

RE: Query manager question

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 <richreeve@yahoo.com>
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" <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,

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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.